Yoko

vertijok · Post by **vertijok** » 2008-09-29 11:49:18

sto nado zdelati dlia avo stobi skrip nacel s naciala a ne ostanavlivalsia

MorbidAngel · Post by **MorbidAngel** » 2008-09-30 15:59:35

vertijok wrote:sto nado zdelati dlia avo stobi skrip nacel s naciala a ne ostanavlivalsia

sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub

vertijok · Post by **vertijok** » 2008-09-30 16:07:20

kuda nado vsavliati etot kusok

sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub

Code: Select all

sub Vertijok()
uo.print('!!Viberi runu damoi!! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
uo.print('!!Viberi sunduk s regami!! ') 
uo.exec('addobject Sunduk') 
while uo.targeting() 
wait(15000) 
wend 
######################################################################################
uo.print('!!Viberi runu v saxtu!! ') 
uo.exec('addobject runeCave') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
GoToMine()
repeat 
while gotoxy(2558,496,0) 
gotoxy(2560,492,0)
GetOre()
GoToHome() 
GoToMine() 
gotoxy(2564,486,0)  
gotoxy(2570,486,0) 
GetOre()
GoToHome() 
GoToMine() 
gotoxy(2576,479,0) 
GetOre()
GoToHome() 
GoToMine() 
repeat
end sub 
######################################################################################
sub GoToHome()
gotoxy(2566,481,0) 
gotoxy(2558,505,0) 
gotoxy(2552,505,0) 
gotoxy(2552,501,0)  
gotoxy(2525,501,0) 
gotoxy(2525,515,0)  
gotoxy(2507,515,0) 
gotoxy(2507,542,0) 
uo.say('bank')
regi()
wait(3000)
uo.waittargetobject('runeHome') ; äîìîé 
wait(500) 
uo.cast('Recall') 
wait(3000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
end sub 
######################################################################################
sub GoToMine()
med()
uo.waittargetobject('runeCave') ; V saxtu
wait(500)
uo.cast('Recall') 
goto reccal 
endif 
gotoxy(2558,497,0) 
end sub
######################################################################################
sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','off')
   UO.Exec('Exec Terminate')
Else
   UO.Exec('Exec Select')
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
##############################
### Êîïàåì ðóäó âîçëå ñåáÿ ###
##############################
Sub GetOre()
var mx, my, mz, i, j, CheckTime, CheckLag=0
###
var Wait_1 = "You put"
var Wait_2 = "heavy"
var Wait_3 = "Ýòî ñëèøêîì äàëåêî"
var Wait_4 = "Òóò íå îñòàëîñü ðóäû."
var Wait_5 = "Ðàçäîëáèâ íåñêîëüêî êàìíåé"
var Wait_6 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "location"
var Fizzle_3 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
For i = mx-2 TO mx+2
   For j = my-2 TO my+2
      ToHide()
      UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
         REPEAT
            CheckLag = CheckLag+1
               
                  
               EndIf
            ToHide()
               If UO.Waiting() Then 
                  UO.CancelTarget() 
               EndIf
            UO.WaitTargeTtile('1341',str(i),str(j),str(mz))
            UO.UseObject('Shovel')
            CheckTime = UO.Timer()
            UO.DeleteJournal()
               REPEAT
                  Wait(300)
               Until UO.InJournal(Wait_1) or UO.InJournal(Wait_2) or UO.InJournal(Wait_3) or UO.InJournal(Wait_4) or UO.InJournal(Wait_5) or UO.InJournal(Wait_6) or UO.InJournal(Wait_7) or UO.InJournal(Wait_8) or (CheckTime+150)<UO.Timer() or UO.Dead()
               If UO.InJournal(Wait_8) Then
                  GrabOre()
               EndIf
               If CheckLag==10 Then
                  CheckLag = 0
                  Wait(9000)
               EndIf
         Until UO.InJournal(Fizzle_1) or UO.InJournal(Fizzle_2) or UO.InJournal(Fizzle_3) or UO.InJournal(Fizzle_4) or UO.Dead()
   Next
Next
end sub

MorbidAngel · Post by **MorbidAngel** » 2008-09-30 16:36:25

vertijok wrote:kuda nado vsavliati etot kusok

sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub

Code: Select all

sub Vertijok()
uo.print('!!Viberi runu damoi!! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
uo.print('!!Viberi sunduk s regami!! ') 
uo.exec('addobject Sunduk') 
while uo.targeting() 
wait(15000) 
wend 
######################################################################################
uo.print('!!Viberi runu v saxtu!! ') 
uo.exec('addobject runeCave') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
GoToMine()
repeat 
while gotoxy(2558,496,0) 
gotoxy(2560,492,0)
GetOre()
GoToHome() 
GoToMine() 
gotoxy(2564,486,0)  
gotoxy(2570,486,0) 
GetOre()
GoToHome() 
GoToMine() 
gotoxy(2576,479,0) 
GetOre()
GoToHome() 
GoToMine() 
repeat
end sub 
######################################################################################
sub GoToHome()
gotoxy(2566,481,0) 
gotoxy(2558,505,0) 
gotoxy(2552,505,0) 
gotoxy(2552,501,0)  
gotoxy(2525,501,0) 
gotoxy(2525,515,0)  
gotoxy(2507,515,0) 
gotoxy(2507,542,0) 
uo.say('bank')
regi()
wait(3000)
uo.waittargetobject('runeHome') ; äîìîé 
wait(500) 
uo.cast('Recall') 
wait(3000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
end sub 
######################################################################################
sub GoToMine()
med()
uo.waittargetobject('runeCave') ; V saxtu
wait(500)
uo.cast('Recall') 
goto reccal 
endif 
gotoxy(2558,497,0) 
end sub
######################################################################################
sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','off')
   UO.Exec('Exec Terminate')
Else
   UO.Exec('Exec Select')
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
##############################
### Êîïàåì ðóäó âîçëå ñåáÿ ###
##############################
Sub GetOre()
var mx, my, mz, i, j, CheckTime, CheckLag=0
###
var Wait_1 = "You put"
var Wait_2 = "heavy"
var Wait_3 = "Ýòî ñëèøêîì äàëåêî"
var Wait_4 = "Òóò íå îñòàëîñü ðóäû."
var Wait_5 = "Ðàçäîëáèâ íåñêîëüêî êàìíåé"
var Wait_6 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "location"
var Fizzle_3 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
For i = mx-2 TO mx+2
   For j = my-2 TO my+2
      ToHide()
      UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
         REPEAT
            CheckLag = CheckLag+1
               
                  
               EndIf
            ToHide()
               If UO.Waiting() Then 
                  UO.CancelTarget() 
               EndIf
            UO.WaitTargeTtile('1341',str(i),str(j),str(mz))
            UO.UseObject('Shovel')
            CheckTime = UO.Timer()
            UO.DeleteJournal()
               REPEAT
                  Wait(300)
               Until UO.InJournal(Wait_1) or UO.InJournal(Wait_2) or UO.InJournal(Wait_3) or UO.InJournal(Wait_4) or UO.InJournal(Wait_5) or UO.InJournal(Wait_6) or UO.InJournal(Wait_7) or UO.InJournal(Wait_8) or (CheckTime+150)<UO.Timer() or UO.Dead()
               If UO.InJournal(Wait_8) Then
                  GrabOre()
               EndIf
               If CheckLag==10 Then
                  CheckLag = 0
                  Wait(9000)
               EndIf
         Until UO.InJournal(Fizzle_1) or UO.InJournal(Fizzle_2) or UO.InJournal(Fizzle_3) or UO.InJournal(Fizzle_4) or UO.Dead()
   Next
Next
end sub

В этом скрипте вообще ненадо делать что я написал...ищи ошибки....(скрипт Ветра помойму)

vertijok · Post by **vertijok** » 2008-09-30 17:53:05

prablema v tom sto ia etot skript peredelal on kopaet normalino no esti odno no on prohodet vse kordinati kopki to skript ostanavlivaeta a mne nado stobi on dalise kopal

MorbidAngel · Post by **MorbidAngel** » 2008-09-30 18:25:50

vertijok wrote:prablema v tom sto ia etot skript peredelal on kopaet normalino no esti odno no on prohodet vse kordinati kopki to skript ostanavlivaeta a mne nado stobi on dalise kopal

Была такаяже проблема...я не помню как я её исправил...помойму там цикла не хватало...

vertijok · Post by **vertijok** » 2008-09-30 18:38:21

nu priama nekamu pomoci mne so skriptom ( stobi skript ne ostanavlivalsi posle tavo kak on prasol vse kordinati a kopal dalise.)

vertijok · Post by **vertijok** » 2008-09-30 18:52:07

slis a ti mojesi zdelai resalku stobi esli evo ubiut o stobi on sor k resu i resalsia ress stoit v minoke i vstavi v skript

Yoko

hm

hm

Re: hm

Re: hm

Re: hm

Re: hm

Re: hm

Re: hm

Re: hm