Jump to content
  • 0

Kick out when killed a Monster

Musika6988

Asked by Musika6988,

 Share

Question

Musika6988 Drops

Musika6988

Posted
  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.00
  • Content Count:  53
  • Reputation:   6
  • Joined:  09/09/13
  • Last Seen:  
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:

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0
Z3R0 Drops

Z3R0

Posted
  • Group:  Members
  • Topic Count:  39
  • Topics Per Day:  0.01
  • Content Count:  618
  • Reputation:   201
  • Joined:  11/09/11
  • Last Seen:  
Posted

What's wrong with the script that you have there?

Link to comment
Share on other sites
  • 0
Radian Drops

Radian

Posted
  • Group:  Members
  • Topic Count:  162
  • Topics Per Day:  0.04
  • Content Count:  1546
  • Reputation:   192
  • Joined:  07/23/14
  • Last Seen:  
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
Link to comment
Share on other sites
  • 0
AnnieRuru Drops

AnnieRuru

Posted
  • Group:  Members
  • Topic Count:  18
  • Topics Per Day:  0.00
  • Content Count:  2044
  • Reputation:   682
  • Joined:  10/09/12
  • Last Seen:  
Posted

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

Link to comment
Share on other sites
  • 0
Musika6988 Drops

Musika6988

Posted
  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.00
  • Content Count:  53
  • Reputation:   6
  • Joined:  09/09/13
  • Last Seen:  
  • Author
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

 

Link to comment
Share on other sites
  • 0
AnnieRuru Drops

AnnieRuru

Posted
  • Group:  Members
  • Topic Count:  18
  • Topics Per Day:  0.00
  • Content Count:  2044
  • Reputation:   682
  • Joined:  10/09/12
  • Last Seen:  
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;
}

Link to comment
Share on other sites

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.

×
 Share
Go to question listing
×
×
  • Create New...