Посадка Сборака урожая

Предыдущая тема Следующая тема Перейти вниз

Посадка Сборака урожая

Сообщение  Mazunchik в Сб Май 15, 2010 2:42 am

event maCro 8 1
wait 2s
set %MaxWeight 300 ; 젪��뼭?��nditem ZJF C_ , #Charid
set %baCkpaCk #findid
set %deathCount 0
set %C1 NFF
set %C2 FPE
set %C3 CPE
set %minx 818
set %miny 2152
set %maxx 831
set %maxy 2165
set %x %minx
set %y %miny
GoSub Copyright
startmacro:
If #HITS = 0
GoSub Death
finditem %C3 G_10
if #findkind = -1
Goto sowfield
move #findx #findy 0
set %plantid #findid
finditem NMH C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto startmaCro
}
set #lobjectid #findid
set #ltargetid %plantid
set #ltargetkind 1
event macro 17 0
target
event macro 22 0
wait 3s
If #WEIGHT > %MaxWeight
GoSub Store
Goto startmaCro
sowfield:
move %x %y 0
if #Charposx <> %x && #Charposy <> %y
Goto sowfield
findplant:
finditem %C3 G_0
if #findkind <> -1
{
set #ltarGetid #findid
finditem NMH C_ , #BACKPACKID
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set #lobjeCtid #findid
set #ltarGetkind 1
event maCro 17 0
tarGet
event maCro 22 0
wait 3s
If #WEIGHT > %MaxWeight
GoSub Store
Goto findplant
}
finditem %C1 , _ , %C2 , _ , %C3 G_0
if #findkind = -1
{

finditem %C1 C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set %plantid #findid
finditem TWF C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set #ltarGetid %plantid
msG ,waittargetobject %plantid $,useobject #findid $
tarGet
set #ltarGetx %x
set #ltarGety %y
set #ltarGettile 0
set #ltarGetkind 2
event maCro 22 0
wait 3s
Goto sowfield
}
next:
set %x %x + 1
if %x > %maxx
{
set %x %minx
set %y %y + 1
}
if %y > %maxy
{
set %x %minx
set %y %miny
}
Goto sowfield

sub death
set %deathCount %deathCount + 1
if %deathCount > 5
{
set %deathCount 0
wait 1800s
}
Move 879 2408
Move 879 2367
Move 832 2317
Move 786 2317
Move 786 2219
CCheCkk:
wait 2s
if #CharGhost = yes
Goto CCheCkk
Move 786 2219
Move 786 2317
Move 832 2317
Move 879 2367
Move 879 2408
wait 1s
move %x %y 0
return

sub store
If #HITS = 0
GoSub Death
move 833 2155 0
move 833 2124 0
if #CharGhost = yes
Gosub death
finditem %C1 C_ , %baCkpaCk
if #findkind <> -1
{
set %Count #findstaCk - 5
msG ,moveitem #findid %Count VGCJKYE $
wait 1s
}
move 833 2124 0
move 833 2155 0
If #HITS = 0
GoSub Death
move %x %y 0
return

sub takeinv
move 833 2153 0
move 833 2124 0
event maCro 8 7
wait 1s
set #lobjectid NJYIMFG
event maCro 17 0
wait 1s
finditem TWF C_ , %baCkpaCk
if #findkind = -1
{
set #lobjeCtid NJYIMFG
event maCro 17 0
wait 1s
finditem TWF C_NJYIMFG
msG ,moveitem #findid 1 %baCkpaCk $
wait 1s
}
finditem NMH C_ , %baCkpaCk
if #findkind = -1
{
finditem NMH C_NJYIMFG
msG ,moveitem #findid 1 %baCkpaCk $
wait 1s
}


finditem HND C_ , %baCkpaCk
if #findkind = -1
{
finditem HND C_NJYIMFG
msG ,moveitem #findid 5 %baCkpaCk $
wait 1s
}
finditem %C1 C_ , %baCkpaCk
if #findkind = -1
{
finditem %C1 C_NJYIMFG
msG ,moveitem #findid 20 %baCkpaCk $
wait 1s
}
F move 821 2152 0
move %x %y 0
return

Sub Copyright ;------------��ﲠ������Ѡͥʭ----
Set #SYSMSGCOL 88
Event Sysmessage =======================================
Event Sysmessage = Ϯ��ࠕ뮯ꠠMacros by SaNeK v1.0 =
Event Sysmessage =======================================
Wait 2s
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Set #SYSMSGCOL 0
Return
event maCro 8 1
wait 2s
set %MaxWeight 300 ; 젪��뼭?��nditem ZJF C_ , #Charid
set %baCkpaCk #findid
set %deathCount 0
set %C1 NFF
set %C2 FPE
set %C3 CPE
set %minx 818
set %miny 2152
set %maxx 831
set %maxy 2165
set %x %minx
set %y %miny
GoSub Copyright
startmacro:
If #HITS = 0
GoSub Death
finditem %C3 G_10
if #findkind = -1
Goto sowfield
move #findx #findy 0
set %plantid #findid
finditem NMH C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto startmaCro
}
set #lobjectid #findid
set #ltargetid %plantid
set #ltargetkind 1
event macro 17 0
target
event macro 22 0
wait 3s
If #WEIGHT > %MaxWeight
GoSub Store
Goto startmaCro
sowfield:
move %x %y 0
if #Charposx <> %x && #Charposy <> %y
Goto sowfield
findplant:
finditem %C3 G_0
if #findkind <> -1
{
set #ltarGetid #findid
finditem NMH C_ , #BACKPACKID
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set #lobjeCtid #findid
set #ltarGetkind 1
event maCro 17 0
tarGet
event maCro 22 0
wait 3s
If #WEIGHT > %MaxWeight
GoSub Store
Goto findplant
}
finditem %C1 , _ , %C2 , _ , %C3 G_0
if #findkind = -1
{

finditem %C1 C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set %plantid #findid
finditem TWF C_ , %baCkpaCk
if #findkind = -1
{
Gosub takeinv
Goto findplant
}
set #ltarGetid %plantid
msG ,waittargetobject %plantid $,useobject #findid $
tarGet
set #ltarGetx %x
set #ltarGety %y
set #ltarGettile 0
set #ltarGetkind 2
event maCro 22 0
wait 3s
Goto sowfield
}
next:
set %x %x + 1
if %x > %maxx
{
set %x %minx
set %y %y + 1
}
if %y > %maxy
{
set %x %minx
set %y %miny
}
Goto sowfield

sub death
set %deathCount %deathCount + 1
if %deathCount > 5
{
set %deathCount 0
wait 1800s
}
Move 879 2408
Move 879 2367
Move 832 2317
Move 786 2317
Move 786 2219
CCheCkk:
wait 2s
if #CharGhost = yes
Goto CCheCkk
Move 786 2219
Move 786 2317
Move 832 2317
Move 879 2367
Move 879 2408
wait 1s
move %x %y 0
return

sub store
If #HITS = 0
GoSub Death
move 833 2155 0
move 833 2124 0
if #CharGhost = yes
Gosub death
finditem %C1 C_ , %baCkpaCk
if #findkind <> -1
{
set %Count #findstaCk - 5
msG ,moveitem #findid %Count VGCJKYE $
wait 1s
}
move 833 2124 0
move 833 2155 0
If #HITS = 0
GoSub Death
move %x %y 0
return

sub takeinv
move 833 2153 0
move 833 2124 0
event maCro 8 7
wait 1s
set #lobjectid NJYIMFG
event maCro 17 0
wait 1s
finditem TWF C_ , %baCkpaCk
if #findkind = -1
{
set #lobjeCtid NJYIMFG
event maCro 17 0
wait 1s
finditem TWF C_NJYIMFG
msG ,moveitem #findid 1 %baCkpaCk $
wait 1s
}
finditem NMH C_ , %baCkpaCk
if #findkind = -1
{
finditem NMH C_NJYIMFG
msG ,moveitem #findid 1 %baCkpaCk $
wait 1s
}


finditem HND C_ , %baCkpaCk
if #findkind = -1
{
finditem HND C_NJYIMFG
msG ,moveitem #findid 5 %baCkpaCk $
wait 1s
}
finditem %C1 C_ , %baCkpaCk
if #findkind = -1
{
finditem %C1 C_NJYIMFG
msG ,moveitem #findid 20 %baCkpaCk $
wait 1s
}
F move 821 2152 0
move %x %y 0
return

Sub Copyright ;------------��ﲠ������Ѡͥʭ----
Set #SYSMSGCOL 88
Event Sysmessage =======================================
Event Sysmessage = Ϯ��ࠕ뮯ꠠMacros by SaNeK v1.0 =
Event Sysmessage =======================================
Wait 2s
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Set #SYSMSGCOL 0
Return
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения