Помогите перевести, адаптировать

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

jeka1222

Известный
Автор темы
26
1
Помогите перевести под 0.3.7 исходник, ну или же что с ним там надо сделать чтобы он работал, заранее благодарен

CLEO:
// 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
0662: printstring "Made by DS_"
thread "Label__0"

:LABEL__0_29
wait 0
   SAMP.Available
else_jump @LABEL__0_29
chatmsg "[ARP TP]: {ffffff}by DubStep_ started. Special for K0tenok" 65280
SAMP.GetScreenResolution(10@, 11@)
10@ /= 2
10@ += 150
11@ /= 2
Dialog.Create(0@, "{808080}Teleport by DubStep_{909080} for K0tenok")
Dialog.SetRECT(0@, 10@, 11@, 410, 310)
Dialog.AddListBox(0@, 10, 5, 5, 400, 250)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Одежды LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Одежды SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия LV", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "К метке на карте", 4@, -1)
Dialog.AddButton(0@, 0, "Телепорт", 220, 260, 100, 30)
Dialog.AddButton(0@, 1, "Закрыть", 90, 260, 100, 30)
Dialog.SetVisible(0@, 0)
0B34: samp register_client_command "tpkot" to_label @LABEL__0_662

:LABEL__0_487
wait 0
if
   Dialog.IsVisible(0@)
else_jump @LABEL__0_655
SAMP.SetCursorMode(3)
if
   Dialog.PopEvent(0@, 1@, 2@)
else_jump @LABEL__0_655
if
  1@ == 1794
else_jump @LABEL__0_565
Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)

:LABEL__0_565
if
  1@ == 257
else_jump @LABEL__0_655
if
  2@ == 0
else_jump @LABEL__0_626
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
call @LABEL__0_735 1 3@

:LABEL__0_626
if
  2@ == 1
else_jump @LABEL__0_655
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)

:LABEL__0_655
jump @LABEL__0_487

:LABEL__0_662
if
   Dialog.IsVisible(0@)
else_jump @LABEL__0_696
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
jump @LABEL__0_733

:LABEL__0_696
Dialog.SetVisible(0@, 1)
11@ += 90
10@ += 100
call @LABEL__0_1166 2 10@ 11@

:LABEL__0_733
SAMP.CmdRet

:LABEL__0_735
if
  0@ == 0
else_jump @LABEL__0_783
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 459.2712, -1501.217, 30.0387)

:LABEL__0_783
if
  0@ == 1
else_jump @LABEL__0_831
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, -1696.772, 949.9268, 23.8906)

:LABEL__0_831
if
  0@ == 2
else_jump @LABEL__0_879
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 1365.783, -1279.804, 12.5469)

:LABEL__0_879
if
  0@ == 3
else_jump @LABEL__0_927
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 2156.103, 943.2082, 9.8203)

:LABEL__0_927
if
  0@ == 4
else_jump @LABEL__0_975
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, -2626.02, 212.4472, 3.6146)

:LABEL__0_975
if
  0@ == 5
else_jump @LABEL__0_1154
if
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
else_jump @LABEL__0_1103
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ = 0

:LABEL__0_1046
wait 0
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ += 1
  2@ > 50
else_jump @LABEL__0_1046
jump @LABEL__0_1154

:LABEL__0_1103
chatmsg "[ARP TP]: {ffffff}поставь метку на карте!" 65280

:LABEL__0_1154
ret 0

:LABEL__0_1159
SAMP.Spawn
ret 0

:LABEL__0_1166
0AA2: 2@ = load_library "user32.dll" // IF and SET
0AA4: 3@ = get_proc_address "SetCursorPos" library 2@ // IF and SET
0AA5: call 3@ num_params 2 pop 0 1@ 0@
ret 0
 

Вложения

  • ARP_Tp1.cs
    21.8 KB · Просмотры: 11

©Ded_Fedot

КГБ
2,139
1,261
Помогите перевести под 0.3.7 исходник, ну или же что с ним там надо сделать чтобы он работал, заранее благодарен

CLEO:
// 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
0662: printstring "Made by DS_"
thread "Label__0"

:LABEL__0_29
wait 0
   SAMP.Available
else_jump @LABEL__0_29
chatmsg "[ARP TP]: {ffffff}by DubStep_ started. Special for K0tenok" 65280
SAMP.GetScreenResolution(10@, 11@)
10@ /= 2
10@ += 150
11@ /= 2
Dialog.Create(0@, "{808080}Teleport by DubStep_{909080} for K0tenok")
Dialog.SetRECT(0@, 10@, 11@, 410, 310)
Dialog.AddListBox(0@, 10, 5, 5, 400, 250)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Одежды LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Одежды SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия LV", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Магазин Оружия SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "К метке на карте", 4@, -1)
Dialog.AddButton(0@, 0, "Телепорт", 220, 260, 100, 30)
Dialog.AddButton(0@, 1, "Закрыть", 90, 260, 100, 30)
Dialog.SetVisible(0@, 0)
0B34: samp register_client_command "tpkot" to_label @LABEL__0_662

:LABEL__0_487
wait 0
if
   Dialog.IsVisible(0@)
else_jump @LABEL__0_655
SAMP.SetCursorMode(3)
if
   Dialog.PopEvent(0@, 1@, 2@)
else_jump @LABEL__0_655
if
  1@ == 1794
else_jump @LABEL__0_565
Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)

:LABEL__0_565
if
  1@ == 257
else_jump @LABEL__0_655
if
  2@ == 0
else_jump @LABEL__0_626
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
call @LABEL__0_735 1 3@

:LABEL__0_626
if
  2@ == 1
else_jump @LABEL__0_655
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)

:LABEL__0_655
jump @LABEL__0_487

:LABEL__0_662
if
   Dialog.IsVisible(0@)
else_jump @LABEL__0_696
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
jump @LABEL__0_733

:LABEL__0_696
Dialog.SetVisible(0@, 1)
11@ += 90
10@ += 100
call @LABEL__0_1166 2 10@ 11@

:LABEL__0_733
SAMP.CmdRet

:LABEL__0_735
if
  0@ == 0
else_jump @LABEL__0_783
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 459.2712, -1501.217, 30.0387)

:LABEL__0_783
if
  0@ == 1
else_jump @LABEL__0_831
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, -1696.772, 949.9268, 23.8906)

:LABEL__0_831
if
  0@ == 2
else_jump @LABEL__0_879
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 1365.783, -1279.804, 12.5469)

:LABEL__0_879
if
  0@ == 3
else_jump @LABEL__0_927
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 2156.103, 943.2082, 9.8203)

:LABEL__0_927
if
  0@ == 4
else_jump @LABEL__0_975
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, -2626.02, 212.4472, 3.6146)

:LABEL__0_975
if
  0@ == 5
else_jump @LABEL__0_1154
if
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
else_jump @LABEL__0_1103
call @LABEL__0_1159 0
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ = 0

:LABEL__0_1046
wait 0
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ += 1
  2@ > 50
else_jump @LABEL__0_1046
jump @LABEL__0_1154

:LABEL__0_1103
chatmsg "[ARP TP]: {ffffff}поставь метку на карте!" 65280

:LABEL__0_1154
ret 0

:LABEL__0_1159
SAMP.Spawn
ret 0

:LABEL__0_1166
0AA2: 2@ = load_library "user32.dll" // IF and SET
0AA4: 3@ = get_proc_address "SetCursorPos" library 2@ // IF and SET
0AA5: call 3@ num_params 2 pop 0 1@ 0@
ret 0
Зачем его переводить если код в порядки
 
  • Нравится
Реакции: deddosouru
Статус
В этой теме нельзя размещать новые ответы.