Kristyan Posted May 30, 2018 Posted May 30, 2018 (edited) Salut BuGGed aici un simplu mod in care spawneaza toate masinile folosind o comanda si pe langa aceasta aveti posibilitatea de a procura la fiecare masina cate un punct de asigurare. Demonstrare Comanda [/towall] Comanda [/ins] *Mod-ul lucreaza independent, fara necesitatea de a folosi un file .ini MOD REQUIREMENTS SampFuncs 5.3.1+ Cleo 4.1/4.3 DOWNLOAD Edited September 9, 2018 by Walter 5
Kristyan Posted May 30, 2018 Author Posted May 30, 2018 Foarte frumos, bravo. Chestia cu insurance chiar e super ok. Multumesc de feedback! :>
Zarelele Posted May 31, 2018 Posted May 31, 2018 l-ai luat de la gumball3000 doar ai schimbat comanda din ''/towcars'' in ''/towall''
Kristyan Posted May 31, 2018 Author Posted May 31, 2018 (edited) l-ai luat de la gumball3000 doar ai schimbat comanda din ''/towcars'' in ''/towall'' Daca citesti mai bine, cel de la Gumball foloseste un file .ini, pe asta l-am facut de la zero. Daca doresti sa vezi cum arata codul din ambele, sunt la dispozitia ta. Cu placere! Luat de pe: http://forum.bugged.ro/topic/231840-towcarscs-by-gumball3000/ "La cererea multor persoane am facut si un mod de towcar in cleo, acest mod da tow la toate masinile, numarul de masini trebuie setat in fisierul towcars.ini. Comanda este /towcars." Edited May 31, 2018 by Kristyan
Kristyan Posted June 3, 2018 Author Posted June 3, 2018 Nu merge link-ul de download Au probleme cu host-ul.
Kristyan Posted July 12, 2018 Author Posted July 12, 2018 @,Pune alt link de download pls. ? Link-ul merge
Kristyan Posted December 9, 2021 Author Posted December 9, 2021 (edited) On 12/7/2021 at 11:20 AM, Stef said: @Kristyan ,Pune alt link de download . si ms Nu cred ca mai e actual daca este delay la comanda /towcar, pot sa-l modific si sa dai towcar la o masina specifica gen > /towcar nrg | /towcar inf | /towcar bullet @Kimbo[.KO.]Slice Cand vrei sa faci o critica constructiva, nu trebuie sa te bazezi doar pe comenzi codul meu vs gumball Spoiler {$CLEO} 0000: repeat wait 0 until samp.Available() chatmsg "{005470}TowCar{fc7c35} by K{005470} has loaded, use {fc7c35}[/help.tow]{005470} for commands." -1 alloc 9@ 50 0b34: "towall" @towall 0b34: "towstop" @stop 0b34: "help.tow" @help 0b34: "towcar" @towcar 0b34: "towhere" @towhere 1@ = 0 5@ = 0 6@ = 0 7@ = 0 11@ = 0 while true wait 0 //towall if and samp.IsDialogActive(-1) 1@ == 2 then 0B54: samp 5@ = listbox_items_count 5@ -= 2 alloc 4@ 128 for 6@ = 0 to 5@ 0C11: memset destination 4@ value 0 size 128 samp.GetListboxItemText(6@, 4@) if 0C29: $NOT_USED = stristr string1 4@ string2 "[ empty ]" then wait 150 0B47: samp close_current_dialog_with_button 0 chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}All cars has been towed!" -1 1@ = 0 else if 0C29: $NOT_USED = stristr string1 4@ string2 "(spawned)" then wait 150 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 else if 0C29: $NOT_USED = stristr string1 4@ string2 "(despawned)" then wait 250 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 wait 10300 end end if not 5@ == 0 then say "/towcar" end end end if not 1@ == 0 then wait 150 0B47: samp close_current_dialog_with_button 0 chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}All cars has been towed!" -1 1@ = 0 end free 4@ 1@ = 0 end // towcar choice if and SAMP.IsDialogActive(-1) 1@ == 3 then 0B54: samp 5@ = listbox_items_count 5@ -= 2 alloc 4@ 128 for 6@ = 0 to 5@ 0C11: memset destination 4@ value 0 size 128 samp.GetListboxItemText(6@, 4@) if 0C29: $NOT_USED = stristr string1 4@ string2 9@ then 11@ += 1 if 11@ == 1 then wait 150 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 else if 0C29: $NOT_USED = stristr string1 4@ string2 "(spawned)" then say "/towcar" wait 150 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 else if 0C29: $NOT_USED = stristr string1 4@ string2 "(despawned)" then wait 10250 say "/towcar" wait 250 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 end end end end end wait 150 0B47: samp close_current_dialog_with_button 0 7@ = 1 11@ = 0 free 4@ 1@ = 0 end //towhere if and SAMP.IsDialogActive(-1) 1@ == 4 then 0B54: samp 5@ = listbox_items_count 5@ -= 2 alloc 4@ 128 for 6@ = 0 to 5@ 0C11: memset destination 4@ value 0 size 128 samp.GetListboxItemText(6@, 4@) if 0C29: $NOT_USED = stristr string1 4@ string2 9@ then wait 150 0B49: samp set_current_dialog_list_item 6@ 0B47: samp close_current_dialog_with_button 1 wait 150 0B49: samp set_current_dialog_list_item 2 0B47: samp close_current_dialog_with_button 1 end end wait 150 free 4@ 0B47: samp close_current_dialog_with_button 0 7@ = 1 1@ = 0 end if 7@ == 1 then 8@ = 10 repeat wait 1150 8@ -= 1 until 8@ == 0 7@ = 0 end END :stop 1@ = 0 5@ = 0 chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}Towing all cars has stoped!" -1 SAMP.CmdRet() :towall if 8@ > 0 then chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}Time left: {fc7c35}%d" -1 8@ else say "/towcar" 1@ = 2 end samp.CmdRet() :towcar if and 11@ == 0 SAMP.IsCommandTyped(0@) then if 8@ > 0 then chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}Time left: {fc7c35}%d" -1 8@ else 0C11: memset destination 9@ value 0 size 50 0C15: strcat destination 9@ source 0@ say "/towcar" 1@ = 3 end else say "/towcar" end SAMP.CmdRet() :towhere if 8@ > 0 then chatmsg "{fc7c35}[{005470}TowCar_K{fc7c35}] {ebd4b5}Time left: {fc7c35}%d" -1 8@ else if SAMP.IsCommandTyped(0@) then 0C11: memset destination 9@ value 0 size 50 0C15: strcat destination 9@ source 0@ say "/v" 1@ = 4 end end SAMP.CmdRet() :help chatmsg "{fc7c35}[{005470}/towall{fc7c35}]{ebd4b5} - pentru a da /towcar la toate masinile." -1 chatmsg "{fc7c35}[{005470}/towcar <MASINA>{fc7c35}]{ebd4b5} - pentru a da /towcar la masina indicata." -1 chatmsg "{fc7c35}[{005470}/towhere <MASINA>{fc7c35}]{ebd4b5} - pentru a da /towcar (last location) la masina indicata." -1 chatmsg "{fc7c35}[{005470}/towstop{fc7c35}]{ebd4b5} - pentru a opri modul." -1 samp.CmdRet() Spoiler {$CLEO} 0000: NOP repeat wait 50 until 0AFA: is_samp_structures_available if 0AAB: file_exists "cleo\towcars.ini" then 0AF0: 9@ = get_int_from_ini_file "cleo\towcars.ini" section "towcars" key "masini" else 0AF1: write_int 2 to_ini_file "cleo\towcars.ini" section "towcars" key "masini" 9@ = 2 end 0B34: samp register_client_command "towcars" to_label @towcars chatmsg "{FFF08B}[Towcars] {FFFFFF}by {5AD9F9}gumball3000 {FFFFFF}has loaded!" -1 1@ = 0 4@ = 0 32@ = 60001 while true wait 0 if 1@ == 1 then 32@ = 0 if 4@ == 0 then if 001D: 9@ > 12@ then 0AF9: samp say_msg "/towcar" 4@ = 1 else 1@ = 0 end else if 0B4C: samp is_dialog_active -1 then 0B49: samp set_current_dialog_list_item 12@ 0B47: samp close_current_dialog_with_button 1 4@ = 0 12@ += 1 end end end end :towcars if 32@ > 60000 then 32@ = 0 1@ = 1 12@ = 0 else 21@ = 60000 0062: 21@ -= 32@ 21@ /= 1000 chatmsg "{26EBE1}Please wait %d seconds before you can use /towcars again" -1 21@ end samp.CmdRet Edited December 9, 2021 by Kristyan
Recommended Posts