Yoko
http://forum.yoko.com.ua/

изправте скрипт на Оскоме на Лумбер
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1577		 Page 1 of 1
Author:  MEHT [ 2004-10-11 13:43:11 ]
Post subject:  изправте скрипт на Оскоме на Лумбер
помогите переписать скрипт с рекаллом !!! ЧТОБЫ домой рекалился
##########################################################
### Lumberjacking / ????? ???????? v6.8 Full ###
##########################################################
### ???? Dragon World / www.drw.ru ###
##########################################################
### ????????:
### ??? ?????? ??????? ????? ?????? YokoInjection 4ZD.
### ??????? dll ???? ?????? ?????
### ?? ????: http://www.swines.nm.ru/injection.zip
##########################################################
### ?? ???????? ? ???????????? ?????????? ????:
### ICQ: 333358386 [cOoler]
### ??????:
### -?? ?????? ???? ??????:"©Elthar aka Duo",
### ?? ??? ??? ?????? ??????? ???????.
### -???????????? ? ????????:"BETEPAH".
### -???? ?? ????????? ? ???????????:"cOoler".
### -?? ?????????? ?????? ???????:"Mafia".
### -?? ??????? ??????????? ????????? ???????:"Sfagnum"
### -? ????? ?? ??????? ???????? ????? ???????:"Mguai"
### ??????? ???? ??? ????? ???? ??????? ??????? ?
### ?????????? ????? ???????.
#########################################################
############################
### ???????? ? ????????? ###
############################
### ???????? ???????? ?? ?????? "]![" ??? ????????? ?????? ?????????.
###
### ??? ?????? ?? ?????? ? ?????? (?????????? ???????? ????? ?? ?????).
### ???????, ????? ? ??????????, ??? ????? 700 ???? ? ???? ?????????? ????? ????????? ???? ? ??????,
### ????? ????????? ??????? ????? ? ?????????? ?????? ? ?????????? ??????.
### ??????: ? ????? 100 ????????, ?? ??????? 74 ????? ?? ??????? ? 700 ????? ????????? ??????? ??????
### ? ?? "???????????" ????? ? ??????????? ???? ? ??????, ????? ?? ?????????? ??????? ? ??? ? ?????? ? 75 ??????.
### ????? ?? 100 ?????? (?????? ?????????? ? ??????) ??? ???????? ? 1??? ??????.(???????????)
###
####################
### ???????????? ###
####################
### 1)???? ???????????? ?? ?? ??? ? ? ??????. [BETEPAH]
### 2)????? ? ??? ? ????? ?? ??????? (? ?? ?? ??????). [BETEPAH]
### ]![ ???????? ? ??????? ?????? ??? ? ??????? ????????? ??? ??? ????. ]![ [????]
### 3)??????? ????????? ?????? ? ?????????? ? ??????????????? ???????????? ????????
### (?????? ??? ??? ????? ?? ???? ? ????? ????? ?????? ???????)?????? ?????? ???? ? ?????? ???????? ?? ????????
### (?????? ?????, ??? ? ?????? ? ????? ?????). [BETEPAH]
### 4)???????? ?????? ?????????????? ???????? ?? 500 ??. [B??????]
### 5)???????? ??????? ????? (?????, ?? ??????). [B??????]
### 6)????????? ??????? InfoLogs. [Mguai, ?????????? BETEPAH]
### 7)???????? ????? ?????. [cOoler, ?????????? BETEPAH]
### 8)????????? ??????? ?????? ?? ?????. [BETEPAH]
### 9)????????? ??????? ?????? ??? ?????. [cOoler]
### 10)???????? ?????????. [FoX M, ???????? cOoler]
### 11)????????? ????? ??????? ????? ?? ????? ? ????????. [cOoler]
### 12)???????? ??????? ?????? ????? ? ??????. [cOoler]
### 13)????????? ???????(???????) ?????. [cOoler]
### 14)????????? ????? ??? ? ??????? ? ??? ? ?????. [cOoler]
### 15)???????? ???? ?? ???????????. [cOoler]
### 16)???????? ????? ????? ?? ??????. [cOoler]
### 17)???????? ??????(?????????? ????????) ???????. [cOoler]
### 18)???????? ????? ????? ? ???????? ????? ????? ?????. [cOoler]
### 19)????????? ??????? ???????????? ????. [cOoler]
### 20)????????? ???????? ??????? ???????????? ????. [cOoler]
### 21)???????????? ??????? ??????? ???????. [cOoler]
### 22)??????????????? ??????? ??????????? ?????????. [Sfagnum]
### 23)????????? ??????? ?????? ???? ??? ??? ??? ??????. [cOoler]
###
### ]![ ????? ?????? ????????? ??????????? ???????? ?????????. ]![
###
###################################
### ?????? ?????? ??????? ###
###################################
### ???????? ? 2? ???????: ###
### 1)?????????? ###
### 2)????? ###
###################################
### ????? ?????? - "??????????" ###
###################################
### ???? ????? ???????? ?? ????????????(??????????? ?????????) ????????.
### ?????????? ?????????? var GetFromFile=0 ## 1 - ?????????? ???????? ????? ?????????? ?? ?????, 0 - ????????? ?? ???????.
### ?? ???? ???? GetFromFile=0 ?????????? ???????? ????????? ?? ???????.
###
### ?????????? ?????????? ???:
### ???????? ?????????? GetFromFile ?????? 0 (GetFromFile=0).
### ???????? ? ???? ? ????? ?????, ??????(? ?????? ????? ? ? ???) ? ?????.
### ????? ? ??? ? ??????? ?? ?????? ??????.
### ????????? ?????? Lumberjacking(), ?????? ???????? ??? ??????? ?????
### (???????? ??????,???????? ?? ????? ??????? ?? ? ????? ?????), ????? ?????? ???????? ??? ??????? ??????(???????? ??????,???????? ?? ????).
### ?????? ??????? ??? ??? ('???????? ?????????? ???????? ? ??????...').
### ?????? ???????? ??? ??????? ?????(???????? ??????,???????? ?? ???).
### ?????? ?? ?????? ? ????? ??????? ???? ???????? ??????? ??????????(?????????? ?????? ?????? ???????? ?? ??????).
### ???? ?? ?? ???????????? ? "??????" ?? ??????, ?? ?????? ??????? ??? ?? ????(??????? ?????? "?????????? ??????").
### ?????? ??? ???? ???? ?? ??????? ??? ???? ?? ???? ?????? ?? ?? ?? "????????" ??? ????????.
### ?????? ?? ???? ? ??????? ???????,????? ???? ??? ?? "????????" ??????????? ?????????? ????????.
### ?????? ??????? ??? ????????? ('?????? ????????, ?????????? ???????? ???????? ? ???? C:\trees3.dat') ? ??????? ???? ?? ?????
### ?:\ ???? ??????? ?????????? ????????.
### ????? ????? ??? ?????? ?? ??????????? ? ????? ???????? ???????.
###
##############################
### ????? ?????? - "?????" ###
##############################
### ???? ????? ?????????????? ???????? ?? ?????.
### ?????????? ?????????? var GetFromFile=1 ## 1 - ?????????? ???????? ????? ?????????? ?? ?????, 0 - ????????? ?? ???????
### ?? ???? ???? GetFromFile=1 ?????????? ???????? ????? ?????????? ?? ?????.
### ? ??? ?? ???? ????? ????? ??????? ???????.
###
### ????? ?????????? ???:
### ???????? ?????????? GetFromFile ?????? 1 (GetFromFile=1).
### ???????? ? ???? ? ????? ????? ? ??????(? ?????? ????? ? ? ???).
### ]![ ???????? ? ??????? ???? ? 1?? ????? "?????", ? 9?? ????? "? ???". ]![
### ????? ????????? ??? ? ??????.
### ]![ ???????? ? ??????? ?????? ??? ? ??????? ????????? ??? ??? ????. ]![
###
######################################
### ?????????????? ??????? ??????? ###
######################################
### ? ??????? 3 ???. ???????: ###
### 1)?????? ??????? ###
### 2)??????? ###
### 3)????? ??? ????? ###
### 4)????????? ###
##########################################
### ??????? ?????? - "?????? ???????" ###
##########################################
### ???? ????? ?????????????? ???????? ?? ??????(?????????? ????????) ???????.
### ?????????? ?????????? var RechargeBook=1 ## 1 - ???????? ?????? ???????, 0 - ????????? ??????.
### ?? ???? ???? RechargeBook=1 ??? ????? ????????? ???????.
###
### ?????? ?????????? ???:
### ???????? ?????????? RechargeBook ?????? 1 (RechargeBooks=1).
### ???????? ? ??????, ? ??????? ????? ??????????? ????, ??????.
### ??? ????? 50 ??????? ?? ???????, ???????? ???????, ?????????? ?????? ??????? ? ??????.
###
############################################
### ??????? ?????? - "???????????? ????" ###
############################################
### ???? ????? ?????????????? ???????? ?? ???????????? ????.
### ?????????? ?????????? var EatingFood=1 ## 1 - ????? ????, 0 - ???.
### ?? ???? ???? EatingFood=1 ??? ????? ??????.
###
### ???????????? ???? ?????????? ???:
### ???????? ?????????? EatingFood ?????? 1 (EatingFood=1).
### ???????? ? ?????? ???? ????? ??????????? ???? ? ??? ????? ?????? - ???,
### ??? ??????? ?? ??????? ??? var TypeFood='0x097B' ## - ??? ??? ??????? ????? ??????.(?????? ????????)
### ]![ ??????? ???????? ? ?????? ???????? ??? ?.?. ??? ??? ????????? ?????? ???????! ]![
### ????? ???? ??? ??? ??????? ???? ? ????????? ???????, ????? ??????.
### ?? ????? 20 ?????? ??? ? ??????, ??? ???????? ????????? ??????? ? ??????.
###
##########################################
### ??????? ?????? - "????? ??? ?????" ###
##########################################
### ???? ????? ?????????????? ???????? ?? ????? ??? ????? ????? ? ?? ??????.
### ?????????? ?????????? var AttackEnts=1 ## 1 - ???????? ????? ?? ????(? ????) ??? ?????, 0 - ????????? ?????.
### ?? ???? ???? AttackEnts=1 ??? ????? ?????????? ??? ?????.
###
### ????? ?????????? ???:
### ???????? ?????????? AttackEnts ?????? 1 (AttackEnts=1).
### ????????? ???? ? ??????????? ?????.
### ???????? ? ???? ? ?????
### ????(??????? ?????????) ? ????????.(Black Pearls,Blood Moss,Mandrake Root.)
### ]![ ???????? ???? ?????? ?????? ? ??????????? ?????????(??? ?????????, ?????? ???????????). ]![
### ??? ????? ?? ????????????? ????????????? ?? ?? ?????,
### ??? ????????? ????(? ???????).
### ? ??? ????? ? ???? ???????????? ??? ???? ??? ??? ??????.
### ????? ???????? ??????? ???? ??????? ???? "names.dat" ? ??????? ? ???? ????.[?????? 821]
### ????? ?????? ????? ??????????? ????, ?????? ??? ??????? ?????????.
### ??? ???? ?????? "???????????!"
### ??? ???? ??????? ?????:
### 1) ????????????????? ?????? ?? ????? ?????.
### 2) 3???????? ?????? ??????!
###
#######################################
### ??????? ????????? - "?????????" ###
#######################################
### ???? ????? ?????????????? ???????? ?? ????????? ??? ??????????? ? ???????.
### ?????????? ?????????? var Reconnect=0 ## 1 - ???????? ????????? ?? ?????? ???? ???????, 0 - ????????? ?????????.
### ?? ???? ???? Reconnect=1 ??? ????? ?????????? ??? ?????.
###
### ????????? ?????????? ???:
### ???????? ?????????? Reconnect ?????? 1 (Reconnect=1).
### ???? ????? ???????? ??????? ????? ??? ??? ??????? ?? ????? ?????? ???????
### ??????????? ??????????? ??? ?? ?????? ?????????????.
### ??????? ????? ??????????? ? ???????? ?? ??????.
###
### ]![ ????????? ?????? ??? ???? ??? ?????? ??????????. ]![
###
##################
### ?????????? ###
##################
###################################################################################################
var f=file("C:\trees3.dat") ## - ???? ? ????? ? ??????? ????? ???????? ?????????? ????????.
###
var Area=1 ## - ?????? ?????????????? ??????????, ????? ?????? ?? 1 ?? 4
### (?? ???????? 1 - 4, ??????? ????? ?????????? ?? ????)
### (??? ?????? ?????? ?????????????? ??????????, ??? ?????? ????? ?????? ?? ?????????? ????????).
###
var TryHiding=1 ## 1 - ????? ??? ??? ?????? ??????, ????? ???????? ???? ? ????, 0 - ?? ????? .
###
var TryRecall=1 ## 1 - ????? ???? ??? ??????? LogsQty ?????, ????? ???????? ?????????? ?????,
### ?????????? ???? ? ?????? ? ?????????? ??????? , 0 - ?? ?????.
###
var RechargeBook=0 ## 1 - ???????? ?????? ???????, 0 - ????????? ??????.
###
var RuneToHome=4 ## - ????? ???? ?????,?? ????? ? ???????.(?????? ? 4?? ?????,????? ?????? ?? 1-9)
###
var RuneToLumber=5 ## - ????? ???? ? ???,?? ????? ? ???????.(?????? ? 5?? ?????,????? ?????? ?? 1-9)
###
var LogsQty=100 ## - ?????????? ?????, ????? ??????? ???? ?????????? ?????.
###
var GetFromFile=0 ## 1 - ?????????? ???????? ????? ?????????? ?? ?????, 0 - ????????? ?? ???????
### (??????? ???????? ? ????? ?????????? ?? ?????).
###
var AttackEnts=1 ## 1 - ???????? ????? ?? ????(? ????) ??? ?????, 0 - ????????? ?????.
###
var CastAtAttack=0 ## 1 - ???????? ???? - "Magic Arrow" ?? ?????????, 0 - ????????? ????.
###
var EatingFood=1 ## 1 - ????? ????, 0 - ???.
###
var TypeFood='0x097B' ## - ??? ??? ??????? ????? ??????.(?????? ????????)
###
var Reconnect=0 ## 1 - ???????? ????????? ?? ?????? ???? ???????, 0 - ????????? ?????????.
###
var RecallDrop=0 ## 1 - ???????? ????? ????? ?????? ?? ???? ????? ? ???????? ????, 0 -?????????.
###
var RecallLumber=1 ## 1 - ???????? ????? ? ??? ????? ???????? ????????, 0 - ?????????.
###
var RecallHome=1 ## 1 - ???????? ????? ? ??? ????? ???????? ????????, 0 - ?????????.
###
var Chest='0x41157978' ## - ID ??????? ???? ????? ??????????? ????, ??? ?????? ?????? ?????? ? ???.
###
var LumberSound=('C:\Warning.wav') ## - ???? ?????? ????? ??????? ??? ?????.(???????? ?? ????)
###
var OldX,OldY,time ## - ??? ??????.
###
###################################################################################################
###
### ????? ?????????:
### ????? ? ??? ? ??????? ?? ?????? ??????.
### ????????? c????? Lumberjacking(), ?????? ???????? ??? ??????? ?????
### (???????? ??????, ???????? ?? ????? ??????? ?? ? ????? ?????),
### ????? ?????? ???????? ??? ??????? ??????(???????? ??????, ???????? ?? ????).
### ????? ????? ??? ?????? ?? ??????????? ? ????? ???????? ???????.
###########
### ??? ###
###########
sub Lumberjacking()
var i=0,j=0,k=0,r=0,q=0,ii,jj
var TopX=324,TopY=65
dim TreeX[500], TreeY[500],TreeT[500]
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


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

uo.Print('?????? ?????: ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend

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

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#Графика деревьев
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.addobject("a key ring", 0x4002E71B) # Обьект кейринга
uo.addobject("spellbook", 0x40119A2A) # Обьект спелбука
uo.addobject("runebook", 0x40015043) # Обьект runebook
uo.addobject("runebook2", 0x40065957) # Обьект runebook
uo.addobject("pestik", 0x4014925D) # пестик

uo.print('Выбери топор: ')
uo.exec('addobject axe')
wait(5000)


if TryRecall==1 then
uo.print('Выбери руну домой: ')
uo.exec('addobject runeHome')
wait(5000)
uo.print('Выбери руну в лес: ')
uo.exec('addobject runeLumber')
wait(5000)


#####################################
### Eacsoeaag ziisackanu ce oaeea ###
#####################################
if GetFromFile==1 then
uo.Print('Eacsoeaag ziisackanu ce oaeea...')
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
######################################
### Niicsaag ziisackanu ce zecakna ###
######################################
uo.Print('Auiasc Zcszo: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Niicsaag ziisackanu aasaauaa a izsoca...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Zeczaag ka naee ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Lsiaas?ag aasaai ec zni ###
###############################
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
#########################
### Zeczkoec ka nnaie ###
#########################
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('Kaeaaki aasaai '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount))
end if
end if
##########################
### Zeczkoec li ecnnaa ###
##########################
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('Kaeaaki aasaai '+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('Akaece eazik?ak, ziisackanu aasaauaa ealcnaku a oaee C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Aasaauaa kaeaaki: '+str(treeCount))
wait(2000)
######################################
### Oiacg li niisakkug ziisackanag ###
######################################
while 1==1
if treeCount>0 then
for i=1 to treeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty then
ToRecall()
end if
uo.Print('Caag z aasaao '+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('Ka?ckaag soizo aasaaa...')
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 ToRecall(FromScroll)
RecallToHome(FromScroll)
wait(500)
uo.press(36)
wait(500)
uo.press(36)
wait(500)
repeat
wait(600)
gotoxy(776,1920)
uo.exec("emptycontainer 400 'backpack' 0x400634A4")
wait(1000)
uo.setreceivingcontainer('backpack')
wait(500)
uo.grab(0,'bag')
wait(500)
uo.grab(0,'runeHome')
wait(500)
uo.grab(0, "a key ring")
uo.grab(0, "spellbook")
wait (500)
uo.grab(0, "runebook")
wait (500)
uo.grab(0, "runebook2")
uo.grab (0,"runeLumber")
wait (500)
uo.grab (0,"pestik")
wait(1000)


RecallToLumber(FromScroll)
end sub

sub RecallToHome(FromScroll)
var i
uo.print('????????? ?????...')
for i=1 to 10
uo.deletejournal()
uo.waittargetobject('runeHome')
if FromScroll==0 then
uo.cast('Recall')
else
uo.useobject('RecallScroll')
end if
if WaitForRecall()==1 then
return 1
end if
next
return 0
end sub


sub RecallToLumber(FromScroll)
var i
uo.print('????????? ???????...')
for i=1 to 10
uo.deletejournal()
uo.waittargetobject('runeLumber')
if FromScroll==0 then
uo.cast('Recall')
else
uo.useobject('RecallScroll')
end if
if waitForRecall()==1 then
return 1
end if
next
return 0
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
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 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
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 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('Auzeaauaaag Eicc.')
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('Eicc Aueieaku.')
end sub

sub InfoLogs()
uo.Print('O aan anaci '+str(uo.Count('0x1BDD'))+' eicia a nogza')
uo.Print('Ce kco '+str(uo.Count('0x1BDD','0x0000'))+' lsinnuo c ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' oaankuo')
end sub

sub RunebookRecall(n)
oldX=uo.getX()
oldY=uo.getY()
repeat
uo.Exec('warmode 0')
uo.UseObject('Runebook')
wait(1000)
uo.LClick(135, n*15+55)
wait(500)
uo.LClick(135, n*15+55)
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'
repeat
if uo.InJournal('is attacking you') or uo.InJournal('OOPS!!!') or uo.InJournal('Wis Quas') then
uo.Exec('terminate Lumberjacking')
Enemy=uo.JournalSerial(uo.InJournal('is attacking you')-1)
##uo.PlayWav(LumberSound)
if CastAtAttack==1 then
uo.Cast('Magic Arrow',Enemy)
end if
uo.DeleteJournal()
RecallAtAttack()
end if
wait(1000)
until false
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('Anaza! Saziecgn?!')
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('Ana ookzocc nzsclna auzez?aku!')
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
Author:  Sfagnum [ 2004-10-11 14:11:50 ]
Post subject:  Re: изправте скрипт на Оскоме на Лумбер
MEHT wrote:
помогите переписать скрипт с рекаллом !!! ЧТОБЫ домой рекалился
пипец... столько копирнуть и столь криво вставить, мляяя....
Author:  MEHT [ 2004-10-11 16:51:30 ]
Post subject:  Ты не смотри на скрипт я просто прошу кто умеет переделать !
Ты не смотри на скрипт я просто прошу кто умеет переделать !
Author:  Kazoo [ 2004-10-11 17:58:47 ]
Post subject: 
слушай ты ! в начале научис ползоваца тегами ! [code][./code] потом скочай старий форум и посмотры сергиуса лумбер скрипт ! понятно "Ты" ? и засунь чужой скрипт в теги ! а и ешо што "ты" прочитай хелп и "ты" посмотри готовие скрипти ! + "ты" прочитай документацию к настроике скрипта ! понел "ты" ? и учись сам переделовать ! некто за тебя гразнаю работу делать за безплатно не будет
Author:  MEHT [ 2004-10-11 19:59:02 ]
Post subject:  Ты мне напиши где скочать старый форум!
Ты мне напиши где скочать старый форум!
Author:  Kazoo [ 2004-10-11 23:26:10 ]
Post subject: 
тута!
Author:  MEHT [ 2004-10-12 06:54:51 ]
Post subject:  Слыш ну вот я его зделал как ему показать руны!
Слыш ну вот я его зделал как ему показать руны?
Author:  Kazoo [ 2004-10-12 13:20:51 ]
Post subject: 
кароче стукни 2422750 я тебе дам макрос и помагу настроит !
Author:  BETEPAH [ 2004-10-13 10:16:28 ]
Post subject: 
Вечером сброшу нормальный
Author:  MEHT [ 2004-10-13 18:02:53 ]
Post subject: 
Unexpected target info Vot eto on pi6et kogda letit domoj a tak script etot rabotaet...Sam script kotorij v nizu
Author:  MEHT [ 2004-10-13 18:03:59 ]
Post subject:  Vot on
##########################################################
### Lumberjacking / Soiza aasaauaa v6.8 (Last) ###
##########################################################
### Uasa Dragon World / www.drw.ru ###
##########################################################
### Akcgakca:
### Ae? saiinu nzsclna koeka aasnc? YokoInjection 4DZ.
### Nza?anu dll znie aasncc gieki
### in nzaa: http://www.swines.nm.ru/injection.zip
##########################################################
### Li ailsinag c lsaaeieakc?g iisalanun? nzaa:
### ICQ: 333358386
### Aanisu:
### -Ea inkiao ae?n nzscln:"©Elthar aka Duo",
### ea ?ni aci aaniso iieuuia nlancii.
### -Saaazncsiaae c ailiek?e:"BETEPAH".
### -Caac li aisaiinza c lasasaiinza:"cOoler".
### -Ea kaioakcgoz ligilu nlancii:"Mafia".
### -Ea zisaznkkoz ligilu c caac:"Askaneli".
### -A nazea ea ncnnago lian?ana eicia nlancii:"Mguai"
### Nlancii anag zni zazcg ecii iisaeig ligicae a
### saesaiinza znici nzsclna.
#########################################################
############################
### Ilcnakca c kannsieza ###
############################
### Iisancna akcgakca ka eka?zc "]![" cgc auaaeakku aaekua niiilakc?.
###
### ?as iacaan in aasaaa z aasaao (ziisackanu aasaauaa iasan ce oaeea).
### Ausoicn, iaecn z neaaozlago, lsc eicao 700 unoz a laza lisnaecnn? aigie nzcauaaan eicc a nokaoz,
### linea saziecnn? iisanki iaecn z lineaakago aasaao c lsiaieeaan soicnu.
### Lscgas: A oaeea 100 aasaauaa, au ausoica 74 aiuec ai lscaaea a 700 eicia nsaiinaea ncnnaga saziea
### c au "lisnaecnanu" aigie c nzeaauaaana eicc a nokaoz, linea au saziecnanu iisanki a ean c iaecna z 75 aasaao.
### Aiea? ai 100 aasaaa (niannu lineaakaci a nlcnza) ?as lasaeaan z 1igo aasaao.(Oczec?kinnu)
###
####################
### Kiaiaaaaakc? ###
####################
### 1)Eicc nzeaauaaznn? ka ka lie a a nokaoz. [BETEPAH]
### 2)Sazie a ean c aigie li sokioza (a ka li sokzag). [BETEPAH]
### ]![ Akcgakca a nzsclna kigasa sok a sokioza kannsiaku lia ASA uasa. ]![ [Uasa]
### 3)Ncnnaga aanigasza oisaka c lasaaaeaka a niginni?naeukia gaszcsiaakca aasaauaa
### (sakuua ?as nag iacae li eano c i?aku aieci gas?ce aasaau?)nalasu iacaag nagc c lsinni lscoaeig li aasaau?g
### (gas?cg nazea, zaz c sakuua a sozao zcsza). [BETEPAH]
### 4)Oaaec?ak lscaae eagaszcsiaakuo aasaauaa ai 500 un. [BANASAK]
### 5)Oeo?uaka ncnnaga oaeaa (oiacg, ka iacaag). [BANASAK]
### 6)Aiiaaeaka ncnnaga InfoLogs. [Mguai, aisaiinaka BETEPAH]
### 7)Aiiaaeak auiis zcszc. [cOoler, aisaiinaka BETEPAH]
### 8)Aiiaaeaka ncnnaga ealcnu in aknia. [BETEPAH]
### 9)Oiunnsaka ncnnaga saziea lsc anaza. [cOoler]
### 10)Aiiaaeak sazikkazn. [FoX M, saegalak cOoler]
### 11)Aiiaaeaku kiaua ookzocc auiis ka anazo c sazikazn. [cOoler]
### 12)Cegakaka ncnnaga nisina eicia a nokaoz. [cOoler]
### 13)Liekinnuz cegakak(olsalak) sazie. [cOoler]
### 14)Aiiaaeaku auiis sok a sokioza a ean c aigie. [cOoler]
### 15)Aiiaaeak zann ka kalaaazlaci. [cOoler]
### 16)Aiiaaeak auiis oaeea ni eaozig. [cOoler]
### 17)Aiiaaeak sa?ase(ealiekakca nzsieagc) sokiozc. [cOoler]
### 18)Aiiaaeak sazie aigie c aucsonza eicia linea anazc. [cOoler]
### 19)Aiiaaeaka ookzoc? olinsaieakc? lclc. [cOoler]
### 20)Liekinnuz cegakaka ookzoc? olinsaieakc? lclc. [cOoler]
### 21)Lasasaiinaka ncnnaga sa?asea sokiozc. [cOoler]
### 22)Oisaku lasaoiau lsc gasza. [BETEPAH,Askaneli]
### 23)Lasaaaeaka ncnnaga iecaakc? naeaa ziisackan a oaee. [BETEPAH,Askaneli]
### 24)Oisaka ncnnaga Asaa. [BETEPAH,Askaneli]
### 25)Aiiaaeaka ncnnaga lian?ana aasaauaa. [BETEPAH,cOoler,Askaneli]
### 26)Oaaec?ak lsaaae aasaauaa ai 5000 un. [BETEPAH,Askaneli]
###
### ]![ ?niiu nzscln easaiinae akcganaeuki lsi?ncna kannsiezc. ]![
###
###################################
### Saecgu saiinu nzsclna ###
###################################
### Saiinaan a 2o saecgao: ###
### 1)Gaszcsiaza ###
### 2)Soiza ###
###################################
### Saecg Lasaue - "Gaszcsiaza" ###
###################################
### Znin saecg inaa?aan ea Gaszcsiaakca(ealcnuaakca ziisackan) aasaauaa.
### Azez?aann? lasagakkie var GetFromFile=0 ## 1 - ziisackanu aasaauaa ioaon n?cnuaann? ce oaeea, 0 - niicsann? ce zecakna.
### Ni annu anec GetFromFile=0 ziisackanu aasaauaa niicsann? ce zecakna.
###
### Gaszcsiaza lsicnoiacn naz:
### Linnaana lasagakkoz GetFromFile saakoz 0 (GetFromFile=0).
### Lieiecna z naia a nogzo Nilis, Sokioz(n sokagc aigie c a ean) c Zcszo.
### Cacna a ean a zinisig au oincna soicnu.
### Ealonncna Nzscln Lumberjacking(), ckeazn lilsincn aan ozaeanu Nilis
### (li?acnn? lscoae,lscoaeig ka nilis zinisue au n niiie ae?ec), linig ckeazn lilsincn aan ozaeanu Sokioz(li?acnn? lscoae,lscoaeig ka kaci).
### Ckeazn niiilcn aag ?ni ('Niicsaag ziisackanu aasaauaa a izsoca...').
### Ckeazn lilsincn aan ozaeanu Zcszo(li?acnn? lscoae,lscoaeig ka kao).
### Nalasu au aieeku a eziig lis?aza nagc lscoaeig ozaeanu ziisackanu(ainnani?ki lsinni kaeanu lscoaeig ka aasaai).
### Anec au ka lsigaokoecnu c "kaeaec" ka aasaai, ni ckeazn niiilcn aag ii znig(Kaeaaki aasaai "ziisackanu aasaaa").
### Lsc?ag ?ni anec aaea au kaegana aaa saea ka iaki aasaai ni ik ka "ealigkcn" aci lianiski.
### Oiacna li eano c gas?cna aasaau?. Ae? nici ?niiu INNAKIACNU GASZ kaegcna lscoaeig ka nai?.
### Ckeazn kalcuan aag niiilakca ('Akaece eazik?ak, ziisackanu aasaauaa ealcnaku a oaee C:\trees3.dat') c nieaann oaee ka acnza
### N:\ zoaa ealcuan ziisackanu aasaauaa.
### Linea znici ?as lieaan li ziisackanag c ioaan ausoianu aasaau?.
###
##############################
### Saecg Anisie - "Soiza" ###
##############################
### Znin saecg niinaannnaakki inaa?aan ea soizo.
### Azez?aann? lasagakkie var GetFromFile=1 ## 1 - ziisackanu aasaauaa ioaon n?cnuaann? ce oaeea, 0 - niicsann? ce zecakna
### Ni annu anec GetFromFile=1 ziisackanu aasaauaa ioaon n?cnuaann? ce oaeea.
### C aag ka kaai ioaan nkiai gas?cnu aasaau?.
###
### Soiza lsicnoiacn naz:
### Linnaana lasagakkoz GetFromFile saakoz 1 (GetFromFile=1).
### Lieiecna z naia a nogzo Nilis c Sokioz(n sokagc aigie c a ean).
### ]![ Akcgakca a sokioza soka a 1ig neina "Aigie", a 9ig neina "A ean". ]![
### Linea onnakiaiz sok a sokioz.
### ]![ Akcgakca a nzsclna kigasa sok a sokioza kannsiaku lia ASA uasa. ]![
###
######################################
### Ailiekcnaeukua ookzocc nzsclna ###
######################################
### A nzsclna 3 ail. ookzocc: ###
### 1)Sa?ase Sokiozc ###
### 2)Zouakua ###
### 3)Liiac lsc Anaza ###
### 4)Sazikkazn ###
##########################################
### Ookzoc? Lasaa? - "Sa?ase Sokiozc" ###
##########################################
### Znin saecg niinaannnaakki inaa?aan ea Sa?ase(ealiekakca nzsieagc) Sokiozc.
### Azez?aann? lasagakkie var RechargeBook=1 ## 1 - Azez?cnu sa?ase sokiozc, 0 - inzez?cnu sa?ase.
### Ni annu anec RechargeBook=1 ?as ioaan sa?asecnu sokiozo.
###
### Sa?ase lsicnoiacn naz:
### Linnaana lasagakkoz RechargeBook saakoz 1 (RechargeBooks=1).
### Lieiecna a nokaoz, a zinisue ioaon aucso?anun? eicc, sazieu.
### ?as iasan 50 sazieia ce nokaoza, sa?asean sokiozo, innaaucan? zeaaan iisanki a nokaoz.
###
############################################
### Ookzoc? Anisa? - "Olinsaieakca Lclc" ###
############################################
### Znin saecg niinaannnaakki inaa?aan ea Olinsaieakca Lclc.
### Azez?aann? lasagakkie var EatingFood=1 ## 1 - Ioaag annu, 0 - kan.
### Ni annu anec EatingFood=1 ?as ioaan zouanu.
###
### Olinsaieakca Lclc lsicnoiacn naz:
### Linnaana lasagakkoz EatingFood saakoz 1 (EatingFood=1).
### Lieiecna a nokaoz zoaa ioaon aucsoeanun? eicc c caa eaean sazieu - aao,
### ncl zinisie au ozaeaec non var TypeFood='0x097B' ## - Ncl aau zinisoz ioaag zouanu.(nae?an ocunaezc)
### ]![ Niaanoz lieiecnu a nokaoz liiieuua aau n.z. aec ika zik?cnun? nzscln annakan! ]![
### Linea nici zaz ?as aueiecn eicc c sa?asekan sokiozo, ioaan zouanu.
### Ik iasan 20 aackco aau c zouaan, ?ni innaeinu aucsoeaan iisanki a nokaoz.
###
##########################################
### Ookzoc? Nsanu? - "Liiac lsc Anaza" ###
##########################################
### Znin saecg niinaannnaakki inaa?aan ea Liiac lsc anaza aknia c ka nieuzi.
### Azez?aann? lasagakkie var AttackEnts=1 ## 1 - Azez?cnu sazie li soka(a laza) lsc anaza, 0 - inzez?cnu sazie.
### Ni annu anec AttackEnts=1 ?as ioaan saziecnun? lsc anaza.
###
### Liiac lsicnoiacn naz:
### Linnaana lasagakkoz AttackEnts saakoz 1 (AttackEnts=1).
### Eagas?cna Soko a iaeilannkig ganna.
### Lieiecna z naia a nogzo
### Soko(zinisoz eagas?cec) c Saacaknu.(Black Pearls,Blood Moss,Mandrake Root.)
### ]![ Akcgakca soka aieeka eaeanu a nnakaasnkig lieieakcc(zaz lsiaaann?, nieuza eagaszakka?). ]![
### Lsc anaza au aaniganc?anzc naealisncnanu ka ni ganni,
### caa eagaszaka soka(a iazlaza).
### Lsc znig nzscln "inzez?aann?!"
### ?ni kaaa naaeanu aaeaa:
### 1) Naealisncsiaanun? nagigo ka ganni soizc.
### 2) 3alonncnu nzscln eakiai!
###
#######################################
### Ookzoc? ?anaosna? - "Sazikkazn" ###
#######################################
### Znin saecg niinaannnaakki inaa?aan ea Sazikkazn lsc auzcauaakcc n nasaasa.
### Azez?aann? lasagakkie var Reconnect=0 ## 1 - Azez?cnu sazikkazn ka nasaas anec auzckan, 0 - inzez?cnu sazikkazn.
### Ni annu anec Reconnect=1 ?as ioaan saziecnun? lsc anaza.
###
### Sazikkazn lsicnoiacn naz:
### Linnaana lasagakkoz Reconnect saakoz 1 (Reconnect=1).
### Anec aasoc liacnkan ccsiaa? noasa cec aan auzckan li eziie asocie lsc?cka
### sazikkaznis eazikkazncn ana ka nasaas aaniganc?anzc.
### Lcuann? asag? acnzikkazna c zikkazna ka nasaas.
###
### Kannsiena nzscln lia nai? lsc ligilc lasagakkuo.
###
##################
### Lasagakkua ###
##################
###################################################################################################
var f=file("C:\trees3.dat") ## - Lonu z oaeeo a zinisig ioaon osakcnn? ziisackanu aasaauaa.
###
var TryHiding=0 ## 1 - Lasaa nag zaz soicnu aasaai, ioaan lunanun? oenc a oaea, 0 - ka ioaan .
###
var TryRecall=1 ## 1 - Linea nici zaz niiasan LogsQty eicia, ioaan lunanun? saziecnun? aigie,
### nzeaauaanu eicc a nokaoz c saziecnun? iisanki , 0 - ka ioaan.
###
var RechargeBook=0 ## 1 - Azez?cnu sa?ase sokiozc, 0 - inzez?cnu sa?ase.
###
var RuneToHome=0x1F15 ## - Kigas soku Aigie,li n?ono a sokioza.(nae?an a 9ig neina,gieki gak?nu in 1-9)
###
var RuneToLumber=0x1F14 ## - Kigas soku a Ean,li n?ono a sokioza.(nae?an a 1ig neina,gieki gak?nu in 1-9)
###
var LogsQty=20 ## - Ziec?annai eicia, aiiua zinisia kaai saziecnun? aigie.
###
var GetFromFile=0 ## 1 - Ziisackanu aasaauaa ioaon n?cnuaann? ce oaeea, 0 - niicsann? ce zecakna
### (nka?aea niiascna a linig n?cnuaaena ce oaeea).
###
var AttackEnts=1 ## 1 - Azez?cnu sazie li soka(a laza) lsc anaza, 0 - inzez?cnu sazie.
###
var CastAtAttack=0 ## 1 - Azez?cnu zann - "Magic Arrow" ka kalaauaci, 0 - inzez?cnu zann.
###
var EatingFood=0 ## 1 - Ioaag annu, 0 - kan.
###
var TypeFood='0x097B' ## - Ncl aau zinisoz ioaag zouanu.(nae?an ocunaezc)
###
var Reconnect=0 ## 1 - Azez?cnu sazikkazn ka nasaas anec auzckan, 0 - inzez?cnu sazikkazn.
###
var RecallDrop=0 ## 1 - Azez?cnu sazie linea liiaca in akna aigie c aueiecnu eicc, 0 -auzez?cnu.
###
var RecallLumber=0 ## 1 - Azez?cnu sazie a ean linea ozaeakc? iiuaznia, 0 - auzez?cnu.
###
var Chest='0x41157978' ## - ID nokaoza zoaa ioaon aucsoeanun? eicc, caa aieeku eaeanu sazieu c aaa.
###
var LumberSound=('C:\Warning.wav') ## - Eaoz zinisu ioaan lsccsak lsc anaza.(eagakcna ka naie)
###
var oldX,oldY,time ## - Ae? saziea.
###
###################################################################################################
###
### Linea kannsiezc:
### Cacna a ean a zinisig au oincna soicnu.
### Ealonncna czscln Lumberjacking(), Ckeazn lilsincn aan ozaeanu Nilis
### (li?acnn? lscoae, lscoaeig ka nilis zinisue au n niiie ae?ec),
### eanag ckeazn lilsincn aan ozaeanu Sokioz(li?acnn? lscoae, lscoaeig ka kaci).
### Linea znici ?as lieaan li ziisackanag c ioaan ausoianu aasaau?.
###########
### Zia ###
###########
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
########################
### Csaocza aasaauaa ###
########################
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('Auiasc Nilis: ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend

if TryRecall==1 then
uo.print('?????? ???? ?????: ')
uo.exec('addobject runeHome')
wait(5000)
uo.print('?????? ???? ? ???: ')
uo.exec('addobject runeLumber')
wait(5000)



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
#####################################
### Eacsoeaag ziisackanu ce oaeea ###
#####################################
if GetFromFile==1 then
uo.Print('Eacsoeaag ziisackanu ce oaeea...')
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
######################################
### Niicsaag ziisackanu ce zecakna ###
######################################
uo.Print('Auiasc Zcszo: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Niicsaag ziisackanu aasaauaa a izsoca...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Zeczaag ka naee ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Lsiaas?ag aasaai ec zni ###
###############################
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
#########################
### Zeczkoec ka nnaie ###
#########################
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('Kaeaaki aasaai '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount))
end if
end if
##########################
### Zeczkoec li ecnnaa ###
##########################
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('Kaeaaki aasaai '+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('Akaece eazik?ak, ziisackanu aasaauaa ealcnaku a oaee C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Aasaauaa kaeaaki: '+str(treeCount))
wait(2000)
######################################
### Oiacg li niisakkug ziisackanag ###
######################################
while 1==1
if treeCount>0 then
for i=1 to treeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty then
ToRecall()
end if
uo.Print('Caag z aasaao '+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('Ka?ckaag soizo aasaaa...')
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 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('Lsucaag Aigie.')
uo.FindType('0x1F15',-1,'mY')
uo.Cast('Recall','0x40090700')
end sub

sub RecallToLumber()
uo.Print('Lsucaag a Ean.')
uo.FindType('0x1F14',-1,'mY')
uo.Cast('Recall','0x400906FF')
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Lunaagn? oenc a oaea...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(6000)
wend
wait(100)
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 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
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 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(3
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(3
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('Auzeaauaaag Eicc.')
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('Eicc Aueieaku.')
end sub

sub InfoLogs()
uo.Print('O aan anaci '+str(uo.Count('0x1BDD'))+' eicia a nogza')
uo.Print('Ce kco '+str(uo.Count('0x1BDD','0x0000'))+' lsinnuo c ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' oaankuo')
end sub

sub RunebookRecall(n)
oldX=uo.getX()
oldY=uo.getY()
repeat
uo.Exec('warmode 0')
uo.UseObject('Runebook')
wait(1000)
uo.LClick(135, n*15+55)
wait(500)
uo.LClick(135, n*15+55)
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'
repeat
if uo.InJournal('is attacking you') or uo.InJournal('OOPS!!!') or uo.InJournal('Wis Quas') then
uo.Exec('terminate Lumberjacking')
Enemy=uo.JournalSerial(uo.InJournal('is attacking you')-1)
##uo.PlayWav(LumberSound)
if CastAtAttack==1 then
uo.Cast('Magic Arrow',Enemy)
end if
uo.DeleteJournal()
RecallAtAttack()
end if
wait(1000)
until false
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('Anaza! Saziecgn?!')
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('Ana ookzocc nzsclna auzez?aku!')
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/