Yasunari Ishibashi Posted October 14, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Share Posted October 14, 2012 Does anyone have the script? the example shown below, please share. Thank you. Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 16, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 16, 2012 Bump... Quote Link to comment Share on other sites More sharing options...
goddameit Posted October 16, 2012 Group: Members Topic Count: 60 Topics Per Day: 0.01 Content Count: 562 Reputation: 219 Joined: 11/22/11 Last Seen: October 19, 2017 Share Posted October 16, 2012 http://rathena.org/board/topic/53320-%E3%80%90-emistry-%C2%A9-2012-%E3%80%91e-scripts-collection/ Quote Link to comment Share on other sites More sharing options...
Peopleperson49 Posted October 16, 2012 Group: Members Topic Count: 218 Topics Per Day: 0.05 Content Count: 1180 Reputation: 141 Joined: 01/27/12 Last Seen: January 24, 2023 Share Posted October 16, 2012 I have also made another version of a secutiry script. http://rathena.org/board/topic/70567-peopleperson49s-scripts/ Peopleperson49 Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 17, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 17, 2012 http://rathena.org/b...pts-collection/ where is the script? I have also made another version of a secutiry script. http://rathena.org/b...son49s-scripts/ Peopleperson49 I'll try first, thanks Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 19, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 19, 2012 Bump Quote Link to comment Share on other sites More sharing options...
Peopleperson49 Posted October 19, 2012 Group: Members Topic Count: 218 Topics Per Day: 0.05 Content Count: 1180 Reputation: 141 Joined: 01/27/12 Last Seen: January 24, 2023 Share Posted October 19, 2012 Which script is giving you problems? What is the issue? Peopleperson49 Quote Link to comment Share on other sites More sharing options...
Bin4ry Posted October 19, 2012 Group: Members Topic Count: 30 Topics Per Day: 0.01 Content Count: 782 Reputation: 82 Joined: 01/01/12 Last Seen: September 21, 2015 Share Posted October 19, 2012 He might wants the bindatcmd instead OnWhisper. Quote Link to comment Share on other sites More sharing options...
Peopleperson49 Posted October 19, 2012 Group: Members Topic Count: 218 Topics Per Day: 0.05 Content Count: 1180 Reputation: 141 Joined: 01/27/12 Last Seen: January 24, 2023 Share Posted October 19, 2012 I understand now, thanks darristan. I can't help him with that because I still use 16265 which doesn't have the command. I don't want to script something I can't test out. Peopleperson49 Quote Link to comment Share on other sites More sharing options...
Bin4ry Posted October 19, 2012 Group: Members Topic Count: 30 Topics Per Day: 0.01 Content Count: 782 Reputation: 82 Joined: 01/01/12 Last Seen: September 21, 2015 Share Posted October 19, 2012 (edited) Alright, guess I'll just upload mine for him Here you go: //===== rAthena Script ======================================= //= Account Locker //===== By: ================================================== //= darristan ([email protected]) //===== Current Version: ===================================== //= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 1.0 Initial release //= 1.1 Added wrong password attempt //= 1.2 Added atcmd binding //============================================================ aria_in,46,166,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; 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; 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; 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; dispbottom "Account unlocked successfully."; end; OnPCLoginEvent: if (#AccLock == 1) { specialeffect2 9; atcommand "@option 2 0 "+(64|(checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); set @Attempt, .Attempt; mes "[Account Manager]"; mes "Please input your password to continue."; next; input .@Pass$; while (.@Pass$ != #AccPass$) { if (@Attempt == 1) { 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 "You may continue your game now."; atcommand "@option 0 0 " + ((checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); close; } end; OnInit: bindatcmd("lock","AccLock::OnLock"); bindatcmd("unlock","AccLock::OnUnlock"); set .Attempt, 3; // Number of attempts if wrong password entered. end; } Usage: @lock <password> @unlock <password> or talk to the NPC. Edited October 19, 2012 by darristan Quote Link to comment Share on other sites More sharing options...
Petey Pablo Posted October 19, 2012 Group: Members Topic Count: 152 Topics Per Day: 0.03 Content Count: 569 Reputation: 11 Joined: 11/24/11 Last Seen: March 7, 2022 Share Posted October 19, 2012 Alright, guess I'll just upload mine for him Here you go: //===== rAthena Script ======================================= //= Account Locker //===== By: ================================================== //= darristan ([email protected]) //===== Current Version: ===================================== //= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 1.0 Initial release //= 1.1 Added wrong password attempt //= 1.2 Added atcmd binding //============================================================ aria_in,46,166,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; 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; 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; 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; dispbottom "Account unlocked successfully."; end; OnPCLoginEvent: if (#AccLock == 1) { specialeffect2 9; atcommand "@option 2 0 "+(64|(checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); set @Attempt, .Attempt; mes "[Account Manager]"; mes "Please input your password to continue."; next; input .@Pass$; while (.@Pass$ != #AccPass$) { if (@Attempt == 1) { 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 "You may continue your game now."; atcommand "@option 0 0 " + ((checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); close; } end; OnInit: bindatcmd("lock","AccLock::OnLock"); bindatcmd("unlock","AccLock::OnUnlock"); set .Attempt, 3; // Number of attempts if wrong password entered. end; } Usage: @lock <password> @unlock <password> or talk to the NPC. error found. im using old eA revision. See the image below. Quote Link to comment Share on other sites More sharing options...
Bin4ry Posted October 19, 2012 Group: Members Topic Count: 30 Topics Per Day: 0.01 Content Count: 782 Reputation: 82 Joined: 01/01/12 Last Seen: September 21, 2015 Share Posted October 19, 2012 Well the script is dedicated for ts and I don't have any working resp of each so u have to fix urself. If not mistaken eA doesn't have bindatcmd. Quote Link to comment Share on other sites More sharing options...
Petey Pablo Posted October 19, 2012 Group: Members Topic Count: 152 Topics Per Day: 0.03 Content Count: 569 Reputation: 11 Joined: 11/24/11 Last Seen: March 7, 2022 Share Posted October 19, 2012 @darristan Dunno how to fix it. I will give my svn revision to you so that you can fix it for me? Quote Link to comment Share on other sites More sharing options...
Emistry Posted October 19, 2012 Group: Forum Moderator Topic Count: 93 Topics Per Day: 0.02 Content Count: 10015 Reputation: 2348 Joined: 10/28/11 Last Seen: Thursday at 01:08 PM Share Posted October 19, 2012 @darristan Dunno how to fix it. I will give my svn revision to you so that you can fix it for me? r16471 this is the diff file... and not sure its compatible with eA or not ...since rA got alot things changed ~ beside....if you check the Old eA Forum ... i believe you can find it mod made by @ToastOfDoom in source release section. 1 Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 23, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 23, 2012 (edited) Alright, guess I'll just upload mine for him Here you go: //===== rAthena Script ======================================= //= Account Locker //===== By: ================================================== //= darristan ([email protected]) //===== Current Version: ===================================== //= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 1.0 Initial release //= 1.1 Added wrong password attempt //= 1.2 Added atcmd binding //============================================================ aria_in,46,166,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; 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; 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; 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; dispbottom "Account unlocked successfully."; end; OnPCLoginEvent: if (#AccLock == 1) { specialeffect2 9; atcommand "@option 2 0 "+(64|(checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); set @Attempt, .Attempt; mes "[Account Manager]"; mes "Please input your password to continue."; next; input .@Pass$; while (.@Pass$ != #AccPass$) { if (@Attempt == 1) { 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 "You may continue your game now."; atcommand "@option 0 0 " + ((checkoption(8)*8)|(checkoption(16)*16)|(checkoption(32)*32)|(checkoption(128)*128)|(checkoption(256)*256)|(checkoption(512)*512)|(checkoption(1024)*1024)); close; } end; OnInit: bindatcmd("lock","AccLock::OnLock"); bindatcmd("unlock","AccLock::OnUnlock"); set .Attempt, 3; // Number of attempts if wrong password entered. end; } Usage: @lock <password> @unlock <password> or talk to the NPC. Is it enough to run the script? no need to change anything? or change -> conf -> group.conf : groups: ( { id: 0 /* group 0 is the default group for every new account */ name: "Player" level: 0 inherit: ( /*empty list*/ ) commands: { /* no commands by default */ } permissions: { /* without this basic permissions regular players could not trade or party */ can_trade: true ----> change false ? can_party: true } }, instructions please, thank you Edited October 23, 2012 by Yasunari Ishibashi Quote Link to comment Share on other sites More sharing options...
Bin4ry Posted October 23, 2012 Group: Members Topic Count: 30 Topics Per Day: 0.01 Content Count: 782 Reputation: 82 Joined: 01/01/12 Last Seen: September 21, 2015 Share Posted October 23, 2012 (edited) Use my script with Annie's little fix and on group.conf: groups: ( { id: 1 ... permissions: { ... can_trade: false } }, Only change permission, don't replace whole group block. Edited October 23, 2012 by darristan Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 30, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 30, 2012 Use my script with Annie's little fix and on group.conf: groups: ( { id: 1 ... permissions: { ... can_trade: false } }, Only change permission, don't replace whole group block. what if using SVN 3CeAM? Quote Link to comment Share on other sites More sharing options...
Bin4ry Posted October 30, 2012 Group: Members Topic Count: 30 Topics Per Day: 0.01 Content Count: 782 Reputation: 82 Joined: 01/01/12 Last Seen: September 21, 2015 Share Posted October 30, 2012 I don't know if 3CeAM have the permission setting. Quote Link to comment Share on other sites More sharing options...
Yasunari Ishibashi Posted October 30, 2012 Group: Members Topic Count: 49 Topics Per Day: 0.01 Content Count: 157 Reputation: 2 Joined: 01/06/12 Last Seen: August 25, 2014 Author Share Posted October 30, 2012 I wait when release script Quote Link to comment Share on other sites More sharing options...
Question
Yasunari Ishibashi
Does anyone have the script?
the example shown below, please share. Thank you.
Link to comment
Share on other sites
18 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.