Yoko

Posted: **2005-01-06 22:12:36**

Кто нибуть может написать скипт плиз чтобы чар кидал эксплоужены не на чела а возле чела под него или вокруг плиз!

Posted: **2005-01-06 23:02:10**

#==============================================================
# ExplodeHim() - drop to laststatus char bomb and detonated
# first dropped bomb
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub ExplodeHim()
VAR i, pack='0x40103215',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20 ; 1 bomb hits

CountEX=INT(UO.GetHP('laststatus')/ExHP+0.99)
UO.Print(STR(CountEX)+" explodov nado

")

For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
CheckLag()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(400)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub

на, всё что есть узнаёт сколько експлодов надо выбирает мощнейшие кидает их под противника и мэджик ароу на последнюю бутылку

Posted: **2005-01-06 23:32:25**

у меня он был , но не работает почему-то !

Posted: **2005-01-06 23:54:30**

pivovar wrote:Кто нибуть может написать скипт плиз чтобы чар кидал эксплоужены не на чела а возле чела под него или вокруг плиз!

на спс ту Ветер!

Code: Select all

sub ExpDrop()
uo.FindType('0x0F0D','0x0B99','backpack')
if uo.GetQuantity('finditem')>0 Then
uo.DeleteJournal()
uo.Drop('1',STR(uo.GetX('laststatus')),STR(uo.GetY('laststatus')),STR(uo.GetZ('laststatus')),'finditem')
wait(500)
uo.FindType('0x0F0D','0x0B99','backpack')
if uo.GetQuantity('finditem')>0 Then
uo.DeleteJournal()
uo.Drop('1',STR(uo.GetX('laststatus')),STR(uo.GetY('laststatus')),STR(uo.GetZ('laststatus')),'finditem')
wait(500)
uo.Print('!ЖМИ!')
end sub

sub ExpCast()
uo.FindType('0x0F0D','0x0B99','ground')
uo.Cast('Magic Arrow','finditem')
end sub

Posted: **2005-01-15 17:18:42**

Requires:
-to have bombs in your main backpack
-to have set lasttarget, and before running this macro once does attacklast from internal macro.
-Bombs have automatic explosion time on my shard it is about 3 seconds..
-be sure that lasttarget is still visible or you can destroy yourself :-)

Code: Select all

sub bombs()
;written by goodie 
;if you use it send me greets :)
;ICQ: 14669217

var count
var throwbombs = '4' 

;do not edit anything bellow!
;----------------------------------
uo.findtype ('0x0f0d', "-1", "backpack")
if not uo.findcount () then
  uo.ignorereset()
  uo.findtype ('0x0f0d', "-1", "backpack")
end if
if uo.findcount () then
   uo.print("Bombing...")
   uo.print("Total # of bombs:"+STR(uo.findcount()))
   for count=1 to throwbombs
      uo.print("Throwing a bomb :"+STR(count))
      uo.print("Debug: ID bomb -"+uo.getserial("finditem"))
     uo.WaitTargetObject ("lasttarget")
     uo.useobject ("finditem")
     wait(600)
;ignore throwed bombs
     uo.ignore(uo.getserial("finditem"))
     uo.findtype ('0x0f0d', "-1", "backpack")
     if not uo.findcount() then
        uo.print("Out of bombs! Ending...")
        goto END
     endif 
   next
else
   uo.print("Out of bombs! Ending...")
endif
END:
   uo.print("Bombing has finished")
  uo.ignorereset()
end sub

Yoko

Explosions

Explosions

Re: Explosions

Another piece of exploding code...