Gold Room script help..

[pointro]

Please help me fix this gold room script that I am trying to customize. The problem is I cannot enter the gold room when the security check is correct and other menu is not working.

And 1 more thing I want to customize, the security check will be entering their names. example: a player wants to enter the gold room NPC Gold room will ask his name. if Name != to Char name, Kick from the server, if Correct Check if zeny has 1,000,000 if zeny is < 1,000,000 Failed to enter, else continue to gold room.. Thanks hope you can help me )

//===== eAthena Script ======================================================================
//= Gold Room
//===== By: =================================================================================
//= Shaddap
//===== Current Version: ====================================================================
//= 1.0
//===== Compatible With: ====================================================================
//= Any eAthena Version
//===== Description: ========================================================================
//= You can get golds here.
pvp_y_1-5,159,94,5 script Exit 813,{
warp "prontera.gat" ,155,180;
}
prontera,147,164,6 script Gold Room Warper 861,{
mes "[Gold Room Warperer]";
mes "Do you want to go to the gold room??";
mes "Hmm..";
mes "It cost 1,000,000z";
 mes "Would you like to go?";
 switch(select("Yes", "No", "Info", "Exit")) {
case 1:
next;
if(Zeny < 1000000) goto nomoney;
set .@A,rand(50);
set .@B,rand(50);
mes "[Gold Room]";
mes "Before you enter, you need to answer the question  ";
mes "for security check.";
mes "If A = "+.@A+"   B = "+.@B;
switch( rand(1) ){
set .@Answer,.@A + .@B;
mes "How many is A + B ?";
next;
input .@Input;
next;
if( .@Input != .@Answer )
atcommand "@kick " + strcharinfo(0);
close;
break;
else if (.@Inpunt == .@Answer)
warp "pvp_y_1-5", 0, 0;
 close;
end;
break;
case 2:
next;
mes "[Gold Room Warperer]";
mes "Ok, talk to me if you  want";
mes "to go to the Gold Room.";
close;
end;
break;
case 3:
next;
mes "[Gold Room Warperer]";
mes "In the Gold Room there are";
mes "Dokebis that Drops ";
mes "Gold that can be sold for ";
mes "100,000z but be careful not ";
mes "to be killed by the Guardians ";
close;
break;
default: break;
}
nomoney:
mes "[Gold Room Warperer]";
mes "Sorry you need 1,000,000z to enter";
close;
OnNPCKillEvent:
if (strcharinfo(3) != "pvp_y_1-5") end;
if (killedrid != 1491) end;
getitem 969,1;
}
//===========================================
//==========Settings=====================
pvp_y_1-5.gat mapflag noskill
pvp_y_1-5.gat mapflag nosave SavePoint
pvp_y_1-5.gat mapflag nomemo
pvp_y_1-5.gat mapflag nobranch
pvp_y_1-5.gat mapflag noexp
pvp_y_1-5.gat mapflag nodrop
pvp_y_1-5.gat mapflag nochat
pvp_y_1-5.gat mapflag novending

// Gold Dropper a.k.a Dokebi
pvp_y_1-5,0,0,0,0 monster Dokebi 1491,120,0,0,0
//Guardians a.k.a Wanderer
pvp_y_1-5,0,0,0,0 monster Guardians 1490,50,0,0,0

Edited September 23, 2012 by Emistry
Please use [CODEBOX] or Attachments for long contents.