Хелпаните с реколом в готов скрипте.

Unanswered topics | Active topics

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Хелпаните с реколом в готов скрипте.

Moderators: Murderator+, Murderator

Post new topic Reply to topic

Page 1 of 1

[ 5 posts ]

Print view

Previous topic | Next topic

Author

Message

Qualis Eram

Post subject: Хелпаните с реколом в готов скрипте.

PostPosted: 2005-06-09 03:55:18

Offline

Joined: 2005-04-16 23:33:13
Posts: 104

Привет

Не допонял чего то я? Вот тут лежит полностью этот скрипт: http://yoko.netroof.net/forum/viewtopic ... 1185#11185

Вот в нем есть система реклов и там всего 7 рун........а надо чтобы было больше!

Code:

Sub Maning() 
var Mine=1 
UO.print('!!!SELECT YOU PICKAXE!!!') 
UO.exec('addobject Shovel') 
while UO.targeting() 
wait(100) 
wend 

wait(1000) 
UO.print('!!!SELECT YOU RUNE TO HOME!!!') 
UO.exec('addobject Home') 
while UO.targeting() 
wait(100) 
wend 

wait(1000) 
UO.print('SELECT YOU RUNE TO MINE (1)') 
UO.exec('addobject Mine1') 
while UO.targeting() 
wait(100) 
wend 
#
#
#
#
#
wait(1000) 
UO.print('SELECT YOU RUNE TO MINE (7)') 
UO.exec('addobject Mine7') 
while UO.targeting() 
wait(100) 
wend 

If Reconnect==1 Then 
UO.Exec('Exec Reconnect') 
EndIf 
#
#
#
#
#
#
################### 
### Рекол домой ### 
################### 
Sub ToRecall() 
RecallToHome() 
ToHide() 
DropOre() 
CheckReg() 
If Food==1 Then 
ToEat() 
EndIf 
If Status==1 Then 
InfoOre() 
EndIf 
BackToMine() 
End sub 
######################################################## 
### Система реколов по рунам (с проверкой на прыжки) ### 
######################################################## 
Sub JumpToRune() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[7] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
RecallMana() 
If rune==maxjamp Then 
rune=1 
EndIf 
UO.Print("Go to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub BackToMine() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[7] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
If rune==1 Then 
rune=2 
EndIf 
rune=rune-1 
RecallMana() 
UO.Print("Go back to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub CheckMark() 
dim runes[7] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune: "+str(rune)) 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark',runes[rune]) 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub 
####################################################### 
### Реколимся домой по рунам (с проверкой на прыжки) ## 
####################################################### 
Sub RecallToHome() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
REPEAT 
x=x+1 
RecallMana() 
UO.Print('Go to Home') 
UO.Cast('Recall','Home') 
wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==3) or UO.Dead() 
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune") 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark','Home') 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub

Это изначально так в скрипте

Code:

Sub Maning() 
var Mine=1 
#
#
#
wait(500) 
UO.print(('SELECT YOU RUNE TO MINE (1)') 
UO.exec('addobject Mine1') 
while UO.targeting() 
wait(100) 
wend 
#
#
#
wait(500) 
UO.print(('SELECT YOU RUNE TO MINE (15)') 
UO.exec('addobject Mine15') 
while UO.targeting() 
wait(100) 
wend 
#
#
#
######################################################## 
### Система реколов по рунам (с проверкой на прыжки) ### 
######################################################## 
Sub JumpToRune() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14'
runes[15]='Mine15'
RecallMana() 
If rune==maxjamp Then 
rune=1 
EndIf 
UO.Print("Go to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub BackToMine() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14'
runes[15]='Mine15'
If rune==1 Then 
rune=2 
EndIf 
rune=rune-1 
RecallMana() 
UO.Print("Go back to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub CheckMark() 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14'
runes[15]='Mine15'
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune: "+str(rune)) 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark',runes[rune]) 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub 
####################################################### 
### Реколимся домой по рунам (с проверкой на прыжки) ## 
####################################################### 
Sub RecallToHome() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
REPEAT 
x=x+1 
RecallMana() 
UO.Print('Go to Home') 
UO.Cast('Recall','Home') 
wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==3) or UO.Dead() 
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune") 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark','Home') 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub

Вот я сделал так и почему-то доходит до 7 руны и а потом опять на первую делает Рекол! Хелпаните парни плиз?

Top

Profile

Reply with quote

Solaire

Post subject:

PostPosted: 2005-06-09 07:01:07

Offline

Joined: 2005-05-21 07:12:12
Posts: 163
Location: DRW

У тебя наверное maxjamp семи равно, а не 15.

Top

Profile

Reply with quote

Qualis Eram

Post subject:

PostPosted: 2005-06-09 07:39:01

Offline

Joined: 2005-04-16 23:33:13
Posts: 104

Solaire wrote:

У тебя наверное maxjamp семи равно, а не 15.

Code:

##########################
Var OreQty=525      ## Ìàêñèìàëüíûé âåñ ïðè êîòîðîì ×àð áóäåò äåëàòü Recall
##########################
Var maxjamp=8          ## [!] Íå èçìåíÿòü 
Var rune=1             ## [!] Íå èçìåíÿòü

Вот тут в самом начале нашел супер теперь вопрос почему написано 8 а хотя рун то 7 в скрипте изначально (может из-за того что еще один джам по руне это рекол домой на выгруз руды?)? по аналогии если у меня рун 15 то мне надо будет ставить maxjump=16 а вот эту фигню не трогать Var rune=1? И как сделать в этот скрипт проверку на лаги?

Top

Profile

Reply with quote

Solaire

Post subject:

PostPosted: 2005-06-09 10:17:58

Offline

Joined: 2005-05-21 07:12:12
Posts: 163
Location: DRW

Qualis Eram wrote:

Solaire wrote:

У тебя наверное maxjamp семи равно, а не 15.

Code:

##########################
Var OreQty=525      ## Ìàêñèìàëüíûé âåñ ïðè êîòîðîì ×àð áóäåò äåëàòü Recall
##########################
Var maxjamp=8          ## [!] Íå èçìåíÿòü 
Var rune=1             ## [!] Íå èçìåíÿòü

maxjamp и должен быть на 1 больше, так как у тебя в скрипте после рекола стоит rune=rune+1. Так что делай 16. Var rune=1 не трогай. Функция CheckLag() есть почти в каждом скрипте на этом форуме. Возьми ее из какого-нибудь и повставляй в свой скрипт в проблемные места.)

Top

Profile

Reply with quote

Qualis Eram

Post subject:

PostPosted: 2005-06-10 07:54:58

Offline

Joined: 2005-04-16 23:33:13
Posts: 104

Хелпаните еще чуток:

Code:

Sub Maning() 
var Mine=1 
# 
# 
# 
wait(500) 
UO.print(('SELECT YOU RUNE TO MINE (1)') 
UO.exec('addobject Mine1') 
while UO.targeting() 
wait(100) 
wend 
# 
# 
# 
wait(500) 
UO.print(('SELECT YOU RUNE TO MINE (15)') 
UO.exec('addobject Mine15') 
while UO.targeting() 
wait(100) 
wend 
# 
# 
# 
######################################################## 
### Система реколов по рунам (с проверкой на прыжки) ### 
######################################################## 
Sub JumpToRune() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14' 
runes[15]='Mine15' 
RecallMana() 
If rune==maxjamp Then 
rune=1 
EndIf 
UO.Print("Go to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub BackToMine() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14' 
runes[15]='Mine15' 
If rune==1 Then 
rune=2 
EndIf 
rune=rune-1 
RecallMana() 
UO.Print("Go back to Mine: "+str(rune)) 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
If UO.getx()==mx and UO.gety()==my Then 
REPEAT 
x=x+1 
RecallMana() 
UO.Cast('Recall',runes[rune]) 
Wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==2) or UO.Dead() 
EndIf 
CheckMark() 
rune=rune+1 
End sub 

Sub CheckMark() 
dim runes[15] 
runes[1]='Mine1' 
runes[2]='Mine2' 
runes[3]='Mine3' 
runes[4]='Mine4' 
runes[5]='Mine5' 
runes[6]='Mine6' 
runes[7]='Mine7' 
runes[8]='Mine8' 
runes[9]='Mine9' 
runes[10]='Mine10' 
runes[11]='Mine11' 
runes[12]='Mine12' 
runes[13]='Mine13' 
runes[14]='Mine14' 
runes[15]='Mine15' 
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune: "+str(rune)) 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark',runes[rune]) 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub 
####################################################### 
### Реколимся домой по рунам (с проверкой на прыжки) ## 
####################################################### 
Sub RecallToHome() 
var x=0 
var mx, my 
mx = UO.GetX("self") 
my = UO.GetY("self") 
REPEAT 
x=x+1 
RecallMana() 
UO.Print('Go to Home') 
UO.Cast('Recall','Home') 
wait(5000) 
Until UO.getx()<>mx and UO.gety()<>my or (x==3) or UO.Dead() 
If UO.InJournal('The recall rune is starting to fade') Then 
UO.print("Mark Rune") 
REPEAT 
UO.DeleteJournal() 
MarkMana() 
UO.Cast('Mark','Home') 
wait(5000) 
Until NOT UO.InJournal('The spell fizzles') or UO.Dead() 
UO.DeleteJournal() 
EndIf 
End sub

Вот макрос прошу вас сделайте так чтобы он реколился по руне к банку (типо руна домой) писал банк и реколился по руне в банке как раз на дроп руды.......Заранее благодарен

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 5 posts ]

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

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

Yoko

Хелпаните с реколом в готов скрипте.

Who is online