组队闭关修炼队员越多经验越帝国传奇私服高

---------------NPC-------------- [@main] 风声的第3个原创脚本 [立即进入]/@fs进入组队练级地图] [@fs进入组队练级地图] #if傲视千雄吧 ISGROUPMASTER #act #ELSEACT goto @main MESSAGEBOX 提示：您不是队长。无权操作。 break #IF CHECKGAMEGOLD 1999 #ACT GETGROUPCOUNT P1 mov m1 $STR(p1) mov a780 $USERNAME mov g780 $STR(p1) GROUPMAPMOVE ZDPDDT 14 13 1 @风声组队泡经验 break #ELSEACT goto @main MESSAGEBOX 提示：您的元宝不是很多。不能进入 break QFunction-0.txt================ [@风声组队泡经验] ;======检测是否离线======= #if ISOFFLINEMODE #ACT mov s78 $STR(a780) mapmove 3 330 330 HCall $STR(s78) @离线组队不能进 Break ;======检测是否元宝充足==默认是7780元宝===== #IF CHECKGAMEGOLD 7788 #ACT mov s78 $STR(a780) mov a782 $USERNAME mapmove 3 330 330 HCall $STR(s78) @组队闭关元宝不足 SENDMSG 7 提示：您的元宝不足。无法随队伍进入组队闭关地图。 Break ;======检测是否等级满足==默认是70级===== ;======#IF ;======CHECKLEVELEX 70 ;======#ACT ;======mov s78 $STR(a780) ;======mov a782 $USERNAME ;======HCall $STR(s78) @组队闭关等级不足 ;======mapmove 3 330 330 ;======SENDMSG 7 提示：您的等级不足。无法随队伍进入组队闭关地图。 ;======Break ;======检测完毕后开始把组队标记存进私有变量======= #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETONTIMER 10 1 SETOFFTIMER 9 SETONTIMER 9 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break [@fszdrszjgx] ;======检测是否元宝充足==默认是7780元宝===== #IF CHECKGAMEGOLD 7788 #ACT SETOFFTIMER 10 SETOFFTIMER 9 SETONTIMER 9 1 SETONTIMER 10 1 mov s78 $STR(a780) mov a782 $USERNAME SENDMSG 7 提示：您的元宝不足。 Break ;======检测是否等级满足==默认是70级===== ;======#IF ;======CHECKLEVELEX 70 ;======#ACT ;======mov s78 $STR(a780) ;======mov a782 $USERNAME ;======HCall $STR(s78) @组队闭关等级不足1 ;======mapmove 3 330 330 ;======Messagebox 您的元宝不足。无法随队伍进入组队闭关地图。 ;======Break #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETONTIMER 10 1 SETOFFTIMER 9 SETONTIMER 9 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break [@fszdrsjsgx] ;======检测是否元宝充足==默认是7780元宝===== #IF CHECKGAMEGOLD 7788 #ACT SETOFFTIMER 10 SETOFFTIMER 9 SETONTIMER 9 1 SETONTIMER 10 1 mov s78 $STR(a780) mov a782 $USERNAME SENDMSG 7 提示：您的元宝不足。 Break ;======检测是否等级满足==默认是70级===== ;======#IF ;======CHECKLEVELEX 70 ;======#ACT ;======mov s78 $STR(a780) ;======mov a782 $USERNAME ;======HCall $STR(s78) @组队闭关等级不足1 ;======mapmove 3 330 330 ;======Messagebox 您的元宝不足。无法随队伍进入组队闭关地图。 ;======Break #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETONTIMER 10 1 SETOFFTIMER 9 SETONTIMER 9 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break [@队长换新队长了] ;======检测是否等级满足==默认是70级===== ;==#IF ;==CHECKLEVELEX 70 ;==#ACT ;==mov s78 $STR(a780) ;==mov a782 $USERNAME ;==mov s79 等级不足 ;==SETOFFTIMER 10 ;==SETOFFTIMER 9 ;==mapmove 3 330 330 ;==HCall $STR(s78) @组队闭关等级不足1 ;==Messagebox 您的元宝不足。无法随队伍进入组队闭关地图。 ;==Break #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETOFFTIMER 9 SETONTIMER 9 1 SETONTIMER 10 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break [@风声组队离线组队不能进] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 SENDMSG 7 提示：队员$STR(a782)是离线挂机玩家，导致大伙都进不去。 Break [@风声组队队员元宝不足] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 SENDMSG 7 提示：队员$STR(a782)的元宝不足，导致大伙都进不去。 Break [@风声组队队员等级不足] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 SENDMSG 7 提示：队员$STR(a782)的等级不足，导致大伙都进不去。 Break [@半途进组队员元宝不足因此减人数] #IF EQUAL s77 元宝不足 #ACT Break #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETOFFTIMER 9 SETONTIMER 9 1 SETONTIMER 10 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break [@半途进组队员等级不足因此减人数] #IF #ACT mov s77 有元宝 mov s78 $STR(a780) mov m78 $STR(g780) SETOFFTIMER 10 SETOFFTIMER 9 SETONTIMER 9 1 SETONTIMER 10 1 SENDMSG 7 提示：当前在本地图闭关的队员总人数为$STR(m78)人，队长是$STR(s78). Break -===========QManage.txt=========== [@离线组队不能进] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 GROUPMAPMOVE 3 330 330 1 @风声组队离线组队不能进 SENDMSG 7 提示：队员$STR(a782)是离线挂机用户。不能带他进去。 break [@组队闭关元宝不足] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 GROUPMAPMOVE 3 330 330 1 @风声组队队员元宝不足 SENDMSG 7 提示：队员$STR(a782)的元宝不足。不能带他进去。 break [@组队闭关等级不足] #IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 GROUPMAPMOVE 3 330 330 1 @风声组队队员等级不足 SENDMSG 7 提示：队员$STR(a782)的等级不足70级。不能带他进去。 break [@组队闭关元宝不足1] #IF #ACT dec m78 1 mov a780 $USERNAME mov g780 $STR(m78) GROUPMAPMOVE ZDPDDT 14 13 1 @半途进组队员元宝不足因此减人数 MESSAGEBOX 队员$STR(a782)的元宝不足,影响了队伍升级经验。 break [@组队闭关等级不足1] #IF #ACT dec m78 1 mov a780 $USERNAME mov g780 $STR(m78) GROUPMAPMOVE ZDPDDT 14 13 1 @半途进组队员等级不足因此减人数 MESSAGEBOX 对不起,队员$STR(a782)的等级不足，影响了队伍升级经验，请踢了他。 break[@OnTimer9] ;=====开始检测人数变化，如有人进组或者退组将会全体触发1次。 #IF ISGROUPMASTER EQUAL s78 $USERNAME #ACT GETGROUPCOUNT P1 mov m0 $STR(p1) goto @检测本次和上次人数是否变化 break #IF ISGROUPMASTER #ACT ;=====既然队长名字已经变了，那说明队长退组了。所以通知全体换队长 dec m78 1 mov a780 $USERNAME mov g780 $STR(m78) GROUPMAPMOVE ZDPDDT 14 13 1 @队长换新队长了 break #IF CheckGroupCount 1 #ACT break#IF #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 Messagebox 提示：您的队伍已经解散或者少于2人。 Break [@检测本次和上次人数是否变化] ;=====通过本系统可以实现进组后自动传进地图。 #IF ;=====如果人数没变化 EQUAL m0 $STR(m1) #ACT ;=====那么更新一下最新人数 mov m1 $STR(m0) break #IF ;=====如果有人进组 LARGE m0 $STR(m1) #ACT ;=====那么增加1个有效名额，并开始全体更新 mov m1 $STR(m0) inc m78 1 mov a780 $USERNAME mov g780 $STR(m78) GROUPMAPMOVE ZDPDDT 14 13 1 @fszdrszjgx break#IF ;=====如果有人退组 SMALL m0 $STR(m1) #ACT ;=====那么减少1个有效名额，并开始全体更新 mov m1 $STR(m0) dec m78 1 mov a780 $USERNAME mov g780 $STR(m78) GROUPMAPMOVE ZDPDDT 14 13 1 @fszdrsjsgx break #IF #ACT break [@OnTimer10] ;===检测当前闭关地图人数 #IF ;===10个人以上 LARGE m78 10 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 110000 Break#IF EQUAL m78 10 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 100000 Break #IF EQUAL m78 9 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 90000 Break#IF EQUAL m78 8 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 80000 Break #IF EQUAL m78 7 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 70000 Break#IF EQUAL m78 6 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 60000 Break #IF EQUAL m78 5 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 50000 Break#IF EQUAL m78 4 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 40000 Break #IF EQUAL m78 3 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 30000 Break#IF EQUAL m78 2 ISONMAP ZDPDDT CHECKGAMEGOLD 999 #ACT GAMEGOLD - 1000 CHANGEEXP + 20000 Break #IF CheckGroupCount 2 EQUAL s77 元宝不足 ISONMAP ZDPDDT #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 Messagebox 您脱离了队伍。。。 Break#IF ISGROUPMASTER CheckGroupCount 2 EQUAL s77 元宝不足 #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 Messagebox 您脱离了队伍。。。 Break #IF ISGROUPMASTER EQUAL s77 元宝不足 LARGE m4 0 #ACT dec m4 1 SEND传奇外传变态私服MSG 7 提示：元宝不足,请您$STR(m4)秒内退组，否则会被小退。 break#IF ISGROUPMASTER EQUAL s77 元宝不足 EQUAL m4 0 #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 kick SENDMSG 5 提示：元宝不足,请您小退再上。 break #IF ISGROUPMASTER CHECKGAMEGOLD 1000 #ACT mov s77 元宝不足 mov m4 10 SENDMSG 7 提示：您的元宝不足。充值元宝后再进组。 Break #IF EQUAL s77 元宝不足 LARGE m0 0 #ACT dec m0 1 SENDMSG 7 提示：元宝不足,请您$STR(m0)秒内退组，否则会被小退。 break #IF EQUAL s77 元宝不足 EQUAL m0 0 #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 kick SENDMSG 5 提示：元宝不足,请您小退再上。 break #IF CHECKGAMEGOLD 1000 #ACT mov s77 元宝不足 mov m0 10 SENDMSG 7 提示：您的元宝不足。充值元宝后再进组。 Break#IF ISONMAP ZDPDDT #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmo神圣传奇ve 3 330 330 Messagebox 对不起,您的队伍人数太少。自动返回土城 Break #IF CheckGroupCount 2 #ACT SETOFFTIMER 10 SETOFFTIMER 9 mapmove 3 330 330 Messagebox 对不起,您的队伍人数太少。自动返回土城 Break #IF ISGROUPMASTER ISONMAP ZDPDDT #ACT break #IF #ACT mapmove ZDPDDT Messagebox 对不起，组队修炼过程中，不得擅自离开闭关地图如果想离开，请您先退组。 Break