platinum room pleas

[anginputih]

please make it my script

kill monsters to get a platinum coin item code 677

a place to kill him in a room and enter room must pay 1000000

PLEASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

[Euphy]

<header> {
   mes "It will cost 1 million Zeny to enter.";
   if (Zeny < 1000000) close;
   if(select("Enter:Cancel")==2) close;
   set Zeny, Zeny-1000000;
   warp .map$,0,0;
   close;
OnInit:
   set .map$, "poring_w01";
   set .monster, 1002;
   set .amount, 50;
   monster .map$,0,0,strmobinfo(1,.monster),.monster,.amount,strnpcinfo(1)+"::OnKilled";
   end;
OnKilled:
   getitem 677,1;
   sleep <ms>;    // respawn time
   monster .map$,0,0,strmobinfo(1,.monster),.monster,1,strnpcinfo(1)+"::OnKilled";
   end;
}

[anginputih]

<header> {
mes "It will cost 1 million Zeny to enter.";
if (Zeny < 1000000) close;
if(select("Enter:Cancel")==2) close;
set Zeny, Zeny-1000000;
warp .map$,0,0;
close;
OnInit:
set .map$, "poring_w01";
set .monster, 1002;
set .amount, 50;
monster .map$,0,0,strmobinfo(1,.monster),.monster,.amount,strnpcinfo(1)+"::OnKilled";
end;
OnKilled:
getitem 677,1;
sleep <ms>;	// respawn time
monster .map$,0,0,strmobinfo(1,.monster),.monster,1,strnpcinfo(1)+"::OnKilled";
end;
}

npc does not exist

[Euphy]

Header. Learn it.

http://rathena.org/wiki/Basic_Scripting#Structure