Yoko
http://forum.yoko.com.ua/

Explosions
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2505		 Page 1 of 1
Author:  pivovar [ 2005-01-06 22:12:36 ]
Post subject:  Explosions
Кто нибуть может написать скипт плиз чтобы чар кидал эксплоужены не на чела а возле чела под него или вокруг плиз!
Author:  $oK0JI [ 2005-01-06 23:02:10 ]
Post subject: 
#==============================================================
# 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

на, всё что есть узнаёт сколько експлодов надо выбирает мощнейшие кидает их под противника и мэджик ароу на последнюю бутылку
Author:  pivovar [ 2005-01-06 23:32:25 ]
Post subject: 
у меня он был , но не работает почему-то !
Author:  kuviCk [ 2005-01-06 23:54:30 ]
Post subject:  Re: Explosions
pivovar wrote:
Кто нибуть может написать скипт плиз чтобы чар кидал эксплоужены не на чела а возле чела под него или вокруг плиз!

на спс ту Ветер!
Code:
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
Author:  god [ 2005-01-15 17:18:42 ]
Post subject:  Another piece of exploding code...
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:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/