Yoko

All sides of Injection
https://yoko.uokit.com/

mining

https://yoko.uokit.com/viewtopic.php?t=14086

Page 1 of 1

mining

Posted: 2008-10-21 14:18:11
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

Posted: 2008-10-21 15:24:02
by Millerbeer
Ппц...Как он ваще работает? Goto из одной функциии в другую :D , Repeat без Until... Ппц... Тут блин долбишься, скрипты вылизываешь, и один хрен ошибки вылетают... А тут, блин, такое произведение и пашет :shock: :shock: :shock: Я в шоке!!! Пойду пива напьюсь с горя :cry:

Posted: 2008-10-22 10:40:31
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

Posted: 2008-11-08 22:23:07
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:

Posted: 2008-11-09 00:20:16
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


Почисти скрипт, удали "аппендиксы". Желаю удачи в отлаживании данного скрипта.

Posted: 2008-11-09 10:35:50
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"
###

Posted: 2008-11-09 18:19:33
by ADEPT_ABP
мне надо штобы было написано по английски

Чего именно? :shock:
Если это
"Ýòî ñëèøêîì äàëåêî îòñþäà."
то ничем не поможем.

Re: mining

Posted: 2008-11-09 18:32:40
by Cornor
vertijok wrote:kamu ne leni pomogite PPPPLLLLIIIIZZZZ??? :(

..........



Аську свою оставь или в личку кинь ...

Posted: 2008-11-09 23:29:23
by vertijok
ADEPT_ABP wrote:
мне надо штобы было написано по английски

Чего именно? :shock:
Если это
"Ýòî ñëèøêîì äàëåêî îòñþäà."
то ничем не поможем.
wait-4 mne nado perevesti
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited