Advertisement
Guest User

Untitled

a guest
May 6th, 2012
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. - script Pass2 -1,{
  2.  
  3. OnPCLoginEvent:
  4. if(getgmlevel()<90) end;
  5. set inputcheck,0;
  6. addtimer 500, strnpcinfo(3)+"::On_Cancel";
  7. if( #SecondPassword$ == "" ) {
  8. mes "It's the first time you log in";
  9. callfunc("SetSecondPassword");
  10.  
  11. }else {
  12. mes strcharinfo(0) + ", please input your 2nd password to continue playing...";
  13. input .@input$;
  14. if( .@input$ != #SecondPassword$ )
  15. atcommand "@kick "+strcharinfo(0);
  16. else {
  17. mes "Your password is correct. Choose what to do";
  18. if( select("Play:Change Password") == 1){
  19. set inputcheck,1;
  20. close;
  21. }else {
  22. callfunc("SetSecondPassword");
  23. set inputcheck,1;
  24. close;
  25. }
  26. }
  27. end;
  28. }
  29.  
  30. On_Cancel:
  31. if(!inputcheck)goto OnPCLoginEvent;
  32.  
  33. end;
  34. }
  35.  
  36.  
  37.  
  38. function script SetSecondPassword {
  39. mes "Please enter the second password you wish to use.";
  40. input .@pass$;
  41. mes "Is ^ff0000" + .@pass$ + "^000000 correct?";
  42.  
  43. if( select( "No:Yes" ) == 1 )
  44. return;
  45.  
  46. else {
  47. set #SecondPassword$, .@pass$;
  48. mes "Your second password has been set to [^ff0000" + #SecondPassword$ + "^000000]";
  49. }
  50. return;
  51. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement