TA的每日心情 | 怒 2020-1-26 12:31 |
---|
签到天数: 58 天 [LV.5]赤月恶魔
初级会员
- 威望
- 40 点
- 贡献
- 0 次
- 怀旧币
- 106 枚
|
5#
楼主 |
发表于 2014-12-31 14:13:29
|
只看该作者
[@开始泡点]
{
#call [调用脚本\检测分钟.txt] @检测分钟
[@检测分钟完毕]
#ACT
SET [556] 1
SAVEVALUE "QuestDiary\ziyuwangluo\泡点系统\逗留数据.txt" %USERNAME 分钟 %D7
Killslave
SYSMSG "开始泡点,1分钟给一次经验,目前只开放道观地图跟银杏地图可以泡点"
close
goto @泡点循环
break
[@泡点循环]
#IF
CHECK [556] 1
#ACT
#call [调用脚本\检测分钟.txt] @检测分钟1
#ELSEACT
break
[@检测分钟完毕1]
#ACT
LOADVALUE D8 "QuestDiary\ziyuwangluo\泡点系统\逗留数据.txt" %USERNAME 分钟
MOV A1 %USERMAP
#if
!EQUAL A1 02
!EQUAL A1 1
#ACT
SET [556] 0
SYSMSG "你离开了泡点区,泡点功能关闭"
break
#IF
!EQUAL D7 %D8
#ACT
SAVEVALUE "QuestDiary\ziyuwangluo\泡点系统\逗留数据.txt" %USERNAME 分钟 %D7
GOTO @检测等级
BREAK
#ELSEACT
DELAYGOTO [LOCAL] 10 @泡点循环
BREAK
[@检测等级]
#IF
Checkgroupcount 1
#act
sysmsg "对不起,你组队了,泡点系统非法终止"
SET [556] 0
BREAK
#IF
checklevel 60
#ACT
LOADVALUE D1 "QuestDiary\ziyuwangluo\泡点系统\参数控制.txt" 参数控制 60以上每分钟经验
GOTO @检测等级完毕
BREAK
#IF
checklevel 50
#ACT
LOADVALUE D1 "QuestDiary\ziyuwangluo\泡点系统\参数控制.txt" 参数控制 50-60每分钟经验
GOTO @检测等级完毕
BREAK
#IF
checklevel 40
#ACT
LOADVALUE D1 "QuestDiary\ziyuwangluo\泡点系统\参数控制.txt" 参数控制 40-50每分钟经验
GOTO @检测等级完毕
BREAK
#IF
checklevel 30
#ACT
LOADVALUE D1 "QuestDiary\ziyuwangluo\泡点系统\参数控制.txt" 参数控制 30-40每分钟经验
GOTO @检测等级完毕
BREAK
#IF
checklevel 20
#ACT
LOADVALUE D1 "QuestDiary\ziyuwangluo\泡点系统\参数控制.txt" 参数控制 20-30每分钟经验
GOTO @检测等级完毕
BREAK
[@检测等级完毕]
#IF
#ACT
GIVEEXP %USERNAME %D1
take 金币 %D5
SYSMSG "获得<$OUTPUT(D1)>点经验,扣除了<$OUTPUT(D5)>金币"
DELAYGOTO [LOCAL] 10 @泡点循环
#ELSEACT
GIVEEXP %USERNAME %D1
take 金币 %D5
SYSMSG "获得<$OUTPUT(D1)>点经验,扣除了<$OUTPUT(D5)>金币"
DELAYGOTO [LOCAL] 10 @泡点循环
} |
|