Yoko

All sides of Injection
It is currently 2025-12-25 20:29:07

All times are UTC+02:00




Post new topic  Reply to topic  [ 14 posts ] 
Author Message
 Post subject: Бот
PostPosted: 2007-06-20 15:51:35 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
вот скрипт:

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(8000)
uo.msg("Игра в наперстки!")
wait(500)
uo.msg("Для начала игры просто дайте чару 100гп")
wend
end sub


проблема заключается в том что он ПРОсто не может увидить ответ игрока. я эти строки отметил.
я долго мучался но исправить несмог
помогите пожалуйсто исправить


Top
   
 Post subject:
PostPosted: 2007-06-21 12:15:19 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
ну ребята пожалуйсто помогите кто то


Top
   
 Post subject:
PostPosted: 2007-06-21 19:44:37 
Offline
User avatar

Joined: 2007-02-21 20:15:57
Posts: 479
uo.moveoff() работает 0_0 ????? =)

ну я ниасилил все читать, но похоже что скрипт лохотрон, невижу вообще где он ищет сказаные числа =) ответ вроде вообще независит от сказанного.

_________________
Шард Антарес
Ururu


Top
   
 Post subject:
PostPosted: 2007-06-21 22:37:45 
Offline

Joined: 2005-01-06 11:49:28
Posts: 205
Ururu wrote:

ну я ниасилил все читать, ....невижу вообще где он ищет сказаные числа =)
Ты уж осиль всё прочитать. Проверка на ответ идёт как раз в выделенных строчках. И результат зависит от ответа.


Top
   
 Post subject:
PostPosted: 2007-06-22 00:58:19 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
ребята так я ж и говорю сам скрипт может отдать деньги если будет правельный ответ
футнкция читания ответа с журнала есть, но он просто не хочет видеть ответ.
моих скриптерских способностей нехватило чтоб это исправить
я даже строки выделил в которых нужно что то исправить.
просто надо сделать так чтоб он увидел этот ответ
есть желающие помочь ?


Top
   
 Post subject:
PostPosted: 2007-06-22 00:59:21 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
Ururu wrote:
uo.moveoff() работает 0_0 ????? =)

ну я ниасилил все читать, но похоже что скрипт лохотрон, невижу вообще где он ищет сказаные числа =) ответ вроде вообще независит от сказанного.

работает


Top
   
 Post subject:
PostPosted: 2007-06-22 12:17:57 
Offline
User avatar

Joined: 2007-02-21 20:15:57
Posts: 479
Code:
chislo=Trim(Right(UO.Journal(line-1),1))

что такое Trim ??

_________________
Шард Антарес

Ururu


Top
   
 Post subject:
PostPosted: 2007-06-22 12:30:49 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
если бы я знал что такое Trim(Right(
я бы сам исправил =)


Top
   
 Post subject:
PostPosted: 2007-06-22 13:01:49 
Offline

Joined: 2007-03-27 21:57:51
Posts: 19
analogi4nij po funkcionalnosti script (100% rabochij i legkij v nastrojke) est u nas
_http://uo-injection.ru/scripts.php
enjoy


Top
   
 Post subject:
PostPosted: 2007-06-23 09:35:47 
Offline
User avatar

Joined: 2004-12-30 18:13:16
Posts: 175
Location: Russia
uo-injection Project wrote:
enjoy

Ну ты опять тут ?*

Паша ты ? Тви включен ? Шофс неймс включен ?

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc


Top
   
 Post subject:
PostPosted: 2007-06-23 23:15:52 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
а по сути дела кто то может что то сказать ?
например что такое Trim


Top
   
 Post subject:
PostPosted: 2007-06-24 00:26:45 
Offline

Joined: 2007-06-22 09:51:09
Posts: 11
этот скрипт писал я и если ты играешь на фв могу продать тебе полностью рабочую вторую версию скрипта где 2 числа всего и на любые суммы игра и + тебе бабки тоже идут
trim убрать пробелы в строке по краям)


Top
   
 Post subject:
PostPosted: 2007-06-24 06:34:17 
Offline
User avatar

Joined: 2007-06-20 15:38:11
Posts: 53
дай свою аську поговорим


Top
   
 Post subject:
PostPosted: 2007-06-24 10:38:48 
Offline

Joined: 2007-06-22 09:51:09
Posts: 11
453558462


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

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 5 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:  
Powered by phpBB® Forum Software © phpBB Limited