так как сам только что был посажен на 50к, выкладываю скрипт на рубку деревьев на оскомоской(О2) каторге. Code: ## GRUNDICK EDITION
##Использована ходилка Beyonder'a, за основу взяты скрипты Edred'a.
var f=file("C:\KatorgaTrees.dat")
VAR PrisonLog='0x1BDD'
##############################################################################################
######################### LUMBERJACKING #########################
##############################################################################################
sub Lumberjacking()
var i=0,j=0,k=0,r=0,q=0,ii,jj
var TopX=324,TopY=65
dim TreeX[5000], TreeY[5000],TreeT[5000]
dim TreeTile[29]
var treeCount=0,clicks=0
var x
########################
### Графика деревьев ###
########################
TreeTile[0]=3277
TreeTile[1]=3280
TreeTile[2]=3283
TreeTile[3]=3286
TreeTile[4]=3289
TreeTile[5]=3291
TreeTile[6]=3294
TreeTile[7]=3296
TreeTile[8]=3299
TreeTile[9]=3302
TreeTile[10]=3393
TreeTile[11]=3394
TreeTile[12]=3395
TreeTile[13]=3396
TreeTile[14]=3415
TreeTile[15]=3416
TreeTile[16]=3417
TreeTile[17]=3418
TreeTile[18]=3419
TreeTile[19]=3438
TreeTile[20]=3439
TreeTile[21]=3440
TreeTile[22]=3441
TreeTile[23]=3442
TreeTile[24]=3460
TreeTile[25]=3461
TreeTile[26]=3462
TreeTile[27]=3290
TreeTile[28]=3288
uo.Print('Загружаем координаты деревьев из файла...')
f.open()
treeCount=safe call f.ReadNumber()
for i=1 to treeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.close()
while 1
if treeCount>0 then
for i=1 to treeCount
if uo.weight > (uo.str*4) then
uo.waittargettype(PrisonLog)
uo.useobject('runeHome')
wait(200)
endif
uo.Print('Идём к дереву '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))
GotoXY(TreeX[i],TreeY[i],2)
GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))
next
else
uo.Print('Вы херово создали файл! Попробуйте ещё разок!')
end if
wend
end sub
###############################################################################################
######################### GET THE TREE ##########################
###############################################################################################
Sub GetTree(Type,X,Y,Z)
VAR jor, ser, noto, n ,t
var maxtime=1000
t=uo.timer()
uo.deleteJournal()
while not (UO.InJournal("You can't reach this|Это слишком далеко отсюда|Тут не осталось") or ((t + maxtime) < UO.Timer()))
UO.DeleteJournal()
UO.Waittargettile(Type,X,Y,Z)
uo.UseObject('Axe')
while not UO.InJournal("You can't reach this|Это слишком далеко отсюда|Тут не осталось |You put|Подолбив дерево|is attacking you|You have found") and not uo.Dead()
wait(250)
wend
wend
return 0
end sub
######################################################################
###########################################################################
sub options()
uo.Print('Выбери топор: ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend
uo.print(' Покажи свою шнягу? ... ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(250)
wend
uo.SaveConfig()
end sub
Sub op_door()
uo.opendoor()
end sub
########################################### ХОДИЛКА 3 ##################################################
###########################################################################################################
var MaxTraceDistance=10
var TraceLoopIncrease=5 #Увеличение MaxTraceDistance при исчерпании количества ходов
var LimitTrace=20 #Сколько шагов в ОБЕ стороны от начальной точки обхода прекращают ходилку (выхода нет).
var Speed=1
var StepTimeOut=500 #Таймаут шага. Устанавливать не в размер пинга, а в размер шага + размер пинга.
# Для ходьбы - 500+Ping
# Для бега/ходьбы на лошади - 300+Ping
# Бег на лошади - 150 + Ping
var CheckCnt=2 #Количество слепых проверок. УВЕЛИЧИВАЕТ В СТОЛЬКО РАЗ ТАЙМАУТ. Использовать только на БЫСТРОМ но НЕСТАБИЛЬНОМ коннекте. При большом пинге будет УЖАС.
var DynamicPause=30 #Минимальные паузы в циклах. Чем меньше число - тем меньше рывков и тем больше нагрузка процессора.
Sub GotoXY(GoX,GoY,Prec)
UO.SetGlobal("Logging","0")
UO.SetGlobal("BlindWalk","0")
var LastDir
var MoveRes
var TracerCnt
UO.SetGlobal("GlobalGoX",str(GoX))
UO.SetGlobal("GlobalGoY",str(GoY))
while not IsEnd(GoX,GoY,Prec)
TracerCnt = MaxTraceDistance
repeat
LogInfo('Just walking')
LastDir=GoUntilHit(GoX,GoY,Prec)
if IsEnd(GoX,GoY,Prec) then
return 1
end if
LogInfo('Tracing')
MoveRes = FullAroundTrace(LastDir,GoX,GoY,Prec,TracerCnt)
if TracerCnt > LimitTrace then
return 0
endif
TracerCnt = TracerCnt + TraceLoopIncrease
until MoveRes == 1
wend
return 1
end sub
Sub FullAroundTrace(StartDir,GoX,GoY,Prec,MaxTrace)
var LineX=UO.GetX()
var LineY=UO.GetY()
var CurDir=StartDir
var Direction=CountDirection(GoX,GoY,CurDir,Prec)
var StartX,StartY
var MovesDone=0
repeat
StartX=UO.GetX()
StartY=UO.GetY()
CurDir=Tracer(CurDir,Direction,Prec)
if (CurDir==GetDir(GoX,GoY,Prec)) then
return 1
endif
if MovesDone>0 and PrevMoveCross(GetDirToDir(UO.GetDir(),Prec),LineX,LineY,GoX,GoY,StartX,StartY,Prec) then
return 1
end if
MovesDone=MovesDone+1
CurDir=AddToDir(CurDir,-Direction,Prec)
until MovesDone>MaxTrace
return 0
end sub
Sub CountDirection(GoX,GoY,StartDir,Prec)
var GoDir=GetDir(GoX,GoY,Prec)
var MyX=UO.GetX()
var MyY=UO.GetY()
if GoDir<StartDir then
return -1
end if
if GoDir>StartDir then
return 1
end if
if Abs(MyX-GoX)>Abs(MyY-GoY) then
if (GoDir==3 and GoY>MyY) OR (GoDir==7 and GoY<MyY) then
return -1
else
return 1
end if
else
if (GoDir==1 and GoX<MyX) or (GoDir==5 and GoX>MyX) then
return -1
else
return 1
end if
end if
end sub
Sub PrevMoveCross(Dir,x1,y1,x2,y2,StartX,StartY,Prec)
var x3,y3,x4,y4
x3=StartX
y3=StartY
x4=StartX+(XFromDir(Dir)-StartX)*Speed
y4=StartY+(YFromDir(Dir)-StartY)*Speed
return LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4,Prec)
end sub
Sub LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4,Prec)
if x1==x3 and y1==y3 then
return false
end if
var z1=(x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)
var z2=(x4-x1)*(y2-y1)-(y4-y1)*(x2-x1)
if z1*z2>0 then
return false
else
LogInfo('Vector info:')
LogInfo('x1= '+str(x1))
LogInfo('y1= '+str(y1))
LogInfo('x2= '+str(x2))
LogInfo('y2= '+str(y2))
LogInfo('x3= '+str(x3))
LogInfo('y3= '+str(y3))
LogInfo('x4= '+str(x4))
LogInfo('y4= '+str(y4))
return true
end if
end sub
Sub IsDiap(X,X0,X1,Prec)
if X<=X0+Prec and X>=X1-Prec OR X>=X0-Prec and X<=X1+Prec then
return true
end if
return false
end sub
Sub GoUntilHit(GoX,GoY,Prec)
var LastDir
LastDir=GetDir(GoX,GoY,Prec)
var CouldMove
repeat
LastDir=GetDir(GoX,GoY,Prec)
if LastDir<>0 and not IsEnd(GoX,GoY,Prec) then
CouldMove=TryDir(LastDir,Prec)
end if
until LastDir==0 or IsEnd(GoX,GoY,Prec) or not CouldMove
return LastDir
end sub
Sub IsEnd(GoX,GoY,Prec)
if Abs(UO.GetX()-GoX)<=Prec and Abs(UO.GetY()-GoY)<=Prec then
LogInfo('END FOUND')
return true
else
return false
end if
end sub
Sub GetDir(GoX,GoY,Prec)
var MyX=UO.GetX()
var MyY=UO.GetY()
var DiffX=Abs(UO.GetX()-GoX)
var DiffY=Abs(UO.GetY()-GoY)
var GoDir=0
if (DiffX/(DiffY+0.1))>=2 then
if (MyX>GoX) then
GoDir=7
else
GoDir=3
end if
else
if (DiffY/(DiffX+0.1))>=2 then
if (MyY>GoY) then
GoDir=5
else
GoDir=1
end if
else
if (MyX>GoX) and (MyY>GoY) then
GoDir=6
else
if (MyX>GoX) and (MyY<GoY) then
GoDir=8
else
if (MyX<GoX) and (MyY>GoY) then
GoDir=4
else
if (MyX<GoX) and (MyY<GoY) then
GoDir=2
end if
end if
end if
end if
end if
end if
return GoDir
end sub
Sub Tracer(StartDir,Direction,Prec)
var CurDir=StartDir
var Result
repeat
Result=TryDir(CurDir,Prec)
if not Result then
CurDir=AddToDir(CurDir,Direction,Prec)
end if
until Result
return Result
end sub
Sub AddToDir(Dir,Cnt,Prec)
var NewDir=Dir
NewDir=NewDir+Cnt
while NewDir>8
NewDir=NewDir-8
wend
while NewDir<1
NewDir=NewDir+8
wend
return NewDir
end sub
Sub TryDir(Dir,Prec)
var BegX=UO.GetX() # Ia?aeuiia O
var BegY=UO.GetY() # Ia?aeuiia Y
var Counter=0
var GoX=BegX
var GoY=BegY
GoX=XFromDir(Dir)
GoY=YFromDir(Dir)
if not IsPass(GoX,GoY) then
LogInfo(str(GoX)+':'+str(GoY)+' is not passable')
return false
end if
return TurnAndGoDir(Dir,Prec)
end sub
Sub XFromDir(Dir)
if Dir==2 OR Dir==3 Or Dir==4 then
return (UO.GetX()+1)
end if
if Dir==6 OR Dir==7 Or Dir==8 then
return (UO.GetX()-1)
end if
return (UO.GetX())
end sub
Sub YFromDir(Dir)
if Dir==8 OR Dir==1 Or Dir==2 then
return (UO.GetY()+1)
end if
if Dir==4 OR Dir==5 Or Dir==6 then
return (UO.GetY()-1)
end if
return (UO.GetY())
end sub
Sub TurnAndGoDir(Dir,Prec)
var StartDir=GetDirToDir(UO.GetDir(),Prec)
var StartX=UO.GetX()
var StartY=UO.GetY()
var EndDir
var Counter=0
var TestCounter=CheckCnt
#Direction Test
repeat
Counter = 0
LogInfo('Dir: '+str(StartDir)+' Counter: '+str(Counter))
PressDir(Dir)
repeat
EndDir=GetDirToDir(UO.GetDir(),Prec)
wait(DynamicPause)
Counter=Counter+1
until StartDir<>EndDir or StartY<>UO.GetY() or StartX<>UO.GetX() or Counter>=StepTimeOut/DynamicPause
TestCounter = TestCounter - 1
LogInfo('Dir: '+str(EndDir)+' Counter: '+str(Counter))
until TestCounter <= 0 or Counter < StepTimeOut/DynamicPause
if Counter>=StepTimeOut/DynamicPause then
LogInfo('Direction timeout reached')
return 0
end if
#End direction Test
if StartY<>UO.GetY() or StartX<>UO.GetX() then
return Dir
end if
#Start Primary test
TestCounter=CheckCnt
repeat
GoDir(Dir,Prec)
Counter=0
repeat
wait(DynamicPause)
Counter=Counter+1
until StartY<>UO.GetY() or StartX<>UO.GetX() or Counter>=StepTimeOut/DynamicPause
TestCounter = TestCounter - 1
until TestCounter <= 0 or Counter < StepTimeOut/DynamicPause
#End primary test
if Counter>=StepTimeOut/DynamicPause then
LogInfo('Step timeout reached')
return 0
else
return Dir
end if
end sub
Sub GetDirToDir(GotDir,Prec)
var ChangedDir=-GotDir
ChangedDir=AddToDir(ChangedDir,5,Prec)
return ChangedDir
end sub
Sub DirToInj(Dir)
dim Dirs[9]
Dirs[1]=1
Dirs[2]=2
Dirs[3]=3
Dirs[4]=6
Dirs[5]=9
Dirs[6]=8
Dirs[7]=7
Dirs[8]=4
return (Dirs[Dir])
end sub
Sub PressDir(Dir)
dim Dirs[9]
Dirs[1]=35
Dirs[2]=40
Dirs[3]=34
Dirs[4]=39
Dirs[5]=33
Dirs[6]=38
Dirs[7]=36
Dirs[8]=37
UO.Press(Dirs[Dir],1)
end sub
Sub GoDir(Dir,Prec)
dim Dirs[9]
Dirs[1]=35
Dirs[2]=40
Dirs[3]=34
Dirs[4]=39
Dirs[5]=33
Dirs[6]=38
Dirs[7]=36
Dirs[8]=37
var DistanceX=Abs(UO.GetX()-val(UO.GetGlobal("GlobalGoX")))
var DistanceY=Abs(UO.GetY()-val(UO.GetGlobal("GlobalGoY")))
var GoDistance
if (DistanceX-Prec)<Speed then
GoDistance=DistanceX-Prec
else
if (DistanceY-Prec)<Speed then
GoDistance=DistanceY-Prec
else
GoDistance=Speed
endif
endif
UO.Press(Dirs[Dir],GoDistance)
end sub
Sub IsPass(X,Y)
if UO.GetGlobal("BlindWalk") then
return true
endif
dim Types[60]
Types[1]=3
Types[2]=25
Types[3]=51
Types[4]=63
Types[5]=113
Types[6]=140
Types[7]=172
Types[8]=219
Types[9]=232
Types[10]=235
Types[11]=239
Types[12]=243
Types[13]=248
Types[14]=251
Types[15]=264
Types[16]=267
Types[17]=282
Types[18]=289
Types[19]=321
Types[20]=379
Types[21]=420
Types[22]=440
Types[23]=476
Types[24]=499
Types[25]=513
Types[26]=542
Types[27]=578
Types[28]=586
Types[29]=622
Types[30]=700
Types[31]=804
Types[32]=1740
Types[33]=1758
Types[34]=1770
Types[35]=1779
Types[36]=1779
Types[37]=1881
Types[38]=1886
Types[39]=1801
Types[40]=1805
Types[41]=1813
Types[42]=1820
Types[43]=1831
Types[44]=1833
Types[45]=1843
Types[46]=1850
Types[47]=1873
Types[48]=1876
Types[49]=1885
Types[50]=1888
Types[51]=1946
Types[52]=1969
Types[53]=2500
Types[54]=2539
for var i=1 TO 53 STEP 2
if UO.PrivateGetTile(X,Y,-1,Types[i],Types[i+1]) then
return true
end if
next
return false
end sub
Sub LogInfo(Line)
if not UO.GetGlobal("Logging")=="0" then
UO.TextOpen()
UO.TextPrint(str(UO.GetX())+":"+str(UO.GetY())+" - "+Line);
end if
end sub
Sub Abs(X)
if X>0 then
return X
else
return (-X)
end if
end sub
########################################## КОНЕЦ ХОДИЛКИ 3 ##########################
Sub SaveToFile(treeCount,TreeX,TreeY,TreeT)
var f=file("C:\trees3.dat")
var s=0,i=0
f.open()
f.create()
s=safe call f.writeln(treeCount)
for i=1 to treeCount
s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))
next
f.close()
end sub
Sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
##############################################################################################
######################### МАРКАЕМ ДЕРЕВЬЯ #########################
##############################################################################################
sub normmark()
var f=file("C:\KatorgaTrees.dat") #ФАЙЛ ДЕРЕВЬЕВ
UO.DeleteJournal()
DIM TOFILE[200]
var i=0,j=0,T,X,Y,S,TMP='',TXT,Marked=0;
repeat
uo.Print('Покажите дерево?')
UO.CancelTarget()
UO.AddObject('tree')
while UO.Targeting() and not UO.InJournal('stopmark')
wait(100)
wend
if UO.InJournal('stopmark') then
goto end
endif
UO.AddObject('tree','lasttarget')
if UO.LastTile(0)<>3283 and UO.LastTile(0)<>3289 and UO.LastTile(0)<>3277 and UO.LastTile(0)<>3291 and UO.LastTile(0)<>3293 and UO.LastTile(0)<>3294 and UO.LastTile(0)<>3296 and UO.LastTile(0)<>3302 and UO.LastTile(0)<>3299 and UO.LastTile(0)<>3290 and UO.LastTile(0)<>3288 and UO.LastTile(0)<>3286 and UO.LastTile(0)<>3280 then
uo.Print('ЭТО НЕ ДЕРЕВО...')
else
T=str(UO.LastTile(0))
X=str(UO.LastTile(1))
Y=str(UO.LastTile(2))
for j=0 to i
if T+' '+X+' '+Y==TOFILE[j] then
uo.Print('ЭТО ДЕРЕВО УЖЕ МАРКНУТО')
j=i
Marked=1;
endif
next
uo.Print('MARKED='+str(marked))
if not Marked then
TOFILE[i]=T+' '+X+' '+Y
uo.Print('Найдено дерево #'+str(i+1)+', '+TOFILE[i])
i=i+1
endif
Marked=0
endif
end:
until i==199 or UO.InJournal('stopmark')
UO.CancelTarget()
uo.Print('МАРК ОКОНЧЕН. НАЙДЕНО ДЕРЕВЬЕВ - '+str(i+1))
if i then
f.open()
f.create()
txt=safe call f.writeln(i)
for j=0 to i-1
tmp=TOFILE[j]
txt=safe call f.writeln(tmp)
next
f.close()
endif
UO.Set('quiet',0)
endsub
##### чтоб кончить, сказать stopmark
Ниже файл деревьев для О2.Его нужно будет сохранить в файл с названием KatorgaTrees.dat и положить в корневой каталог диска C.Code: 154
3296 348 840
3296 348 843
3283 344 846
3289 340 843
3296 332 834
3280 328 837
3296 324 840
3289 320 843
3280 312 849
3277 316 840
3289 316 837
3286 320 831
3280 320 828
3280 332 825
3302 324 822
3280 324 813
3299 320 819
3289 316 828
3289 312 837
3280 308 840
3283 308 831
3302 312 825
3280 304 828
3283 308 825
3277 312 819
3302 304 816
3291 308 816
3296 308 813
3294 308 810
3296 312 807
3291 316 810
3299 316 807
3283 320 804
3294 320 807
3277 296 813
3289 308 801
3283 296 807
3302 280 819
3296 280 813
3289 284 807
3286 292 798
3296 296 795
3277 306 793
3283 284 792
3289 276 798
3286 276 789
3291 268 804
3302 264 807
3280 264 804
3291 256 813
3277 256 816
3296 252 816
3289 244 813
3302 248 810
3291 244 810
3296 252 804
3296 248 801
3296 248 798
3277 244 801
3280 236 804
3283 236 801
3302 236 798
3296 240 798
3277 228 798
3277 228 795
3280 236 792
3283 240 792
3280 244 789
3286 248 786
3291 252 792
3277 252 786
3291 232 783
3302 236 783
3286 240 780
3289 240 777
3299 236 774
3299 232 771
3286 236 768
3286 220 768
3299 232 762
3286 216 756
3277 220 759
3280 224 759
3296 228 759
3296 215 752
3296 220 753
3277 224 750
3291 224 747
3289 232 750
3296 248 753
3283 252 747
3302 248 744
3286 240 735
3294 240 729
3289 244 729
3283 228 729
3283 229 726
3299 252 723
3289 252 729
3291 260 717
3296 263 714
3294 272 723
3302 272 726
3299 260 732
3302 256 750
3286 260 750
3277 268 750
3286 276 735
3291 276 732
3299 288 738
3280 284 744
3283 280 753
3296 284 750
3296 296 750
3286 296 747
3286 296 744
3283 296 741
3294 304 738
3296 312 744
3294 316 753
3296 320 747
3296 324 747
3286 303 766
3291 304 771
3299 308 771
3294 328 750
3283 336 750
3294 328 756
3302 336 759
3291 344 756
3286 328 762
3277 328 765
3294 340 765
3294 340 768
3283 340 771
3286 360 759
3294 368 765
3302 364 771
3289 368 777
3296 372 777
3277 360 777
3289 356 771
3277 360 789
3283 360 792
3280 356 780
3289 352 774
3289 352 783
3302 348 795
3294 364 804
3280 364 810
3299 364 816
3280 364 825
3283 348 825
3280 344 828
Если же этот файл не катит, создайте свой.Для этого запустите функцию NormMark, прицелом помечайте деревья в порядке рубки, в конце напишите StopMark. Затем запустите функцию Optins и укажите на топор и на ваш счастливый билет.И теперь главная функция - Lumberjacking.Удачного времяпрепровождения!
PS:НЕ забывайте, что для нормального хождения у Вас должны быть настроены кнопки нумпада на хождение.
|
, это уже второй скрипт такой 