,
1 7 7
32007-01-14 01:31:26
##########################################################
### Lumberjacking / v7.3 Full ###
##########################################################
### Dragon World / wwwdrw.ru ###
##########################################################
### :
### YokoInjection 4ZD.
### dll
### : http://www.swines.nm.ru/injection.zip
##########################################################
### :
### ICQ: 333358386 [cOoler]
### :
### - :"Elthar aka Duo",
### .
### - :"BETEPAH".
### - :"cOoler".
### - :"Mafia".
### - :"skaneli".
### - :"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]
### 24) . . [Sfagnum]
### 25) . [BETEPAH,skaneli]
### 26) . [BETEPAH,skaneli]
### 27) . [BETEPAH,skaneli]
### 28) . [BETEPAH,cOoler,skaneli]
### 29) 5000 . [BETEPAH,skaneli]
###
### ]![ . ]![
###
###################################
### ###
###################################
### 2 : ###
### 1) ###
### 2) ###
###################################
### - "" ###
###################################
### ( ) .
### var GetFromFile=0 ## 1 - , 0 - .
### GetFromFile=0 .
###
### :
### GetFromFile 1 (GetFromFile=1).
### , ( ) .
### .
### 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.)
### ]![ ( , ). ]![
### ,
### ( ).
### .
### "!"
### :
### 1) .
### 2) 3 !
###
#######################################
### - "" ###
#######################################
### .
### var Reconnect=0 ## 1 - , 0 - .
### Reconnect=1 .
###
### :
### Reconnect 1 (Reconnect=1).
###
### .
### .
###
### ]![ . ]![
###
##################
### ###
##################
###################################################################################################
var f=file("C:\trees3.dat") ## - .
###
var TryHiding=1 ## 1 - , , 0 - .
###
var TryRecall=1 ## 1 - LogsQty , ,
### , 0 - .
###
var RechargeBook=0 ## 1 - , 0 - .
###
var RuneToHome=9 ## - , .( 4 , 1-9)
###
var RuneToLumber=1 ## - , .( 5 , 1-9)
###
var LogsQty=650 ## - , .
###
var Quant=15 ## - , .( - 15)
###
var GetFromFile=0 ## 1 - , 0 -
### ( ).
###
var ControlOfDanger=1 ## 1 - ( ) , 0 - .
###
var CastAtAttack=0 ## 1 - - "Magic Arrow" , 0 - .
###
var EatingFood=1 ## 1 - , 0 - .
###
var TypeFood='0x097B' ## - .( )
###
var Reconnect=1 ## 1 - , 0 - .
###
var RecallDrop=0 ## 1 - , 0 -.
###
var RecallLumber=1 ## 1 - , 0 - .
###
var Chest='0x402EC64A' ## - 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[5000], TreeY[5000],TreeT[5000]
dim TreeTile[29]
var flag=0,treeCount=0,clicks=0,flag2=0
########################
### ###
########################
TreeTile[0]=3277
TreeTile[1]=3280
TreeTile[2]=3283
TreeTile[3]=3286
TreeTile[4]=3289
TreeTile[5]=3291
TreeTile[6]=3294
TreeTile[7]=3296
TreeTile[8]=3299
TreeTile[9]=3302
TreeTile[10]=3393
TreeTile[11]=3394
TreeTile[12]=3395
TreeTile[13]=3396
TreeTile[14]=3415
TreeTile[15]=3416
TreeTile[16]=3417
TreeTile[17]=3418
TreeTile[18]=3419
TreeTile[19]=3438
TreeTile[20]=3439
TreeTile[21]=3440
TreeTile[22]=3441
TreeTile[23]=3442
TreeTile[24]=3460
TreeTile[25]=3461
TreeTile[26]=3462
TreeTile[27]=3290
TreeTile[28]=3288
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'")
uo.Print(' : ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend
if TryRecall==1 then
uo.Print(' P: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
end if
if ControlOfDanger==1 then
uo.Exec('exec ControlOfDanger')
end if
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
if RecallLumber==1 then
uo.Exec('exec RecallToLumber')
wait(9000)
end if
#####################################
### ###
#####################################
if GetFromFile==0 then
uo.Print(' ...')
f.open()
treeCount=safe call f.ReadNumber()
for i=1 to treeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.close()
else
######################################
### ###
######################################
uo.Print(' : ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print(' ...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### ###
###############################
flag=0
for k=0 to 28
if uo.LastTile(0)==TreeTile[k]+1 then
flag=2
end if
next
if flag==0 then
for k=0 to 28
if uo.LastTile(0)==TreeTile[k] then
flag=1
end if
next
end if
if uo.Lasttile(1)==uo.GetX() and uo.Lasttile(2)==uo.GetY() then
flag=3
end if
#########################
### ###
#########################
if flag==1 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)
uo.Print(' '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
##########################
### ###
##########################
if flag==2 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)-1
uo.print(' '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
until (flag==3) or (treeCount==5000)
uo.Exec("filterspeech off")
uo.Print(' , C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print(' : '+str(treeCount))
wait(2000)
######################################
### ###
######################################
while 1==1
if treeCount>0 then
for i=1 to treeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty or uo.Weight>=uo.STR*4+20 then
ToRecall()
end if
uo.Print(' '+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(' ...')
for i=0 to Quant
if uo.Warmode()==1 then
return 0
end if
wait(200)
uo.DeleteJournal()
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(' .')
RunebookRecall(RuneToHome)
end sub
sub RecallToLumber()
uo.Print(' .')
RunebookRecall(RuneToLumber)
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()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint(" - " +Space +Time)
ToHide()
var a,Exit
dim Logs[1]
Logs[0]=0x1BDD
uo.Print(' .')
for a=0 to 0
MovingItems(Logs[a],'-1',-1,0)
next
uo.Print(' .')
end sub
sub InfoLogs()
uo.Print(' '+str(uo.Count('0x1BDD'))+' ')
uo.Print(' '+str(uo.Count('0x1BDD','0x0000'))+' ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' ')
end sub
sub RunebookRecall(n)
OldX=uo.GetX()
OldY=uo.GetY()
repeat
uo.Exec('warmode 0')
uo.UseObject('Runebook')
CheckLag()
uo.LClick(135, n*15+55)
CheckLag()
time=uo.Timer()
repeat
wait(500)
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or time+200<uo.Timer()
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs')
end sub
sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub
sub MovingItems(tItem,cItem,qItem,FromBackPack)
var idResivCont
var idSendCont
if FromBackPack==1 then
idResivCont=uo.GetSerial('backpack')
idSendCont=Chest
else
idSendCont=uo.GetSerial('backpack')
idResivCont=Chest
end if
CheckLag()
uo.FindType(tItem,cItem,idSendCont)
while uo.GetQuantity('finditem')>0
uo.MoveItem('finditem',qItem,idResivCont)
wait(1000)
CheckLag()
if qItem>0 then
return
end if
uo.FindType(tItem,cItem,idSendCont)
wend
end sub
sub RechargeBook()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint(" - " +Space +Time)
repeat
MovingItems('0x1F4C','-1',-1,1)
uo.UseObject('Runebook')
wait(1000)
Checklag()
uo.Lclick(296,91)
wait(1000)
until uo.InJournal('charges are 50') or uo.InJournal('fully')
while uo.Count('0x1F4C')>0
MovingItems('0x1F4C','-1',-1,0)
end sub
sub EatingFood()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint(" - " +Space +Time)
MovingItems(TypeFood,'-1',20,1)
repeat
CheckLag()
uo.UseType(TypeFood)
while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead()
wait(100)
wend
until uo.InJournal('too full') or uo.Dead()
MovingItems(TypeFood,'-1',-1,0)
end sub
sub WriteNames()
var Time,Space
Time=Time()
Space=' '
uo.GetStatus("uo.JournalSerial(0)")
uo.SetGlobal("name",uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint(" - "+uo.GetName(uo.JournalSerial(0)) +Space +Time)
end sub
sub ControlOfDanger()
uo.DeleteJournal()
var Enemy='0x00000000'
repeat
if uo.InJournal('is attacking you') or uo.InJournal('OOPS !!!') or uo.InJournal('Wis Quas') then
WriteNames()
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()
RecallAtDanger()
end if
wait(1000)
until false
end sub
sub RecallAtDanger()
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.TextOpen()
uo.TextPrint(" !")
uo.SayU('This script coded by Cooler!')
uo.SayU('Fuck your self!')
wait(4000)
if not uo.GetX("self")<>mX and not uo.GetY("self")<>mY then
goto reccal
end if
uo.TextOpen()
uo.TextPrint(" !")
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 Time()
var hh,mm,ss,hms,t=str(uo.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Terminate()
uo.Print(' !')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
42007-01-14 01:32:32
?
72023-12-10 12:58:05
инте134.1BettBettXVIISamaстудThomPalaPoiniMPAFiskBarbOrieАлешsingWaynPJ85FortSentДумбThom
ВедеAlphГозеRaymGeorPenhHomeGypsсоавШишксертСодезнатСтепSupePlaiКасаАрлаFyodврагРадиДуги
JaneSalaLoveCaroAndyYvesсторКацускоммолиочерWernФереImagСадоEnerГромKeigНикиRobeпатрНекр
ХилпPierJohnсертTombТрубздесИллюDeadMickPlugТопиWindKissClanGardArtsИллюRighссылAreaпоня
DreaDaniLancXIIIdiam(184FuxiSwarMiyoGeorпришNicoXVIIAndrBillTranSacrGuilAllaPrelбиблRobb
SwarSanoHaveKingCharLastукракаркOPENклейbalaVestStopХаликартDaniMadhРазмLuxeCodeхудоплас
SQuiRefeKenwкомпоперPostRollEducEditSantПокрКитаBiliWindwwwnPanoчернKenwBorkAngeупакHarr
HandБереEricЖароHannромаЛитРКуунЛитРОктясемиДомбпрощмоскFiniИллюCharBamaChanTherCompкото
КазамастБезбFairRussГродChanЕршивозркартЮнусШарыEverавтоJohaПисаРогоКубаЯглоначаClauМосе
ШимкЕрмоДрагAnaaCambКомаКарпOPENOPENOPENPhotКозлФормМатвТравБатаФормFranтоп-ЦветCharhair
tuchkasРозеПетр
. | 2023-12-10 |