Yoko

All sides of Injection
It is currently 2024-03-28 23:53:42

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2006-10-04 12:00:45 
Offline

Joined: 2006-08-21 13:53:09
Posts: 1
Скрипт на прокачку боевых в спарринге на лучшем бесплатном сервере Dragon World, в него нужно воткнуть сс так, чтобы когда чар хилился, юзал спирит :)
буду очень Вам признателен, если поможете :)
Code:
sub sparing() 
   VAR E, t, Enemy='0x001B939B' , MinHP=40, G=true, L, Weapon='0x0F51', Shield='0x1B76' ; type of weapon
   Var Weap
   UO.WarMode(1)
   UO.Attack(Enemy)
   UO.DeleteJournal()
   if not Shield=='0x0000' then
     if  not UO.ObjAtLayer("Lhand") then
     UO.equipt('Lhand',Shield)
     wait(800)
     Checklag()
    else
    Weap=UO.ObjAtLayer("Lhand")
    if uo.GetGraphic(Weap)<>Shield then
      UO.equipt('Lhand',Shield)
      wait(800)
      Checklag()
    end if
     end if
   end if
     if not Weapon=='0x0000' then
     if  not UO.ObjAtLayer("Rhand") then
     UO.equipt('Rhand',Weapon)
     wait(800)
     Checklag()
    else
    Weap=UO.ObjAtLayer("Rhand")
    if uo.GetGraphic(Weap)<>Weapon then
      UO.equipt('Rhand',Weapon)
      wait(500)
      Chacklag()
    end if
     end if
   end if   
   while G==true
      wait(500)
      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()
         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 the bloody bandage") 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("stay")
            endif
         wend
         CheckBandage()
         if not Shield=='0x0000' then
     if  not UO.ObjAtLayer("Lhand") then
     UO.equipt('Lhand',Shield)
     wait(800)
     Checklag()
    else
    Weap=UO.ObjAtLayer("Lhand")
    if uo.GetGraphic(Weap)<>Shield then
      UO.equipt('Lhand',Shield)
      wait(800)
      Chacklag()
    end if
     end if
   end if
     if not Weapon=='0x0000' then
     if  not UO.ObjAtLayer("Rhand") then
     UO.equipt('Rhand',Weapon)
     wait(800)
     Checklag()
    else
    Weap=UO.ObjAtLayer("Rhand")
    if uo.GetGraphic(Weap)<>Weapon then
      UO.equipt('Rhand',Weapon)
      wait(500)
      Chacklag()
    end if
     end if
   end if   
         if not UO.InJournal("iiaoaee!") then
            UO.Say("go")
            repeat
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
            DelJ(UO.GetName()+": go")
            repeat
            #UO.WaitTargetObject(0x4007057A)
            #UO.UseSkill('Taste Identification')
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
         else
            UO.Say("go")
         endif
         UO.DeleteJournal()
         UO.WarMode(1)
           UO.Attack(Enemy)
      endif
      if UO.Dead() then
        UO.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='0x4027CD62' ; ID of wash basin
   Var timer

   UO.waittargetobject(banka)
   UO.usetype(0x0e20)
   Wait(1000)
   UO.Exec('set finddistance 3')
   UO.FindType('0x1008',-1,'ground')
      if UO.findcount()>0 then
         UO.Grab('0','finditem')
       end if 

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