Yoko

All sides of Injection
It is currently 2025-10-30 00:12:30

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2008-03-18 19:49:31 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Вообщем суть в том то что имееться скрипт на карпу и скрипт что бы кушать вот как вставить скрипт на кушание в карпу что бы кушал через 30-40 минут по 2-3 штуки :)
Вот скрипт на карпу:
Code:
##########################################
var chair = '0x13B3'
##########################################
sub ChairCraft()
    uo.Print('Выбери Рубанок: ')
    uo.canceltarget()
    uo.Exec('addobject Rubanok')
    while uo.Targeting()
        wait(100)
    wend
    if uo.Waiting() then
        uo.CancelTarget()
    endif
    var a,Exit
    dim Boards[1]
    Boards[0]=0x1BD7
    uo.findtype('dubina',-1,'backpack')
    uo.Print('Делаем.')
    wait(500)
    for a=0 to 0
        Exit=0
        repeat
            uo.deletejournal()
            uo.FindType(Boards[a])
            if uo.GetQuantity('finditem')>0 then
                uo.deletejournal()
                uo.waittargettype(Boards[a])
                uo.exec("recall Rubanok 0x0401")
                repeat
                    wait(100)
                until uo.injournal("Вы закончили") or uo.injournal("Вы слишком измотаны")
                if uo.injournal("Вы слишком измотаны") then
                    wait(10000)
                endif
                uo.Print('У вас всего '+str(uo.Count(chair))+' стульев в сумке')
            else
                Exit=1
            endif
        until Exit==1
    next
    time=0
    uo.Print('Предметы сделаны.')
end sub
sub Terminate()
    uo.Print('Все функции скрипта выключены!')
    uo.DeleteJournal()
    uo.Exec('terminate all')
    wait(100)
    uo.Exec('terminate all')
    wait(100)
    uo.Exec('terminate all')
    wait(100)
end sub


А вот скрипт на кушание:

Code:

var EatingFood=0                                       
var TypeFood='0x09AD'                                 

sub EatingFood()
repeat
 uo.FindType(TypeFood)
  if uo.GetQuantity('finditem')>0 then
   uo.UseType(TypeFood)
   wait(1000)
  else
   EatingFood=0
   wait(1000)
   return 1
  endif
until uo.InJournal("Вы сыты и довольны") or uo.injournal("Вы переели")
end sub


Top
   
 Post subject:
PostPosted: 2008-03-20 16:49:54 
Offline
User avatar

Joined: 2006-10-08 08:37:57
Posts: 87
Ап! :lol:


Top
   
 Post subject:
PostPosted: 2008-03-20 17:58:51 
Offline

Joined: 2008-03-03 09:19:21
Posts: 71
Location: SPB
sub ChairCraft()
var Tim,eat
tim=UO.timer()

blablabla

until uo.injournal("Вы закончили") or uo.injournal("Вы слишком измотаны")
###########
if uo.timer() > tim + 30*600 then
for eat=1 to 3
EatingFood()
wait(100)
next
tim=UO.timer()
endif
###############
if uo.injournal("Вы слишком измотаны") then
blablabla


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited