传奇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