ppcc

Пожалуйсто скньте клиент пропатченый под МЛ_клиент. или напишите небольшой гайд

Хотелось бы узнать кто что думает, я просто только начинаю играть и хотелось бы услышать мнение других так как жалко свое свободное время ))

вот скрипт ходит рубит скидывает в банк, но арчером рубит а клериком нет помогите найти ошибку )

set %maxWeight 300; Max svars

set %box BBAAKMD; Kastes ID, kur likt ruudu u.c. itemus

;Sbros Logov

set %Aspen		  2  ; 1 - sbrasivaem  2 - ostavlaem

set %Willow		 2  ; 1 - sbrasivaem  2 - ostavlaem

set %Cedar		  2  ; 1 - sbrasivaem  2 - ostavlaem

set %Maple		  2  ; 1 - sbrasivaem  2 - ostavlaem

set %Noblefire	  2  ; 1 - sbrasivaem  2 - ostavlaem

set %Cherry		 2  ; 1 - sbrasivaem  2 - ostavlaem

set %Ecalyptus	  2  ; 1 - sbrasivaem  2 - ostavlaem

set %Elven		  2  ; 1 - sbrasivaem  2 - ostavlaem

;-----------------------------------------------------------







set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI

;------------------------------------------------------------

If %Aspen = 1

Set %DropAspen #True

If %Aspen <> 1

Set %DropAspen #False

If %Willow = 1

Set %DropWillow #True

If %Willow <> 1

Set %DropWillow #False

If %Cedar = 1

Set %DropCedar #True

If %Cedar <> 1

Set %DropCedar #False

If %Maple = 1

Set %DropMaple #True

If %Maple <> 1

Set %DropMaple #False

If %Noblefire = 1

Set %DropNobledire #True

If %Noblefire <> 1

Set %DropNobledire #False

If %Cherry = 1

Set %DropCherry #True

If %Cherry <> 1

Set %DropCherry #False

If %Ecalyptus = 1

Set %DropEcalyptus #True

If %Ecalyptus <> 1

Set %DropEcalyptus #False

If %Elven = 1

Set %DropElven #True

If %Elven <> 1

Set %DropElven #False

;-----------------------------------------------------------

If %DropAspen

Set %aspenCol 973

If %DropWillow

Set %WillowCol 0

If %DropCedar

Set %CedarCol 437

If %DropMaple

Set %MapleCol 1233

If %DropNoblefire

Set %NoblefireCol 153

If %DropCherry

Set %CherryCol 38

If %DropEcalyptus

Set %EcalyptusCol 81

If %DropElven

Set %ElvenCol 2166



start:



GOSUB LJING 5583 2799 3294

GOSUB LJING 5576 2802 3299

GOSUB LJING 5576 2797 3277

GOSUB LJING 5574 2790 3299

move 5574 2799

GOSUB LJING 5569 2804 3294

GOSUB LJING 5570 2800 3280

GOSUB LJING 5569 2801 3299

GOSUB LJING 5567 2801 3280

GOSUB LJING 5567 2792 3302

GOSUB LJING 5561 2794 3294

GOSUB LJING 5561 2805 3302

GOSUB LJING 5557 2799 3299

GOSUB LJING 5555 2806 3289

GOSUB LJING 5551 2810 3286

GOSUB LJING 5548 2815 3299

GOSUB LJING 5546 2810 3294

GOSUB LJING 5542 2816 3286

GOSUB LJING 5558 2908 3289

GOSUB LJING 5552 2909 3294

GOSUB LJING 5559 2902 3286

GOSUB LJING 5553 2902 3302

GOSUB LJING 5548 2904 3286

GOSUB LJING 5556 2899 3299

GOSUB LJING 5547 2899 3299

GOSUB LJING 5550 2895 3286

GOSUB LJING 5558 2892 3286

GOSUB LJING 5548 2892 3302

GOSUB LJING 5554 2889 3294

GOSUB LJING 5569 2891 3283

GOSUB LJING 5553 2883 3302

GOSUB LJING 5546 2887 3299

GOSUB LJING 5553 2879 3277

GOSUB LJING 5547 2879 3286

GOSUB LJING 5546 2873 3299

GOSUB LJING 5546 2865 3302

GOSUB LJING 5541 2863 3299

GOSUB LJING 5542 2854 3286

GOSUB LJING 5536 2856 3302

GOSUB LJING 5530 2858 3294

GOSUB LJING 5530 2853 3286

GOSUB LJING 5538 2847 3299

GOSUB LJING 5525 2848 3299

GOSUB LJING 5532 2845 3286

GOSUB LJING 5544 2841 3302

GOSUB LJING 5535 2839 3299

GOSUB LJING 5530 2840 3302

GOSUB LJING 5524 2842 3299

GOSUB LJING 5536 2833 3302

GOSUB LJING 5534 2829 3299

GOSUB LJING 5544 2824 3299

GOSUB LJING 5544 2824 3299





goto start



sub ljing

gosub checkWeight

set %k %k + 1

move %1 %2 1

finditem FSF C

set #lobjectid #findid

set #ltargetx %1

set #ltargety %2

set #ltargettile %3

set #ltargetkind 3

event macro 17 0

target 10s

event macro 22 0

wait 7

set %overtime #scnt + 20

gosub scan

return



sub checkWeight

if #weight > %maxWeight

{

if %DropAspen || %DropWillow || %DropCedar || %DropMaple || %DropNoblefire || %DropCherry || %DropEcalyptus || %DropElven

{

gosub dropTrashLogs

return

}

gosub moveItems

}

return



sub scan

scan:

scanjournal 1

if ( ( you_can't_reach_this in #sysmsg ) || ( THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg )

+ || ( use_that_in in #journal ) || ( It_appears_immune_to_your_blow in #sysmsg ) )

return

if #scnt >= %overtime

return

goto scan

return



sub moveItems

gosub runtobox

ignoreitem reset 1

repeat

{

msg bank$

wait 35

}

until #conttype = IKF

finditem %box C

if #findcnt = 0

{

event Sysmessage Box Not Found!

pause

}

repeat

{

finditem %item c_ , #backpackid

if #findcnt >= 1

{

if world_save_has_been in #sysmsg

wait 15s

exevent Drag #Findid #findstack

exevent Dropc %box

wait 40

}

}

until #findcnt = 0

ignoreitem reset 1

gosub RuntoForest

return



sub runToBox

move 5558 2911

move 5558 2934

move 5674 2934

move 5674 2907

move 5828 2907

move 5828 2892

move 5867 2892

move 5867 2886

move 5881 2886

move 5881 2871

move 5906 2871

move 5906 2852

move 5905 2850

return



sub RuntoForest

move 5906 2850

move 5906 2852

move 5906 2871

move 5881 2870

move 5881 2890

move 5835 2890

move 5835 2783

move 5810 2783

move 5810 2768

move 5794 2768

move 5794 2766

move 5601 2766

move 5601 2797

move 5584 2797

move 5584 2799

return





sub dropTrashLogs

droploop:

finditem ZLK C_ , #backpackid

if #findcnt = 0

{

if #weight >= %maxweight

{

gosub moveItems

return

}

if #weight < %maxweight

return

}

if #findcol = %WillowCol || #findcol = %AspenCol

+ || #findcol = %CedarCol || #findcol = %MapleCol || #findcol = %NoblefireCol

+ || #findcol = %CherryCol || #findcol = %EcalyptusCol || %ElvenCol

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 50

}

ignoreitem #findid 1

goto droploop

return



;sub checkWeight

;if #weight > %maxWeight

;{

;if %DropAspen || %DropWillow || %DropCedar || %DropMaple || %DropNoblefire || %DropCherry || %DropEcalyptus

;{

;gosub dropTrashLogs

;return

;}

;gosub moveItems

;}

;return

Перенос существует ?

вот скрипт на тайминг как к нему приписать ходилку по координатам ? чтоб он не рендом ходил а по указанным координатам ??
например затаймил и пошел на следущие координаты и так по кругу!

set %animals WC



chooseskill animal taming

scanjournal

set %distance 0

set %try 0

repeat

{

repeat

{

gosub ghost

set %distance %distance + 2

finditem %animals G_ , %distance

if #findcnt <> 0

{

gosub moveToAnimal

gosub tameAnimal

set %distance 0

}

}

until %distance > 14

gosub moveRandom

set %distance 0

}

until #false



sub ghost

if #charghost = yes

{

terminate uo

halt

}

return



sub moveToAnimal

event exmsg #findid 3 23 Taming..

set %fail #scnt + 20

repeat

{

finditem #findid

event pathfind #findx #findy #findz 1

wait 20

if #scnt > %fail

{

ignoreitem #findid 1

set %noLocation #true

return

}

}

until #finddist < 2

set %noLocation #false

return



sub tameAnimal

if %noLocation

return

if #findrep = 6

{

gosub kill

return

}

tame:

if G in #charstatus

event macro 6 0

set #targcurs 0

set %lag #scnt + 15

set #ltargetid #findid

set #ltargetkind 1

event macro 13 35

target

while #targcurs <> 1 && #finddist < 4 && #scnt < %lag

wait 1

event macro 22 0

if #finddist >= 4 || #scnt > %lag

{

gosub moveToAnimal

goto tame

}

gosub checkForResult

return



sub checkForResult

deletejournal

set %skill #skill

set %overtime #scnt + 35

scan:

for %i 1 10

{

if #hits < #maxhits 2

msg .usebandage$

event macro 23 0

scanjournal %i

if already_tame in #journal || already_tame in #sysmsg

{

ignoreitem #ltargetid 1

return

}

if seems_to_accept in #journal || seems_to_accept in #sysmsg

+ || %skill <> #skill

{

ignoreitem #ltargetid 1

msg $All Stop$

return

}

if too_far_away in #journal || too_far_away  in #sysmsg

+ || can_not_see in #journal || can_not_see in #sysmsg

{

set %try %try + 1

if %try >= 5

{

ignoreitem #ltargetid 1

set %try 0

return

}

gosub moveToAnimal

gosub tameAnimal

}

if %overtime < #scnt

return

finditem #findid

event pathfind #findx #findy #findz 1

wait 20

}

goto scan

return