Fórum MixMods

onde modders nascem
https://forum.mixmods.com.br/

[SA] Sell Stolen Cars V1.1 (Vender Carros Roubados...)

https://forum.mixmods.com.br/viewtopic.php?f=5&t=1005

Página 1 de 2

[SA] Sell Stolen Cars V1.1 (Vender Carros Roubados...)

Enviado: 23 Set 2018, 15:18
por xXBrunoXx
  Com esse mod vc poderá vender carros roubados para receptadores de veículos em LS, SF e LV...
 
Imagem

Imagem
 
Imagem

print versão antiga:
Imagem
 
       atualização
Agora vc poderá vender os carros em SF, LS e LV;
Cada local terá um receptador de veículos;
Eles aparecerão em seus devidos locais dás 01h00 às 08h00 da manhã;
Quando vc chegar no local basta pressionar "H" para definir o carro que será vendido;
Após vender a quantidade desejada  de veículos, basta ir até o receptador e pressionar TAB para receber o pagamento pelo serviço; 
Ah... eu adicionei um arquivo ".ini" pra vc poder configurar o valor o valor total dos veículos vendidos. 
 

então... tentei fazer algo mais elaborado e tal, um mod dahora de se jogar, mas acabou saindo a mesma coisa de antes ou pior ainda. Eu não ia nem postar, mas vou deixar download desse e do antigo mod ai, pra quem quiser baixar... o source deve tá uma porcaria...



DOWNLOAD
versão antiga 
 
  :herp:
Source Antigo:

Código: Selecionar tudo

SCRIPT_START
{
LVAR_INT scplayer pCar iCarID iCarValue pickup total
GET_PLAYER_CHAR 0 scplayer
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
WHILE TRUE
    WAIT 0
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
    WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 50.0 50.0 50.0 FALSE
        WAIT 0
    ENDWHILE
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
    CREATE_PICKUP 1274 1 2468.423584 -1788.130371 13.562098 pickup
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
    WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 50.0 50.0 50.0 FALSE
        WAIT 0
        IF IS_CHAR_SITTING_IN_ANY_CAR scplayer
        AND NOT IS_CHAR_ON_ANY_BIKE scplayer
        AND IS_KEY_PRESSED VK_KEY_Y
        AND LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 25.0 25.0 25.0 FALSE
            PRINT_HELP_STRING "Veiculo ~g~vendido~w~ com sucesso!"
            GET_CAR_CHAR_IS_USING scplayer pCar
            GET_CAR_MODEL pCar iCarID
            SET_CAR_ENGINE_ON pCar 0
            TASK_LEAVE_CAR scplayer pCar
            WAIT 2000
            LOCK_CAR_DOORS pCar 4
            GET_CAR_MODEL_VALUE iCarID iCarValue
            iCarValue /= 2
            total += iCarValue
        ENDIF

        IF LOCATE_CHAR_ANY_MEANS_3D scplayer 2468.423584 -1788.130371 13.562098 1.5 1.5 1.5 FALSE
        AND total > 1
            PRINT_HELP_FORMATTED "Valor Ganho pela venda do(s) Veiculo(s) ~g~$%i.00" total
            ADD_SCORE 0 total
            WAIT 1000
            total = 0
        ENDIF
    ENDWHILE
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
    REMOVE_PICKUP pickup
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
ENDWHILE
}
SCRIPT_END
Source Novo:

Código: Selecionar tudo

SCRIPT_START
{
LVAR_INT scplayer iHour iRandomNumber hPickup hVehicle iVehClass nVehID iVehValue hSeller nTotal iDivisionValue
LVAR_FLOAT cSeller_X cSeller_Y cSeller_Z
GET_PLAYER_CHAR 0 scplayer

GOSUB Loads

READ_INT_FROM_INI_FILE "cleo\VehContraband.ini" "CONFIG" "DivisionValue" iDivisionValue
IF NOT READ_INT_FROM_INI_FILE "cleo\VehContraband.ini" "CONFIG" "DivisionValue" iDivisionValue
    iDivisionValue = 2
ENDIF

WHILE TRUE
    WAIT 0

    GET_TIME_OF_DAY iHour iRandomNumber

    IF LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 150.0 150.0 150.0 (FALSE)
        IF iHour > 0
        AND iHour < 7
            GOSUB LS
            ELSE
            WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 150.0 150.0 150.0 (FALSE)
                WAIT 0
            ENDWHILE
        ENDIF
    ENDIF
    IF LOCATE_CHAR_ANY_MEANS_3D scplayer -2070.964355 270.818970 35.532852 150.0 150.0 150.0 (FALSE)
        IF iHour > 0
        AND iHour < 7
            GOSUB SF
            ELSE
            WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 150.0 150.0 150.0 (FALSE)
                WAIT 0
            ENDWHILE
        ENDIF
    ENDIF
    IF LOCATE_CHAR_ANY_MEANS_3D scplayer 2205.138916 941.367065 10.820313 150.0 150.0 150.0 (FALSE)
        IF iHour > 0
        AND iHour < 7
            GOSUB LV
            ELSE
            WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2205.138916 941.367065 10.820313 150.0 150.0 150.0 (FALSE)
                WAIT 0
            ENDWHILE
        ENDIF
    ENDIF

ENDWHILE
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
LS:
CREATE_CHAR PEDTYPE_CIVMALE 29 2468.336914 -1785.578735 13.559688 hSeller
SET_CHAR_HEADING hSeller 268.075745

WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 150.0 150.0 150.0 (FALSE)
    WAIT 0
    IF IS_CHAR_SITTING_IN_ANY_CAR scplayer
        GET_CAR_CHAR_IS_USING scplayer hVehicle
        GET_VEHICLE_CLASS hVehicle iVehClass
        IF iVehClass = 0
        OR iVehClass = 1
        OR iVehClass = 2
        OR iVehClass = 3
            GET_CAR_MODEL hVehicle nVehID
            GET_CAR_MODEL_VALUE nVehID iVehValue
            IF IS_PLAYER_PRESSING_HORN 0
            AND LOCATE_CHAR_ANY_MEANS_3D scplayer 2478.955078 -1783.251587 13.554197 25.0 25.0 25.0 (FALSE)
                PRINT_HELP_STRING "Retire o dinheiro com o ~r~receptador..."
                TASK_LOOK_AT_CHAR hSeller scplayer -1
                TASK_LEAVE_CAR scplayer hVehicle
                WAIT 2000
                LOCK_CAR_DOORS hVehicle 4
                SET_CAR_ENGINE_ON hVehicle 0
                iVehValue /= iDivisionValue
                nTotal += iVehValue
            ENDIF
        ENDIF
    ENDIF
    IF nTotal > 1
    AND NOT IS_CHAR_DEAD hSeller
        GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS hSeller 0.0 0.0 0.0 cSeller_X cSeller_Y cSeller_Z
        IF LOCATE_CHAR_ANY_MEANS_3D scplayer cSeller_X cSeller_Y cSeller_Z 1.3 1.3 1.3 (FALSE)
            PRINT_HELP_STRING "Pressione ~Y~TAB"
            WHILE NOT IS_KEY_PRESSED VK_TAB
                WAIT 0
            ENDWHILE
            WAIT 250
            SET_PLAYER_CONTROL 0 0
            TASK_TURN_CHAR_TO_FACE_CHAR hSeller scplayer
            TASK_TURN_CHAR_TO_FACE_CHAR scplayer hSeller
            TASK_PLAY_ANIM hSeller shop_pay DEALER 4.0 0 0 0 0 -1
            WAIT 1200
            TASK_PLAY_ANIM scplayer DRUGS_BUY DEALER 4.0 0 0 0 0 -1
            WAIT 2000
            ADD_SCORE 0 nTotal
            SET_PLAYER_CONTROL 0 1
            PRINT_HELP_FORMATTED "Valor recebido pela(s) venda(s): ~G~$%i.00" nTotal
            nTotal = 0
        ENDIF
    ENDIF
ENDWHILE
REMOVE_CHAR_ELEGANTLY hSeller
REMOVE_ANIMATION DEALER
RETURN

SF:
CREATE_CHAR PEDTYPE_CIVMALE 120 -2070.964355 270.818970 35.532852 hSeller
SET_CHAR_HEADING hSeller 270.714386

WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer -2070.964355 270.818970 35.532852 150.0 150.0 150.0 (FALSE)
    WAIT 0
    IF IS_CHAR_SITTING_IN_ANY_CAR scplayer
        GET_CAR_CHAR_IS_USING scplayer hVehicle
        GET_VEHICLE_CLASS hVehicle iVehClass
        IF iVehClass = 0
        OR iVehClass = 1
        OR iVehClass = 2
        OR iVehClass = 3
            GET_CAR_MODEL hVehicle nVehID
            GET_CAR_MODEL_VALUE nVehID iVehValue
            IF IS_PLAYER_PRESSING_HORN 0
            AND LOCATE_CHAR_ANY_MEANS_3D scplayer -2070.964355 270.818970 35.532852 25.0 25.0 25.0 (FALSE)
                PRINT_HELP_STRING "Retire o dinheiro com o ~r~receptador..."
                TASK_LOOK_AT_CHAR hSeller scplayer -1
                TASK_LEAVE_CAR scplayer hVehicle
                WAIT 2000
                LOCK_CAR_DOORS hVehicle 4
                SET_CAR_ENGINE_ON hVehicle 0
                iVehValue /= iDivisionValue
                nTotal += iVehValue
            ENDIF
        ENDIF
    ENDIF
    IF nTotal > 1
    AND NOT IS_CHAR_DEAD hSeller
        GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS hSeller 0.0 0.0 0.0 cSeller_X cSeller_Y cSeller_Z
        IF LOCATE_CHAR_ANY_MEANS_3D scplayer cSeller_X cSeller_Y cSeller_Z 1.3 1.3 1.3 (FALSE)
            PRINT_HELP_STRING "Pressione ~Y~TAB"
            WHILE NOT IS_KEY_PRESSED VK_TAB
                WAIT 0
            ENDWHILE
            WAIT 250
            SET_PLAYER_CONTROL 0 0
            TASK_TURN_CHAR_TO_FACE_CHAR hSeller scplayer
            TASK_TURN_CHAR_TO_FACE_CHAR scplayer hSeller
            TASK_PLAY_ANIM hSeller shop_pay DEALER 4.0 0 0 0 0 -1
            WAIT 1200
            TASK_PLAY_ANIM scplayer DRUGS_BUY DEALER 4.0 0 0 0 0 -1
            WAIT 2000
            ADD_SCORE 0 nTotal
            SET_PLAYER_CONTROL 0 1
            PRINT_HELP_FORMATTED "Valor recebido pela(s) venda(s): ~G~$%i.00" nTotal
            nTotal = 0
        ENDIF
    ENDIF
ENDWHILE
REMOVE_CHAR_ELEGANTLY hSeller
REMOVE_ANIMATION DEALER
RETURN

LV:
CREATE_CHAR PEDTYPE_CIVMALE 83 2205.138916 941.367065 10.820313 hSeller
SET_CHAR_HEADING hSeller 180.334412

WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer 2205.138916 941.367065 10.820313 150.0 150.0 150.0 (FALSE)
    WAIT 0
    IF IS_CHAR_SITTING_IN_ANY_CAR scplayer
        GET_CAR_CHAR_IS_USING scplayer hVehicle
        GET_VEHICLE_CLASS hVehicle iVehClass
        IF iVehClass = 0
        OR iVehClass = 1
        OR iVehClass = 2
        OR iVehClass = 3
            GET_CAR_MODEL hVehicle nVehID
            GET_CAR_MODEL_VALUE nVehID iVehValue
            IF IS_PLAYER_PRESSING_HORN 0
            AND LOCATE_CHAR_ANY_MEANS_3D scplayer 2205.138916 941.367065 10.820313 25.0 25.0 25.0 (FALSE)
                PRINT_HELP_STRING "Retire o dinheiro com o ~r~receptador..."
                TASK_LOOK_AT_CHAR hSeller scplayer -1
                TASK_LEAVE_CAR scplayer hVehicle
                WAIT 2000
                LOCK_CAR_DOORS hVehicle 4
                SET_CAR_ENGINE_ON hVehicle 0
                iVehValue /= iDivisionValue
                nTotal += iVehValue
            ENDIF
        ENDIF
    ENDIF
    IF nTotal > 1
    AND NOT IS_CHAR_DEAD hSeller
        GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS hSeller 0.0 0.0 0.0 cSeller_X cSeller_Y cSeller_Z
        IF LOCATE_CHAR_ANY_MEANS_3D scplayer cSeller_X cSeller_Y cSeller_Z 1.3 1.3 1.3 (FALSE)
            PRINT_HELP_STRING "Pressione ~Y~TAB"
            WHILE NOT IS_KEY_PRESSED VK_TAB
                WAIT 0
            ENDWHILE
            WAIT 250
            SET_PLAYER_CONTROL 0 0
            TASK_TURN_CHAR_TO_FACE_CHAR hSeller scplayer
            TASK_TURN_CHAR_TO_FACE_CHAR scplayer hSeller
            TASK_PLAY_ANIM hSeller shop_pay DEALER 4.0 0 0 0 0 -1
            WAIT 1200
            TASK_PLAY_ANIM scplayer DRUGS_BUY DEALER 4.0 0 0 0 0 -1
            WAIT 2000
            ADD_SCORE 0 nTotal
            SET_PLAYER_CONTROL 0 1
            PRINT_HELP_FORMATTED "Valor recebido pela(s) venda(s): ~G~$%i.00" nTotal
            nTotal = 0
        ENDIF
    ENDIF
ENDWHILE
REMOVE_CHAR_ELEGANTLY hSeller
REMOVE_ANIMATION DEALER
RETURN

Loads:
REQUEST_MODEL 29
REQUEST_MODEL 120
REQUEST_MODEL 83
REQUEST_ANIMATION DEALER
WHILE NOT HAS_MODEL_LOADED 29
    WAIT 0
ENDWHILE
RETURN

}
SCRIPT_END



 

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Set 2018, 15:51
por Samu
Roubou o Corsa pô.
Btw curti o mod, simples e uma boa forma de ganhar dinheiro.

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Set 2018, 16:15
por xXBrunoXx
Samu escreveu: ↑
23 Set 2018, 15:51
Roubou o Corsa pô.
Btw curti o mod, simples e uma boa forma de ganhar dinheiro.
Roubei pow... a crise tá feia rsrs... 

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Set 2018, 16:23
por yasaiwa

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Set 2018, 17:01
por xXBrunoXx
Ayakashii escreveu: ↑
23 Set 2018, 16:23
kkkkkk

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Set 2018, 18:48
por Pierre
Seria interessante locais diferentes, com dia pra abrir diferente.
Também seria bom um limite de carros por dia, senão a policia vai ir no local :v

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 24 Set 2018, 17:50
por xXBrunoXx
Pierre escreveu: ↑
23 Set 2018, 18:48
Seria interessante locais diferentes, com dia pra abrir diferente.
Também seria bom um limite de carros por dia, senão a policia vai ir no local :v
Vou ver se atualizo...

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 23 Nov 2018, 00:27
por FilipeS
Bacaninha, poderia ter um desmanche em cada cidade.. mas Easy Money For Nothing .-. poderia criar uma concessionária também..

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 24 Nov 2018, 19:11
por xXBrunoXx
FilipeS escreveu: ↑
23 Nov 2018, 00:27
Bacaninha, poderia ter um desmanche em cada cidade.. mas Easy Money For Nothing .-. poderia criar uma concessionária também..

Sim... Tô com umas idéias aqui só que a preguiça fala mais alto... Mas vou ver se eu tomo coragem...  :peepo1:

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 24 Nov 2018, 20:09
por CarlosJSantos
xXBrunoXx escreveu: ↑
24 Nov 2018, 19:11
FilipeS escreveu: ↑
23 Nov 2018, 00:27
Bacaninha, poderia ter um desmanche em cada cidade.. mas Easy Money For Nothing .-. poderia criar uma concessionária também..

Sim... Tô com umas idéias aqui só que a preguiça fala mais alto... Mas vou ver se eu tomo coragem... :peepo1:    
Ficou show
ficaria melhor se ao inves de dividir o preço por 2 fosse 10
50.000 ganharia 5.000
e um pequeno fix pra caso for vender uma viatura( como no gta3)  que os cara falam pra vc sair fora kkk

 ( caso vc tivesse procurado a missão n ativa-se)

da pra vender o hydra kkk custa a bagatela de 22.000 kkk

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 24 Nov 2018, 21:51
por FilipeS
CarlosJSantos escreveu: ↑
24 Nov 2018, 20:09
xXBrunoXx escreveu: ↑
24 Nov 2018, 19:11
FilipeS escreveu: ↑
23 Nov 2018, 00:27
Bacaninha, poderia ter um desmanche em cada cidade.. mas Easy Money For Nothing .-. poderia criar uma concessionária também..

Sim... Tô com umas idéias aqui só que a preguiça fala mais alto... Mas vou ver se eu tomo coragem... :peepo1: 
Ficou show
ficaria melhor se ao inves de dividir o preço por 2 fosse 10
50.000 ganharia 5.000
e um pequeno fix pra caso for vender uma viatura( como no gta3) que os cara falam pra vc sair fora kkk

( caso vc tivesse procurado a missão n ativa-se)

da pra vender o hydra kkk custa a bagatela de 22.000 kkk 
sucata kkkkkkkkk

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 25 Nov 2018, 13:16
por xXBrunoXx
CarlosJSantos escreveu: ↑
24 Nov 2018, 20:09
Ficou show
ficaria melhor se ao inves de dividir o preço por 2 fosse 10
50.000 ganharia 5.000
e um pequeno fix pra caso for vender uma viatura( como no gta3)  que os cara falam pra vc sair fora kkk

 ( caso vc tivesse procurado a missão n ativa-se)
Esse mod eu tinha feito correndo, por isso ta meio cagado. Mas tô pensando em fazer algo mais elaborado. Esse negoço dos valores de venda, vou colocar pra ele variar de acordo com a condição do veiculo, se tiver muito danificado terá um valor bem inferior ao de um carro "novo" e também poderá variar de acordo com o local onde vc esta realizando a venda...
CarlosJSantos escreveu: ↑
24 Nov 2018, 20:09
da pra vender o hydra kkk custa a bagatela de 22.000 kkk
Num tinha pensado nisso kkkk 

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 25 Nov 2018, 14:19
por CarlosJSantos
xXBrunoXx escreveu: ↑
25 Nov 2018, 13:16
CarlosJSantos escreveu: ↑
24 Nov 2018, 20:09
Esse mod eu tinha feito correndo, por isso ta meio cagado. Mas tô pensando em fazer algo mais elaborado. Esse negoço dos valores de venda, vou colocar pra ele variar de acordo com a condição do veiculo, se tiver muito danificado terá um valor bem inferior ao de um carro "novo" e também poderá variar de acordo com o local onde vc esta realizando a venda...
 
eu testei e o valor do carro fica referente a sua condição,  o próprio opcode de valor já define o preço pela condição do veiculo.

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 25 Nov 2018, 18:09
por Junior_Djjr
CarlosJSantos escreveu: ↑
25 Nov 2018, 14:19
xXBrunoXx escreveu: ↑
25 Nov 2018, 13:16
CarlosJSantos escreveu: ↑
24 Nov 2018, 20:09
Esse mod eu tinha feito correndo, por isso ta meio cagado. Mas tô pensando em fazer algo mais elaborado. Esse negoço dos valores de venda, vou colocar pra ele variar de acordo com a condição do veiculo, se tiver muito danificado terá um valor bem inferior ao de um carro "novo" e também poderá variar de acordo com o local onde vc esta realizando a venda...
eu testei e o valor do carro fica referente a sua condição, o próprio opcode de valor já define o preço pela condição do veiculo.   
É o Tuning Mod que faz isto, ele calcula tanto o tuning quanto o desgaste do pneu (inclusive hoje mesmo eu estive corrigindo o cálculo, parece que o v2 estava completamente errado)

Re: [SA] Sell Stolen Cars (Vender Carros Roubados...)

Enviado: 25 Nov 2018, 20:06
por CarlosJSantos
Junior_Djjr escreveu: ↑
25 Nov 2018, 18:09
CarlosJSantos escreveu: ↑
25 Nov 2018, 14:19
É o Tuning Mod que faz isto, ele calcula tanto o tuning quanto o desgaste do pneu (inclusive hoje mesmo eu estive corrigindo o cálculo, parece que o v2 estava completamente errado)
 
eu n uso tunning mod, so vou usar em dezembro.
Todos os horários são UTC-03:00
Página 1 de 2
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/