Нужна помощь в написани Lua или AHK (не очень разбираюсь)

Статус
В этой теме нельзя размещать новые ответы.

oIITuMucT

Новичок
Автор темы
11
0
Суть в том, что мне нужно написать такую программку, при которой например:
При наведении на игрока ПКМ+F открывалось окно взаимодействия, например быстро уволить его из организации,повысить ранг с RP отыгровкой и т.д.
Знаю что есть подобные скрипты, но мне нужно сделать свой, что бы сам мог контролировать меню взаимодействия и разобраться что к чему...
 

#Rin

Известный
Всефорумный модератор
1,214
1,037
Может я что то не так сделал, но открыв файл через NotePad++ выходит примерно следующее:
BfoZD.png
Скачай Sanny Builder.
 

sadbones

Известный
375
175
Через него не получается открыть этот файл..
все получается, если руки из того места растут
Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:NONAME_2
wait 4000
   SAMP.Available
else_jump @NONAME_2
chatmsg "Hello" 16316671

:NONAME_31
wait 0
if and
0ADC:   test_cheat "J"
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
else_jump @NONAME_238
1@ = SAMP.GetSAMPPlayerIDByActorHandle(0@)
alloc 2@ 630
format 2@ "Паспорт%cЛицензии%cМед.Карта%cВыписка из тира%cПередать бабло%cОтправить термин%c" 10 10 10 10 10 0
SAMP.ShowDialog(34, "{ffffff} Fast-RP {ff00ff}{ffffff}", 2@, "Тык", "Не тык", DIALOG_STYLE_LIST)
free 2@

:NONAME_238
if
   SAMP.DialogRespond(34, 3@, 4@, 0)
else_jump @NONAME_1183
if
  3@ == 1
else_jump @NONAME_1183
018C: play_sound 1058 at 0.0 0.0 0.0
if
  4@ == 0
else_jump @NONAME_444
say "/do Папка с документами в руке."
wait 1000
say "/me достал паспорт из папки"
wait 1000
say "/me передал паспорт"
wait 1000
say "/showpass %d" 1@

:NONAME_444
if
  4@ == 2
else_jump @NONAME_599
say "/do Папка с документами в руке."
wait 1000
say "/me достал из папки медицинскую карту"
wait 1000
say "/me передал мед.карту"
wait 1000
say "/showmc %d" 1@

:NONAME_599
if
  4@ == 1
else_jump @NONAME_745
say "/do Папка с документами в руке."
wait 1000
say "/me достал из папки лицензии"
wait 1000
say "/me передал лицензии"
wait 1000
say "/showlic %d" 1@

:NONAME_745
if
  4@ == 3
else_jump @NONAME_907
say "/do Папка с документами в руке."
wait 1000
say "/me достал из папки выписку из тира"
wait 1000
say "/me передал выписку из тира"
wait 1000
say "/showskill %d" 1@

:NONAME_907
if
  4@ == 4
else_jump @NONAME_982
SAMP.ShowDialog(40, "Передать бабло", "Введите сумму", "Тык", "Не тык", DIALOG_STYLE_INPUT)
alloc 7@ 64

:NONAME_982
if
  4@ == 5
else_jump @NONAME_1183
chatmsg "[Fast-RP]{f8f8ff} Выберете термин и он отправится нахуй" 8900331
alloc 12@ 500
format 12@ "РП%cДМ%cМГ%cДБ%cТК%cСК%cПГ" 10 10 10 10 10 10
SAMP.ShowDialog(37, "Выберете нужный термин для отправки", 12@, "Тык", "Не тык", DIALOG_STYLE_LIST)
free 12@

:NONAME_1183
if
   SAMP.DialogRespond(37, 13@, 16@, 0)
else_jump @NONAME_1722
if
  13@ == 1
else_jump @NONAME_1722
if
  16@ == 0
else_jump @NONAME_1314
say "/b РП реальная игра, реальное поведение, как в жизни, игра по ролям"

:NONAME_1314
if
  16@ == 1
else_jump @NONAME_1399
say "/b ДМ убийство или попытка убийства всех подряд без IC причины"

:NONAME_1399
if
  16@ == 2
else_jump @NONAME_1461
say "/b МГ использование OOC информации в IC"

:NONAME_1461
if
  16@ == 3
else_jump @NONAME_1527
say "/b ДБ убийство или попытка убийства машиной"

:NONAME_1527
if
  16@ == 4
else_jump @NONAME_1593
say "/b ТК убийство члена своей команды, фракции"

:NONAME_1593
if
  16@ == 5
else_jump @NONAME_1663
say "/b СК убийство на респауне (на месте появления)"

:NONAME_1663
if
  16@ == 6
else_jump @NONAME_1722
say "/b ПГ Воображение из себя супергероя"

:NONAME_1722
if
   SAMP.DialogRespond(40, 27@, 0, 7@)
else_jump @NONAME_1809
018C: play_sound 1058 at 0.0 0.0 0.0
if
  27@ == 1
else_jump @NONAME_1809
say "/pay %d %s" 1@ 7@
free 7@

:NONAME_1809
jump @NONAME_31
 
  • Нравится
Реакции: oIITuMucT и MAKOSKA
Статус
В этой теме нельзя размещать новые ответы.