Yoko

All sides of Injection
It is currently 2024-03-28 17:44:24

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2005-02-16 17:35:21 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1964
Discussion:______________
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:
###################################################
### 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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited