传奇3泡点脚本

[@泡点]
#say
{FCOLOR/10}<$USERNAME>{FCOLOR/12}：英雄你好！是不是工作很忙？是不是没时间练级？呵呵！你来对地方了。\ \
{FCOLOR/10}==={FCOLOR/15}条件{FCOLOR/10}==={FCOLOR/12}\
1、每次泡点需要{FCOLOR/10}50W{FCOLOR/12}金币。\\
{FCOLOR/10}==={FCOLOR/15}规则{FCOLOR/10}==={FCOLOR/12}\
1、泡点结算周期为{FCOLOR/10}1{FCOLOR/12}分钟。\
2、每小时获取{FCOLOR/10}120万{FCOLOR/12}点经验值。\
3、不能离开比奇城100-100的范围，超个该范围泡点失效。
4、泡点中途断线或下线，泡点失效，再次泡点需点击{FCOLOR/10}结束泡点{FCOLOR/12}后才能泡点。\\
马上<开始泡点/@kaishi>___\\
查询<泡点成果/@cxpd>___\\
我要<结束泡点/@letgo>___\\
<返回首页/@main>\\
<关 闭@exit>

[@letgo]
#ACT
LoadValue D0 "QuestDiarySystem泡点.txt" [%USERNAME] 经验1
LoadValue D2 "QuestDiarySystem泡点.txt" [%USERNAME] 经验2
#IF
EQUAL D0 1
#ACT
SaveValue "QuestDiarySystem泡点.txt" [%USERNAME] 经验1 0
Delaygoto [Grobal] 2 @GAMEOVER

[@GAMEOVER]
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12} ：\
您本次泡点获取的经验是 {FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/12} 点，欢迎再次光临！


[@cxpd]
#ACT
LoadValue D2 "QuestDiarySystem泡点.txt" [%USERNAME] 经验2
MOV P1 %D2
MOV P2 40000
DIV P1 P2
MOV D3 %P9
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12} 你好！\
您本次泡点获经验为：{FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/12} 点。\
您本次泡点耗时间为：{FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/12} 分钟。\ \
<好，我知道了/@exit>

[@kaishi]
#ACT
LoadValue D0 "QuestDiarySystem泡点.txt" [%USERNAME] 经验1
#IF
EQUAL D0 0
checkgold 500000
#ACT
take 金币 500000
Mapmove 0 163 236
SetAreaAttr "0, 163, 236, 100"
ChangeMapAttr "0" "NODRUG"
ChangeMapAttr "0" "SAFE"
SaveValue "QuestDiarySystem泡点.txt" [%USERNAME] 经验1 1
SaveValue "QuestDiarySystem泡点.txt" [%USERNAME] 经验2 0
Delaygoto [Grobal] 60 @kaishi1
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}你好！现在开始泡点了。\ \
<嗯，我知道了/@exit>
#ELSESAY
对不起，你不能参加泡点，你的金币或者等级不符合要求呀。\ \
<关 闭/exit>

[@kaishi1]
#ACT
LoadValue D0 "QuestDiarySystem泡点.txt" [%USERNAME] 经验1
#IF
EQUAL D0 1
#ACT
LoadValue D2 "QuestDiarySystem泡点.txt" [%USERNAME] 经验2
INC D2 40000
SaveValue "QuestDiarySystem泡点.txt" [%USERNAME] 经验2 %D2
mov A0 %USERNAME
GIVEEXP %A0 40000
Delaygoto [Grobal] 60 @kaishi1 dedecms.com