Yoko

Code: Select all

sub gm() 
var line, chislo, otvet, name, id 
var item_amount = 0 
var stavka = 100 
var timer 
start: 
uo.moveoff() #чтобы от UO.RClick() чар не дергался 
UO.Exec('exec reklama') 
otvet=uo.random(3) +1
item_amount = 0 
timer=1 
while not UO.TradeCount() 
wait(100) 
wend 
UO.Exec('terminate reklama') 
uo.exec("set finddistance 5") 
uo.findtype("0x0190",-1,"ground") 
id=uo.TradeOpponent() 
name=uo.getname(uo.TradeOpponent()) 
      REPEAT 
      UO.FindType('0x0EED', '-1', UO.TradeContainer('right')) 
         If UO.FindCount() Then 
               If UO.GetQuantity('finditem')==0 Then 
                  item_amount = item_amount + 1 
               Else 
                  item_amount = item_amount + UO.GetQuantity('finditem') 
               EndIf 
            UO.Ignore('finditem') 
            UO.FindType('0x0EED', '-1', UO.TradeContainer('right')) 
         EndIf 
      Until UO.FindCount()==0 or UO.Dead() 
   UO.IgnoreReset() 
if item_amount == stavka then 
while not UO.TradeCheck('','right',1) and timer < 6 
timer = timer + 1 
wait(1000) 
uo.print(STR(timer)) 
wend 
if timer == 6 then 
UO.RClick(176,90) 
wait(500) 
goto start 
endif 
timer = 1 
wait(500) 
UO.TradeCheck('','left',1) 
uo.msg(name + ", отгадайте число от 1 до 3, у Вас есть 5 секунд!") 
wait(7000) 
else 
uo.msg(name + ", для игры нужно дать мне 100гп") 
UO.RClick(176,90) 
wait(500) 
goto start 
endif 
line=UO.injournal(name) ###############################
chislo=Trim(Right(UO.Journal(line-1),1))  #####################
uo.msg("Ваш ответ " + chislo + ", а я загадал " + STR(otvet) + "!") ###
if val(chislo) == otvet then 
uo.msg("Поздравляю " + name + ", Вы отгадали и выиграли 300гп!") 
if UO.TradeCount() then 
UO.RClick(176,90) 
wait(500) 
endif 
uo.findtype("0x0EED") 
uo.moveitem('finditem','300',id) 
wait(500) 
UO.TradeCheck('','left',1) 
timer = 0 
while not UO.TradeCheck('','right',1) and timer < 5 
timer = timer + 1 
wait(1000) 
uo.print(STR(timer)) 
wend 

if timer == 5 then 
UO.RClick(176,90) 
wait(500) 
goto start 
endif 

goto start 

else 
uo.msg("К сожалению Вы не отгадали!") 
UO.RClick(176,90) 
wait(500) 
endif 
goto start 
end sub 

sub reklama() 
while 1 
wait(8000) 
uo.msg("Игра в наперстки!") 
wait(500)
uo.msg("Для начала игры просто дайте чару 100гп") 
wend 
end sub

Code: Select all

chislo=Trim(Right(UO.Journal(line-1),1))