Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Toggle shoutbox Chat

Прямая связь с администрацией по скайпу: gods.dragon

@ fr33	:	(17 April 2024 - 11:16) gm pashol v mu igrac
@ Pablo	:	(15 March 2024 - 21:12) Sell regs from pandora box.
@ Pablo	:	(15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@ fr33	:	(11 March 2024 - 16:38) blee gm zb atdai bank
@ GM SOLAR	:	(10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@ Pablo	:	(06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis
@ Senseless	:	(05 March 2024 - 09:42) Opatj ataki na server powli
@ Pablo	:	(03 March 2024 - 19:19) Riebiigais
@ Ganjakur	:	(03 March 2024 - 15:10) kāds niks mp?
@ Pablo	:	(02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@ Senseless	:	(02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@ GM SOLAR	:	(02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@ Ganjakur	:	(01 March 2024 - 17:32) labi
@ Pablo	:	(29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības
@ fr33	:	(29 February 2024 - 09:45) yes
@ EmmaSb	:	(28 February 2024 - 21:00) Easyuo still working ?
@ Artemy Shan	:	(18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@ jurasiks	:	(18 February 2024 - 20:04) da pipec tu, zdelal on
@ Senseless	:	(17 February 2024 - 19:17) Lagi powli opatj
@ Artemy Shan	:	(17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.

Lumber

Started by zamb, Aug 18 2007 20:06

Please log in to reply

28 replies to this topic

#1 zamb

Newbie

Members
20 posts

Posted 18 August 2007 - 20:06

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

### 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

#2 AdmirkA

Advanced Player

Members
381 posts

Posted 19 August 2007 - 15:07

давным давно было написаны скрипты , в которых не нада записывать координаты деревьев ) чар сам находит их )

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#3 igore6ka

Advanced Player

Members
321 posts

Gender:Male
Location:WestMilgravis

Posted 19 August 2007 - 16:02

давным давно было написаны скрипты , в которых не нада записывать координаты деревьев ) чар сам находит их )

Гавно тот скрипт, в котором чар сам ищет дерево, ибо неизвестно куда скрипт тебя может завести и не факт, что это дерево ты не рубил 2 минуты назад

#4 AdmirkA

Advanced Player

Members
381 posts

Posted 19 August 2007 - 19:21

конечно проще обкликать все 500 или 1000 деревьев , чем поставить условие для маршрута пути )
на счет второго - бред )

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#5 igore6ka

Advanced Player

Members
321 posts

Gender:Male
Location:WestMilgravis

Posted 19 August 2007 - 21:19

конечно проще обкликать все 500 или 1000 деревьев , чем поставить условие для маршрута пути )
на счет второго - бред )

конечно, можно и проверку написать, которая проверяла бы рубил ты это дерево тока что или нет, но это всё не так стабильно будет как добрые замарканные деревья в файле

#6 AdmirkA

Advanced Player

Members
381 posts

Posted 19 August 2007 - 21:58

поиск деревьев идет по логическому последовательному пути ( грубо говоря от -20 до +20 по х и от -20 до +20 по у ) конечо можешь сделать свой обход змейкой или конем как захочешь ... .какая нафиг проверка )))

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#7 Hakuno

Master

Members
653 posts

Gender:Male
Location:/home/Hakuno

Posted 19 August 2007 - 21:59

Этот скрипт просто переписанный мининг, и работает он не очень здорово... Были и получше на форуме

Vi veri universum vivus vici.

#8 Dida

Senior Player

Members
578 posts

Posted 19 August 2007 - 23:28

Да у меня етот скрипт ваще ошибку выдает ( 576 диния какая то (

#9 Turik

Counselor Lindsay

Members
1015 posts

Gender:Male
Location:Каугури

Posted 20 August 2007 - 01:52

посмотри что в 576 линии не так ) у меня бывало что находил битый скрипт. если такое имеецо то чнеси его нафиг.

Цитаты Доктора Хауза:
* Все лгут
* Если бы в её ДНК отклонение было бы на один процент, она была бы дельфином
* Я плохой, и не пытайтесь убедить себя и меня, что это не так
* Ты разговариваешь с Богом - ты верующий, Бог разговаривает с тобой - ты психически больной
* Между любовью и ненавистью нет тонкой грани! Есть Великая Китайская Стена с вооруженными часовыми через каждые двадцать шагов.

#10 Dida

Senior Player

Members
578 posts

Posted 20 August 2007 - 02:16

Ты мне предлогаешь строки щитать

#11 zamb

Newbie

Members
20 posts

Posted 20 August 2007 - 17:09

u mensja vse stabiljno rabotaet. esli u vas ruki krivie , to ja ne vinovat. stroki ne nado s4itatj, nazimaew edit script v injecte i tam vnizu vlevom uglu piwet kakaja stroka was stoit))

#12 zamb

Newbie

Members
20 posts

Posted 20 August 2007 - 17:11

vot script: sam naxodit i rubit derevja. prosto zapuskaem i vse. komu ne lenj mozet sam dopisatj razgruzku i ubivanie Reperov ))

# **************************************************

# *** Injection 505.18 ************************ Jikus **

# **************************************************

sub main()

; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++

var zona = 6;

; ++++++++++++++++++++++++++++++++++++++++++++++++++

var m, i, a, tX, tY, tr = 1

tX = UO.GetX('self')

tY = UO.GetY('self')

for i=1 to zona

if tr then

m = - 5

else

m = 5

endif

for a=1 to zona

tY = tY + m

GotoXY(tX,tY)

Lamber()

next

tX = tX - 5

if tr then

tr = 0

else

tr = 1

endif

next

endsub



sub Lamber()

; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++

var MaxFailCount = 10; fizzle

var MaxRange = 3; 3 tiles

var mDebug = false;

; ++++++++++++++++++++++++++++++++++++++++++++++++++



var X, Y, Z, FailCount = 0, LTimer, Tiles

var mX, mY, mZ, TrWeight, TrT, TrW, adX, adY



; ** Debug ***********************

if mDebug then

UO.TextOpen()

UO.TextClear()

endif

; ********************************



mX = UO.GetX('self')

mY = UO.GetY('self')

mZ = UO.GetZ('self')

for Y = MaxRange - ( MaxRange * 2 ) to MaxRange

for X = MaxRange - ( MaxRange * 2 ) to MaxRange

Tiles = F_HarvestTiles(mX+X, mY+Y)

if Tiles then

  adX = mX+X

  adY = mY+Y

  repeat

   F_DelJournalMine();

   UO.Warmode(0)

   UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)



; ********************************

   if UO.Count(0x0F43) then

	UO.UseType(0x0F43); <-- Axe

   else

	return 1

   endif

; ********************************



; ************ Triger ************

; ErrorExitTimer

   LTimer=UO.Timer()

   TrT = UO.Timer() > LTimer + 60; !!! 60/10 = 6 sec !!!

; MyWeight + Ore

   TrWeight = UO.Weight

   TrW = UO.Weight <> TrWeight

; ********************************



   repeat

	wait(100)

   until UO.InJournal("useable wood|You can|That is too far away|here to chop") || TrT || UO.Dead()



; ********* ON=@FailCount ********

   if TrW then

	FailCount = 0

   else

	FailCount = FailCount + 1

   endif

; ********************************



; ***** Debug Harvest Tiles ******

   if mDebug then

	if TrT then

	 UO.TextPrint(Tiles); !Harvest

	else

;	   UO.TextPrint(Tiles);  Harvest

	endif

   endif

; ********************************



  until UO.InJournal("here to chop|You can|That is too far away") || FailCount >= MaxFailCount || UO.Dead()

endif

next

next

UO.Sound(61)

return 0

end sub



sub F_HarvestTiles(X,Y)

var i

if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then

for i=3274 to 3302

if UO.PrivateGetTile(X, Y, -1, i, i) then



; ***** Patch ********************************************

  if i==3278 || i==3279 || i==3281 || i==3282 then

   return 0

  endif

  if i==3284 || i==3285 || i==3287 || i==3289 then

   return 0

  endif

  if i==3291 || i==3292 || i==3294 || i==3295 then

   return 0

  endif

  if i==3297 || i==3298 || i==3300 || i==3301 then

   return 0

  endif

; **************************************************



  return i

end if

next

end if

return 0

end sub



sub F_DelJournalMine()

F_DeleteJournal("useable wood");

F_DeleteJournal("That is too far away");

F_DeleteJournal("You can")		;

F_DeleteJournal("here to chop");

end sub



sub F_DeleteJournal( string1 )

var nom = UO.InJournal( string1 )

if nom > 0 then

UO.SetJournalLine( Nom - 1, "string replaced" )

F_DeleteJournal( string1 )

endif

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

#13 Hakuno

Master

Members
653 posts

Gender:Male
Location:/home/Hakuno

Posted 20 August 2007 - 19:47

Хороший скрипт, оптимизированный. :excl:

Vi veri universum vivus vici.

#14 IDDQD

Newbie

Members
10 posts

Posted 28 August 2007 - 11:18

обьясните плз как этот скрипт в инже настроить? а то скриптами никогда не пользовался а тут решил всё таки попробовать...
сам по себе скрипт загрузил... 1 дерево рубит а потом стоит

разобрался...

#15 Dida

Senior Player

Members
578 posts

Posted 01 September 2007 - 07:27

Что то он у меня сам не ходит. рубить рубит но приходиться постоянно самому меня место и нажимать exec Lamber, тогда он начинает рубить вокруг себя

#16 zamb

Newbie

Members
20 posts

Posted 01 September 2007 - 11:22

V stroke Uo, gde pisatj, nedolzno bitj ni4ego napisano.

#17 Dida

Senior Player

Members
578 posts

Posted 15 September 2007 - 01:04

Ты меня за дурака принимаешь ) Я сам знаю что нельзя. просто чтоб он рубил надо етот скрипт на кнопку в хокейс писать и тогда он будер рубить только вокруг себя, после чего пересьает работать так как всё вырубил

#18 zamb

Newbie

Members
20 posts

Posted 15 September 2007 - 09:50

Ты меня за дурака принимаешь ) Я сам знаю что нельзя. просто чтоб он рубил надо етот скрипт на кнопку в хокейс писать и тогда он будер рубить только вокруг себя, после чего пересьает работать так как всё вырубил

zapuskaew funkciju Lumberjacking() i vse.

#19 Muxac

Newbie

Members
9 posts

Gender:Male

Posted 19 September 2007 - 16:49

vot script: sam naxodit i rubit derevja. prosto zapuskaem i vse. komu ne lenj mozet sam dopisatj razgruzku i ubivanie Reperov ))

# **************************************************

# *** Injection 505.18 ************************ Jikus **

# **************************************************

sub main()

; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++

var zona = 6;

; ++++++++++++++++++++++++++++++++++++++++++++++++++

var m, i, a, tX, tY, tr = 1

tX = UO.GetX('self')

tY = UO.GetY('self')

for i=1 to zona

if tr then

m = - 5

else

m = 5

endif

for a=1 to zona

tY = tY + m

GotoXY(tX,tY)

Lamber()

next

tX = tX - 5

if tr then

tr = 0

else

tr = 1

endif

next

endsub



sub Lamber()

; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++

var MaxFailCount = 10; fizzle

var MaxRange = 3; 3 tiles

var mDebug = false;

; ++++++++++++++++++++++++++++++++++++++++++++++++++



var X, Y, Z, FailCount = 0, LTimer, Tiles

var mX, mY, mZ, TrWeight, TrT, TrW, adX, adY



; ** Debug ***********************

if mDebug then

UO.TextOpen()

UO.TextClear()

endif

; ********************************



mX = UO.GetX('self')

mY = UO.GetY('self')

mZ = UO.GetZ('self')

for Y = MaxRange - ( MaxRange * 2 ) to MaxRange

for X = MaxRange - ( MaxRange * 2 ) to MaxRange

Tiles = F_HarvestTiles(mX+X, mY+Y)

if Tiles then

  adX = mX+X

  adY = mY+Y

  repeat

   F_DelJournalMine();

   UO.Warmode(0)

   UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)



; ********************************

   if UO.Count(0x0F43) then

	UO.UseType(0x0F43); <-- Axe

   else

	return 1

   endif

; ********************************



; ************ Triger ************

; ErrorExitTimer

   LTimer=UO.Timer()

   TrT = UO.Timer() > LTimer + 60; !!! 60/10 = 6 sec !!!

; MyWeight + Ore

   TrWeight = UO.Weight

   TrW = UO.Weight <> TrWeight

; ********************************



   repeat

	wait(100)

   until UO.InJournal("useable wood|You can|That is too far away|here to chop") || TrT || UO.Dead()



; ********* ON=@FailCount ********

   if TrW then

	FailCount = 0

   else

	FailCount = FailCount + 1

   endif

; ********************************



; ***** Debug Harvest Tiles ******

   if mDebug then

	if TrT then

	 UO.TextPrint(Tiles); !Harvest

	else

;	   UO.TextPrint(Tiles);  Harvest

	endif

   endif

; ********************************



  until UO.InJournal("here to chop|You can|That is too far away") || FailCount >= MaxFailCount || UO.Dead()

endif

next

next

UO.Sound(61)

return 0

end sub



sub F_HarvestTiles(X,Y)

var i

if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then

for i=3274 to 3302

if UO.PrivateGetTile(X, Y, -1, i, i) then



; ***** Patch ********************************************

  if i==3278 || i==3279 || i==3281 || i==3282 then

   return 0

  endif

  if i==3284 || i==3285 || i==3287 || i==3289 then

   return 0

  endif

  if i==3291 || i==3292 || i==3294 || i==3295 then

   return 0

  endif

  if i==3297 || i==3298 || i==3300 || i==3301 then

   return 0

  endif

; **************************************************



  return i

end if

next

end if

return 0

end sub



sub F_DelJournalMine()

F_DeleteJournal("useable wood");

F_DeleteJournal("That is too far away");

F_DeleteJournal("You can")	;

F_DeleteJournal("here to chop");

end sub



sub F_DeleteJournal( string1 )

var nom = UO.InJournal( string1 )

if nom > 0 then

UO.SetJournalLine( Nom - 1, "string replaced" )

F_DeleteJournal( string1 )

endif

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

Странно, пишет типа target immune to your blow... Был в разных лесах...Одно и тоже пишет