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

Buy Regs Script
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3013		 Page 1 of 1
Author:  Arsys [ 2005-02-07 00:44:20 ]
Post subject:  Buy Regs Script
Code:
###################################################
### Script Name: DearhellBuyRegs
###################################################
### Author: Dearhell / dearhell666@hotmail.com
###################################################
### Version: 1.0
###################################################
### Tested with: 2.03 client, Sphere 0.55i, shard VTR ( www.coliseouo.tk )
###################################################
### Description: Script for buying regs
###################################################
### Revision Date: 06/02/05
###################################################
### Public Release: 06/02/05
################################################### 
#How it works: The character goes recalling from shop to shop, and he buys regs on them.
#If he has not enough mana, it drinks a mana bottle. 
###################################################
### Setup Instructions: These variables must be setted up. 
###################################################
sub buyRegs()
VAR shopsQuantity=10
VAR buyListName='regs'
VAR vendorsType='0x0190'
###################################################
#Recalling is set up in order that the shop runes must start from the first Runebook spot
###################################################
VAR recallNumber=20
###################################################
VAR i=0
UO.Exec("set norbcheck 1") ;In order to recall
UO.Exec("set norbcalc 1") ;In order to recall

UO.Exec("set finddistance 3")

For i=1 to shopsQuantity
   UO.Recall('magery',recallNumber)
   wait(3000)
   UO.Useskill('Meditation')
   wait(3000)
   UO.FindType(vendorsType,-1,'ground')
   If (UO.GetName('finditem')==UO.GetName()) then
      UO.Print('We delete the character name from the search list')
      UO.Ignore('finditem')
      UO.FindType(vendorsType,-1,'ground')
      wait(5000)
   endIf
   UO.Print('We buy regs from -> '+UO.GetName('finditem'))
   wait(1000)
   UO.Say('Hi '+UO.GetName('finditem'))
   wait(2000)
   UO.Buy(buyListName,UO.GetName('finditem'))
   wait(2000)
   if (UO.Mana<15) then
      UO.UseType('mana')
   EndIf
   recallNumber=recallNumber+2
Next
UO.Recall('magery',recallNumber)
UO.Exec("set finddistance 14")
UO.IgnoreReset()
End Sub
Author:  BETEPAH [ 2005-02-07 09:31:29 ]
Post subject: 
Это скрипт на покупку регов в магазинах....Но что то мне подсказывает что там чегото не хватает. Скрипт явно не полный.
Author:  Arsys [ 2005-02-07 17:23:52 ]
Post subject: 
Quote:
This script to the purchase of regov in the stores....No that that to me prompts that there chegoto it does not be sufficient. Script is not clearly complete.


I can't understand well this translation of your words, can you explain again what has the script not clearly enough in order to improve it?
Author:  autopilot [ 2005-02-08 05:32:32 ]
Post subject: 
Arsys wrote:
I can't understand well this translation of your words, can you explain again what has the script not clearly enough in order to improve it?


The BETEPAH has told that your script on purchase of the reagents, not full and in it something does not suffice. On ours shard it will not work.
Author:  BETEPAH [ 2005-02-08 09:14:25 ]
Post subject: 
Если кому интересно.
Прошу потестить. Меня смутило каст на руны.......что то там не чисто.
А так скрипт очень даже не очень.
Author:  Arsys [ 2005-02-08 11:15:11 ]
Post subject: 
Oh, I forget to say in the script that you have to add an object called 'magery' in order to the PJ uses it to recall to de magery shops.

I will fix it later then, may be that was the problem.
Author:  Askaneli [ 2005-02-08 11:40:43 ]
Post subject: 
Вендоры бывают 2 х типов
'0x0190' и '0x0191'
И игроки бывают тех же типов
Вендоры не стоят на месте к ним зачастую надо подходить.
Вендор не 1 в магазине. до 5 бывает, всё зависит от шарда.
Перезарядки рунбуки нет.

Исправляй.
Author:  Arsys [ 2005-02-10 17:44:00 ]
Post subject: 
Version 1.1

New features in this version:

* You can select now the runebook when you execute the script.
* If they are near, the character will buy in all the vendors of the shop.
* Added support for one more vendor type.

Code:
###################################################
### Script Name: Buy Regs
###################################################
### Author: Dearhell / dearhell666@hotmail.com
###################################################
### Version: 1.1
###################################################
### Tested with: 2.03 client, Sphere 0.55i, shard VTR ( www.coliseouo.tk )
###################################################
### Description: Script for buying regs
###################################################
### Revision Date: 10/02/05
###################################################
### Public Release: 06/02/05
################################################### 
#How it works: The character goes recalling from shop to shop, and he buys regs on them.
#If he has not enough mana, he drinks a mana bottle. 
###################################################
### Setup Instructions: 
### Select the runebook you are going to use.
### The runes must be in this order: First spot: magery shop 1, Second spot, magery shop 2
### . . . n Spot Rune to your home. I.e: Spot 1: britain, spot 2: magincia, spot 3: vesper,
### spot 4: home
### Comment these lines after the first time you use the script, because you only need to add your
### runebook the first time you run the script.
###################################################
sub buyRegs()
UO.Print('Add the Runebook you are going to use')
UO.AddObject('magery')
while UO.Targeting()
   wait(200)
wend
UO.Print('Runebook selected')
UO.SaveConfig()
###################################################
### These variables must be setted up. 
###################################################
VAR shopsQuantity=9 ;the number of shops you have in your runebook
VAR buyListName='regs' ;the name of your buy list
###################################################
#Recalling is set up in order that the shop runes must start from the first Runebook spot
###################################################
VAR recallNumber=20
###################################################
Dim vendorType[2]
vendorType[1]='0x0190'
vendorType[2]='0x0191'
VAR i=0
VAR x
shopsQuantity=ShopsQuantity+1
UO.Exec("set norbcheck 1") ;In order to recall
UO.Exec("set norbcalc 1") ;In order to recall

UO.Exec("set finddistance 3")

For i=1 to shopsQuantity
   UO.Recall('magery',recallNumber)
   wait(3000)
   UO.Useskill('Meditation')
   wait(3000)
   For x=1 to 2
      repeat
         UO.FindType(vendorType[x],-1,'ground')
         If (UO.GetName('finditem')==UO.GetName()) then
            UO.Print('We delete the character name from the search list')
            UO.Ignore('finditem')
            UO.FindType(vendorType[x],-1,'ground')
            wait(5000)
         endIf
         if UO.FindCount()<>0 then
            UO.Print('We buy regs from -> '+UO.GetName('finditem'))
            wait(1000)
            UO.Say('Hi '+UO.GetName('finditem'))
            wait(2000)
            UO.Buy(buyListName,UO.GetName('finditem'))
            wait(2000)
            UO.Ignore('finditem')
         EndIf
      Until UO.FindCount()==0
   Next
   if (UO.Mana<15) then
      UO.UseType('mana')
   EndIf
   recallNumber=recallNumber+2
Next
UO.Recall('magery',recallNumber)
UO.Exec("set finddistance 14")
UO.IgnoreReset()
End Sub   
Author:  HellFire [ 2005-02-15 20:24:49 ]
Post subject: 
У мну почемуто не хочет рекалиться по рунбуку...он его открывает и сразу начинает медетировать и не реколится...
Author:  Arsys [ 2005-02-15 23:46:48 ]
Post subject: 
HellFire wrote:
У мну почемуто не хочет рекалиться по рунбуку...он его открывает и сразу начинает медетировать и не реколится...


# Recalling is set up in order that the shop runes must start from the first Runebook spot
###################################################
VAR recallNumber=20

May be you have to set up this number, In my shard the first rune on a Runebook starts with the number 20 (You can see that recalling to the first place of any of your runebooks, and translating the final number that appears on ,infogump from hexadecimal to decimal).

As I said, that number it depends of the shard, I'm not sure, try that.
Author:  HellFire [ 2005-02-16 16:29:36 ]
Post subject: 
Arsys wrote:
HellFire wrote:
У мну почемуто не хочет рекалиться по рунбуку...он его открывает и сразу начинает медетировать и не реколится...


# Recalling is set up in order that the shop runes must start from the first Runebook spot
###################################################
VAR recallNumber=20

May be you have to set up this number, In my shard the first rune on a Runebook starts with the number 20 (You can see that recalling to the first place of any of your runebooks, and translating the final number that appears on ,infogump from hexadecimal to decimal).

As I said, that number it depends of the shard, I'm not sure, try that.

Ok,I will try :wink:
Author:  rOOks [ 2005-02-19 20:21:11 ]
Post subject: 
xo como puedes ser tan puto noob de mierda arronchado de los cojones

me cagon hasta en tus muertos eres la cosa mas noob ke he visto jugando al ultima online desgraciao ke eres mas malo en pvp ke mi awela manca cacho hijo de la gran puta. encima el nota se jarta a poner scripts k no son suyos sera hijo de la gran puta


manda cojones lo k hay k ver
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/