4 replies to this topic

[lead man]

gosub chop

move x y 0



sub chop

finditem NPF_qpf

set #lobjectid #findid



wait 1s

event macro 17

set %x #charPosX

set %y #charPosY

set #lTargetKind 3

set #lTargetX %x

set #lTargetY %y

target

event macro 22

gosub ves

return



sub ves

if #weight > 950

gosub home



sub scan

scan:

scanjournal %cnt

if #hits < 240

msg .arm $

if wisp in #journal

execute c:1.mp3

if 30_seconds_till_disconnect... in #journal

display ANTI MACROOOO

if THERE_IS_NOTHING_HERE_TO_mine_for in #sysmsg

return

if It_appears_immune_to_your_blow in #sysmsg

return

if YOu_can't_reach_this in #sysmsg

return

if You_gained_1_experience in #journal

return

if You_gained_2_experience in #journal

return

if You_gained_3_experience in #journal

return

if You_gained in #journal

return

if #scnt >= %overtime

return

goto scan



sub home

move x y

gosub moveItems



sub moveItems

{

set !dragTimeout 4;1/10 s

set !dragTimer #scnt2

set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF

if %0 < 2

set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF

set !from YCCBMMD

set !to ENRNLMD

finditem !items C_ , !from

for #findindex 1 #findcnt

{

if #findkind = 0

{

set !amt 1

if #findstack > 1

set !amt #findstack

while #scnt2 < !dragTimer

wait 0

exevent drag #findid !amt

exevent dropc !to

set !dragTimer #scnt2 + !dragTimeout

}

}

namespace clear



}

gosub vadadsa

sub vadadsa

move x y

move x y

move x y

move x y

return

voobwem est script 4to nuzno sdelat wtob on pod soboj ne kopal?

[lead man]

gosub chop



move x y 0

sub chop



finditem NPF_qpf



set #lobjectid #findid

wait 1s



event macro 17



set %x #charPosX



set %y #charPosY



set #lTargetKind 3



set #lTargetX %x



set #lTargetY %y



target



event macro 22



gosub ves



return

sub ves



if #weight > 950



gosub home

sub scan



scan:



scanjournal %cnt



if #hits < 240



msg .arm $



if wisp in #journal



execute c:1.mp3



if 30_seconds_till_disconnect... in #journal



display ANTI MACROOOO



if THERE_IS_NOTHING_HERE_TO_mine_for in #sysmsg



return



if It_appears_immune_to_your_blow in #sysmsg



return



if YOu_can't_reach_this in #sysmsg



return



if You_gained_1_experience in #journal



return



if You_gained_2_experience in #journal



return



if You_gained_3_experience in #journal



return



if You_gained in #journal



return



if #scnt >= %overtime



return



goto scan

sub home



move x y



gosub moveItems

sub moveItems



{



 set !dragTimeout 4;1/10 s



 set !dragTimer #scnt2



 set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF



 if %0 < 2



   set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF



 set !from YCCBMMD



 set !to ENRNLMD



 finditem !items C_ , !from



 for #findindex 1 #findcnt



 {



   if #findkind = 0



   {



	 set !amt 1



	 if #findstack > 1



	   set !amt #findstack



	 while #scnt2 < !dragTimer



	   wait 0



	 exevent drag #findid !amt



	 exevent dropc !to



	 set !dragTimer #scnt2 + !dragTimeout



   }



 }



 namespace clear

}



gosub vadadsa



sub vadadsa



move x y



move x y 



move x y



move x y



return

voobwem est script 4to nuzno sdelat wtob on pod soboj ne kopal?

[Tranceman]

mozgi

neleg4e propisatj
If 4eo piwet pri kopanije pod soboi in #sysmsg
Goto NextTargat

[Unholy Messiah]

Если я не ошибаюсь то алгоритм в упрощённом виде здесь такой:
1)встал куда надо
2)покопал под собой
и так по кругу... чтобы не копал под собой = не копал вовсе, найди другой скрипт :/
попроваьте если ошибаюсь, школа замучала

[Evil]

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