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

Inscript : The Best Version I Think
http://forum.yoko.com.ua/viewtopic.php?f=20&t=941		 Page 1 of 1
Author:  Admeral [ 2004-07-22 12:00:02 ]
Post subject:  Inscript : The Best Version I Think
sub Inscription()
VAR Sunduk = '0x4020785C'
VAR Blanki = '0x0E34'
VAR Redysc = '0x1F40'
VAR Kolvo = 200
While TRUE
UO.FindType( Blanki, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Blank Scrolls Not Found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Blanki ) > 0
UO.DeleteJournal()
UO.CancelMenu()
UO.Exec("waitmenu 'Spell Circles' 'Third Circle' 'Spell Circle 3' Poison")
UO.Exec("usetype 0x0e34")
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Redysc ) > 0 then
UO.FindType( Redysc, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'scrol moved' )
end if
Wend
Wend
end sub


the script is taking blank scrolls from a chest (Sunduk) making Poison Scrolls (Redysc) and puting them back to the chest!!!

don yell its my first one not 100% my work but 80%-85% )
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/