Yoko

All sides of Injection
It is currently 2024-03-29 01:43:59

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
 Post subject: НЕ работает!!
PostPosted: 2007-02-26 21:33:44 
Offline

Joined: 2005-05-26 12:25:53
Posts: 58
Игрок угадал число а скрипт пишет что неправильно!
Code:
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(60000)
uo.msg("Игра в наперстки!")
uo.msg("Для начала игры просто дайте чару 100гп")
wend
end sub


Top
   
 Post subject:
PostPosted: 2007-02-26 22:14:14 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
такой пост был уже создан :!:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited