Ofuda (catch dead monster & summon)

[cwgxcqwr]

User-defind item ofuda which could used in catching dead monster.

 

https://vimeo.com/74098869

 

NPC:

-	script	Ofuda	-1,{ 	
		
	end;
	OnUse:
		getmapxy(@mapname$,@mapx,@mapy,0);
		@SummonName$ = strcharinfo(0)+"'s monster";		
		switch(select("call","call back","catch")){
			case 1:
				killmonster @mapname$,"Ofuda::On"+@SummonName$;
				if (MonsterID > 0)
					summon @SummonName$,MonsterID,300000,"Ofuda::On"+@SummonName$;					
				break;
			case 2:
				killmonster @mapname$,"Ofuda::On"+@SummonName$;
				break;
			case 3:
				specialeffect2 EF_SPHERE;
				sleep2 3000;
				if(rand(100)<50){
					emotion e_omg,1;
					dispbottom "failure";
				}else{
					set MonsterID,killedrid;
					emotion e_heh,1;
					dispbottom "success";	
				}
			default:
				break;
		}
		end;
}

 

item_db2

Item number is 26000.

26000,Ofuda,Ofuda,2,50,,70,,,,,0xFFFFFFFF,63,2,,,,,,{doevent "Ofuda::OnUse";},{},{}

Edited September 9, 2013 by cwgxcqwr