Лумбер нп оскоме !
Posted: 2004-10-12 21:08:59
Просто доделаете его у меня всё работает ток дамоий не улетает пишет You exceptional from rune Kak bi sam ne mozet nazat na runu
##########################################################
### 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]
###
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(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
##########################################################
### 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]
###
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(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