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

Annyoing Poisoning script
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1514		 Page 1 of 1
Author:  Baldon [ 2004-10-02 22:34:33 ]
Post subject:  Annyoing Poisoning script
sub main()
Uo.Print("Poison.Sc - O Script que nunca deu certo")
UO.Exec("exec potfiller")
end sub

sub potfiller()
wait(1000)
While not (UO.InJournal("Voce esta sem garrafas")) #waiting to fill up the empty botle (i just use one to train)
Uo.Exec("usetype 0x1940") #Use The Keg
wait(2500)
wend
Uo.Exec("exec nox")
end sub

sub nox()
Uo.DeleteJournal()
wait(4000)
UO.Exec("waittargettype 0x0f0a")
Uo.Exec("useskill 'Poisoning'")
while not (UO.InJournal("Selecione a pocao de veneno")) #waiting for server input to chose the poison bottle
wait(500)
wend
Uo.Exec("exec noxb")
EndIf
end sub

sub noxb()
Uo.Exec("waittargettype 0x1f8d") #glass of wine
while not (UO.InJournal("Selecione um objeto")) #waiting for server input to chosse the glass of wine to poison
wait(500)
wend
Uo.DeleteJournal()
wait(1000)
While not (Uo.InJournal("Voce perdeu bastante Karma.") or Uo.InJournal("Voce fracass") or Uo.InJournal("Voce foi envenenado!")) #Waiting for server results of the poisoning trial
wait(500)
wend
wait(2000)
If ((Uo.InJournal("Voce perdeu bastante Karma.")) or (Uo.InJournal("Voce fracass"))) Then #in case of sucess in poisoning
Uo.Exec("exec drinker")
Else
UO.Exec("exec denox") #in case of failure and getting poisoned
EndIf
end sub

sub drinker()
Uo.Exec("usetype 0x1f8d") #Drinking the last poisoned glass of wine(its a buggy item so you dont get poisoned if u drink it)
wait(3000)
Uo.Exec("exec potfiller")
end sub

sub denox()
while Uo.Poisoned()
wait(2000)
Uo.Exec("waittargetself")
Uo.Exec("cast Cure")
wend
wait(3000)
Uo.Exec("exec potfiller")
end sub
----------------------------------------

This is a complete script i crafted and it works well sometimes and gets bugged other times and i really dont known why....
Sometimes i start (i just to log in and load and run it) it and it bugs and cancel targets(?!?) and gets struck and i have to restart it and sometimes even restart the client, could some one give me a hint about what's happening and how could i fix it? Thanx

OBS: The first script i tryed to craft for poison had so many GOTO that inject crashed everytime i run it lol, so i had to do it in many separeted Subs()
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/