Code: Select all
###################################################
### Script Name: DearhellEmptyBottles
###################################################
### Author: Dearhell / dearhell666@hotmail.com
###################################################
### Version: 1.0
###################################################
### Tested with: 2.03 client, Sphere 0.55i, shard VTR ( www.coliseouo.tk )
###################################################
### Description: Script for making empty bottles
###################################################
### Revision Date: 06/01/05
###################################################
### Public Release: 06/01/05
###################################################
#How it works: The script calculates the maximum weight that you can carry on, and in order to that,
#it picks up the iron from the flour. Then, while you have iron enough, it makes the bottles and when #you have no more iron for that, it drops the bottles on a container and it pick ups again iron from #the ground. The script can be stopped saying "stop making bottles"
###################################################
### Setup Instructions: These variables must be setted up.
###################################################
sub bottles()
VAR chestID='0x4000D56E' ;The chest's ID where you want to drop the bottles
VAR tinkeringTools='0x1EBC' ;The tinkeringTools' type
VAR iron='0x1BEF' ;The iron's type
VAR bottles='0x0F0E' ;The bottles' type
###################################################
VAR maxWeight=((UO.STR*4)-UO.Weight)/2 #it calculates the maximum weight that we can carry on
VAR stop=0
UO.Exec("set finddistance 1")
UO.CancelMenu()
UO.AutoMenu('Tinkering','Tools')
UO.AutoMenu('Tools','empty')
while stop<>1
maxWeight=((UO.STR*4)-UO.Weight)/2
UO.FindType(iron,-1,'ground')
UO.Grab(maxWeight,"finditem")
wait(1000)
While UO.Count(Iron)>=2 AND stop<>1
UO.UseType(tinkeringTools)
UO.DeleteJournal()
repeat
if UO.InJournal('stop making bottles') then
stop=1
EndIf
wait(200)
until UO.InJournal('You put') OR UO.InJournal('You fail')
Wend
UO.Findtype(bottles,-1,'backpack')
UO.MoveItem('finditem',UO.Count(bottles),chestID)
UO.Print('Moving '+STR(UO.Count(bottles))+' bottles into the chest')
wait(1000)
wend
UO.CancelMenu()
UO.Exec("set finddistance 14")
end sub