传世-全屏吸怪脚本

admin

;技能DB数据库添加
159;吸星大法;0;0;0;3;0;0;0;0;0;0;3;45;500;47;1000;49;1500;72;100000;74;200000;76;300000;78;400000;7;1500;0;;

;数据文件\全屏吸怪数据.txt 添加
|DB名字|改名名字
|通天教主|通天教主
|三头蛇王|三头蛇王

;QF添加
[@MagFunc159]
#IF
LARGE $TXTLINE(..\QUESTDIARY\数据文件\全屏吸怪数据.txt) 0
#ACT
CLEARVAR P0 99
CLEARVAR S0 99
MOV D88 0
MOV D89 0
MOV S100 $M
DELAYCALL 2 @LEMON吸怪
BREAK

[@LEMON吸怪]
#IF
EQUAL S100 $M
#ACT
READRANDOMSTR ..\QUESTDIARY\数据文件\全屏吸怪数据.txt S188 $STR(D88)
#ELSEACT
SENDMSG 5 离开技能释放地图,技能被打断!
BREAK

#IF
POS $STR(S188) |
#ACT
SPLIT $STR(S188) | S101
#ELSEACT
CLEARMAPMON $M
MOV D88 0
GOTO @LEMON吸怪A
BREAK

#IF
LARGE $MAPMONCOUNT[$M].$STR(S101) 0
#ACT
MOV S<$STR(D89)> $STR(S101)
MOV P<$STR(D89)> $MAPMONCOUNT[$M].$STR(S101)
INC D88 1
INC D89 1
GOTO @LEMON吸怪
BREAK
#ELSEACT
INC D88 1
GOTO @LEMON吸怪
BREAK

[@LEMON吸怪A]
#IF
POSINLIST |<$STR(S<$STR(D88)>)>| ..\QUESTDIARY\数据文件\全屏吸怪数据.txt S101
#ACT
SPLIT $STR(S101) | S101
PARAM1 SELF
PARAM2 $X
PARAM3 $Y
MONGEN $STR(S<$STR(D88)>) $STR(P<$STR(D88)>) 2 $STR(S102)
INC D88 1
GOTO @LEMON吸怪A
BREAK

隔壁李叔叔

楼主发贴辛苦了，谢谢楼主分享！