Im not sure about this but you can try...
prontera,150,150,4 script Pokeeeee 100,{
.name$ = "["+strnpcinfo(0)+"]";
mes .name$;
mes "How can I help you today?";
next;
if(select("Enter Room:Just Passing by...") == 2) close;
if(!countitem(30820)){
mes .name$;
mes "I'm sorry but you dont have "+getitemname(30820)+", please come back when you have it in your inventory.";
close;
}
mes .name$;
warp "poring_w01",97,97;
end;
}
- script Mobs FAKE_NPC,{
OnInit:
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3178,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3179,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3180,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3181,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3182,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3183,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3184,1,strnpcinfo(3)+"::OnMobKilled";
areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3185,1,strnpcinfo(3)+"::OnMobKilled";
end;
OnMobKilled:
dispbottom "Ash Catchem : How dare you kill a Pokemon!!";
warp "invek",146,161;
end;
}
poring_w01 mapflag nowarp
poring_w01 mapflag nowarpto
poring_w01 mapflag noteleport
poring_w01 mapflag nosave
poring_w01 mapflag nomemo
poring_w01 mapflag nobranch
poring_w01 mapflag noloot
poring_w01 mapflag noskill
poring_w01 mapflag nopenalty