Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added Kafra storage password protection.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@5306 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
Lupus 2006-02-17 04:47:12 +00:00
parent a7d78d7670
commit 280ad53713
3 changed files with 138 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
npc/Changelog.txt
View File

@ -28,6 +28,9 @@ Nexon
Date Added
======
02/17
* Added Kafra Storage Password (some official severs use it as an additional protection) [Lupus]
- Read functions_kafras.txt comments if you want to disable this feature
02/16
* Fixed Jawai bug and a typo, thanks to theultramage [Lupus]
02/14

2
npc/jobs/2-1/wizard.txt
View File

@ -85,7 +85,7 @@ L_JobMage:
menu "Yes, please continue.",sM_0, "No, it's ok.",sM_1, "A talking dog......",sM_2;
sM_0:
mes "Maria]";
mes "[Maria]";
mes "Ok then. Let me explain the process for becoming a Wizard to you....";
next;
mes "[Maria]";

136
npc/kafras/functions_kafras.txt
View File

@ -5,7 +5,7 @@
//= eAthena Dev Team
//= Darlskies, Darkchild, Syrus22, Lupus, kobra_k88 (2.0)
//===== Current Version: =====================================
//= 3.2
//= 4.0
//===== Compatible With: =====================================
//= eAthena 1.0
//===== Description: =========================================
@ -27,6 +27,8 @@
//= 3.0 Added special "not working teleport menu" for Einbroch Kafras [Lupus]
//= 3.1 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
//= 3.2 Fixed an exploit [Lupus]
//= 4.0 Added Kafra storage password protection. [Lupus]
//= to block Kafra Password, read comments at 350 line
//============================================================
@ -129,6 +131,9 @@ function script F_KafStor {
mes "[Kafra]";
mes "Close this window to open your storage.";
mes "We hope to see you again soon.";
callfunc("F_CheckKafCode"); //check your storage password, if set
close2;
openstorage;
cutin "", 255;
@ -343,7 +348,9 @@ function script F_KafPass {
function script F_KafInfo {
sM_Menu:
if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
//Uncomment next line to block Kafra Storage Protection
// if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Storage Password Service",sM_KafPassword, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
sM_ResChk:
mes "[Kafra]";
@ -371,6 +378,10 @@ function script F_KafInfo {
viewpoint 2,@viewpX[2],@viewpY[2],3,0xFF00FF;
viewpoint 2,@viewpX[3],@viewpY[3],4,0xFF00FF;
goto sM_Menu;
sM_KafPassword:
callfunc("F_SetKafCode");
sM_End:
return;
}
@ -391,3 +402,124 @@ function script F_KafEnd {
close;
end;
}
// Check Storage Password Function ====================
function script F_CheckKafCode {
if(#kafra_code==0) return;
mes "Enter your storage password:";
set @code_,0;
input @code_;
if(@code_ != #kafra_code-getcharid(3)-1337) {
dispbottom "Wrong storage password.";
close2;
cutin "",255;
close;
}
set @kafcode_try,0;
set @code_,0;
return;
}
// Set / Change / Clear Storage Password Function ====================
function script F_SetKafCode 115,{
mes "[Kafra]";
if(#kafra_code) {
mes "Your storage is protected with a password. What would you do now?";
next;
menu "Change old password -> 5000z",-,
"Remove storage password -> 1000z",M_CLEAR,
"Cancel",M_END;
} else {
mes "Kafra Services proudly presents you a new service:";
mes "Additional storage protection with a password.";
next;
menu "Set new password -> 5000z",M_SET,
"Cancel",M_END;
}
mes "[Kafra]";
mes "At first, please enter your ^0000FFold password^000000.";
set @code,callfunc("F_EntKafCode");
if(@code==0 || @code != #kafra_code-getcharid(3)-1337) {
mes "Wrong password. You can't set a new password.";
emotion e_hmm;
goto M_END;
}
next;
M_SET:
mes "[Kafra]";
mes "Now enter your ^FF0000new password^000000 to protect your storage from thieves.";
set @code,callfunc("F_EntKafCode");
if(@code==0) {
mes "The password hasn't been changed.";
emotion e_hmm;
goto M_END;
}
next;
mes "[Kafra]";
if(Zeny < 5000) goto L_ZENY;
set Zeny,Zeny-5000;
set RESRVPTS, RESRVPTS + (5000/50);
set #kafra_code,@code+getcharid(3)+1337;
mes "You've protected your storage with a secret password.";
mes "Thank you for using Kafra Services.";
emotion e_thx;
goto M_END;
M_CLEAR:
mes "[Kafra]";
mes "Please, enter your password before its removal.";
set @code,callfunc("F_EntKafCode");
if(@code==0) {
mes "The password hasn't been removed.";
emotion e_hmm;
goto M_END;
}
next;
mes "[Kafra]";
if(Zeny < 1000) goto L_ZENY;
set Zeny,Zeny-1000;
set RESRVPTS, RESRVPTS + (1000/50);
if(@code == #kafra_code-getcharid(3)-1337) {
set #kafra_code,0;
mes "You've successfully cleared your storage password.";
mes "Thank you for using Kafra Services.";
emotion e_thx;
} else {
mes "Wrong password. We won't return your 1000z.";
mes "Please, next time enter correct password.";
emotion e_sry;
}
goto M_END;
L_ZENY:
mes "You don't have enough zeny.";
emotion e_cash;
M_END:
close2;
cutin "",255;
close;
}
// Basic Password Validation Function ====================
function script F_EntKafCode {
mes "Enter a number 1000~10000000:";
set @code_,0;
set @kafcode_try,@kafcode_try+1;
if(@kafcode_try>10) {
set @kafcode_try,0;
logmes "Hack: Tried to fit storage password.";
}
input @code_;
if(@code_<1000) {
mes "You shouldn't use such short password.";
return 0;
}
if(@code_>10000000) {
mes "You can't use such big password.";
return 0;
}
return @code_;
}