Помогите плиз найти ошибку и поправит скрипт
GOSUB AUTORUN_ON
INITEVENTS
Event Sysmessage *)
START:
SET %VAR 0
SET %VAR %VAR +
SET %MX #MAXHITS - 30
SET %MW 364
IF #WEIGHT %MW
{
IGNOREITEM RESET
GOTO STORE
}
GOSUB LUMB 2116 1983 0
GOSUB LUMB 2112 1986 0
GOSUB LUMB 2112 1989 0
GOSUB LUMB 2112 1992 0
GOSUB LUMB 2112 1995 0
GOSUB LUMB 2108 1995 0
GOSUB LUMB 2108 1998 0
GOSUB LUMB 2108 2001 0
GOSUB LUMB 2100 2001 0
GOSUB LUMB 2096 2001 0
GOSUB LUMB 2096 2004 0
GOSUB LUMB 2096 2007 0
GOSUB LUMB 2096 2013 0
GOSUB LUMB 2092 2016 0
GOSUB LUMB 2092 2013 0
GOSUB LUMB 2092 2010 0
GOSUB LUMB 2092 2007 0
GOSUB LUMB 2092 2004 0
GOSUB LUMB 2092 2001 0
GOSUB LUMB 2088 2001 0
GOSUB LUMB 2088 2007 0
GOSUB LUMB 2084 2007 0
GOSUB LUMB 2084 2016 0
GOSUB LUMB 2080 2019 0
GOSUB LUMB 2080 2016 0
GOSUB LUMB 2080 2010 0
GOSUB LUMB 2080 2007 0
GOSUB LUMB 2080 2004 0
GOSUB LUMB 2080 1998 0
GOSUB LUMB 2080 1995 0
GOSUB LUMB 2080 1992 0
GOSUB LUMB 2084 1992 0
GOSUB LUMB 2084 1995 0
GOSUB LUMB 2084 1998 0
GOSUB LUMB 2084 2001 0
GOSUB LUMB 2084 2007 0
GOSUB LUMB 2088 1995 0
GOSUB LUMB 2088 1992 0
GOSUB LUMB 2088 1989 0
GOSUB LUMB 2088 1986 0
GOSUB LUMB 2092 1983 0
GOSUB LUMB 2092 1989 0
GOSUB LUMB 2092 1989 0
GOSUB LUMB 2100 1986 0
GOSUB LUMB 2100 1989 0
GOSUB LUMB 2100 1992 0
GOSUB LUMB 2100 1995 0
GOTO START
SUB LUMB
SET %XX %1 + 1
SET %YY %2 + 1
MOVE %XX %YY 0
SET #LTARGETKIND 3
SET #LTARGETTILE %3
SET #LTARGETX %1
SET #LTARGETY %2
WAIT 1S
EVENT SYSMESSAGE TREE - %VAR
GOTO BEGIN
BEGIN:
IF #HITS < %MX
{
EVENT MACRO 6 0
WAIT 2
EVENT MACRO 6 0
WAIT 2
EVENT MACRO 13 21
WAIT 4S
GOTO HEAL
}
IF #WEIGHT %MW
{
IGNOREITEM RESET
GOTO STORE
}
FINDITEM VBMYKMD
If #FindKind = 1
{
IgnoreItem #Findid
Goto Begin
}
SET #LOBJECTID #FINDID
EVENT MACRO 17 0
TARGET 9
EVENT MACRO 22 0
WAIT 2S
SCANJOURNAL 1
IF no_more IN #JOURNAL
{
SET %VAR %VAR +
RETURN
}
SCANJOURNAL 2
IF is_no IN #JOURNAL
{
SET %VAR %VAR +
RETURN
}
GOTO BEGIN
HEAL:
IF #HITS < %MX
{
MSG [bandageself
WAIT 5S
GOTO HEAL
}
GOTO BEGIN
SUB AUTORUN_ON
EVENT MACRO 32 0
WAIT 1S
SCANJOURNAL 1
IF _OFF IN #JOURNAL
EVENT MACRO 32 0
GOTO START
STORE:
MOVE 2100 1995 0
FINDITEM MMK_MZF_WZF
IF #FINDKIND = -1
{
MOVE %XX %YY 0
GOTO BEGIN
}
IF #FINDKIND = 1
{
IGNOREITEM #FINDID
GOTO STORE
}
EVENT DRAG #FINDID
WAIT 2
KEY ENTER
WAIT 2
CLICK 360 232
WAIT 5
GOTO STORE
Скрипт на ламбер, хелп плиз
Moderators: Murderator+, Murderator
