[@海魔值]
{
#IF
ISPNEUMA
#ACT
break
#IF
!CheckTxt ..\QuestDiary\游戏读取\海底世界\<$M>.txt
#ACT
BREAK
#IF
EQUAL $KILLMONNAME
#ACT
BREAK
#IF
POSINLIST $KILLMONNAME ..\QuestDiary\游戏读取\海底世界\<$M>.txt S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
GETVALIDSTR $STR(S2) | P0 P10
;SENDMSG 7 恭喜你杀死<$PARAM(2)>获得<$STR(P0)>点海魔值,<$STR(P10)>点天元值
GOTO @海底海魔值
#ELSEACT
BREAK
#IF
!SMALL $MENTALLEVEL 1
#ACT
MENTALPOINT + $STR(P10)
[@海底海魔值]
#IF
SMALL $SEAMCPOINT 2000
#ACT
MOV P1 $SEAMCPOINT
INC P1 $STR(P0)
#IF
!LARGE P1 2000
#ACT
ChangeSeaMCPoint + $STR(P0)
#ELSEACT
ChangeSeaMCPoint = 2000
#if
!SMALL $SEAMCPOINT 2000
!CHECKNAMELIST ..\QuestDiary\游戏读取\海底世界\今日橙色.txt
#act
ADDNAMELIST ..\QuestDiary\游戏读取\海底世界\今日橙色.txt
readrandomstr ..\QuestDiary\游戏读取\海底世界\橙色宝物.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
KillMonBurstRate 200 1200
SENDMSG 7 海魔值达到橙色,双倍爆率时间持续1200秒
GOTO @海底掉丹
#if
!SMALL $SEAMCPOINT 1200
!CHECKNAMELIST ..\QuestDiary\游戏读取\海底世界\今日紫色.txt
#act
ADDNAMELIST ..\QuestDiary\游戏读取\海底世界\今日紫色.txt
readrandomstr ..\QuestDiary\游戏读取\海底世界\紫色宝物.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
KillMonBurstRate 200 900
SENDMSG 7 海魔值达到紫色,双倍爆率时间持续900秒
GOTO @海底掉丹
#if
!SMALL $SEAMCPOINT 600
!CHECKNAMELIST ..\QuestDiary\游戏读取\海底世界\今日蓝色.txt
#act
ADDNAMELIST ..\QuestDiary\游戏读取\海底世界\今日蓝色.txt
readrandomstr ..\QuestDiary\游戏读取\海底世界\蓝色宝物.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
KillMonBurstRate 200 600
SENDMSG 7 海魔值达到蓝色,双倍爆率时间持续600秒
GOTO @海底掉丹
#if
!SMALL $SEAMCPOINT 200
!CHECKNAMELIST ..\QuestDiary\游戏读取\海底世界\今日绿色.txt
#act
ADDNAMELIST ..\QuestDiary\游戏读取\海底世界\今日绿色.txt
readrandomstr ..\QuestDiary\游戏读取\海底世界\绿色宝物.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
KillMonBurstRate 200 300
SENDMSG 7 海魔值达到绿色,双倍爆率时间持续300秒
GOTO @海底掉丹
[@海底掉丹]
#IF
SMALL $AmbitKind 3
#ACT
readrandomstr ..\QuestDiary\游戏读取\海底世界\凡人掉丹.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
break
#IF
LARGE $AmbitKind 2
SMALL $AmbitKind 5
#ACT
readrandomstr ..\QuestDiary\游戏读取\海底世界\天人掉丹.txt S1
DropItemDown $STR(S1) 1 $M($X,$Y,3) 120
break
#IF
LARGE $AmbitKind 4
#ACT
DropItemDown 仙人经验丹 1 $M($X,$Y,3) 120
break
}
|
|