Вот скопировал я с етого сайта скрипт на lumberjacking :
##########################################################
### Lumberjacking / Ðóáêà äåðåâüåâ v6.8 (Last) ###
##########################################################
### Øàðä Dragon World / www.drw.ru ###
##########################################################
### Âíèìàíèå:
### Äëÿ ðàáîòû ñêðèïòà íóæíà âåðñèÿ YokoInjection 4DZ.
### Ñêà÷àòü dll ýòîé âåðñèè ìîæíî
### îò ñþäà: http://www.swines.nm.ru/injection.zip
##########################################################
### Ïî âîïðîñàì è ïðåäëîæåíèÿì îáðàùàòüñÿ ñþäà:
### ICQ: 333358386
### Àâòîðû:
### -Çà îñíîâó âçÿò ñêðèïò:"©Elthar aka Duo",
### çà ÷òî åãî àâòîðó áîëüøîå ñïàñèáî.
### -Ðåäàêòèðîâàë è äîïîëíÿë:"BETEPAH".
### -Èäåè ïî äîðàáîòêå è ïåðåðàáîòêå:"cOoler".
### -Çà íåîöåíèìóþ ïîìîùü ñïàñèáî:"Mafia".
### -Çà êîðåêòííóþ ïîìîùü è èäåè:"Àskaneli".
### -À òàêæå çà ñèñòåìó ïîäñ÷åòà ëîãîâ ñïàñèáî:"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]
###
Äîáàâëåíà ñèñòåìà çàùèòû îò åíòîâ. [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)Óáðàíû ïåðåõîäû ïðè ìàðêå. [BETEPAH,Àskaneli]
### 23)Ïåðåäåëàíà ñèñòåìà îæèäàíèÿ ñåéâà êîîðäèíàò â ôàéë. [BETEPAH,Àskaneli]
### 24)Óáðàíà ñèñòåìà Àðåà. [BETEPAH,Àskaneli]
### 25)Äîáàâëåíà ñèñòåìà ïîäñ÷åòà äåðåâüåâ. [BETEPAH,cOoler,Àskaneli]
### 26)Óâåëè÷åí ïðåäåë äåðåâüåâ äî 5000 øò. [BETEPAH,Àskaneli]
###
### ]![ ×òîáû ñêðèïò çàðàáîòàë âíèìàòåëüíî ïðî÷òèòå íàñòðîéêè. ]![
###
###################################
### Ðåæèìû ðàáîòû ñêðèïòà ###
###################################
### Ðàáîòàåò â 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.)
### ]![ Âíèìàíèå ðóíà äîëæíà ëåæàòü â ñòàíäàðòíîì ïîëîæåíèè(êàê ïðîäàåòñÿ, òîëüêà çàìàðêàííàÿ). ]![
### Ïðè àòàêå âû àâòîìàòè÷åñêè òåëåïîðòèòåñü íà òî ìåñòî,
### ãäå çàìàðêàíà ðóíà(â áàêïàêå).
### Ïðè ýòîì ñêðèïò "îòêëþ÷àåòñÿ!"
### ×òî íàäà ñäåëàòü äàëåå:
### 1) Òåëåïîðòèðîâàòüñÿ ñàìîìó íà ìåñòî ðóáêè.
### 2) 3àïóñòèòü ñêðèïò çàíîâî!
###
#######################################
### Ôóíêöèÿ ×åòâ¸ðòàÿ - "Ðåêîííåêò" ###
#######################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ðåêîííåêò ïðè âûêèäûâàíèè ñ ñåðâåðà.
### Âêëþ÷àåòñÿ ïåðåìåííîé var Reconnect=0 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñåðâåð åñëè âûêèíåò, 0 - îòêëþ÷èòü ðåêîííåêò.
### Òî åñòü åñëè Reconnect=1 ÷àð áóäåò ðåêîëèòüñÿ ïðè àòàêå.
###
### Ðåêîííåêò ïðîèñõîäèò òàê:
### Ïîñòàâòå ïåðåìåííóþ Reconnect ðàâíóþ 1 (Reconnect=1).
### Åñëè âäðóã ïîâèñíåò èãðîâàÿ ñôåðà èëè âàñ âûêèíåò ïî ëþáîé äðóãîé ïðè÷èíå
### ðåêîííåêòîð çàêîííåêòèò âñà íà ñåðâåð àâòîìàòè÷åñêè.
### Ïèøåòñÿ âðåìÿ äèñêîííåêòà è êîííåêòà íà ñåðâåð.
###
### Íàñòðîéòå ñêðèïò ïîä ñåáÿ ïðè ïîìîùè ïåðåìåííûõ.
###
##################
### Ïåðåìåííûå ###
##################
###################################################################################################
var f=file("C:\trees3.dat") ## - Ïóòü ê ôàéëó â êîòîðîì áóäóò õðàíèòñÿ êîîðäèíàòû äåðåâüåâ.
###
var TryHiding=0 ## 1 - Ïåðåä òåì êàê ðóáèòü äåðåâî, áóäåò ïûòàòüñÿ óéòè â õàéä, 0 - íå áóäåò .
###
var TryRecall=0 ## 1 - Ïîñëå òîãî êàê ñîáåðåò LogsQty ëîãîâ, áóäåò ïûòàòüñÿ ðåêîëèòüñÿ äîìîé,
### ñêëàäûâàòü ëîãè â ñóíäóê è ðåêîëèòüñÿ îáðàòíî , 0 - íå áóäåò.
###
var RechargeBook=0 ## 1 - Âêëþ÷èòü ðå÷àðæ ðóíáóêè, 0 - îòêëþ÷èòü ðå÷àðæ.
###
var RuneToHome=0 ## - Íîìåð ðóíû Äîìîé,ïî ñ÷¸òó â ðóíáóêå.(ñåé÷àñ â 9îì ñëîòå,ìîæíî ìåíÿòü îò 1-9)
###
var RuneToLumber=0 ## - Íîìåð ðóíû â Ëåñ,ïî ñ÷¸òó â ðóíáóêå.(ñåé÷àñ â 1îì ñëîòå,ìîæíî ìåíÿòü îò 1-9)
###
var LogsQty=50000 ## - Êîëè÷åñòâî ëîãîâ, äîáûâ êîòîðîå íàäî ðåêîëèòüñÿ äîìîé.
###
var GetFromFile=1 ## 1 - Êîîðäèíàòû äåðåâüåâ áóäóò ñ÷èòûâàòñÿ èç ôàéëà, 0 - ñîáèðàòñÿ èç êëèåíòà
### (ñíà÷àëà ñîáåðèòå à ïîòîì ñ÷èòûâàéòå èç ôàéëà).
###
var AttackEnts=0 ## 1 - Âêëþ÷èòü ðåêîë ïî ðóíå(â ïàêå) ïðè àòàêå, 0 - îòêëþ÷èòü ðåêîë.
###
var CastAtAttack=1 ## 1 - Âêëþ÷èòü êàñò - "Magic Arrow" íà íàïàâøåãî, 0 - îòêëþ÷èòü êàñò.
###
var EatingFood=0 ## 1 - Áóäåì åñòü, 0 - íåò.
###
var TypeFood='0x097B' ## - Òèï åäû êîòîðóþ áóäåì êóøàòü.(ñåé÷àñ ôèøòåéêè)
###
var Reconnect=0 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñåðâåð åñëè âûêèíåò, 0 - îòêëþ÷èòü ðåêîííåêò.
###
var RecallDrop=0 ## 1 - Âêëþ÷èòü ðåêîë ïîñëå ïîáåãà îò åíòà äîìîé è âûëîæèòü ëîãè, 0 -âûêëþ÷èòü.
###
var RecallLumber=0 ## 1 - Âêëþ÷èòü ðåêîë â ëåñ ïîñëå óêàçàíèÿ îáüåêòîâ, 0 - âûêëþ÷èòü.
###
var Chest='0x40015D9A ' ## - 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 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
#####################################
### Çàãðóæàåì êîîðäèíàòû èç ôàéëà ###
#####################################
if GetFromFile==1 then
uo.Print('Çàãðóæàåì êîîðäèíàòû èç ôàéëà...')
f.open()
treeCount=safe call f.ReadNumber()
for i=1 to treeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.close()
else
######################################
### Ñîáèðàåì êîîðäèíàòû èç êëèåíòà ###
######################################
uo.Print('Âûáåðè Êèðêó: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Ñîáèðàåì êîîðäèíàòû äåðåâüåâ â îêðóãå...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Êëèêàåì íà òàéë ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Ïðîâåðÿåì äåðåâî ëè ýòî ###
###############################
flag=0
for k=0 to 28
if uo.LastTile(0)==TreeTile[k]+1 then
flag=2
end if
next
if flag==0 then
for k=0 to 28
if uo.LastTile(0)==TreeTile[k] then
flag=1
end if
next
end if
if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then
flag=3
end if
#########################
### Êëèêíóëè íà ñòâîë ###
#########################
if flag==1 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)
uo.Print('Íàéäåíî äåðåâî '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount))
end if
end if
##########################
### Êëèêíóëè ïî ëèñòâå ###
##########################
if flag==2 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)-1
uo.print('Íàéäåíî äåðåâî '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
until (Flag==3) or (treeCount==5000)
uo.Exec("filterspeech off")
uo.Print('Àíàëèç çàêîí÷åí, êîîðäèíàòû äåðåâüåâ çàïèñàíû â ôàéë C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Äåðåâüåâ íàéäåíî: '+str(treeCount))
wait(2000)
######################################
### Õîäèì ïî ñîáðàííûì êîîðäèíàòàì ###
######################################
while 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('Èäåì ê äåðåâó '+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 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('Ïðûãàåì Äîìîé.')
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(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('Âûêëàäûâàåì Ëîãè.')
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('Ëîãè Âûëîæåíû.')
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')
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('Àòàêà! Ðåêîëèìñÿ!')
wait(4000)
if not uo.getX("self")<>mX and not uo.getY("self")<>mY then
goto reccal
end if
if RecallDrop==1 then
RecallToHome()
DropLogs()
InfoLogs()
end if
Terminate()
end sub
sub Reconnect()
var ReconnectTime,rFlag
ReconnectTime='0'
rFlag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rFlag then
ReconnectTime=MakeTime()
rFlag=0
end if
wait(20000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rFlag=1
ReconnectTime='0'
end if
until false
end sub
sub MakeTime()
var d,t,ret,i
ret=str(uo.Time())
t=""
for i=0 to Len(ret)
t=ret[Len(ret)-i]+t
if (i==2) or (i==4) then
t=":"+t
end if
next
ret=str(uo.Date())
d=""
for i=0 to Len(ret)
d=ret[Len(ret)-i] + d
if (i==2) or (i==4) then
d="."+d
end if
next
ret=t+" @ "+d
return ret
end sub
sub Terminate()
uo.Print('Âñå ôóíêöèè ñêðèïòà âûêëþ÷åíû!')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
Я все замаркировал создался файлик но возникло несколько проблем:
1)Он останавливается на 1 дереве, тоесть он постоянно кидает на него таргеты и не идет ко второму дереву.
2)Как уменьшить время рубки он порубит у меня и ждет еще секунд 5-7 чтоб кинуть второй таргет.
Помогите добрые люди.
