; 此 版 本 来 自 7 pv论 坛 ｗ ｗ ｗ.7 p v. Ne T


;此脚为功能脚本，用于实现各种与脚本有关的功能
( @@sendmsg @storage @getback @buy @sell @repair @s_repair @@offlinemsg @getnextpage @getPreviouspage @@InPutString @@useitemname)
%100


[@PlayLevelUp]
#CALL [\登陆\升级提示.txt] @升级提示
AddhpPer + 100
AddMpPer + 100


[@StdModeFunc100]
#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\月卡名单.txt 90 0 0
#ACT
SENDMSG 6 恭喜您月卡时间增加90天，小退可查看剩余天数！ 255 253
gmexecute ReleaseShutup <$USERNAME>

[@StdModeFunc101]
#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\月卡名单.txt 30 0 0
#ACT
SENDMSG 6 恭喜您月卡时间增加30天，小退可查看剩余天数！ 255 253
gmexecute ReleaseShutup <$USERNAME>




[@StdModeFunc1011]
#IF
checknamelist ..\QuestDiary\月卡\月卡名单.txt
#ACT
GIVE 山城季卡(90天) 1
SENDMSG 5 提示:你帐号还有剩余时间!请使用完后再冲值!
#ELSEACT
Gmexecute ReleaseShutup Self
addnamelist ..\QuestDiary\月卡\月卡名单.txt
ADDUSERDATE ..\QuestDiary\月卡\时间记载.txt
SENDMSG 5 提示:冲值成功!你帐号剩余时间90天!
SENDMSG 5 提示:请小退一次!

[@StdModeFunc1012]
#IF
checknamelist ..\QuestDiary\月卡\年卡名单.txt
#ACT
GIVE 梁山年卡-365天 1
SENDMSG 5 提示:你帐号还有剩余时间!请使用完后再冲值!
#ELSEACT
Gmexecute ReleaseShutup Self
addnamelist ..\QuestDiary\月卡\年卡名单.txt
ADDUSERDATE ..\QuestDiary\月卡\时间记载.txt
SENDMSG 5 提示:冲值成功!你帐号剩余时间365天!
SENDMSG 5 提示:请小退一次!


[@StdModeFunc6]
#IF
#ACT
HAIRSTYLE 0
SENDMSG 6 %s，你的发型已经改变了...

[@StdModeFunc7]
#IF
#ACT
HAIRSTYLE 1
SENDMSG 6 %s，你的发型已经恢复了...


[@StdModeFunc10]
#act
GAMEGOLD + 1
SENDMSG 6 提示:元宝增加1个.您当前的元宝为：<$GAMEGOLD>个

[@StdModeFunc11]
#act
GAMEGOLD + 5
SENDMSG 6 提示:元宝增加5个.您当前的元宝为：<$GAMEGOLD>个


[@StdModeFunc12]
#act
GAMEGOLD + 10
SENDMSG 6 提示:元宝增加10个.您当前的元宝为：<$GAMEGOLD>个


[@StdModeFunc13]
#act
GAMEGOLD + 50
SENDMSG 6 提示:元宝增加50个.您当前的元宝为：<$GAMEGOLD>个


[@StdModeFunc14]
#act
GAMEGOLD + 100
SENDMSG 6 提示:元宝增加100个.您当前的元宝为：<$GAMEGOLD>个

[@StdModeFunc15]
#act
GAMEGOLD + 500
SENDMSG 6 提示:元宝增加500个.您当前的元宝为：<$GAMEGOLD>个

[@StdModeFunc16]
#act
GAMEGOLD + 1000
SENDMSG 6 提示:元宝增加1000个.您当前的元宝为：<$GAMEGOLD>个

[@StdModeFunc17]
#act
GAMEGOLD + 5000
SENDMSG 6 提示:元宝增加5000个.您当前的元宝为：<$GAMEGOLD>个


[@StdModeFunc19]
#IF
random 9
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 8
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 7
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 6
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 5
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 4
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 3
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 2
#act
#CALL [\服务\烟花.txt] @烟花
break
#IF
random 1
#act
#CALL [\服务\烟花.txt] @烟花
break



[@StdModeFunc21]
#IF
#ACT
Gmexecute showeffect 78

[@StdModeFunc22]
#IF
#ACT
Gmexecute showeffect 79

[@StdModeFunc23]
#IF
#ACT
Gmexecute showeffect 80

[@StdModeFunc24]
#IF 
#ACT
Gmexecute showeffect 81

[@StdModeFunc25]
#IF
#ACT
Gmexecute showeffect 82

[@STDMODEFUNC26]
<传音筒>可以将你要说出的话置顶，特别醒目！\
每句话限制为：30个字，可在置顶位置停留30秒！\
请将要说的话，编写到<传音筒>内！\ \
<点击输入您要说的话/@@InPutString6>

[@@InPutString6]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutString6
[~InPutString6]
#If
CheckLevelEX > 0
#Act
DEC S6 62 999
SENDMSG 0 「<$USERNAME>」使用传音筒说：<$STR(S6)> 251 0 30
CLOSE


[@UserCmd1]
#CALL [\服务\游戏帮助.txt] @帮助

[@UserCmd2]
;#CALL [\服务\在线充值.txt] @充值元宝
#CALL [\服务\元宝充值使者.txt] @充值元宝


[@UserCmd5]
#CALL [\会员\会员系统.txt] @名单

[@UserCmd3]
#IF
CHECKGAMEGOLD > 0
#ACT
MOV S1 <$PARAMS>
GAMEGOLD - 1
SENDMSG 0 <$USERNAME>:<$STR(S1)> 255 253 0
#ELSEACT 
SENDMSG 7 使用千里传音需要支付1元宝

[@UserCmd4]
#CALL [\怪怪脚本\后台管理.txt] @管理

[@KillPlay]
#IF
CHECKLEVELEX > 29
#ACT
SendMsg 5 你杀人了

[@PlayDie]
#IF
CHECKLEVELEX > 29
KillByHum
#act
SENDMSG 0 {人物【<$CURRRTARGETNAME>】在:%m(%x:%y)把玩家【<$USERNAME>】残忍杀害了！|70:0}
BREAK

#IF
CHECKLEVELEX > 1
#ACT
SENDMSG 0 {凶残的怪物【<$CURRRTARGETNAME>】在:%m(%x:%y)把玩家【<$USERNAME>】分尸了！|70:0}
BREAK


[@StdModeFunc59]
#IF
#ACT
MAPMOVE 3 330 330

[@StdModeFunc60]
#IF
#ACT
MAPMOVE 0 333 268

[@StdModeFunc66]
#IF
#ACT
MAPMOVE 5 140 338

[@StdModeFunc77]
#IF
#ACT
MAPMOVE 4 241 202


[@stdmodefunc52]
#if
CheckItemAddValue 1 3 > 8
#act
messagebox 你的武器已经是幸运9\请不要重复升级....
give 超级祝福油 1
#elseact
UPGRADEITEMEX 1 3 0 1 0

[@StdModeFunc1]
#IF
#ACT
  CHANGEPKPOINT = 0
SENDMSG 5 你的PK点数已经清除
close


