Yoko
http://forum.yoko.com.ua/

Скрипт на ламбер, хелп плиз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2233		 Page 1 of 1
Author:  Dim0n [ 2004-12-12 22:13:52 ]
Post subject:  Скрипт на ламбер, хелп плиз
Помогите плиз найти ошибку и поправит скрипт

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
Author:  Leks [ 2004-12-13 05:48:43 ]
Post subject: 
Kamrjopa sokartures....
зачем такие сложности ??
Поспать забыл??
Author:  AGRS [ 2004-12-13 10:48:19 ]
Post subject: 
А по моему это ваааще не инжект. :)
Author:  Dim0n [ 2004-12-13 12:03:40 ]
Post subject: 
AGRS wrote:
А по моему это ваааще не инжект. :)

ты угадал %) это изиуо, но я думал что тут форум и по изиуо...
Author:  Bloodmoon [ 2004-12-14 13:17:29 ]
Post subject: 
я тоже могу думать много о чем :).
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/