Toggle shoutbox
Chat
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Find content
Male
Posts I've Made
In Topic: OLDP LumberJack
07 December 2006 - 17:43
Tvoj scp norm no etat lutshe 
initevents
set %logs ZLK
set %safe WJFFKMD ; ID Sunduka, kuda skidivajem
set %AxeType FSF ; zdes' stavim ID hatchet
start:
GOSUB LJING 1108 894 3296
GOSUB LJING 1112 894 3283
GOSUB LJING 1112 891 3277
GOSUB LJING 1108 897 3289
GOSUB LJING 1112 897 3291
GOSUB LJING 1112 900 3277
goto start ; Process samoj rubki derev'jev
sub ljing
move %1 %2 1
finditem %AxeType
set #lobjectid #findid
event macro 17 0
target 10s ; Vremja rubki kazdogo dereva
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 7
set %overtime #scnt + 25
gosub backpack
return
gosub backpack ; Uslovije dlja razgruzki logov
sub backpack ; Pri polnom vese
if #weight > 450 ; Tut ukazivajem ves logov
gosub razgr
sub scan ; skanirovanije zurnala
scan:
scanjournal %cnt
if #hits < 120 ; Esli men'she 150 hits to
msg .arm bow $ ; Ispol'zujem Oruzije
wait 7 ; Eto nado , 4to bi izbezat' flood
if 30_seconds_till_disconnect... in #journal
display ANTI MACROOOO ; Tabli4ka NATIMAKRO
if 29_seconds_till_disconnect... in #journal
display ANTI MACROOOO
if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg
return
if It_appears_immune_to_your_blow in #sysmsg
return
if you_can't_reach_this in #sysmsg
return
if #scnt >= %overtime
return
goto scan
sub razgr ; Razgruzka
move 1106 850
move 1111 850
gosub moveItems
sub moveItems
{
set !dragTimeout 4;1/10 s
set !dragTimer #scnt2
set !items ZLK
if %0 < 2
set !items ZLK
set !from #backpackid
set !to WJFFKMD
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
}
return
In Topic: CRAFT SKILL'S GM
07 December 2006 - 17:41
Super scp
