Может есть у кого скрипт на мининг, но без реколов и тому подобного.
Чтобы пешком дошол до шахты, обкопал ее, вернулся, выложил руду и снова в шахту. Все варианты скриптов в випках перепробовал, неподходят.
Ищу скрипт на мининг
Moderators: Murderator+, Murderator
-
The_best_miner
- Posts: 34
- Joined: 2006-12-31 12:56:32
- Contact:
Code: Select all
VAR Pickaxe="0x0f39"
VAR X,Y,Stoplocation = 0
VAR ItemBB="0x19b9"
VAR PickAxeCC=3
VAR MoveDelay=2500,MoveNumber=1,Ep=0.001,XN = 1117,YN = 1462
VAR Maxcountpick=14 #ìàêñèìàëüíîå êîëè÷åñòâî ïîïûòîê êîïàòü
VAR KolScrolls=0
VAR Master="AeR"
VAR selfname="Mama"
VAR Box="0x400FA8A8"
VAR Box_from_instruments="0x400FA8A9"
sub start()
main()
end sub
sub main()
VAR e,eTemp,Minestatus=0
uo.addobject("Box",Box)
uo.addobject("Box_from_instruments",Box_from_instruments)
preload()
while 1==1
if Getlocation()<>0 then
gobase()
end if
while checkinv()==0
wait(150)
wend
bandageself()
uo.setglobal("Status","OK")
Uo.deletejournal()
wait(200)
gomine()
uo.print("gomine cicle end!")
repeat
eTemp=0
repeat
e=Change_point_coordinates()
eTemp=gotoxy(val(uo.getglobal("X")),val(uo.getglobal("Y")),1)
until eTemp<>1
Minestatus=mine()
uo.print("Minestatus= "+str(Minestatus))
if Minestatus==1 then
gobase()
end if
if Minestatus==2 then
uo.exec("exec bandageself")
gobase()
end if
until Minestatus==1 or Minestatus==2
wend
end sub
Sub mine()
var Tim,Jurn,HP,countpick=0
Dim Ñliloc[10]
Ñliloc[0]="cliloc# 0xA867"
Ñliloc[1]="cliloc# 0xAD03"
Ñliloc[2]="cliloc# 0xAD00"
Ñliloc[3]="cliloc# 0x6B31"
Ñliloc[4]="cliloc# 0xEE46"
Ñliloc[5]="cliloc# 0x5DE1"
Ñliloc[6]="cliloc# 0x5DE6"
Ñliloc[7]="cliloc# 0xA2DE"
Ñliloc[8]="cliloc# 0xACF9"
Ñliloc[9]="cliloc# 0xA866"
Ñliloc[10]="cliloc# 0xA20D"
HP=Uo.GetHP()
REPEAT
Uo.waitTargetTile(uo.getglobal("T"),uo.getglobal("X"),uo.getglobal("Y"),uo.getglobal("Z"))
Uo.usetype(Pickaxe)
wait(2100)
Tim = Uo.Timer()
REPEAT
wait(150)
Jurn=Uo.Journal(0)
UNTIL Uo.Timer()-Tim>40 or not Uo.Weight<470 or Jurn == Ñliloc[1] or Jurn == Ñliloc[2] or Jurn == Ñliloc[3] or Jurn == Ñliloc[4] or Jurn == Ñliloc[0] or Jurn == Ñliloc[9] or Jurn == Ñliloc[10] or Uo.GetHP()<HP
countpick=countpick+1
UNTIL Jurn == Ñliloc[3] or not Uo.Weight <470 or Jurn == Ñliloc[2] or Uo.count(Pickaxe)==0 or Jurn == Ñliloc[7] or Jurn == Ñliloc[0] or Jurn == Ñliloc[9] or Jurn == Ñliloc[10] or Uo.GetHP()<HP or countpick>=Maxcountpick
IF (Jurn == Ñliloc[2] or Jurn == Ñliloc[0] or Jurn == Ñliloc[7] or Jurn == Ñliloc[9] or countpick>=Maxcountpick ) and not Uo.GetHP()<HP then
Uo.Print("No metal !!!")
Return 0
end if
if Uo.GetHP()<HP or uo.injournal("121") then
uo.textopen()
uo.textprint("alert at "+time())
uo.textprint(uo.getglobal("T")+"$$$"+uo.getglobal("X")+"$$$"+uo.getglobal("Y")+"$$$"+uo.getglobal("Z"))
Return 2
end if
Return 1
Uo.deletejournal()
wait(200)
end sub
Sub CheckINV()
uo.addobject("Box",Box)
uo.addobject("Box_from_instruments",Box_from_instruments)
gobase()
uo.say("bank")
wait(2000)
Uo.useobject("Box_from_instruments")
wait(2000)
Uo.useobject("Box")
wait(2000)
Uo.useobject("backpack")
wait(2000)
while Uo.count(ItemBB)
Uo.findtype(ItemBB)
Uo.moveitem("finditem","0","Box")
wait(700)
wend
while uo.count(Pickaxe)<3 #or uo.count("0x1f4c")< KolScrolls
Uo.findtype(Pickaxe,"-1","Box_from_instruments")
wait(500)
IF Uo.findCount()>(PickaxeCC-Uo.count(Pickaxe)) then
while Uo.count(Pickaxe)<PickaxeCC
Uo.grab(STR(PickaxeCC-Uo.count(Pickaxe)),"finditem")
wait(700)
Uo.findtype(Pickaxe,"-1","Box_from_instruments")
wend
else
wait(3000)
end if
wait(700)
wend
if Uo.count("0x0e21")<20 then
Uo.findtype("0x0e21","-1","Box_from_instruments")
Uo.grab(str(20-Uo.count("0x0e21")),"finditem")
wait(700)
end if
Informer()
end sub
Sub preload()
VAR iPath,iPoint
DIM Path[50],Point[500]
Path[0]="0 2512 551 0"
Path[1]="0 2515 543 0"
Path[2]="0 2522 537 0"
Path[3]="0 2528 536 0"
Path[4]="0 2528 521 0"
Path[5]="0 2528 519 0"
Path[6]="0 2526 508 15"
Path[7]="0 2525 507 15"
Path[8]="0 2525 502 15"
Path[9]="0 2527 501 15"
Path[10]="0 2527 501 15"
Path[11]="1852 2528 501 15"
Path[12]="1852 2530 501 25"
Path[13]="1993 2531 502 30"
Path[14]="1993 2537 501 30"
Path[15]="1993 2544 502 30"
Path[16]="1996 2547 502 30"
Path[17]="1850 2548 502 25"
Path[18]="1850 2549 501 20"
Path[19]="1850 2549 501 20"
Path[20]="1850 2550 501 15"
Path[21]="0 2551 502 15"
Path[22]="0 2555 503 4"
Path[23]="0 2556 502 0"
Path[24]="0 2557 502 0"
Path[25]="1340 2557 500 0"
Point[0]="1339 2556 498 0"
Point[1]="1339 2556 497 0"
Point[2]="1339 2557 494 0"
Point[3]="1339 2558 496 0"
Point[4]="1339 2560 498 0"
Point[5]="1339 2560 496 0"
Point[6]="1339 2562 494 0"
Point[7]="1342 2559 494 0"
Point[8]="1339 2561 493 0"
Point[9]="1339 2563 493 0"
Point[10]="1350 2565 491 0"
Point[11]="1339 2563 491 0"
Point[12]="1340 2561 491 0"
Point[13]="1342 2560 492 0"
Point[14]="1355 2558 492 0"
Point[15]="1355 2558 490 0"
Point[16]="1339 2559 488 0"
Point[17]="1339 2561 486 0"
Point[18]="1339 2562 485 0"
Point[19]="1354 2562 483 0"
Point[20]="1353 2563 481 0"
Point[21]="1339 2565 480 0"
Point[22]="1355 2565 479 0"
Point[23]="1339 2566 477 0"
Point[24]="1339 2568 475 0"
Point[25]="1339 2569 475 0"
Point[26]="1339 2571 476 0"
Point[27]="1342 2573 476 0"
Point[28]="1339 2575 476 0"
Point[29]="1339 2573 475 0"
Point[30]="1339 2576 475 0"
Point[31]="1339 2572 475 0"
Point[32]="1339 2579 478 0"
Point[33]="1352 2581 480 0"
Point[34]="1339 2580 482 0"
Point[35]="1339 2578 484 0"
Point[36]="1339 2578 482 0"
Point[37]="1339 2576 482 0"
Point[38]="1339 2576 480 0"
Point[39]="1339 2576 478 0"
Point[40]="1342 2577 478 0"
Point[41]="1339 2576 477 0"
Point[42]="1339 2574 477 0"
Point[43]="1339 2574 479 0"
Point[44]="1339 2574 481 0"
Point[45]="1339 2575 480 0"
Point[46]="1339 2573 483 0"
Point[47]="1339 2573 484 0"
Point[48]="1341 2572 482 0"
Point[49]="1339 2573 482 0"
Point[50]="1339 2572 484 0"
Point[51]="1339 2571 486 0"
Point[52]="1339 2571 485 0"
Point[53]="1339 2570 486 0"
Point[54]="1340 2571 488 0"
Point[55]="1340 2569 488 0"
Point[56]="1342 2569 486 0"
Point[57]="1339 2569 484 0"
Point[58]="1339 2567 484 0"
Point[59]="1339 2566 487 0"
Point[60]="1339 2568 488 0"
Point[61]="1339 2568 485 0"
Point[62]="1339 2566 487 0"
Point[63]="1339 2566 489 0"
Point[64]="1339 2564 488 0"
Point[65]="1339 2564 486 0"
Point[66]="1339 2566 484 0"
Point[67]="1340 2568 482 0"
Point[68]="1339 2570 480 0"
Point[69]="1341 2572 482 0"
Point[70]="1339 2574 484 0"
Point[71]="1342 2575 485 0"
Point[72]="1339 2577 485 0"
Point[73]="1340 2571 488 0"
Point[74]="1339 2571 481 0"
Point[75]="1342 2571 479 0"
Point[76]="1339 2569 479 0"
Point[77]="1339 2567 481 0"
Point[78]="1340 2566 483 0"
Point[79]="1339 2564 485 0"
Point[80]="1339 2566 485 0"
Point[81]="1339 2565 487 0"
Point[82]="1339 2563 487 0"
Point[83]="1339 2561 489 0"
Point[84]="1340 2561 491 0"
Point[85]="1339 2561 493 0"
Point[86]="1339 2559 495 0"
Point[87]="1339 2557 497 0"
uo.setglobal("kolcoord",87)
FOR iPath=0 to 25
uo.setglobal("Path"+str(iPath),Path[iPath])
next
FOR iPoint=0 to 87
uo.setglobal("point"+str(iPoint),Trim(Point[iPoint]))
next
end sub
Sub Change_point_coordinates()
uo.setglobal("T",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),0))
uo.setglobal("X",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),1))
uo.setglobal("Y",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),2))
uo.setglobal("Z",GetNumb(uo.getglobal("point"+uo.getglobal("point_number")),3))
IF val(uo.getglobal("kolcoord"))-val(uo.getglobal("point_number"))>1 then
uo.setglobal("point_number",val(uo.getglobal("point_number"))+1)
else
uo.setglobal("point_number",0)
end if
end sub
Sub gomine()
VAR Temp,Location=Getlocation(),x,y
Temp=Location
while Temp<>25
x=Getnumb(trim(uo.getglobal("Path"+str(Temp+1))),1)
y=Getnumb(trim(uo.getglobal("Path"+str(Temp+1))),2)
if gotoxy(x,y,1)==1 then
Temp=Temp-2
end if
Temp=Temp+1
if Temp<0 then
Temp=2
end if
wend
end sub
Sub gobase()
If uo.weight>418 then
uo.drop(1, ItemBB)
endif
VAR Temp,Location=Getlocation(),x,y
Temp=Location
uo.print("My location = "+str(Temp))
while Temp<>0
x=Getnumb(trim(uo.getglobal("Path"+str(Temp-1))),1)
y=Getnumb(trim(uo.getglobal("Path"+str(Temp-1))),2)
if gotoxy(x,y,1)==1 then
Temp=Temp+2
end if
Temp=Temp-1
if Temp>25 then
Temp=24
end if
wend
uo.deletejournal()
end sub
Sub Getlocation()
var i,x,y,point=0,minPath=100,tempminPath
for i=0 to 25
x=Getnumb(trim(uo.getglobal("Path"+str(i))),1)
y=Getnumb(trim(uo.getglobal("Path"+str(i))),2)
tempminPath=Getdistance(x,y)
if tempminPath<minPath then
minPath=tempminPath
point=i
end if
next
return point
end sub
Sub Getdistance(x,y)
var dx,dy,dd
dx=uo.getx("self")-x
dy=uo.gety("self")-y
if dx<0 then
dx=-1*dx
end if
if dy<0 then
dy=-1*dy
end if
if dx>dy then
dd=dx
else
dd=dy
end if
return dd
end sub
Sub GetNumb(C,I)
VAR J,T,K
J=0
K=1
while K>0
J=J+1
IF (Mid(C,J,1)==" ") Or (J>=Len(C)-1) then
IF I==0 then
T=Val(Left(C,J))
Else
T=GetNumb(Right(C,Len(C)-J-1),I-1)
end if
K=0
end if
wend
return T
end sub
Sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
;uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if
ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(1)
next
sdidapl:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>20 then
uo.print("Can not reach location!")
return 1
end if
else
ld=dx
end if
if mx==x then
if my==y then
return
endif
if my>y then
UO.Press(33)
goto start
endif
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
UO.Press(39)
goto start
endif
if my==y then
UO.Press(34)
goto start
endif
UO.Press(40)
goto start
end if
if my<y then
UO.Press(37)
goto start
endif
if my==y then
UO.Press(36)
goto start
endif
UO.Press(38)
goto start
end sub
Sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub
Sub Time()
VAR Date,nTime,uTime,i
uTime=str(Uo.Time())
nTime=""
for i=0 to Len(uTime)
nTime=uTime[Len(uTime)-i]+nTime
IF (i==2) or (i==4) then
nTime=":"+nTime
end if
next
uTime=str(Uo.Date())
Date=""
for i=0 to Len(uTime)
Date=uTime[Len(uTime)-i]+Date
IF (i==2) or (i==4) then
Date="."+Date
end if
next
uTime=nTime+" @ "+Date
return uTime
end sub
Sub bandageself()
VAR Mess,Timst
while Uo.count("0x0e21") and uo.life<90
uo.bandageself()
repeat
wait(150)
Mess=Uo.Journal(0)
until (Uo.Timer()-Timst) > 40 or uo.life==uo.str or not Uo.count("0x0e21")
wend
end sub
sub control()
VAR i,Ok=0
uo.deletejournal()
wait(200)
while 1==1
if uo.injournal(Master+": "+selfname+" reload") then
uo.setglobal("Reload","Yes")
uo.say("Ok!")
uo.exec("terminate gotoxy")
wait(500)
uo.exec("terminate gopapa")
wait(500)
uo.exec("terminate mine")
wait(500)
uo.exec("terminate main")
wait(500)
uo.exec("exec main")
wait(500)
uo.deletejournal()
wait(200)
end if
wait(150)
wend
end sub
Sub Informer()
VAR i
DIM Color[20],Name[20]
Color[0]="0x0001" # Iron
Color[1]="0x0BB7" # Bronze
Color[2]="0x096D" # Copper
Color[3]="0x0BB5" # Silver
Color[4]="0x0BB5" # Gold
Color[5]="0x0BB3" # Blood rock
Color[6]="0x0BB2" # Shining
Color[7]="0x0BB1" # Spectral
Color[8]="0x0BB0" # Iguana
Color[9]="0x0BAF" # Star
Color[10]="0x0001" #
Color[11]="" #
Name[0]="Iron"
Name[1]="Bronze"
Name[2]="Copper"
Name[3]="Silver"
Name[4]="Gold"
Name[5]="Blood rock"
Name[6]="Shining"
Name[7]="Spectral"
Name[8]="Iguana"
Name[9]="Star"
Name[10]="0x0000"
Name[11]=""
if uo.getglobal("Reload")=="Yes" then
FOR i=1 to 9
uo.findtype("ItemBB",Color[i],"Box")
uo.say(Name[i]+" = "+str(uo.getQuantity("finditem")))
wait(200)
NEXT
uo.setglobal("Reload","No")
end if
uo.say("*-*-*-*-*-*-*-*")
uo.findtype("Pickaxe",-1,"Box_from_instruments")
uo.say("Pickaxe = "+str(uo.findcount()))
uo.findtype("0x0e21",-1,"Box_from_instruments")
uo.say("Bandages = "+str(uo.getQuantity("finditem")))
uo.say("*-*-*-*-*-*-*-*")
end sub
кто автор скрипта ?
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Elon wrote:знакомый навряд ты его знаеш
ник? прозвище?
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net