{$CLEO}
{$INCLUDE SF}
0000:

wait 3000

cmd "tmet" @met
cmd "tjob" @job

msg "{32CD32}[BuyMetal] {CD853F}Скрипт загружен {1E90FF}by kolya29 (BlastHack.Net)" 0x32CD32
msg "{32CD32}[BuyMetal] {CD853F}Выполнен по просьбе Kook'a {1E90FF}youtube.ru/user/TheKookrus163" 0x32CD32

while true
wait 0
if 6@ == 1
then
wait 1000
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.PutAt($PLAYER_ACTOR, 0, 0, -10000)
wait 4000
Actor.PutAt($PLAYER_ACTOR, -1898.0686, -1671.6965, 23.0896)
wait 100
Actor.PutAt($PLAYER_ACTOR, -1898.0686, -1671.6965, 23.0896)
wait 3000
say "/buym %d" 5@
wait 1000
Actor.PutAt($PLAYER_ACTOR, 0, 0, -10000)
wait 4000
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
wait 100
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
wait 1000
say "/sellm %d" 5@
6@ = 0
end
if 6@ == 2
then
Actor.PutAt($PLAYER_ACTOR, 0, 0, -10000)
wait 4000
Actor.PutAt($PLAYER_ACTOR, -121.6460, -315.0166, 2.7646)
wait 100
Actor.PutAt($PLAYER_ACTOR, -121.6460, -315.0166, 2.7646)
6@ = 0
end
end

:job
msg "{32CD32}[BuyMetal] {CD853F}Телепорт на работу развозчика...." 0x32CD32
6@ = 2
Samp.CmdRet()

:met
0B35: samp 4@ = get_last_command_params
if 0AD4: 4@ = scan_string 4@ format "%d" 5@
then
msg "{32CD32}[BuyMetal] {CD853F}Вы выбрали закупку металла на {FF0000}%d {CD853F}кг. {1E90FF}(BlastHack.Net)" 0x32CD32 5@
6@ = 1
else
msg "{32CD32}[BuyMetal] {CD853F}/tmet [кол-во металла]" 0x32CD32
end
Samp.CmdRet()