Yoko

All sides of Injection
It is currently 2026-01-21 15:41:30

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Помогите...
PostPosted: 2006-09-27 17:50:06 
Offline

Joined: 2006-09-27 17:37:58
Posts: 2
Есть вот такой скрипт:

Code:
var Timer=UO.Timer()
var food= '0x097B'
sub WarTrain()
VAR E, t, Enemy='0x0031F2BC' , MinHP=70, G=true, L, Weap='0x4031598E' ; type of weapon
UO.Attack(Enemy)
UO.DeleteJournal()
while G==true
wait(500)
if not UO.ObjAtLayer("Rhand") then
UO.FindType(Weap,-1,'backpack')
if UO.FindCount() then
UO.Equip('Rhand','finditem')
endif
endif
if UO.InJournal("stay") or UO.Life<MinHP then
UO.Say("stay")
t=UO.Timer()
repeat
E=true
UO.Exec('warmode 0')
wait(500)
if UO.WarMode()==1 then
E=false
UO.Say("stay")
t=UO.Timer()
endif
until E==true and UO.Timer()>=t+30
CheckLag()
UO.SetArm('myarm')
while UO.Life<UO.Str
L=UO.Life
UO.Exec('warmode 0')
DelJ("the")
t=UO.Timer()
UO.Exec('bandageself')
repeat
Wait(500)
until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100
CheckLag()
if UO.Life<L then
UO.Say("stop")
endif
wend
CheckBandage()
UO.Arm('myarm')
if not UO.InJournal("poehali") then
UO.Say("go")
repeat
wait(50)
until UO.InJournal("go") or UO.Life<UO.Str
DelJ(UO.GetName()+": go")
repeat
wait(50)
until UO.InJournal("go") or UO.Life<UO.Str
else
UO.Say("go")
endif
UO.DeleteJournal()
UO.Attack(Enemy)
endif
if UO.Dead() then
UO.Exec('warmode 1')
endif
wend
end sub

sub DelJ(s)
VAR MN=UO.InJournal(s)
while MN > 0
UO.SetJournalLine(MN-1, '')
MN=UO.InJournal(s)
wend
end sub

sub CheckLag()
DelJ("backpack")
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

sub CheckBandage()
VAR Banka='0x40385B44' ; ID of wash basin
UO.waittargetobject(banka)
UO.usetype(0x0E20) ; Type nemitih bintov
Wait(1000)
if UO.Timer()>(Timer+1200) then
     repeat     
          CheckLag()
          uo.UseType(food)
          while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead()
               wait(100)       
          wend
     until uo.InJournal('too full') or uo.Dead()
     Timer=UO.Timer()
     wait(3000)
end if
end sub


как сделать,чтобы с помощью него можно было рестлинг качать?помогите плиз...


Top
   
 Post subject:
PostPosted: 2006-09-27 18:18:28 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
попробуй вырезать ети строки:
Code:
if not UO.ObjAtLayer("Rhand") then
UO.FindType(Weap,-1,'backpack')
if UO.FindCount() then
UO.Equip('Rhand','finditem')
endif
endif

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


Top
   
 Post subject:
PostPosted: 2006-09-27 18:30:53 
Offline

Joined: 2006-09-27 17:37:58
Posts: 2
NMY wrote:
попробуй вырезать ети строки:
Code:
if not UO.ObjAtLayer("Rhand") then
UO.FindType(Weap,-1,'backpack')
if UO.FindCount() then
UO.Equip('Rhand','finditem')
endif
endif


всё окей =)спасибо =))мог бы и сам додуматься,но видимо лень не даёт =)


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 6 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