[CLEO] /scar - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir  
[CLEO] /scar
Haruki Дата: Вторник, 19.03.2019, 13:29 | Сообщение # 1
Новичок
Сообщений: 26
Статус: Offline
На Даймонде работает через раз

https://yadi.sk/d/vFPQ5dw950pgMw
Nodar Дата: Вторник, 19.03.2019, 14:13 | Сообщение # 2
Новичок
Сообщений: 3
Статус: Offline
срп не пашет
Snake_Firm Дата: Среда, 27.03.2019, 12:37 | Сообщение # 3
Administrator
Сообщений: 4452
Статус: Offline
По коду оформи.

Мой магазин - (SHOP)
Вконтакте
Навожу порядок на этом худе!


Snake_Firm Дата: Среда, 27.03.2019, 12:38 | Сообщение # 4
Administrator
Сообщений: 4452
Статус: Offline
Код
{$CLEO .cs}
0000: NOP

:noname
wait 8000
0AFA: is_samp_available
jf @noname
msg "[{6495ED}SpawnCars{F8F8FF}]{6495ED} Скрипт {00ff00}загружен{6495ED}. Автор: {ff00ff}Clopster" 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{6495ED} /scinfo {F8F8FF}- информация по командам" 0xF8F8FF
cmd "scinfo" @info
cmd "scar" @scar      
cmd "scarw" @new
cmd "scarf" @few
var
0@: int
3@: int
13@: int
23@: int
end
0BDE: pause_thread 0

:info
msg "[{6495ED}SpawnCars{F8F8FF}]{6495ED} /scar {F8F8FF}- отспавнить одну машину по её ID" 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{6495ED} /scarf {F8F8FF}- отспавнить несколько машин (до 10) по их ID" 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{6495ED} /scarw {F8F8FF}- отспавнить все машины в зоне стрима кроме нескольких (до 3)" 0xF8F8FF
cmdret

:scar
0B35: samp 8@ = get_last_command_params
if 0AD4: 9@ = scan_string 8@ format "%d" 21@
jf @string
if
22@ = SAMP.GetVehicleHandleBySAMPVehicleID(21@)
jf @strim
0BD4: samp send_vehicle_destroyed 21@
jump @end

:few
0B35: samp 5@ = get_last_command_params  
0AD4: 6@ = scan_string 5@ format "%d %d %d %d %d %d %d %d %d %d" 10@ 11@ 12@ 13@ 14@ 15@ 16@ 17@ 18@ 19@ 20@
if 10@ == 0
then
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} /scarf 'ID1' 'ID2' ... 'ID10' " 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} ID - машина, которую отспавнить" 0xF8F8FF
end
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(10@)
jf @end
0BD4: samp send_vehicle_destroyed 10@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(11@)
jf @end
0BD4: samp send_vehicle_destroyed 11@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(12@)
jf @end
0BD4: samp send_vehicle_destroyed 12@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(13@)
jf @end
0BD4: samp send_vehicle_destroyed 13@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(14@)
jf @end
0BD4: samp send_vehicle_destroyed 14@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(15@)
jf @end
0BD4: samp send_vehicle_destroyed 15@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(16@)
jf @end
0BD4: samp send_vehicle_destroyed 16@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(17@)
jf @end
0BD4: samp send_vehicle_destroyed 17@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(18@)
jf @end
0BD4: samp send_vehicle_destroyed 18@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(19@)
jf @end
0BD4: samp send_vehicle_destroyed 19@
if
7@ = SAMP.GetVehicleHandleBySAMPVehicleID(20@)
jf @end
0BD4: samp send_vehicle_destroyed 20@
jump @end

:new
0@ = 0
0B35: samp 1@ = get_last_command_params  
0AD4: 2@ = scan_string 1@ format "%d %d %d" 3@ 13@ 23@
if 3@ > 0
jf @kek

:boom                    
if and
4@ = SAMP.GetVehicleHandleBySAMPVehicleID(0@)
0@ <> 3@
0@ <> 13@
0@ <> 23@
jf @else
0BD4: samp send_vehicle_destroyed 0@

:else
0@ += 1
if
0@ > 2000
jf @boom
cmdret

:end
cmdret

:string
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} /scar 'ID' " 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} ID - машина, которую отспавнить" 0xF8F8FF
jump @end

:strim
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} Транпсорт '%d' вне зоны стрима" 0xF8F8FF 21@
jump @end

:kek
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} /scarw 'ID1' 'ID2' 'ID3'" 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} ID - машина, которую оставить" 0xF8F8FF
msg "[{6495ED}SpawnCars{F8F8FF}]{F8F8FF} Введите любое 'левое' число, чтобы отспавнить все машины из стрима без исключения" 0xF8F8FF
jump @end


Мой магазин - (SHOP)
Вконтакте
Навожу порядок на этом худе!


  • Страница 1 из 1
  • 1
Поиск: