Jump to content
  • 0

How to fix this? Security script


Famous

Question


  • Group:  Members
  • Topic Count:  145
  • Topics Per Day:  0.03
  • Content Count:  455
  • Reputation:   3
  • Joined:  06/19/12
  • Last Seen:  

errorvqa.jpg

//http://rathena.org/board/topic/72558-can-i-request-security-using-can-trade-false/ umbala,94,153,2 script Account Manager 57,{ mes "[Account Manager]"; mes "Hello " + strcharinfo(0) + "."; mes "How may I assist you today?"; next; switch(select(((!#AccLock)? "Lock Account:":":Unlock Account")+":Information:Cancel")) { case 1: mes "[Account Manager]"; mes "So if you would like to lock your account, you will need to input a password after next."; mes "^808080Tips: Input 0 to cancel.^000000"; next; input .@Pass$; if (.@Pass$ == "0") { mes "[Account Manager]"; mes "Alright, you can always talk me to again if you changed your mind."; close; } mes "[Account Manager]"; mes "Good. So the password would be:"; mes "^0055FF" + .@Pass$ + "^000000"; mes "Proceed?"; next; if (select("Confirm:Cancel") == 2) { mes "[Account Manager]"; mes "Alright. Talk to me again anytime."; close; } mes "[Account Manager]"; mes "Password is now set. Account will be locked upon log out."; set .@Pass$, #AccPass$; set #AccLock, 1; atcommand "@adjgroup 1 " + strcharinfo(0); close; case 2: mes "[Account Manager]"; mes "Please input your password."; mes "^808080Tips: Input 0 to cancel.^000000"; set @Attempt, .Attempt; next; input .@Pass$; if (.@Pass$ == "0") { mes "[Account Manager]"; mes "Alright, you can always talk me to again if you changed your mind."; close; } while (.@Pass$ != #AccPass$) { if (@Attempt == 0) { mes "[Account Manager]"; mes "You have entered wrong password too many times!"; close2; atcommand "@kick " + strcharinfo(0); end; } set @Attempt, @Attempt - 1; mes "[Account Manager]"; mes "Wrong password! You have " + @Attempt + " attempt left."; next; input .@Pass$; } mes "[Account Manager]"; mes "Account unlocked. You can always talk to me if you intended to lock your account again."; set #AccLock, 0; atcommand "@adjgroup 0 " + strcharinfo(0); close; case 3: mes "[Account Manager]"; mes "If you feel unsafe with your account, you can always use my service and lock them with a password. Upon logging in, password will be asked and will give no access on wrong password."; close; case 4: mes "[Account Manager]"; mes "See you again!"; close; } OnInit: set .Attempt, 3; // Number of attempts if wrong password entered. end; } - script AccLock -1,{ OnLock: if (#AccLock == 1) { dispbottom "Lock failed! Your account is already locked."; end; } if (.@atcmd_parameters$ == "") { dispbottom "Lock failed! Password cannot be empty."; end; } if (getstrlen(.@atcmd_parameters$) < 4) { dispbottom "Lock failed! Password must be at least 4 characters."; end; } set #AccPass$, .@atcmd_parameters$; set #AccLock, 1; atcommand "@adjgroup 1 " + strcharinfo(0); dispbottom "Account locked successfully! Password is " + #AccPass$ + "."; end; OnUnlock: if (#AccLock == 0) { dispbottom "Unlock failed! Your account is already unlocked."; end; } if (.@atcmd_parameters$ == "" || .@atcmd_parameters$ != #AccPass$) { dispbottom "Unlock failed! Wrong password!"; end; } set #AccLock, 0; atcommand "@adjgroup 0 " + strcharinfo(0); dispbottom "Account unlocked successfully."; end; OnPCLoginEvent: if (#AccLock == 1) { atcommand "@adjgroup 1 " + strcharinfo(0); } end; OnInit: bindatcmd("lock","AccLock::OnLock"); bindatcmd("unlock","AccLock::OnUnlock"); set .Attempt, 3; // Number of attempts if wrong password entered. end; }

Link to comment
Share on other sites

6 answers to this question

Recommended Posts


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

You need to use rAthena.

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  145
  • Topics Per Day:  0.03
  • Content Count:  455
  • Reputation:   3
  • Joined:  06/19/12
  • Last Seen:  

I'm Having hard time to fix this script /sob

is there someone who could make it fix for me?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

Switch to rA or use the patch Emistry posted, or use a different script... o.o

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  145
  • Topics Per Day:  0.03
  • Content Count:  455
  • Reputation:   3
  • Joined:  06/19/12
  • Last Seen:  

but I'm using rA...

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

are you sure ? if you are using rAthena..but the script still failed... then you are probably using a very old version of rathena...

bindatcmd and other related stuff has been added since r16471

update your svn and i believe your problem will be solved.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...