传奇私服 >> 传奇技术 >> 捐款买官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

#IF
CheckLevelEx > 0
#ACT
DELAYCALL 1 @MAIN
BREAK

[~B4]
#IF
EQUAL A67 <$USERNAME>
#ACT
MOV A67
MOV G67 0

#IF
CheckLevelEx > 0
#ACT
DELAYCALL 1 @MAIN
BREAK

[~B3]
#IF
EQUAL A67 <$USERNAME>
#ACT
MOV A67
MOV G67 0

#IF
EQUAL A65 <$USERNAME>
#ACT
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
CheckLevelEx > 0
#ACT
DELAYCALL 1 @MAIN
BREAK

[~B2]
#IF
EQUAL A67 <$USERNAME>
#ACT
MOV A67
MOV G67 0

#IF
EQUAL A65 <$USERNAME>
#ACT
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
EQUAL A76 <$USERNAME>
#ACT
MOV A76 <$STR(A65)>
MOV G76 <$STR(G65)>
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
CheckLevelEx > 0
#ACT
DELAYCALL 1 @MAIN
BREAK

[~B1]
#IF
EQUAL A67 <$USERNAME>
#ACT
MOV A67
MOV G67 0

#IF
EQUAL A65 <$USERNAME>
#ACT
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
EQUAL A76 <$USERNAME>
#ACT
MOV A76 <$STR(A65)>
MOV G76 <$STR(G65)>
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
EQUAL A77 <$USERNAME>
#ACT
MOV A77 <$STR(A76)>
MOV G77 <$STR(G76)>
MOV A76 <$STR(A65)>
MOV G76 <$STR(G65)>
MOV A65 <$STR(A67)>
MOV G65 <$STR(G67)>
MOV A67
MOV G67 0

#IF
CheckLevelEx > 0
#ACT
DELAYCALL 1 @MAIN
BREAK