Page 1 of 1
Buy Regs Script
Posted: 2005-02-07 00:44:20
by Arsys
Code: Select all
###################################################
### 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
Posted: 2005-02-07 09:31:29
by BETEPAH
Это скрипт на покупку регов в магазинах....Но что то мне подсказывает что там чегото не хватает. Скрипт явно не полный.
Posted: 2005-02-07 17:23:52
by Arsys
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?
Posted: 2005-02-08 05:32:32
by autopilot
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.
Posted: 2005-02-08 09:14:25
by BETEPAH
Если кому интересно.
Прошу потестить. Меня смутило каст на руны.......что то там не чисто.
А так скрипт очень даже не очень.
Posted: 2005-02-08 11:15:11
by Arsys
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.
Posted: 2005-02-08 11:40:43
by Askaneli
Вендоры бывают 2 х типов
'0x0190' и '0x0191'
И игроки бывают тех же типов
Вендоры не стоят на месте к ним зачастую надо подходить.
Вендор не 1 в магазине. до 5 бывает, всё зависит от шарда.
Перезарядки рунбуки нет.
Исправляй.
Posted: 2005-02-10 17:44:00
by Arsys
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: Select all
###################################################
### 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
Posted: 2005-02-15 20:24:49
by HellFire
У мну почемуто не хочет рекалиться по рунбуку...он его открывает и сразу начинает медетировать и не реколится...
Posted: 2005-02-15 23:46:48
by Arsys
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.
Posted: 2005-02-16 16:29:36
by HellFire
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
Posted: 2005-02-19 20:21:11
by rOOks
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