|
[CLEO] Помощь по редактированию скриптов
|
|
| bagrat |
Дата: Суббота, 05.09.2015, 21:44 | Сообщение # 556
|
Боец
Сообщений: 50
Статус: Offline
|
Что за ошибка, как исправить? При компиляции
http://uploads.ru/4WhAU.jpg скрин
Код {$CLEO .cs}
0000: NOP
:Noname1
wait 0
if and
0ab0: key_pressed 189
8B21: samp is_chat_not_opened // åñëè ÷àò áóäåò îòêðûò, òî íå áóäåò ðàáîòàòü
jf @Noname1
jump @Noname2
:Noname2
wait 0
2@ = Samp.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0AF9: samp say_msg "/sellgun deagle 35 4 %d" 2@
wait 1500
0AF9: samp say_msg "/sellgun shotgun 10 4 %d" 2@
jump @Noname1
|
|
|
|
|
| Sano |
Дата: Суббота, 05.09.2015, 21:44 | Сообщение # 557
|
Любитель
Сообщений: 48
Статус: Offline
|
Цитата bagrat (  ) Что за ошибка, как исправить? При компиляции
Ошибки сам найди
Код {$CLEO}
{$NOSOURCE}
repeat
wait 400
until 0AFA: is_samp_structures_available
while true
wait 0
if and
0ab0: key_pressed 189
8B21: not samp is_chat_opened
then
1@ = Samp.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0AF9: samp say_msg "/sellgun deagle 35 4 %d" 1@
wait 1500
0AF9: samp say_msg "/sellgun shotgun 10 4 %d" 1@
wait 1500 // это для того, чтобы не флудило, если зажмешь кнопки
end
end
/*============RAMPAGE=============*/
Сообщение отредактировал Sano - Воскресенье, 20.04.2014, 21:45 |
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:44 | Сообщение # 558
|
Советник
Сообщений: 784
Статус: Offline
|
DokerGT, его сейчас не обязательно вызывать, он сам приходит.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| Sano |
Дата: Суббота, 05.09.2015, 21:44 | Сообщение # 559
|
Любитель
Сообщений: 48
Статус: Offline
|
Цитата RAKSHA1337 ( ) DokerGT, его сейчас не обязательно вызывать, он сам приходит.
Впервые слышу, чтобы плагины "приходили", причём сами по себе. Просто теперь он в виде .asi плагина и нужно делать проверку только на:
Код
repeat
wait 400
until 0AFA: is_samp_structures_available
/*============RAMPAGE=============*/
|
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:44 | Сообщение # 560
|
Советник
Сообщений: 784
Статус: Offline
|
Цитата Sano ( ) Впервые слышу, чтобы плагины "приходили", причём сами по себе.
Что? Ты о чём?
Цитата Sano ( ) Просто теперь он в виде .asi плагина и нужно делать проверку
И её не нужно, он без неё будет работать. Возможно только понадобится поставить ожидание в начале скрипта, небольшое.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| DokerGT |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 561
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Написал скрипт "Таймер нарко". Скрипт ищет в чате строку *ТвойНик* употребил(а) наркотик. И когда найдет ждет 4 минуты и пишет в чат "Можно принять снова!". При заходе в самп крашит. Вот код, помогите разобратся:
Код {$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then
end_thread
end
repeat
wait 400
until 0afa: struct
wait 10000
2@ = SAMP.GetSAMPPlayerIDByActorHandle($player_actor)
0B36: samp 3@ = get_player_nickname 2@
:1
while true
if
0C18: 9@ = strstr string1 1@ string2 "%s употребил(а) наркотик" 3@
then
jump @2
end
end
:2
wait 240000
0af8: "Можно принять снова!" color 0xFFFF00
jump @1
:getChatEntryText
// 0AB1: call @getChatEntryText 1 id 0@ to 1@
0AB1: call @GetSampBase 0 1@
1@ += 0x212A6C
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 0x136
0@ *= 252 // size of stChatEntry
005A: 1@ += 0@ // (int)
1@ += 28
0AB2: ret 1 1@
:GetSampBase
0AA2: 31@ = load_library "kernel32.dll" // IF and SET
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@
0ab2: ret 1 0@ |
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 562
|
Советник
Сообщений: 784
Статус: Offline
|
DokerGT, ну эмм во-первых у тебя переменная 1@ пуста, во-вторых за место функции можно использовать
0B75: samp get_chat_string 1@ text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@
Получает строку чата по номеру
1@ [in:int] - номер строки
2@ [in-out:string] - текст
3@ [in-out:string] - текст префикса
4@ [out:int] - цвет строки
5@ [out:int] - цвет префиксаДобавлено (26.04.2014, 20:15)
---------------------------------------------
В-третьих все строчки (кроме первых двух) до "wait 10000" можно удалить.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| scorpion_116 |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 563
|
Новичок
Сообщений: 6
Статус: Offline
|
помогите отредактировать это клео ESP, и только на моем любимом серве он не работает,ники не показывает тока обводит в квадрат,на др. все показывает
ip: 188.127.240.113:7777
Сообщение отредактировал scorpion_116 - Воскресенье, 27.04.2014, 13:36 |
|
|
|
|
| Qube_Cavalli |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 564
|
Новичок
Сообщений: 7
Статус: Offline
|
Может кто дать координаты экрана? (Мне для создания CLEO датчика хп.) В долгу не останусь, заранее спасибо.
|
|
|
|
|
| [CM]Astap |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 565
|
Авторитет
Сообщений: 1238
Статус: Offline
|
Делал деактивацию по уроку от ДабСтепа, но скрипт, после активации не деактивируется , и работает пока не вырубить игру. Вот мои код:Код {$CLEO .cs}
0000:
:1
wait 0
if
0ab0: 107
jf @1
0acd: "Full HP - ACTIVATED " 1000
018C: play_sound 17803 at 0.0 3.0 0.0
jump @3
:3
wait 0
wait 5000
1@ = Actor.Health($player_actor)
1@ += 2
Actor.Health($player_actor) = 1@
0acd: "+2 HP" 1000
018C: play_sound 17803 at 0.0 3.0 0.0
jump @3
:2
wait 0
if
8ab0: 107
0acd: "Full HP - DEACTIVATED " 1000
018C: play_sound 17803 at 0.0 3.0 0.0
jf @2
1@ = Actor.Health($player_actor)
1@ += 0
Actor.Health($player_actor) = 1@
jump @1
Cheater CM - 03.10.14 - 09.01.15
Клан СМ - 09.01.15 - 01.03.15
Мл. Модератор - 01.03.15 - 25.06.15
Модератор - 25.06.15
 
|
|
|
|
|
| San6ka |
Дата: Суббота, 05.09.2015, 21:45 | Сообщение # 566
|
Боец
Сообщений: 95
Статус: Offline
|
нашел клео автопилот, пытался сам сменить кнопку вкл/выкл получилось только с включением, а с выключением скрипта полные проблемы. Раньше он активировался и деактивировался на Z мне нужно на PgDown. Еще мне интересно узнать его другие функции, знаю лишь о прибавке скорости на Space+Стрелочки
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
30@ = 0
4@ = 25.0
:NONAME_17
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @NONAME_730
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 34
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_842
jump @NONAME_188
:NONAME_181
gosub @NONAME_737
:NONAME_188
0AB1: call_scm_func @NONAME_1335 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_1209
: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_1260
:NONAME_309
if
30@ == 1
else_jump @NONAME_693
if or
00E1: player 0 pressed_key 15
02BF: car 0@ sunk
Car.Wrecked(0@)
else_jump @NONAME_361
gosub @NONAME_737
:NONAME_361
if and
056E: car 0@ defined
01F4: car 0@ flipped
else_jump @NONAME_389
gosub @NONAME_796
:NONAME_389
if
856E: not car 0@ defined
else_jump @NONAME_419
30@ = 0
jump @NONAME_686
: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_925
0AB1: call_scm_func @NONAME_1335 1 65
:NONAME_490
if
0AB0: key_pressed 32
else_jump @NONAME_574
054C: use_GXT_table 'FTRAIN'
if
29@ == 0
else_jump @NONAME_560
0AB1: call_scm_func @NONAME_1363 4 10 1 -1647 3
29@ = 1
:NONAME_560
gosub @NONAME_975
jump @NONAME_611
:NONAME_574
if
29@ == 1
else_jump @NONAME_611
29@ = 0
0AB1: call_scm_func @NONAME_1429 1 10
:NONAME_611
if
01AE: car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
else_jump @NONAME_652
gosub @NONAME_737
:NONAME_652
if
0AB0: key_pressed 88
else_jump @NONAME_686
gosub @NONAME_1106
0AB1: call_scm_func @NONAME_1335 1 88
:NONAME_686
jump @NONAME_730
:NONAME_693
if
29@ == 1
else_jump @NONAME_730
29@ = 0
0AB1: call_scm_func @NONAME_1429 1 10
:NONAME_730
jump @NONAME_17
:NONAME_737
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return
:NONAME_796
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return
:NONAME_842
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, Nowhere)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return
:NONAME_925
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return
:NONAME_975
if and
4@ > 3.5
0AB0: key_pressed 40
32@ >= 75
else_jump @NONAME_1032
32@ = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)
:NONAME_1032
if and
not 4@ >= 50.0
0AB0: key_pressed 38
32@ >= 75
else_jump @NONAME_1089
32@ = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)
:NONAME_1089
0092: 10@ = float 4@ to_integer
10@ *= 2
return
:NONAME_1106
if
20@ == 0
else_jump @NONAME_1152
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, FollowRoad)
jump @NONAME_1187
:NONAME_1152
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, Nowhere)
Car.DriveTo(0@, 1@, 2@, 3@)
:NONAME_1187
018C: play_sound 1058 at 0.0 0.0 0.0
return
:NONAME_1209
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return
:NONAME_1260
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
30@ == 1
else_jump @NONAME_1326
:NONAME_1293
wait 0
Actor.InCar($PLAYER_ACTOR, 0@)
else_jump @NONAME_1293
Car.DriveTo(0@, 1@, 2@, 3@)
:NONAME_1326
015D: set_gamespeed 1.0
return
:NONAME_1335
0AB0: key_pressed 0@
else_jump @NONAME_1358
wait 0
jump @NONAME_1335
:NONAME_1358
0AB2: ret 0
:NONAME_1363
0AB1: call_scm_func @NONAME_1470 1 0@ 0@
0AB1: call_scm_func @NONAME_1573 1 2@ 2@
0AA6: call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
0AB2: ret 0
:NONAME_1429
0AB1: call_scm_func @NONAME_1470 1 0@ 0@
0AA6: call_method 4509312 struct 12195720 num_params 1 pop 0 0@
0AB2: ret 0
:NONAME_1470
0A9F: 1@ = current_thread_pointer
0A8E: 2@ = 1@ + 220 // int
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
if
2@ == 1
else_jump @NONAME_1533
1@ = 10783072
jump @NONAME_1540
:NONAME_1533
1@ += 60
:NONAME_1540
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
0AB2: ret 1 1@
:NONAME_1573
if
0@ == 0
else_jump @NONAME_1598
0AB2: ret 1 0
:NONAME_1598
0A9F: 1@ = current_thread_pointer
1@ += 16
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
0AB2: ret 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP
Первое правило читера - используй чит в свое благо, не во вред ближнему своему. Второе правило - не попадаться. Третье - не спали брата своего по читерству.
|
|
|
|
|
| Reyvenor |
Дата: Суббота, 05.09.2015, 21:46 | Сообщение # 567
|
Новичок
Сообщений: 5
Статус: Offline
|
Это cleo невидимая дорога под текстурами при нажатии на цифру 9 машина проваливается под текстуры и по нажатию этой же клавиши поднимается обратно. Я хочу сделать на 2 цифры опускание под текстуры и поднимание. Опускание на ctrl + 9 происходит нормально а вот поднимается машина просто при нажатии клавиши 9 хотя должна на ctrl + 9. Помогите исправить и сделать как надо пожалуйста 
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
wait 0
:NONAME_4
wait 0
Model.Load(2910)
038B: load_requested_models
if
Model.Available(2910)
else_jump @NONAME_379
:NONAME_31
wait 0
if and
0AB0: key_pressed 17
0AB0: key_pressed 57
else_jump @NONAME_372
:NONAME_50
wait 0
8AB0: not key_pressed 17
8AB0: not key_pressed 57
else_jump @NONAME_50
if
Actor.Driving($PLAYER_ACTOR)
else_jump @NONAME_372
0@ = Actor.CurrentCar($PLAYER_ACTOR)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
7@ = Actor.Angle($PLAYER_ACTOR)
wait 0
3@ = -92.0
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
wait 0
3@ -= 2.0
5@ = Object.Create(2910, 1@, 2@, 3@)
4@ = Actor.Angle($PLAYER_ACTOR)
0750: set_object 5@ visibility 0
Camera.Restore_WithJumpCut
Car.Angle(0@) = 0.0
:NONAME_211
wait 0
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 30@)
Object.PutAt(5@, 1@, 2@, 3@)
4@ = Actor.Angle($PLAYER_ACTOR)
Object.Angle(5@) = 4@
0AB0: key_pressed 17
0AB0: key_pressed 57
else_jump @NONAME_211
:NONAME_270
wait 0
8AB0: not key_pressed 17
8AB0: not key_pressed 57
else_jump @NONAME_270
Object.Destroy(5@)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
7@ = Actor.Angle($PLAYER_ACTOR)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 20.0)
wait 0
02CE: 6@ = ground_z_at 1@ 2@ 9999.0
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 6@)
Car.Angle(0@) = 7@
Camera.Restore_WithJumpCut
:NONAME_372
jump @NONAME_31
:NONAME_379
jump @NONAME_4
|
|
|
|
|
| mvk_ban |
Дата: Суббота, 05.09.2015, 21:46 | Сообщение # 568
|
Новичок
Сообщений: 15
Статус: Offline
|
Reyvenor, Код {$CLEO .cs}
wait 0
:NONAME_4
wait 0
Model.Load(2910)
038B: load_requested_models
if
Model.Available(2910)
else_jump @NONAME_379
:NONAME_31
wait 0
if and
0AB0: 17
0AB0: 57
else_jump @NONAME_372
:NONAME_50
wait 0
0AB0: 17
0AB0: 57
else_jump @NONAME_50
if
Actor.Driving($PLAYER_ACTOR)
else_jump @NONAME_372
0@ = Actor.CurrentCar($PLAYER_ACTOR)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
7@ = Actor.Angle($PLAYER_ACTOR)
wait 0
3@ = -92.0
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
wait 0
3@ -= 2.0
5@ = Object.Create(2910, 1@, 2@, 3@)
4@ = Actor.Angle($PLAYER_ACTOR)
0750: set_object 5@ visibility 0
Camera.Restore_WithJumpCut
Car.Angle(0@) = 0.0
:NONAME_211
wait 0
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 30@)
Object.PutAt(5@, 1@, 2@, 3@)
4@ = Actor.Angle($PLAYER_ACTOR)
Object.Angle(5@) = 4@
0AB0: 17
0AB0: 57
else_jump @NONAME_211
:NONAME_270
wait 0
0AB0: 17
0AB0: 57
else_jump @NONAME_270
Object.Destroy(5@)
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
7@ = Actor.Angle($PLAYER_ACTOR)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 20.0)
wait 0
02CE: 6@ = ground_z_at 1@ 2@ 9999.0
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 6@)
Car.Angle(0@) = 7@
Camera.Restore_WithJumpCut
:NONAME_372
jump @NONAME_31
:NONAME_379
jump @NONAME_4
Помогаю новичкам. Писать в ЛС.
|
|
|
|
|
| Reyvenor |
Дата: Суббота, 05.09.2015, 21:46 | Сообщение # 569
|
Новичок
Сообщений: 5
Статус: Offline
|
mvk_ban Все равно автомобиль поднимается только при нажатии одной цифры 9, а я хочу чтобы на ctrl + 9
|
|
|
|
|
| JJJJJ |
Дата: Суббота, 05.09.2015, 21:46 | Сообщение # 570
|
Бывалый
Сообщений: 392
Статус: Offline
|
Цитата Reyvenor ( ) Все равно автомобиль поднимается только при нажатии одной цифры 9, а я хочу чтобы на ctrl + 9
Оператор if and потерял в некоторых случаях.
SAMP 0.3z: http://yadi.sk/d/8ljsLu7m3Iitb
CLEO 4.1: http://clck.ru/978nn
CLEO 4.3: http://cleo.li/cleo4/CLEO4_setup.exe
GTA:SA 1.0 us: http://yadi.sk/d/pJNaahj92MlQD
[CLEO] Админ-чекер на худе: http://cheat-master.ru/forum/129-220729-1
|
|
|
|
|
