zamb

################## 

### Peremennije ## 

################## 

################################################################################

################## 

var f=######("C:\trees5.dat") ## - Путь к файлу в котором будут хранится координаты деревьев. 

### 

var LogsQty=500 ## - Количество логов, добыв которое надо реколиться домой. 

### 

var GetFromFile=1 ## - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента 

### 

var Attack=0 ##  - bred

### 

var Chest='0x40065598' ## - ID сундука куда будут выгружаться логи

### 

var Trytodrop=1 ## 

### 

var ContX=925 ## - Координаты X у сундука 

### 

var ContY=2564 ## - Координаты Y у сундука 

### 

var oldX,oldY,time ##

### 

################################################################################

##################  

########### 

### Kod ### 

########### 

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 flag=0,treeCount=0,clicks=0,flag2=0 

######################## 

### Grafika Dervjev ### 

######################## 

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.Exec("filterspeech on") 

uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'") 



uo.Print('Viberi Tapor: ') 

uo.Exec('addobject Axe') 

while uo.Targeting() 

wait(100) 

wend 



if Attack==1 then 

uo.Exec('exec Attack') 

end if 







##################################### 

### Zagruzaem koordinati iz faila ### 

##################################### 

if GetFromFile==1 then 

uo.Print('Zagruzaem koordinati iz faila...') 

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() 

else 

###################################### 

### Sobiraem koordinati iz clienta ### 

###################################### 

uo.Print('Viberi kirku: ') 

uo.Exec('addobject Pickaxe') 

while uo.Targeting() 

wait(100) 

wend 

uo.Print('Sobiraem koordinati derevjev v okruge...') 

repeat 

clicks=0 

flag=0 

uo.DeleteJournal() 

####################### 

### Klikaem na tail ### 

####################### 

uo.UseObject('Pickaxe') 

waitForTarget() 

uo.DeleteJournal() 

WaitForTryRock() 

############################### 

### Proverjaem derevoli eto ### 

############################### 

flag=0 

for k=0 to 28 

if uo.LastTile(0)==TreeTile[k]+1 then 

flag=2 

end if 

next 

if flag==0 then 

for k=0 to 28 

if uo.LastTile(0)==TreeTile[k] then 

flag=1 

end if 

next 

end if 

if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then 

flag=3 

end if 

######################### 

### Kliknuli na stvol ### 

######################### 

if flag==1 then 

flag2=0 

if treeCount>0 then 

for ii=1 to treeCount 

if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then 

flag2=1 

end if 

next 

end if 

if flag2==0 then 

treeCount=treeCount+1 

TreeX[treeCount]=uo.LastTile(1) 

TreeY[treeCount]=uo.LastTile(2) 

TreeT[treeCount]=uo.LastTile(0) 

uo.Print('Naideno derevo '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount)) 

end if 

end if 

########################## 

### Kliknule po listve ### 

########################## 

if flag==2 then 

flag2=0 

if treeCount>0 then 

for ii=1 to treeCount 

if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then 

flag2=1 

end if 

next 

end if 

if flag2==0 then 

treeCount=treeCount+1 

TreeX[treeCount]=uo.LastTile(1) 

TreeY[treeCount]=uo.LastTile(2) 

TreeT[treeCount]=uo.LastTile(0)-1 

uo.print('Naideno derevo '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))) 

end if 

end if 

until (Flag==3) or (treeCount==5000) 

uo.Exec("filterspeech off") 

uo.Print('Analiz zakoncen, koordinati derevjev zapisani v fail C:\trees5.dat') 

SaveToFile(treeCount,TreeX,TreeY,TreeT) 

end if 

uo.Print('Derevo naideno: '+str(treeCount)) 

wait(2000) 

###################################### 

### Hodim po sobranim koordinatam  ### 

###################################### 

while 1==1 

if treeCount>0 then 

for i=1 to treeCount 

if Trytodrop==1 and uo.Count('ZLK')>=LogsQty or uo.InJournal('It is too heavy..') then 

GotoXY(uo.getx(Chest),uo.gety(Chest)) 

DropLogs() 

end if 

end if 

uo.Print('Idjom k derevu '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i])) 

InfoLogs() 

flag=GotoXY(TreeX[i],TreeY[i]) 

if flag==1 then 

GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ())) 

end if 

next 

end if 

wend 

end sub 



sub GetTree(Type,X,Y,Z) 

var i 

uo.Print('Nacinaem rubitj derevo...') 

for i=0 to 15 

if uo.Warmode()==1 then 

return 0 

end if 

wait(200) 

uo.DeleteJournal() 

CheckLag() 

uo.WaitTargetTile(Type,X,Y,Z) 

uo.UseObject('Axe') 

if WaitForChange()==1 then 

return 1 

end if 

next 

return 0 

end sub 



sub WaitForChange() 

var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.' 

var Text2='There are no logs here to chop.' 

var Text3="You can't reach this." 

var Text4="There is nothing here to chop." 

var Text5="You can't do much in your current state." 

var mess 

for var i=0 to 200 

mess=uo.Journal(0) 

if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then 

return 1 

end if 

if uo.Journal(0)==Text1 then 

return 0 

end if 

if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then 

while NOT UO.InJournal("There is nothing") 

wait(500) 

if uo.InJournal('Reaper')or uo.InJournal('is attacking you') then 

ReaperDanger() 

wait(1000) 

return 1 

end if 

wend 

end if 

if uo.InJournal('Reaper')or uo.InJournal('is attacking you') then 

ReaperDanger() 

return 1 

end if 

wait(50) 

next 

return 0 

end sub 



Sub WaitForTryRock() 

var Text1="That is too far away." 

var Text2="Try mining elsewhere." 

var Text3="There is no ore here to mine." 

var Text4="You have no line of sight to that location" 

var Text5="You can't see the target" 

for var i=0 to 50 

if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then 

return 1 

end if 

wait(200) 

next 

return 0 

end sub 



sub WaitForTarget() 

for var i=0 to 50 

if uo.Targeting()==1 then 

return 1 

end if 

wait(200) 

next 

return 0 

end sub 



sub WaitForChangeXY(myX,myY,lastX,lastY) 

for var i=1 to 50 

if lastX<>myX or lastY<>myY then 

return 1 

end if 

wait(200) 

next 

return 0 

end sub 



sub GotoXY(x,y) 

var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 

for i=1 to 60 

myX=uo.getX(); 

myY=uo.getY(); 

if LastX==myX and LastY==myY then 

halt=halt+1 

else 

halt=0 

end if 

if halt>=10 then 

if uo.GetDir()==1 then 

for z=0 to 8 

uo.Press(40) 

next 

end if 

if uo.GetDir()==3 then 

for z=0 to 8 

uo.Press(37) 

next 

end if 

if uo.GetDir()==5 then 

for z=0 to 8 

uo.Press(38) 

next 

end if 

if uo.GetDir()==7 then 

for z=0 to 8 

uo.Press(39) 

next 

end if 

halt=15 

end if 

if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 

return 1 

end if 

if x<=myX then 

if y<=myY then 

for z=0 to 3 

uo.Press(38) 

next 

else 

for z=0 to 3 

uo.Press(37) 

next 

end if 

else 

if y<=myY then 

for z=0 to 3 

uo.Press(39) 

next 

else 

for z=0 to 3 

uo.Press(40) 

next 

end if 

end if 

lastX=myX 

lastY=myY 

wait(200) 

next 

return 0 

end sub 



sub Numb(num) 

if num>=0 then 

return num 

else 

return num*(-1) 

end if 

end sub 



sub SaveToFile(treeCount,TreeX,TreeY,TreeT) 

var f=######("C:\trees5.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 DropLogs() 

if uo.Waiting() then 

uo.CancelTarget() 

end if 

var a,Exit 

dim Logs[2] 

Logs[0]=0x1BDD 

Logs[1]=0x0EED

uo.Print('.') 

uo.SetReceivingContainer(Chest) 

wait(500) 

for a=0 to 1

Exit=0 

repeat 

uo.FindType(Logs[a]) 

if uo.GetQuantity('finditem')>0 then 

uo.Grab('0','finditem') 

wait(1500) 

GotoXY(ContX,ContY) 

else 

Exit=1 

end if 

until Exit==1 

next 

uo.UnSetReceivingContainer(Chest) 

uo.Print('.') 

end sub 



sub InfoLogs() 

uo.Print('U vas vsego'+str(uo.Count('0x1BDD'))+' logov v sumke') 

uo.Print('Iz nih '+str(uo.Count('0x1BDD','0x0000'))+' prostih i ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' cvetnih') 

end sub 



sub Open(Container) 

uo.DeleteJournal() 

uo.UseObject(Container) 

repeat 

wait(500) 

until uo.InJournal('Contains') 

end sub 



sub Attack() 

uo.DeleteJournal() 

var Enemy='0x00000000' 

repeat 

if uo.InJournal('is attacking you') or uo.InJournal('Reaper') or uo.InJournal('Wis Quas') then 

uo.DeleteJournal() 

end if 

wait(1000) 

if uo.InJournal('till') then 

uo.DeleteJournal() 

end if 

wait(1000) 

until false 

end sub 



sub ReaperDanger() 

uo.DeleteJournal() 

killelem() 

uo.DeleteJournal() 

wait(1000) 

end sub 





sub MakeTime() 

var d,t,ret,i 

ret=str(uo.Time()) 

t="" 

for i=0 to Len(ret) 

t=ret[Len(ret)-i]+t 

if (i==2) or (i==4) then 

t=":"+t 

end if 

next 

ret=str(uo.Date()) 

d="" 

for i=0 to Len(ret) 

d=ret[Len(ret)-i] + d 

if (i==2) or (i==4) then 

d="."+d 

end if 

next 

ret=t+" @ "+d 

return ret 

end sub 



sub Terminate() 

uo.Print('Vse funkciji otlkljuceni!') 

uo.DeleteJournal() 

uo.Exec('terminate all') 

wait(100) 

uo.Exec('terminate all') 

wait(100) 

uo.Exec('terminate all') 

wait(100) 

end sub 



sub killelem() 

   VAR Count,Elem	  

   uo.equipt('Lhand','0x13B1') 

   uo.useobject('finditem') 

   wait(1000) 

   uo.equipt('Rhand','0x13AF') 

   UO.DeleteJournal() 

   UO.Exec('warmode 1') 



   UO.FindType('0x002F',-1,'ground') 

   Elem=UO.GetSerial('finditem') 

   wait (500) 

   UO.Attack(Elem) 

	

   repeat 

	  wait(1000) 

	  If UO.Life<150 Then 

		UO.say ('.camp') 

	  Endif 

	   If UO.Life<50 Then 

		UO.UseType(0x183A) 

	  Endif 

   until UO.IsNPC(Elem)==0 

   wait(20000) 

   UO.Exec('warmode 0') 

   wait(1000) 

loot() 

wait(10000)  

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') 

#BETEP™# 

end sub 





sub GetXY(str,arnum) 

   arnum[0]=val(mid(str, 7, 3)) 

   arnum[1]=val(mid(str, 10, 3)) 

end sub 







sub loot() 

 var corpse='0x2006' 

 var waittime=1000 

 var body,bodypack,i 

 DIM Loot[12] 

 Loot[0]=0x09AA 

 Loot[1]=0x1541 

 Loot[2]=0x0EED 

 Loot[3]=0x1BDD 

 Loot[4]=0x141A 

 Loot[5]=0x1416 

 Loot[6]=0x1410 

 Loot[7]=0x1417 

 Loot[8]=0x1418 

 Loot[9]=0x1419 

 Loot[10]=0x0E76 

 Loot[11]=0x1413 

 Loot[12]=0x1086 

 uo.set('finddistance','2') 

  while uo.countonground(corpse)>0 

   uo.findtype(corpse,'-1','ground') 

   body=uo.getserial('finditem') 



   uo.useobject('backpack') 



   repeat 

	wait(100) 

   until uo.getserial('lastcontainer')==uo.getserial('backpack') 



   uo.useobject(body) 

   repeat 

	wait(100) 

   until uo.getserial('lastcontainer')<>uo.getserial('backpack') 



   bodypack=uo.getserial('lastcontainer') 

   For i=0 to 12 

	repeat 

	 UO.FindType(Loot[i],-1,bodypack) 

	 if UO.GetQuantity('finditem') then 

	  UO.MoveItem('finditem','backpack') 

	  repeat 

	   wait(100) 

	  until uo.containerof('finditem')==uo.getserial('backpack') 

	  wait(waittime) 

	 endif 

	until uo.findcount()==0 

   next 

   uo.ignore(body) 

  wend 

endsub

Rubit derevja, pri ataki Reepera kidaet pod sebja healing koster i atakuet repera, kogda ubjet lutaet ego i na4inaet rubitj dalwe, nabrav ukazannoe koli4estvo logov idet k sunduku i skidivaet ix, kak skinul idet k poslednimu derevu gde zakon4ils rubitj )) gl