Yoko

All sides of Injection
It is currently 2024-04-28 13:25:40

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2007-04-28 11:08:32 
Offline

Joined: 2005-09-22 11:08:40
Posts: 39
Уважаемые помоги сделать так что бы погда появлялся
Sea Serpent
его убивал , он у меня тупо рыбачит дальше ( не одевает оружее и щиток )


Code:
sub main() 
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx+2 to mx+6
for j = my-6 to my+6
if UO.InJournal(":") and uo.injournal("Sea Serpent") then
uo.exec("terminate main; exec killsea")
endif
if UO.InJournal(":") and uo.injournal("Water Elemental") then
uo.exec("terminate main; exec killelem")
endif
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait(100)
if uo.life < 60 then
  uo.closeuo()
endif 
wend
next
next
uo.sayu("back")
wait(6000)
uo.sayu("stop")
unloadc("0x400228C7")
uo.exec("exec main")
end sub

sub unloadc(container)
uo.canceltarget()
uo.ignorereset()
uo.findtype("-1","-1","backpack")
while uo.findcount()
uo.print(str(uo.findcount())+" left")
if (uo.getgraphic("finditem")<>"0x13FE" and uo.getgraphic("finditem")<>"0x13F6" and uo.getgraphic("finditem")<>"0x0E21" and uo.getgraphic("finditem")<>"0x1B76" and uo.getgraphic("finditem")<>"0x0EFA") or uo.getquantity("finditem")>500 then
uo.moveitem("finditem","-1",container)
wait(200)
end if
uo.ignore("finditem")
uo.findtype("-1","-1","backpack")
wend
end sub

sub killsea()

If UO.Count('0x0E21', '0x0000')<50 then
UO.FindType('0x0E21', '0x0000', 0x4005B361)
UO.Grab("50","finditem")
Wait(1100)
endif

   VAR LastTimer, Sea
   
   UO.UnSetcatchbag()
   LastTimer=UO.Timer()
   
   uo.usetype('0x13FE') ;weapon
   wait(1100)
   uo.waittargetground()
   UO.UseType('0x1B78')  ;shield
   wait(1100)

   UO.DeleteJournal()
   UO.Exec('warmode 1')

   UO.FindType('0x0096',-1,'ground')
   Sea=UO.GetSerial('finditem')
   UO.Attack(Sea)
   repeat
      wait(1100)
      If UO.Life<100 Then
      repeat
         UO.Bandageself()
         wait(2500)
         UO.Attack(Sea)
      until UO.Life>=115
      Endif


   until UO.IsNPC(Sea)==0
   wait(3000)


   UO.Attack(Sea)
   UO.FindType('0x0096',-1,'ground')
   If UO.GetQuantity('finditem')>0 Then
      wait(1100)
      UO.Attack(Sea)
      killsea()
   Endif

   UO.Exec('warmode 0')
   wait(1100)

   wait(1100)
  uo.waittargetobject("lastcorpse")
  uo.usetype('0x13F6')
  wait(500)
  uo.findtype("-1","-1","lastcorpse")
  while uo.findcount()
    uo.moveitem("finditem")
    uo.ignore("finditem")
    wait(1200)
    uo.findtype("-1","-1","lastcorpse")
  wend
wait(500)
uo.exec("exec main")
end sub

sub killelem()

   VAR LastTimer, elem
   
   UO.UnSetcatchbag()
   LastTimer=UO.Timer()
   
   uo.usetype('0x13FE') ;weapon
   wait(1100)
   uo.waittargetground()
   UO.UseType('0x1B78')  ;shield
   wait(1100)

   UO.DeleteJournal()
   UO.Exec('warmode 1')

   UO.FindType('0x0010',-1,'ground')
   elem=UO.GetSerial('finditem')
   UO.Attack(elem)
   repeat
      wait(1000)
      If UO.Life<130 Then
      repeat
         UO.Bandageself()
         wait(2500)
         UO.Attack(elem)
      until UO.Life>=115
      Endif


   until UO.IsNPC(elem)==0
   wait(3000)


   UO.Attack(elem)
   UO.FindType('0x0010',-1,'ground')
   If UO.GetQuantity('finditem')>0 Then
      wait(1100)
      UO.Attack(elem)
      killelem()
   Endif

   UO.Exec('warmode 0')
   wait(1000)
 
uo.exec("exec main")

end sub


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 51 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