Jump to content
  • 0

Kick out when killed a Monster


Question

Posted

Hi guys?

Can anyone kindly help me with this script?

-	script	Pokemon Room	-1,{


OnPC:
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3178,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3179,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3180,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3181,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3182,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3183,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3184,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3185,1,"pokemonkill::OnMobKilled";
}

-	script	pokemonkill	-1,{

OnMobKilled:
    dispbottom "Ash Catchem : How dare you kill a Pokemon!!";
    warp "invek",146,161;
    end;

}
// -- Mapflags

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

I want it to be like, they are only allowed to catch a Pokemon.

If they kill it, they will be sent back to town.

And if possible, was hoping to have like an NPC that would require a Pokeball (30820) for them to be able to enter the Pokemon Room.

Thanks in advanced!:wub:

5 answers to this question

Recommended Posts

  • 0
Posted
4 hours ago, Musika6988 said:

Hi guys?

Can anyone kindly help me with this script?


-	script	Pokemon Room	-1,{


OnPC:
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3178,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3179,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3180,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3181,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3182,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3183,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3184,1,"pokemonkill::OnMobKilled";
	areamonster "pvp_n_1-5",0,0,0,0,"Pokemon",3185,1,"pokemonkill::OnMobKilled";
}

-	script	pokemonkill	-1,{

OnMobKilled:
    dispbottom "Ash Catchem : How dare you kill a Pokemon!!";
    warp "invek",146,161;
    end;

}
// -- Mapflags

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

I want it to be like, they are only allowed to catch a Pokemon.

If they kill it, they will be sent back to town.

And if possible, was hoping to have like an NPC that would require a Pokeball (30820) for them to be able to enter the Pokemon Room.

Thanks in advanced!:wub:

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

 

  • Love 2
  • 0
Posted
6 hours ago, AnnieRuru said:

you can just use *setunitdata with UMOB_DMGIMMUNE flag to make the monsters invincible, so no players can kill these monsters

But I want them to just tame it, not kill them?

Thanks Mam Annie for the reply.

 

10 hours ago, Radian said:

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

 

Thanks a much Mam Radian, I'll give this a try!

 

44 minutes ago, Musika6988 said:

Thanks a much Mam Radian, I'll give this a try!

No errors, NPC is working fine.. It's just that, I can still kill Pokemons and not be kicked out of the room.:(

 

I got it working now!

Thanks @Radianand @AnnieRuru^_^

I made it like this..

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 "pvp_n_1-5",99,100;
	end;
}
-	script	Mobs	FAKE_NPC,{

OnNPCKillEvent:
	if ( strcharinfo(3) == "pvp_n_1-5" ) {
	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

 

  • 0
Posted

on 2nd thought ... hahaha nvm

 

pet.c -> pet_catch_process2 function

pet_catch_rate = (pet->db[i].capture + (sd->status.base_level - md->level)*30 + sd->battle_status.luk*20)*(200 - get_percentage(md->status.hp, md->status.max_hp))/100;

the pet catching rate is something to do with monster hp percentage

so if make the monster immune to damage, it will affect the monster catching rate

 

btw I don't think should use OnNPCKillEvent, you are overkill

just do it with normal monster event label enough

	-    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";
    end;
OnMobKilled:
    dispbottom "Ash Catchem : How dare you kill a Pokemon!!";
    warp "Save", 0,0;
    areamonster "pvp_n_1-5",0,0,0,0,"Pokemon", killedrid,1,strnpcinfo(3)+"::OnMobKilled"; // respawn the monster
    end;
}

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...