Дата: Четверг, 13.10.2016, 15:06 | Сообщение # 1052
Новичок
Сообщений: 29
Статус: Offline
Какая-то проблема. Нужно сделать так, чтобы скрипт, прочитав определенную команду в последней строке активировался. Попросил помощи у знакомого и он мне дал следующий код:
Но запустив данный код у меня зависает игра. В чем проблема? Или код вообще неправильно написан?... А так же как сделать проверку на нужное мне содержимое в строке?
Очень жду ответа..
Сообщение отредактировал EvolUtioN_VIII - Четверг, 13.10.2016, 15:06
Дата: Четверг, 27.10.2016, 20:11 | Сообщение # 1054
Новичок
Сообщений: 2
Статус: Offline
Ребят выдают ошибку "Неверное число условий" дело в том что хотел сменить z на нумпаде любую, но оказалось даже без изменений ошибка то есть как скриптер компилировал.
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013 {$CLEO .cs}
:NONAME_17 wait 0 if Player.Defined($PLAYER_CHAR) else_jump @NONAME_732 if and Actor.Driving($PLAYER_ACTOR) not Actor.DrivingVehicleType($PLAYER_ACTOR, #FREIGHT) not Actor.DrivingVehicleType($PLAYER_ACTOR, #STREAK) 84A7: not actor $PLAYER_ACTOR driving_boat 84C8: not actor $PLAYER_ACTOR driving_flying_vehicle else_jump @NONAME_309 0@ = Actor.CurrentCar($PLAYER_ACTOR) if 0AB0: key_pressed 90 else_jump @NONAME_200 if and 056E: car 0@ defined 0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET else_jump @NONAME_188 018C: play_sound 1058 at 0.0 0.0 0.0 if 30@ == 0 else_jump @NONAME_181 gosub @NONAME_844 jump @NONAME_188
:NONAME_181 gosub @NONAME_739
:NONAME_188 0AB1: call_scm_func @NONAME_1337 1 90
:NONAME_200 if 22@ == 0 0AB0: key_pressed 16 else_jump @NONAME_262 0470: 21@ = actor $PLAYER_ACTOR current_weapon if and 21@ >= 22 not 21@ > 32 else_jump @NONAME_262 gosub @NONAME_1211
:NONAME_262 if not 22@ == 0 else_jump @NONAME_309 if 0AB0: key_pressed 16 else_jump @NONAME_302 jump @NONAME_309
:NONAME_302 gosub @NONAME_1262
:NONAME_309 if 30@ == 1 else_jump @NONAME_695 if or 00E1: player 0 pressed_key 15 02BF: car 0@ sunk Car.Wrecked(0@) else_jump @NONAME_361 gosub @NONAME_739
:NONAME_361 if and 056E: car 0@ defined 01F4: car 0@ flipped else_jump @NONAME_389 gosub @NONAME_798
:NONAME_389 if 856E: not car 0@ defined else_jump @NONAME_419 30@ = 0 jump @NONAME_688
:NONAME_419 if not Actor.InCar($PLAYER_ACTOR, 0@) else_jump @NONAME_445 30@ = 0
:NONAME_445 if and 0AB0: key_pressed 65 0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET else_jump @NONAME_490 gosub @NONAME_927 0AB1: call_scm_func @NONAME_1337 1 65
while true wait 0 0ab1: @getKeyAiming 0 16@ 17@ while key 17@ wait 0 0ab1: @getKeyAiming 0 16@ 17@ if and //Actor.Defined($player_actor) 056D: actor $player_actor defined not Actor.Driving($player_actor) then if 0AD2: 0@ = player $player_char targeted_actor then if not Actor.Dead(0@) then if and 0ab0: 16@ //Actor.Defined(0@) 056D: 0@ not Actor.Dead(0@) not Actor.Driving(0@) then 068D: get_camera_position_to 1@ 2@ 3@ Actor.StorePos(0@, 4@, 5@, 6@) Actor.StorePos($player_actor, 7@, 8@, 9@) 1@ -= 4@ 2@ -= 5@ 0C00: math 1@ = abs 1@ // Aa 0C00: math 2@ = abs 2@ // Ab 10@ = 1@ 11@ = 2@ 10@ *= 10@ 11@ *= 11@ 10@ += 11@ 01FB: 10@ = square_root 10@ // Ac 11@ = 1@ // Aa vrem 12@ = 10@ // Ac vrem 11@ /= 12@ 0C04: math 12@ = arcsine 11@ // alpha 0C06: math 13@ = arccosine 11@ // beta if 0ab1: @getSlotWeapon 0 16@ then if 0ab1: @getAngleForCam 7 4@ 5@ 7@ 8@ 12@ 13@ 16@ 15@ then if 0ab1: @checkObject 6 4@ 5@ 6@ 7@ 8@ 9@ then 15@ += 0.0389 0A8C: write_memory 0xB6F258 size 4 value 15@ virtual_protect 0 end end end end end end end end
end
:checkObject if 06BD: no_obstacles_between 3@ 4@ 5@ and 0@ 1@ 2@ solid 1 car 0 actor 0 object 1 particle 0 then 0485: return_true else 059A: return_false end 0ab2: 0
:getAngleForCam var 0@ : float end if 6@ == 5 then 7@ = 0.0100 8@ = 0.0100 9@ = 1.5607 10@ = 1.5807 else if 6@ == 6 then 7@ = 0.0180 8@ = 0.0200 9@ = 1.5507 10@ = 1.5907 else 7@ = 0.0 8@ = 0.0 9@ = 1.5707 10@ = 1.5707 end end
if and 2@ > 0@ 3@ > 1@ then 5@ -= 8@ 15@ = 5@ end
if and 2@ > 0@ 3@ < 1@ then 5@ *= -1.0 5@ -= 7@ 15@ = 5@ end
if and 2@ < 0@ 3@ > 1@ then 4@ += 9@ 15@ = 4@ end
if and 2@ < 0@ 3@ < 1@ then 4@ *= -1.0 4@ -= 10@ 15@ = 4@ end
0A8D: 11@ = read_memory 0xB6F258 size 4 virtual_protect 0 11@ -= 15@ if and 11@ < 0.1800 11@ > -0.1800 then 0485: return_true else 059A: return_false end 0ab2: 1 15@
:getSlotWeapon 0A96: 0@ = actor $player_actor struct 0@ += 0x718 0A8D: 1@ = read_memory 0@ size 1 virtual_protect 0 if or 1@ == 2 1@ == 3 1@ == 4 1@ == 5 1@ == 6 1@ == 7 then 0485: return_true else 059A: return_false end 0ab2: 1 1@
Дата: Пятница, 04.11.2016, 08:30 | Сообщение # 1057
BEST SELLER✅
Сообщений: 250
Статус: Offline
Ребят, можете написать код: Например, когда выпускаешь заключенного в КПЗ, чтобы делался доклад в рацию, когда наводишь на человека, которого выпускаешь, правой кнопкой мыши и нажимаешь на кнопку R. В рации должно сказаться /r Докладывает: (свой ник без "_"). Выпускаю заключенного №(его ID), (Ник заключенного без "_")
Добавлено (04.11.2016, 08:30) --------------------------------------------- Найдите ошибку, пожалуйста. Надо, чтобы это все на кнопку активировалось, а потом деактивировалось.
{$CLEO .cs} 0000: NOP thread 'AUTOHEAL' wait 2000 repeat wait 0 if or 0B21: samp is_chat_opened 0B4C: samp is_dialog_active -1 then wait 0 end if key_down 82 chatmsg "AUTOHEAL by Brody активирован" jump @usedrugs
:usedrugs wait 0 if 0B61: samp is_local_player_spawned jf @usedrugs 0226: 0@ = actor $PLAYER_ACTOR health jump @hp_10
:hp_10 wait 0 if 0@ <= 40 then 0AF9: samp say_msg "/healme" end wait 1000 jump @usedrugs
until 0AB0: 82 while 0AB0: 82 wait 0 end chatmsg "AUTOHEAL by Brody деактивирован"
Дата: Вторник, 08.11.2016, 15:45 | Сообщение # 1058
Новичок
Сообщений: 5
Статус: Offline
Здравствуйте, сколько раз не пытался сменить активацию у cleo, всё времья крашило samp] Воопщем помогите изменить активацию cleo на чит-код "CAR" Сылка на клео:http://rgho.st/6gbTw7NYB
Дата: Вторник, 10.01.2017, 15:31 | Сообщение # 1060
Новичок
Сообщений: 1
Статус: Offline
{$CLEO} 0000: NOP
0001: wait 0 ms 0248: model #DESERT_EAGLE available 038B: load_requested_models
:Noname_13 0001: wait 0 ms 00D6: if and 0039: 0@ == 0 0247: load_model #DESERT_EAGLE 004D: jump_if_false @Noname_13
:Noname_40 0001: wait 1000 ms 00D6: if and 0039: 0@ == 0 80DF: not actor $PLAYER_ACTOR driving 0B34: samp register_client_command "digl" to_label @digl while true wait 0 end then @digl :digl wait 0 004D: jump_if_false @Noname_40 01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 300 // Load the weapon model before using this 0248: model #DESERT_EAGLE available 0002: jump @Noname_40
Что тут не так??? Пишу команду /gigl, а у меня крашит. Помогите Учусь только клео, еще не сильно шарю!
Дата: Четверг, 02.02.2017, 23:00 | Сообщение # 1065
Новичок
Сообщений: 1
Статус: Offline
Что не так в коде? Понадобился скрипт который ищет пикапы. Нашёл в инете штуку, которая рисует к ним линии. В скрипте забиты ID'ы новогодних подарков. Попытался редактировать на ID нужные мне (1276,1210), забил все опкоды в SASCM Т.е. нужно просто заменить ИД с 19054 и 19055 на 1276 и 1210 Но нашлась проблема в опкодах 0103 и 0203
0103: actor stopped_in_car 0203: actor on_foot
При компилировании выбивает, что недостаточно параметров. Ожидалось 8 параметров. Опкод конечно не дописан, такой как он должен быть, но посмотрев аналогичные скрипты в интернете, я увидел, что кроме строк actor stopped_in_car и actor on_foot в этих опкодах ничего не пишут и скрипты идут. Однако у меня Билдер отказывается жрать такой код. Опыта программирования клео нет, поэтому подскажите что там не так, и что надо сделать чтобы оно скомпилировалось.
Учусь только клео, еще не сильно шарю!
