传奇私服 >> 传奇技术 >> 捐款买官NPC脚本

捐款买官NPC脚本

来源：www.sf121.com 作者：搜服预报时间：2011-5-22 18:19:30 浏览次数：

(@@InPutInteger)
[@MAIN]
<COLOR=clRed 官位>(<COLOR=clFuchsia 所享受的待遇>)　<COLOR=clRed 姓名>(<COLOR=clFuchsia 捐献的元宝数量>)\
<COLOR=clRed 主席>(<COLOR=clLime 1.5倍> 攻魔道)：<$STR(A66)>(<COLOR=clLime 捐献元宝>：<$STR(G66)>颗)\
<COLOR=clRed 省长>(<COLOR=clLime 1.4倍> 攻魔道)：<$STR(A77)>(<COLOR=clLime 捐献元宝>：<$STR(G77)>颗)\
<COLOR=clRed 市长>(<COLOR=clLime 1.3倍> 攻魔道)：<$STR(A76)>(<COLOR=clLime 捐献元宝>：<$STR(G76)>颗)\
<COLOR=clRed 县长>(<COLOR=clLime 1.2倍> 攻魔道)：<$STR(A65)>(<COLOR=clLime 捐献元宝>：<$STR(G65)>颗)\
<COLOR=clRed 乡长>(<COLOR=clLime 1.1倍> 攻魔道)：<$STR(A67)>(<COLOR=clLime 捐献元宝>：<$STR(G67)>颗)\
你目前捐款数：<$GAMEPOINT>颗元宝。<COLOR=clRed 有钱就是大爷！穷人靠边站>！\
<捐款买官/@@InPutInteger10>，一次捐款最少1000颗，最高10000000颗。<领取国家奖励/@AA>\
<COLOR=clFuchsia 主席拥有：(攻魔道防御各100点)> <COLOR=clFuchsia 省长拥有：(攻魔道防御各50点)>\

[@AA]
#IF
Checknamelist ..\QuestDiary\读取检测\国家奖励\主席.txt
#ACT
MESSAGEBOX 你今天已经领取过奖励了，请等待明天再来吧。
Close
BREAK

#IF
Checknamelist ..\QuestDiary\读取检测\国家奖励\省长.txt
#ACT
MESSAGEBOX 你今天已经领取过奖励了，请等待明天再来吧。
Close
BREAK

#IF
EQUAL A66 <$USERNAME>
#ACT
Addnamelist ..\QuestDiary\读取检测\国家奖励\主席.txt
AbilityAdd 1 100 1800
AbilityAdd 2 100 1800
AbilityAdd 3 100 1800
AbilityAdd 4 100 1800
AbilityAdd 5 100 1800
AbilityAdd 6 100 1800
SENDMSG 7 恭喜主席同志成功领取国家奖励：攻魔道防御各提升100点/时间30分钟
BREAK

#IF
EQUAL A77 <$USERNAME>
#ACT
Addnamelist ..\QuestDiary\读取检测\国家奖励\省长.txt
AbilityAdd 1 50 1800
AbilityAdd 2 50 1800
AbilityAdd 3 50 1800
AbilityAdd 4 50 1800
AbilityAdd 5 50 1800
AbilityAdd 6 50 1800
SENDMSG 7 恭喜省长同志成功领取国家奖励：攻魔道防御各提升50点/时间30分钟
BREAK
#ELSEACT
MESSAGEBOX [提示]：只有主席、省长才有此待遇。请努力为人民服务吧！
BREAK

[@@InPutInteger10]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger10
[~InPutInteger10]
#IF
Large M10 10000000
#ACT
MESSAGEBOX [提示]：一次捐款最少1000颗，最高10000000颗！
MOV M10 0
GOTO @MAIN
BREAK

#IF
Small M10 1000
#ACT
MESSAGEBOX [提示]：一次捐款最少1000颗，最高10000000颗。
MOV M10 0
GOTO @MAIN
BREAK

#IF
CHECKGAMEGOLD ? <$STR(M10)>
#Act
DelayGoto 1 ~A
BREAK
#ELSEACT
MESSAGEBOX 你的元宝不足<$STR(M10)>颗！想要当官，没钱可不行，先去挣点元宝再来吧！
MOV M10 0
GOTO @MAIN
BREAK

[~A]
#IF
CHECKGAMEGOLD ? <$STR(M10)>
#ACT
GAMEGOLD - <$STR(M10)>
GamePoint + <$STR(M10)>
DELAYCALL 1 ~B
BREAK
#ELSESAY
你的元宝不足<$STR(M10)>颗！\
想要当官，没钱可不行，先去挣点元宝再来吧！\ \ \
<关闭/@EXIT>

[~B]
#IF
CheckGamePoint < 100000
#ACT
DELAYCALL 1 @MAIN
BREAK

#IF
CheckGamePoint > <$STR(G66)>
CheckGamePoint > <$STR(G77)>
CheckGamePoint > <$STR(G76)>
CheckGamePoint > <$STR(G65)>
CheckGamePoint > <$STR(G67)>
#ACT
MOV A67 <$STR(A65)>
MOV A65 <$STR(A76)>
MOV A76 <$STR(A77)>
MOV A77 <$STR(A66)>
MOV G67 <$STR(G65)>
MOV G65 <$STR(G76)>
MOV G76 <$STR(G77)>
MOV G77 <$STR(G66)>
MOV A66 <$USERNAME>
MOV G66 <$GAMEPOINT>
GMEXECUTE 开始提问 ~捐款
ClearNameList ..\QuestDiary\读取检测\国家奖励\主席.txt
SENDMSG 0 %S捐款<$GAMEPOINT>颗元宝，获得官职：玛法共和国主席！

DELAYCALL 1 ~B1
BREAK

#IF
CheckGamePoint > <$STR(G77)>
CheckGamePoint > <$STR(G76)>
CheckGamePoint > <$STR(G65)>
CheckGamePoint > <$STR(G67)>
#ACT
MOV A67 <$STR(A65)>
MOV A65 <$STR(A76)>
MOV A76 <$STR(A77)>
MOV G67 <$STR(G65)>
MOV G65 <$STR(G76)>
MOV G76 <$STR(G77)>
MOV A77 <$USERNAME>
MOV G77 <$GAMEPOINT>
ClearNameList ..\QuestDiary\读取检测\国家奖励\省长.txt
SENDMSG 0 %S捐款<$GAMEPOINT>颗元宝，获得官职：玛法共和国省长！
GMEXECUTE 开始提问 ~捐款
DELAYCALL 1 ~B2
BREAK

#IF
CheckGamePoint > <$STR(G76)>
CheckGamePoint > <$STR(G65)>
CheckGamePoint > <$STR(G67)>
#ACT
MOV A67 <$STR(A65)>
MOV A65 <$STR(A76)>
MOV G67 <$STR(G65)>
MOV G65 <$STR(G76)>
MOV A76 <$USERNAME>
MOV G76 <$GAMEPOINT>
SENDMSG 0 %S捐款<$GAMEPOINT>颗元宝，获得官职：玛法共和国市长！
GMEXECUTE 开始提问 ~捐款
DELAYCALL 1 ~B3
BREAK

#IF
CheckGamePoint > <$STR(G65)>
CheckGamePoint > <$STR(G67)>
#ACT
MOV A67 <$STR(A65)>
MOV G67 <$STR(G65)>
MOV A65 <$USERNAME>
MOV G65 <$GAMEPOINT>
SENDMSG 0 %S捐款<$GAMEPOINT>颗元宝，获得官职：玛法共和国县长！
GMEXECUTE 开始提问 ~捐款
DELAYCALL 1 ~B4
BREAK