// 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 "Fast Get Drugs: Evolve-Rp"
0662: printstring "Автор скрипта: Ded_Fedot"
0662: printstring "Контакты: vk.com/idedfedot"

:Label000059
wait 400
   SAMP.Available
jf @Label000059
wait 0
if or
0AAB:   file_exists "SAMPFUNCS\CDD.sf"
0AAB:   file_exists "SAMPFUNCS\CDD.ini"
jf @Label0000D1
0AA5: call 8535003 num_params 3 pop 3 0 0 0  
end_thread

:Label0000D1
0B34: samp register_client_command "gdr" to_label @Label0002ED
0B34: samp register_client_command "gdr_off" to_label @Label000440

:Label00010B
wait 0
if
  9@ == 1
jf @Label0002E6
chatmsg "{52DE47}[Внимание] {FFFFFF}Вы хотите купить {FF0000}%d {FFFFFF}грамм наркотиков, для отмены введите {FFE434}/gdr_off" -1 12@
chatmsg "{FF0000}[Внимание] {FFFFFF}Если вас устраивает количество наркотиков, покиньте интерьер" -1
goto @Label000222

:Label000222
wait 0
if
  9@ == 0
jf @Label000246
9@ = 0
goto @Label0002E6

:Label000246
wait 0
077E: get_active_interior_to 5@
if
  5@ == 0
jf @Label000222
6@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
alloc 7@ 68
0BBA: samp store_player 6@ onfoot_data 7@
0C0D: struct 7@ offset 6 size 4 = 323.01
0C0D: struct 7@ offset 10 size 4 = 1118.423
0C0D: struct 7@ offset 14 size 4 = 1083.883
0BC0: samp send_onfoot_data 7@
free 7@
say "/get drugs %d" 12@
9@ = 0

:Label0002E6
goto @Label00010B

:Label0002ED
   SAMP.IsCommandTyped(10@)
if
0AD4: 11@ = scan_string 10@ format "%d" 12@  
jf @Label0003B1
077E: get_active_interior_to 8@
if
  8@ > 0
jf @Label000341
018C: play_sound 1139 at 0.0 0.0 0.0
9@ = 1
SAMP.CmdRet

:Label000341
chatmsg "{FF0000}[Ошибка] {FFFFFF}Нельзя использовать на улице" -1
018C: play_sound 1138 at 0.0 0.0 0.0
SAMP.CmdRet

:Label0003B1
chatmsg "{FF0000}[Ошибка] {FFFFFF}Неверный ввод команды. Пример: {FFE434}/gdr {FFFFFF}[Кол-ч]" -1
018C: play_sound 1138 at 0.0 0.0 0.0
SAMP.CmdRet

:Label000440
chatmsg "{52DE47}[Внимание] {FFFFFF}Вы отменили заказ на покупку наркотиков" -1
018C: play_sound 1138 at 0.0 0.0 0.0
9@ = 0
SAMP.CmdRet