Guest User

Untitled

a guest
May 20th, 2018
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.78 KB | None | 0 0
  1. prontera.gat,164,107,3 script 線上福利(泡點) 906,{
  2. if(@chcheck==0){set $printa$,"開始泡點累積";}
  3. if(@chcheck==1){set $printa1$,"停止泡點累積";}
  4. mes "[泡點]";
  5. mes "妳好阿,我是泡點系統的服務員";
  6. mes "您目前的CASH點數為^FF0000"+#CASHPOINTS+"^000000點";
  7. mes "我可以為你提供有關泡點的服務";
  8. mes "使用此服務等級必須達到^0000FF150^000000級喲";
  9. switch(select($printa$,$printa1$,"服務說明")) {
  10. case 1:
  11. if(baselevel < 149 ) {mes "您的等級尚未150等"; close;}
  12. set $printa$,"";
  13. set $printa1$,"停止泡點數累積";
  14. set @chcheck,1;
  15. addtimer $@podelay*60000,"線上福利(泡點)::OnTimeover";
  16. dispbottom "[ 泡點系統 ] : 您目前泡點為[ "+#CASHPOINTS+" ]";
  17. close;
  18. case 2:
  19. next;
  20. mes "已為您關閉";
  21. mes "您目前有^FF0000"+#CASHPOINTS+"^000000點";
  22. set @chcheck,0;
  23. set $printa1$,"";
  24. set $printa$,"開始星空泡點數累積";
  25. deltimer "線上福利(泡點)::OnTimeover";
  26. close;
  27. case 3:
  28. next;
  29. mes "^[FF0000泡點福利^000000]";
  30. mes "系統會根據玩家的在線時間累積點數";
  31. mes "『注意』:如果玩家開啟聊天室則無法累積泡點";
  32. mes "每^0000FF"+$@podelay+"^000000分鐘可以換取5點P點";
  33. mes "歡迎大家多上來坐坐~";
  34. close;
  35. }
  36.  
  37. OnTimeover:
  38. if(@chcheck==0){end;}
  39. if(!checkChatting()&&!checkvending()){
  40. set #CASHPOINTS,#CASHPOINTS+5;
  41. dispbottom "[ 泡點系統 ] : 已經過了 "+$@podelay+" 分鐘;您的CASH點數增加了『5』點,您的點數目前為[ "+#CASHPOINTS+" ]點";
  42. if(#CASHPOINTS%100==0){announce "您的泡點數到達"+#CASHPOINTS+"點",bc_self,0x0fff8c;}
  43. }
  44. addtimer $@podelay*60000,"泡點福利::OnTimeover";
  45. OnInit:
  46. set $@podelay,30;
  47. end;
  48. }
Add Comment
Please, Sign In to add comment