Yoko

Code: Select all

################## 
### Переменные ### 
################## 
################################################################################################### 
var f=file("D:\Хлам UO\Хлам к UO\trees30.dat") ## - Путь к файлу в котором будут хранится координаты деревьев. 
### 
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента 
### (сначала соберите а потом считывайте из файла). 
### 
var TryHiding=1 ## 1 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет . 
### 
var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой, 
### складывать логи в сундук и реколиться обратно , 0 - не будет. 
### 
var RechargeBook=0 ## 1 - Включить речарж рунбуки, 0 - отключить речарж. 
### 
var RuneToHome=1 ## -  Номер руны Домой,по счёту в рунбуке.(сейчас в 9ом слоте,можно менять от 1-9) 
### 
var RuneToLumber=3 ## - Номер руны в Лес,по счёту в рунбуке.(сейчас в 1ом слоте,можно менять от 1-9) 
### 
var LogsQty=450 ## - Количество логов, добыв которое надо реколиться домой. 
### 
var AttackEnts=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол. 
### 
var CastAtAttack=0 ## 1 - Включить каст - "Magic Arrow" на напавшего, 0 - отключить каст. 
### 
var EatingFood=1 ## 1 - Будем есть, 0 - нет.  
### 
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки) 
### 
var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект. 
### 
var RecallDrop=1 ## 1 - Включить рекол после побега от ента домой и выложить логи, 0 -выключить. 
### 
var RecallLumber=0 ## 1 - Включить рекол в лес после указания обьектов, 0 - выключить. 
### 
var Chest='0x402C6F01' ## - ID сундука куда будут выгружаться логи, где должны лежать реколы и еда. 
### 
var LumberSound=('C:\WINDOWS\Media\ringin.wav') ## - Звук которы будет пригран при атаке.(замените на свой) 
### 
var oldX,oldY,time ## - Для рекола. 
### 
var i=0
var Runebook='0x403DD33A'
var TOPOR='0x0F43' ##battle axe
var logs='0x1BDD'
var Axe
###################################################################################################  
### 
### После настройки (переменных выше) : 
### Идите в лес в котором вы хотите рубить. 
### Запустите cкрипт Lumberjacking(), Инжект попросит вас указать Топор 
### (появится прицел, прицелом на топор который вы с собой взяли), 
### затем инжект попросит вас указать Рунбук(появится прицел, прицелом на него). 
### После этого чар пойдет по координатам и будет вырубать деревья. 
########### 
### Код ### 
########### 
  
sub Lumberjacking() 
var 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 
######################## 
### Графика деревьев ### 
######################## 
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 'What do you want to use'") 
uo.set('finddistance','10') 

  uo.findtype(TOPOR, '-1', 'my') 
  if uo.findcount()>0 then
    Axe=TOPOR
    uo.print('Axe='+str(Axe))
  endif
  if uo.findcount()==0 then
    uo.Print('Viberi TOPOR: ') 
    uo.Exec('addobject Axe') 
    while uo.Targeting() 
      wait(100) 
    wend 
    uo.equip('Rhand', Axe)
  endif

if TryRecall==1 and Runebook=='' then 
uo.Print('Viberi RuneBook: ') 
uo.Exec('addobject Runebook') 
while uo.Targeting() 
wait(100) 
wend 
end if 

if AttackEnts==1 then 
;uo.Exec('exec AttackEnts') 
end if 

if Reconnect==1 then 
uo.Exec('exec Reconnect') 
end if 

if RecallLumber==1 then 
uo.Exec('exec RecallToLumber') 
wait(9000) 
end if 

Uo.exec("set norbcheck 1"); для рекола 
uo.exec("set norbcalc 1"); тоже 

##################################### 
### Загружаем координаты из файла ### 
##################################### 
if GetFromFile==1 then 
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() 
else 
###################################### 
### Собираем координаты из клиента ### 
###################################### 
uo.Print('Viberi Kirku: ') 
uo.Exec('addobject Pickaxe') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Собираем координаты деревьев в округе...') 
repeat 
clicks=0 
flag=0 
uo.DeleteJournal() 
####################### 
### Кликаем на тайл ### 
####################### 
uo.UseObject('Pickaxe') 
waitForTarget() 
uo.DeleteJournal() 
WaitForTryRock() 
############################### 
### Проверяем дерево ли это ### 
############################### 
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 
######################### 
### Кликнули на ствол ### 
######################### 
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('Найдено дерево '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount)) 
end if 
end if 
########################## 
### Кликнули по листве ### 
########################## 
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('Найдено дерево '+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('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat') 
SaveToFile(treeCount,TreeX,TreeY,TreeT) 
end if 
uo.Print('Деревьев найдено: '+str(treeCount)) 
wait(2000) 
###################################### 
### Ходим по собранным координатам ### 
###################################### 
while not uo.dead() 
if treeCount>0 then 
for i=1 to treeCount 
if TryRecall==1 and uo.Count(logs)>=LogsQty then 
ToRecall() 
end if 
uo.Print('Idem k derevu '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i])) 
InfoLogs() 
flag=GotoXY(TreeX[i],TreeY[i]) 
if flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
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('Nachinaem rubku dereva...') 
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.Usetype(Axe) 
if WaitForChange()==1 then 
return 1 
end if 
next 
return 0 
end sub 
###################################### 

sub ToRecall() 
RecallToHome() 
DropLogs() 
InfoLogs() 
if RechargeBook==1 then 
RechargeBook() 
wait(4000) 
end if 
if EatingFood==1 then 
EatingFood() 
end if 
wait(3000) 
RecallToLumber() 
end sub 
###################################### 

sub RecallToHome() 
uo.Print('Prigaem domoy.') 
RunebookRecall(RuneToHome) 
end sub 
###################################### 

sub RecallToLumber() 
uo.Print('Prigaem v les.') 
RunebookRecall(RuneToLumber) 
end sub 
###################################### 

sub ToHide() 
var status
 if not uo.Hidden() then
  uo.Print('Uhodim v Hide...') 
  uo.DeleteJournal() 
  uo.warmode(0)
  uo.useskill('Stealth')
  while not uo.InJournal('seem') and not uo.InJournal('You have hidden') 
    wait(100) 
  wend 
  if uo.InJournal('battle') then
    uo.Print('WAR MODE OFF...') 
    uo.warmode(1)
    wait(100)
    uo.warmode(0)
  endif  
 endif  
end sub 
###################################### 

sub WaitForRecall() 
var Text1=uo.GetName()+": The spell fizzles." 
var mess='',lastX=uo.getX(),lastY=uo.getY() 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if uo.getX()<>lastX or uo.getY()<>LastY then 
return 1 
end if 
wait(50) 
next 
return 0 
end sub 
###################################### 

sub WaitForHide() 
var Text1=uo.GetName()+": You have hidden yourself well" 
var Text2=uo.GetName()+": You can't seem to hide here." 
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text1 then 
return 1 
end if 
if uo.Journal(0)==Text2 then 
return 0 
end if 
wait(50) 
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="That is too far away." 
var Text5="You can't do much in your current state." 
var Text6="You put the Ent's body part at your feet. it is too heavy.." 
var Text7="Ent" 
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.InJournal(Text6) or uo.InJournal(Text7) then 
AttackEnts()
return 0 
end if 
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 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 
###################################### 

sub WaitForTryRock() 
var Text1="That is too far away." 
var Text2="Try mining in rock." 
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 flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
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=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 DropLogs() 
ToHide() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a,Exit 
dim Logs[1] 
Logs[0]=0x1BDD 
uo.Print('Vikladivaem logi.') 
uo.useobject(Chest)
uo.SetReceivingContainer(Chest) 
wait(500) 
for a=0 to 0 
Exit=0 
repeat 
uo.FindType(Logs[a]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer(Chest) 
uo.Print('Logi vilogeni.') 
end sub 
###################################### 

sub InfoLogs() 
uo.Print('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 RunebookRecall(n) 
oldX=uo.getX() 
oldY=uo.getY() 
dim rb_slots[10]
  rb_slots[0]=0
  rb_slots[1]=21
  rb_slots[2]=33
  rb_slots[3]=46
  rb_slots[4]=58
  rb_slots[5]=64
  rb_slots[6]=73
  rb_slots[7]=88
  rb_slots[8]=94
  rb_slots[9]=1025
repeat 
uo.Exec('warmode 0') 
;uo.UseObject(Runebook) 
;wait(1000) 
;uo.LClick(135, n*15+55) 
;wait(500) 
;uo.LClick(135, n*15+55) 
uo.recall(Runebook, rb_slots[n]) ; домой ( в рунбуке слот 1 ) 
time=uo.Timer() 
repeat 
wait(500) 
until oldX<>uo.getX() or oldY<>uo.getY() or uo.Life==0 or uo.InJournal('needs') or time+200<uo.Timer() 
uo.DeleteJournal() 
until oldX<>uo.getX() or oldY<>uo.getY() 
end sub 
###################################### 

sub Open(Container) 
uo.DeleteJournal() 
uo.UseObject(Container) 
repeat 
wait(500) 
until uo.InJournal('Contains') 
end sub 
###################################### 

sub RechargeBook() 
ToRecharge() 
DropScrolls() 
end sub 
###################################### 

sub ToRecharge() 
uo.SetReceivingContainer('backpack') 
Open(Chest) 
uo.FindType('0x1F4C','-1',Chest) 
uo.Grab('50','finditem') 
wait(500) 
Checklag() 
uo.UseObject('Runebook') 
wait(1000) 
Checklag() 
uo.Lclick(296,91) 
wait(1000) 
uo.UnsetReceivingContainer() 
end sub 
###################################### 

sub DropScrolls() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var s,Exit 
dim Scrolls[1] 
Scrolls[0]=0x1F4C 
uo.SetReceivingContainer(Chest) 
wait(500) 
for s=0 to 0 
Exit=0 
repeat 
uo.FindType(Scrolls[s]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer(Chest) 
end sub 
###################################### 

sub EatingFood() 
ToEat() 
DropFood() 
end sub 
###################################### 

sub ToEat() 
uo.SetReceivingContainer('backpack') 
Open(Chest) 
uo.FindType(TypeFood,'-1',Chest) 
uo.Grab('50','finditem') 
wait(500) 
repeat 
Checklag() 
uo.UseType(TypeFood) 
wait(1000) 
until uo.InJournal('You are simply too full to eat any more!') 
uo.UnsetReceivingContainer() 
end sub 
###################################### 

sub DropFood() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var f,Exit 
dim Food[1] 
Food[0]=TypeFood 
uo.SetReceivingContainer(Chest) 
wait(500) 
for f=0 to 0 
Exit=0 
repeat 
uo.FindType(Food[f]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer(Chest) 
end sub 
###################################### 

sub AttackEnts() 
##uo.DeleteJournal() 
var Enemy='0x00000000' 
var elem='0x002F'
var elem_ser=0

;while not uo.dead()
  if UO.InJournal('Ent') then
uo.print('Obnarugen ENT!!')
    wait(20000) 
    uo.findtype(elem, '-1', 'ground')
    while uo.findcount()>0 
      wait(30000) 
      uo.findtype(elem, '-1', 'ground')
    wend 
  endif
  wait(200) 
;wend 
end sub 
###################################### 

sub RecallAtAttack() 
var mX,mY 
reccal: 
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX=uo.getX("self") 
mY=uo.getY("self") 
uo.DeleteJournal() 
uo.FindType('0x1F14',-1,'mY') 
uo.Cast('Recall','finditem') 
uo.Print('Атака! Реколимся!') 
wait(4000) 
if not uo.getX("self")<>mX and not uo.getY("self")<>mY then 
goto reccal 
end if 
if RecallDrop==1 then 
RecallToHome() 
DropLogs() 
InfoLogs() 
end if 
Terminate() 
end sub 
###################################### 

sub Reconnect() 
var ReconnectTime,rFlag 
ReconnectTime='0' 
rFlag=1 
repeat 
while (uo.ObjAtLayer('Bpack')=='') 
if rFlag then 
ReconnectTime=MakeTime() 
rFlag=0 
end if 
wait(20000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.LDblClick(357,164) 
uo.LClick(616,459) 
wait(3000) 
wend 
wait(3000) 
if (rFlag==0) and (ReconnectTime<>'0') then 
uo.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
rFlag=1 
ReconnectTime='0' 
end if 
until false 
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('Все функции скрипта выключены!') 
uo.DeleteJournal() 
uo.Exec('terminate all') 
wait(100) 
uo.Exec('terminate all') 
wait(100) 
uo.Exec('terminate all') 
wait(100) 
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 log_transfer() 
var i=0, count=20
var in_storage=0
var in_source=0
var get_count=0
var travel_bag, source_bag
var log=0x1BDD
dim log_col[21]
	log_col[0]=0x0000  ## logs
	log_col[1]=0x047C  ## oak
	log_col[2]=0x0279  ## red tree
	log_col[3]=0x096B  ## dark tree
	log_col[4]=0x0237  ## swamp
	log_col[5]=0x0482  ## silwer
	log_col[6]=0x010F  ## keranit
	log_col[7]=0x0014  ## perit
	log_col[8]=0x03C1  ## petrified
	log_col[9]=0x0085  ## dragon
	log_col[10]=0x04C2 ## vampire
	log_col[11]=0x0033 ## eridan
	log_col[12]=0x002B ## helios
	log_col[13]=0x0071 ## illusions
	log_col[14]=0x09A4 ## crystal
	log_col[15]=0x0B82 ## dead tree
	log_col[16]=0x00BE ## paradise
	log_col[17]=0x0035 ## titan
	log_col[18]=0x0BB6 ## avalon
	log_col[19]=0x0487 ## elven
	log_col[20]=0x0498 ## asterxylon

dim log_X[21]
	log_X[0]=44   ## logs
	log_X[1]=54   ## oak
	log_X[2]=64   ## red tree
	log_X[3]=74   ## dark tree
	log_X[4]=84   ## swamp
	log_X[5]=94   ## silwer
	log_X[6]=104  ## keranit
	log_X[7]=114  ## perit
	log_X[8]=124  ## petrified
	log_X[9]=134  ## dragon
	log_X[10]=44  ## vampire
	log_X[11]=54  ## eridan
	log_X[12]=64  ## helios
	log_X[13]=74  ## illusions
	log_X[14]=84  ## crystal
	log_X[15]=94  ## dead tree
	log_X[16]=104 ## paradise
	log_X[17]=114 ## titan
	log_X[18]=124 ## avalon
	log_X[19]=134 ## elven
	log_X[20]=44  ## asterxylon

dim log_Y[21]
	log_Y[0]=65   ## logs
	log_Y[1]=65   ## oak
	log_Y[2]=65   ## red tree
	log_Y[3]=65   ## dark tree
	log_Y[4]=65   ## swamp
	log_Y[5]=65   ## silwer
	log_Y[6]=65   ## keranit
	log_Y[7]=65   ## perit
	log_Y[8]=65   ## petrified
	log_Y[9]=65   ## dragon
	log_Y[10]=95  ## vampire
	log_Y[11]=95  ## eridan
	log_Y[12]=95  ## helios
	log_Y[13]=95  ## illusions
	log_Y[14]=95  ## crystal
	log_Y[15]=95  ## dead tree
	log_Y[16]=95  ## paradise
	log_Y[17]=95  ## titan
	log_Y[18]=95  ## avalon
	log_Y[19]=95  ## elven
	log_Y[20]=125 ## asterxylon

uo.Print('Viberi sumku s rubki...') 
uo.Exec('addobject source_bag') 
while uo.Targeting() 
  wait(100) 
wend 
uo.useobject('source_bag')

uo.Print('Viberi sumku dla logov...') 
uo.Exec('addobject storage_bag') 
while uo.Targeting() 
  wait(100) 
wend 
uo.useobject('storage_bag')

for i=0 to 20

 uo.findtype(log, log_col[i], 'source_bag')
 in_source=uo.findcount()
 if in_source>0 then
   uo.findtype(log, log_col[i], 'storage_bag')
   in_storage=uo.findcount()
   if in_storage==0 then
     uo.findtype(log, log_col[i], 'source_bag')
     uo.moveitem('finditem', '-1', 'storage_bag', log_X[i], log_Y[i],0) 
     wait(650)
   endif
   if in_storage>0 then
     uo.findtype(log, log_col[i], 'source_bag')
     uo.moveitem('finditem', '-1', 'storage_bag') 
     wait(650)
   endif
 endif
 wait(10)
next
end sub
##################################################### 

sub reg_sync() 
var i=0, count=20
var in_travel=0
var in_source=0
var get_count=0
var travel_bag, source_bag
dim reg[8]
reg[0]=0x0F7B ## BM
reg[1]=0x0F7A ## BP
reg[2]=0x0F84 ## GA
reg[3]=0x0F85 ## GS
reg[4]=0x0F86 ## MR
reg[5]=0x0F88 ## NS
reg[6]=0x0F8C ## SA
reg[7]=0x0F8D ## SS
dim coord_reg_X[8]
coord_reg_X[0]=44 ## BM
coord_reg_X[1]=120 ## BP
coord_reg_X[2]=77 ## GA
coord_reg_X[3]=93 ## GS
coord_reg_X[4]=95 ## MR
coord_reg_X[5]=74 ## NS
coord_reg_X[6]=44 ## SA
coord_reg_X[7]=120 ## SS
dim coord_reg_Y[8]
coord_reg_Y[0]=65 ## BM
coord_reg_Y[1]=83 ## BP
coord_reg_Y[2]=83 ## GA
coord_reg_Y[3]=83 ## GS
coord_reg_Y[4]=65 ## MR
coord_reg_Y[5]=65 ## NS
coord_reg_Y[6]=83 ## SA
coord_reg_Y[7]=65 ## SS

uo.Print('Выбери сумку с регами...') 
uo.Exec('addobject source_bag') 
while uo.Targeting() 
  wait(100) 
wend 
uo.useobject('source_bag')
uo.Print('Выбери сумку для регов...') 
uo.Exec('addobject travel_bag') 
while uo.Targeting() 
  wait(100) 
wend 
uo.useobject('travel_bag')

for i=0 to 7
 uo.findtype(reg[i], '-1', 'source_bag')
 in_source=uo.GetQuantity('finditem')
##uo.print('naydeno1 reg #'+str(i)+' = '+str(in_source))

 uo.findtype(reg[i], '-1', 'travel_bag')
 in_travel=uo.GetQuantity('finditem')
##uo.print('naydeno2 reg #'+str(i)+' = '+str(in_travel))

; if in_travel<50 then
     if in_source>0 then
       get_count=count-in_travel
uo.print('kladem # '+str(i)+' = '+str(get_count)+ '  ('+str(count)+' - '+str(in_travel)+')')
       if in_travel==0 then
           uo.findtype(reg[i], '-1', 'source_bag')
           uo.moveitem('finditem',get_count,'travel_bag',coord_reg_X[i],coord_reg_Y[i],0) 
        else
         if get_count>0 then
           uo.findtype(reg[i], '-1', 'source_bag')
           uo.moveitem('finditem',get_count,'travel_bag') 
         endif
         if get_count<0 then
           get_count=in_travel-count
           uo.findtype(reg[i], '-1', 'travel_bag')
           uo.moveitem('finditem',get_count,'source_bag') 
         endif
       endif
      else
       uo.Print('Недостаточно регов!!')
     endif
; endif
 wait(650)
next
end sub
##################################################### 
sub hiding_w()
var status
  uo.DeleteJournal() 
  status=uo.warmode()
##  uo.print('status='+str(status))
  uo.warmode(0)
  uo.useskill('Stealth')
  while not uo.InJournal('seem') and not uo.InJournal('You have hidden') 
    wait(100) 
  wend 
  uo.warmode(status)
end sub

Code: Select all

	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="That is too far away."
	var Text5="You can't do much in your current state."
	var Text6="You put the Ent's body part at your feet. it is too heavy.."
	var Text7="Ent"

Code: Select all

##uo.DeleteJournal()