mining

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
vertijok
Posts: 117
Joined: 2008-09-26 17:06:16
Contact:
Contact vertijok

mining

Post by vertijok »

kamu ne leni pomogite PPPPLLLLIIIIZZZZ??? :(
prablema vot v ciom on kogda rekolita v saxtu to vmesta tavo stobi on vstal v hide i nacenal kopati, on nacenal snaciala medetirovati a potom stanovita v haid i nacinait kopati ispravte pliz kamu ne leni???
BUDU BLAGODARIN :D :)

Code: Select all

sub Vertijok()
UO.Print("!!Viberi kirku!!")
UO.Exec('addobject Shovel')
While UO.targeting()
	Wait(3000)
Wend
uo.print('!!Viberi runu damoi!! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(15000) 
wend 
######################################################################################
uo.print('!!Viberi sunduk s regami!! ') 
uo.exec('addobject Sunduk') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
uo.print('!!Viberi runu v saxtu!! ') 
uo.exec('addobject runeCave') 
while uo.targeting() 
wait(100) 
wend 
######################################################################################
GoToMine()
repeat 
while not uo.dead() 
GoToMine()  
gotoxy(2562,491,0) 
GetOre() 
GoToHome() 
GoToMine()
gotoxy(2558,497,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2560,493,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2563,488,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2565,483,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2570,480,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2575,477,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2578,480,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2573,483,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2570,486,0) 
GetOre() 
GoToHome() 
wend 
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')
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()
uo.waittargetobject('runeCave') ; V saxtu
med()
regi()
wait(500)
uo.cast('Recall') 
goto reccal 
endif
wait(5000)
gotoxy(2558,497,0) 
end sub
######################################################################################
sub Start()
If 	UO.GetGlobal('MiningCheck')=='on' Then
	UO.SetGlobal('MiningCheck','on')
	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 = "but fail"
var Wait_6 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "Ýòî ñëèøêîì äàëåêî îòñþäà."
var Fizzle_3 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
For i = mx-3 TO mx+3
	For j = my-3 TO my+3
		Hide()
		UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
			REPEAT
				CheckLag = CheckLag+1
					
						
					EndIf
				Hide()
					If UO.Waiting() Then 
						UO.Targeting()
					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
						
					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
REPEAT
end sub
######################################################################################
sub loot() 
hide()
uo.UseSkill('Stealth') 
wait(3000) 
begin: 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x412546E4' ; ID sunduka 
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
Exit=0 
repeat 
UO.FindType(Ore[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
uo.print('vigruzili vsiu rudu pora kopati dalise???')
end sub 
#######################
### Ïðÿ÷èìñÿ â õàéä ###
#######################
sub hide()
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Nikaimsia") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
######################################################################################

######################################################################################
sub med()
VAR LastTimer 
UO.DeleteJournal() 
while UO.Mana<UO.Int 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(200) 
wend 
end sub
######################################################################################
sub regi() 
VAR r, q, n, amount = 5
Dim reg[4] 
reg[1] = '0x0F7A' 
reg[2] = '0x0F7B' 
reg[3] = '0x0F86' 
reg[4] = '0x0E21'

 For r = 1 to 4 
 if uo.count( reg[r] )<>amount then 
  q = amount - uo.count( reg[r] ) 

   if q <> 0 then 
     if q > 0 then 

      uo.useobject("Sunduk")
      
      wait(250) 
     

      uo.findtype( reg[r] , -1 ,"Sunduk") 

       If uo.findcount() == 0 then 
        uo.msg('Ia vzial regi!') 
        return 
       endif 

      uo.moveitem('finditem', STR(q) ) 
      wait(1000) 
        else 

      q = q*-1 
     uo.findtype( reg[r] ) 
     uo.moveitem('finditem', STR(q) ,"Sunduk")
     
     wait(1000) 

     endif 
   endif 

 endif 
 next 

  While uo.Count('0x0F09','0x0060') < 2 
   uo.findtype('0x0F09','0x0060',"Sunduk") 
   if uo.FindCount() then 
     uo.moveitem('finditem') 
     checklag() 
     wait(1000) 
   endif 
  wend 

uo.print('Vziali regi ...') 
end sub 
######################################################################################
sub Kill() 
var Count,LastTimer,Golem
var o,exit 
dim Ore[13] 
Ore[1]=0x19B9 
Ore[2]=0x19B7  
Ore[3]=0x19BA  
Ore[4]=0x19B8  
Ore[5]=0x0F11  
Ore[6]=0x0F16  
Ore[7]=0x0F18  
Ore[8]=0x0F15  
Ore[9]=0x0F10  
Ore[10]=0x0F0F  
Ore[11]=0x0F26  
Ore[12]=0x1F4C  
Ore[13]=0x0EED 
hide()
while uo.STR<uo.Life+1 
if uo.Mana>=50 then 
uo.WaitMenu('What','Daemon') 
uo.Cast('Polymorph') 
wait(8000) 
else 
med()
wait(3000) 
end if 
wend 
LastTimer=uo.Timer() 
repeat 
uo.BandageSelf() 
wait(4000) 
until uo.Life==uo.STR or LastTimer+300<uo.Timer() 
uo.UseType('0x1B76') ## - Õåàòåð Ùèò(òèï). 
uo.DeleteJournal() 
uo.Exec('warmode 1') 
uo.FindType('0x0010',-1,'ground') 
Elemental=uo.GetSerial('finditem') 
uo.Attack(Golem) 
repeat 
wait(1000) 
if uo.Life<50 Then 
uo.Bandageself()
end if 
if uo.GetDistance(Golem)>1 then 
gotoxy(0,0,'finditem') 
end if 
until uo.IsNPC(Golem)==0 
wait(3000) 
uo.Exec('warmode 0') 
wait(1000) 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
for o=1 to 13 
exit=0 
repeat 
uo.FindType(Ore[o],-1,'ground') 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
exit=1 
end if 
until exit==1 
next 
### uo.Exec('warmode 1') 
uo.Exec('warmode 0') 
uo.Exec('exec Mining') 
end sub
####################################
### Ñìîòðèì ñêîêà íàêîïàëè ðóäû. ###
####################################
Sub InfoOre()
var i, ii, a, LogsTime=PrintTime()
Dim Ore[3]
    Ore[0] = '0x19B9' ; 4 and more ore
    Ore[1] = '0x19B8' ; 3 ore
    Ore[2] = '0x19BA' ; 2 ore
    Ore[3] = '0x19B7' ; 1 ore

Dim NameOre[13]
    NameOre[0]  = 'Iron'
    NameOre[1]  = 'Cooper'
    NameOre[2]  = 'Agapite'
    NameOre[3]  = 'Golden'
    NameOre[4]  = 'Orion'
    NameOre[5]  = 'Verite'
    NameOre[6]  = 'Dwarf'
    NameOre[7]  = 'Silver'
    NameOre[8]  = 'Shadow'
    NameOre[9]  = 'Valorite'
    NameOre[10] = 'Crystal'
    NameOre[11] = 'Magma'
    NameOre[12] = 'Obsidian'
    NameOre[13] = 'Mytheril'

Dim ColorOre[13]
    ColorOre[0]  = '0x0000'
    ColorOre[1]  = '0x0641'
    ColorOre[2]  = '0x0400'
    ColorOre[3]  = '0x084d'
    ColorOre[4]  = '0x048a'
    ColorOre[5]  = '0x07d1'
    ColorOre[6]  = '0x0488'
    ColorOre[7]  = '0x0482'
    ColorOre[8]  = '0x0770'
    ColorOre[9]  = '0x0515'
    ColorOre[10] = '0x0487'
    ColorOre[11] = '0x0486'
    ColorOre[12] = '0x0485'
    ColorOre[13] = '0x048d'
UO.TextOpen()
UO.TextPrint("#####################")
UO.TextPrint("## Âðåìÿ: "+LogsTime+" ##")
UO.TextPrint("#####################")
For i = 0 TO 3
	For ii = 0 TO 13
		
		If a<>0 Then
   			UO.TextPrint(NameOre[ii]+" Ore: "+STR(a))
		EndIf
	Next
Next
UO.TextPrint("#####################")
end sub

Sub GetAmount(Type,Color,Cont)
var item_amount = 0
UO.IgnoreReset()
REPEAT
UO.FindType(Type, Color, Cont)
	If UO.FindCount() Then
		If UO.GetQuantity('finditem')==0 Then
			item_amount = item_amount + 1
		Else
			item_amount = item_amount + UO.GetQuantity('finditem')
		EndIf
		UO.Ignore('finditem')
		UO.FindType(Type, Color, Cont)
	EndIf
Until UO.FindCount()==0 or UO.Dead()
UO.IgnoreReset()
Return item_amount
end sub
##############
### ×àñèêè ###
##############
Sub PrintTime()
var HR  = ''
var MIN = ''
var SEC = ''
var CurrentTime = UO.Time()  
If CurrentTime>99999 Then
	HR  = Mid(STR(CurrentTime),0,2)
	MIN = Mid(STR(CurrentTime),2,2)
	SEC = Mid(STR(CurrentTime),4,2) 
Else 
	If CurrentTime > 9999 Then
		HR  = '0'+Mid(STR(CurrentTime),0,1)
		MIN = Mid(STR(CurrentTime),1,2)
		SEC = Mid(STR(CurrentTime),3,2) 
	Else 
		If CurrentTime > 999 Then 
			HR  = '00'
			MIN = Mid(STR(CurrentTime),0,2)
			SEC = Mid(STR(CurrentTime),2,2) 
		Else 
			If CurrentTime > 99 Then
				HR  = '00'
				MIN = '0'+Mid(STR(CurrentTime),0,1)
				SEC = Mid(STR(CurrentTime),1,2) 
			Else 
				If CurrentTime > 9  Then 
					HR  = '00' 
					MIN = '00'  
					SEC = STR(CurrentTime) 
				Else 
				HR  = '00' 
				MIN = '00'  
				SEC = '0'+STR(CurrentTime)          
				EndIf 
			EndIf 
		EndIf 
	EndIf 
EndIf 
Return (HR+':'+MIN+':'+SEC)   
end sub
Top
Millerbeer
Posts: 247
Joined: 2008-09-12 05:07:34

Post by Millerbeer »

Ппц...Как он ваще работает? Goto из одной функциии в другую :D , Repeat без Until... Ппц... Тут блин долбишься, скрипты вылизываешь, и один хрен ошибки вылетают... А тут, блин, такое произведение и пашет :shock: :shock: :shock: Я в шоке!!! Пойду пива напьюсь с горя :cry:
Top
vertijok
Posts: 117
Joined: 2008-09-26 17:06:16
Contact:
Contact vertijok

Post by vertijok »

Millerbeer wrote:Ппц...Как он ваще работает? Goto из одной функциии в другую :D , Repeat без Until... Ппц... Тут блин долбишься, скрипты вылизываешь, и один хрен ошибки вылетают... А тут, блин, такое произведение и пашет :shock: :shock: :shock: Я в шоке!!! Пойду пива напьюсь с горя :cry:
ia etot skript zaibalsia delati, peredelati no esti odno no, na oskome rabotait vsio putiom a na oskome free rabotaet ne oceni tak kak nada
Top
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:
Contact ZeroDX

Post by ZeroDX »

Code: Select all

GoToMine() 
repeat 
while not uo.dead() 
GoToMine()  
gotoxy(2562,491,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2558,497,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2560,493,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2563,488,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2565,483,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2570,480,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2575,477,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2578,480,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2573,483,0) 
GetOre() 
GoToHome() 
GoToMine() 
gotoxy(2570,486,0) 
GetOre() 
GoToHome() 
wend 
end sub
А это можно заменить так:

Code: Select all

Sub Mining()
 Var a
 Dim Coor[2]
  Coor[0] = '1801 1800 1799 1799 1802 1807 1811 1805 '
  Coor[1] = '1048 1051 1054 1060 1059 1056 1055 1048 '
  While not UO.Dead()
    For a = 1 to 8
      Walker(val(GetWord(Coor[0], a)), val(GetWord(Coor[1], a)), 0)
      Wait(100)
      MiningAround()
    Next
  Wend
EndSub
:lol:
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

Code: Select all

sub GoToMine()
uo.waittargetobject('runeCave') ; ловушка на caverune
med() ; функция(процедура) медитации
regi() ; функция(процедура) реги
wait(500)
uo.cast('Recall') ; каст Реколл
goto reccal ; Переход на метку reccal -?
endif ; -?
wait(5000)
gotoxy(2558,497,0) ; Идём на координаты ....
end sub
Вопрос:
1. Неужели можно перейти на метку из одной функции(процедура) в другую?
2. Endif - вижу, а где if ... then ?

Code: Select all

sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','on')
   UO.Exec('Exec Terminate') ; Выключаем функцию(процедура) - ?
Else
   UO.Exec('Exec Select') ; Запускаем функцию(процедура) Select - ?
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
Вопрос:
1. Ты какую функцию(процедура) выключаешь? Вообще как, в данном случае работает Terminate?
2. Когда включается функция(процедура) Select, у тебя случайно в этот же момент не запущена(работает) ещё какая-нибудь функция(процедура)?

Code: Select all

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 = "but fail"
var Wait_6 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "Ýòî ñëèøêîì äàëåêî îòñþäà."
var Fizzle_3 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
 For i = mx-3 TO mx+3
  For j = my-3 TO my+3
   Hide()
    UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
   REPEAT
     CheckLag = CheckLag+1
               
                  
       EndIf ;  - вижу, а где if ... then ?
        Hide()
     If UO.Waiting() Then
       UO.Targeting()
     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
                  ; а где????
         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
REPEAT  ; зачем оно тут?
end sub
Почисти скрипт, удали "аппендиксы". Желаю удачи в отлаживании данного скрипта.
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Top
vertijok
Posts: 117
Joined: 2008-09-26 17:06:16
Contact:
Contact vertijok

Post by vertijok »

ADEPT_ABP wrote:

Code: Select all

sub GoToMine()
uo.waittargetobject('runeCave') ; ловушка на caverune
med() ; функция(процедура) медитации
regi() ; функция(процедура) реги
wait(500)
uo.cast('Recall') ; каст Реколл
goto reccal ; Переход на метку reccal -?
endif ; -?
wait(5000)
gotoxy(2558,497,0) ; Идём на координаты ....
end sub
Вопрос:
1. Неужели можно перейти на метку из одной функции(процедура) в другую?
2. Endif - вижу, а где if ... then ?

Code: Select all

sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','on')
   UO.Exec('Exec Terminate') ; Выключаем функцию(процедура) - ?
Else
   UO.Exec('Exec Select') ; Запускаем функцию(процедура) Select - ?
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
Вопрос:
1. Ты какую функцию(процедура) выключаешь? Вообще как, в данном случае работает Terminate?
2. Когда включается функция(процедура) Select, у тебя случайно в этот же момент не запущена(работает) ещё какая-нибудь функция(процедура)?

Code: Select all

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 = "but fail"
var Wait_6 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "Ýòî ñëèøêîì äàëåêî îòñþäà."
var Fizzle_3 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
 For i = mx-3 TO mx+3
  For j = my-3 TO my+3
   Hide()
    UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
   REPEAT
     CheckLag = CheckLag+1
               
                  
       EndIf ;  - вижу, а где if ... then ?
        Hide()
     If UO.Waiting() Then
       UO.Targeting()
     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
                  ; а где????
         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
REPEAT  ; зачем оно тут?
end sub
Почисти скрипт, удали "аппендиксы". Желаю удачи в отлаживании данного скрипта.
я его зделал токо у меня сечас волнует другая праблема мне надо штобы было написано по английский

Code: Select all

var Wait_1 = "You put"
var Wait_2 = "heavy"
var Wait_3 = "Ýòî ñëèøêîì äàëåêî îòñþäà."  ; Чтобы тут было читабельно, надо скрипт открыть блокнотом, выделить всё и скопировать.
var Wait_4 = "Òóò íå îñòàëîñü ðóäû."
var Wait_5 = "but fail"
var Wait_6 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "Ýòî ñëèøêîì äàëåêî îòñþäà."
var Fizzle_3 = "Òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

мне надо штобы было написано по английски
Чего именно? :shock:
Если это
"Ýòî ñëèøêîì äàëåêî îòñþäà."
то ничем не поможем.
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Top
Cornor
Posts: 67
Joined: 2005-06-07 21:05:18

Re: mining

Post by Cornor »

vertijok wrote:kamu ne leni pomogite PPPPLLLLIIIIZZZZ??? :(

..........
Аську свою оставь или в личку кинь ...
Top
vertijok
Posts: 117
Joined: 2008-09-26 17:06:16
Contact:
Contact vertijok

Post by vertijok »

ADEPT_ABP wrote:
мне надо штобы было написано по английски
Чего именно? :shock:
Если это
"Ýòî ñëèøêîì äàëåêî îòñþäà."
то ничем не поможем.
wait-4 mne nado perevesti
Top
Post Reply

Return to “Scripting Ore”