http://yoko.netroof.net/forum/viewtopic.php?t=3013
Author or poster:_________
Dearhell, dearhell666@hotmail.com
Tested on:_______________
2.03 client, Sphere 0.55i, shard VTR ( www.coliseouo.tk )
Must work:_______________
Sphere 0.55i
Customization required:____
Yes
Description:______________
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"
Yoko comment:___________
Script isn't universal, most likely you will have many problems with it on other then author's shards
________________________
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