Simple Script Needs a Simple Help

[simplynice 1]

-	script	Anti_Corrupt	-1,{OnInit:	bindatcmd "monster",strnpcinfo(3)+"::OnAtcommand";	end;	OnAtcommand:	if (getmapxy(@mapname$,@mapx,@mapy,1,"+strcharinfo(0)+")!=0) goto Notfound;		announce "[ "+strcharinfo(0)+" ] spawned a monster on "+@mapname$+" at X:"+@mapx+" Y:"+@mapy+" !",0;	end;	Notfound:	mes "I can't seem to find the person anywhere!";	end;unbindatcmd "monster";}  

This is what i got so far.

 

I'm trying to announce the "MAP LOCATION, MONSTER, MONSTER AMOUNT, GM NAME" everytime a Game Master uses  @monster in game.

[quesoph 105]

-	script	Anti_Corrupt	-1,{OnAtcommand:    if (getmapxy(@mapname$,@mapx,@mapy,0,strcharinfo(0))!=0) goto Notfound;    announce "[ "+strcharinfo(0)+" ] spawned a monster on "+@mapname$+" at X:"+@mapx+" Y:"+@mapy+" !",0;    end;Notfound:    mes "I can't seem to find the person anywhere!";    close;} 

You need source mod for this.

 

@edit

atcommand.c

 

 

ACMD(monster){	char name[NAME_LENGTH];	char monster[NAME_LENGTH];	char eventname[EVENT_NAME_LENGTH] = "";	int mob_id;	int number = 0;	int count;	int i, k, range;	short mx, my;	unsigned int size;	nullpo_retr(-1, sd);		memset(name, '0', sizeof(name));	memset(monster, '0', sizeof(monster));	memset(atcmd_output, '0', sizeof(atcmd_output));		if (!message || !*message) {		clif->message(fd, msg_txt(80)); // Give the display name or monster name/id please.		return false;	}	if (sscanf(message, ""%23[^"]" %23s %d", name, monster, &number) > 1 ||		sscanf(message, "%23s "%23[^"]" %d", monster, name, &number) > 1) {		//All data can be left as it is.	} else if ((count=sscanf(message, "%23s %d %23s", monster, &number, name)) > 1) {		//Here, it is possible name was not given and we are using monster for it.		if (count < 3) //Blank mob's name.			name[0] = '0';	} else if (sscanf(message, "%23s %23s %d", name, monster, &number) > 1) {		//All data can be left as it is.	} else if (sscanf(message, "%23s", monster) > 0) {		//As before, name may be already filled.		name[0] = '0';	} else {		clif->message(fd, msg_txt(80)); // Give a display name and monster name/id please.		return false;	}		if ((mob_id = mobdb_searchname(monster)) == 0) // check name first (to avoid possible name begining by a number)		mob_id = mobdb_checkid(atoi(monster));		if (mob_id == 0) {		clif->message(fd, msg_txt(40)); // Invalid monster ID or name.		return false;	}		if (mob_id == MOBID_EMPERIUM) {		clif->message(fd, msg_txt(83)); // Monster 'Emperium' cannot be spawned.		return false;	}		if (number <= 0)		number = 1;		if( !name[0] )		strcpy(name, "--ja--");		// If value of atcommand_spawn_quantity_limit directive is greater than or equal to 1 and quantity of monsters is greater than value of the directive	if (battle_config.atc_spawn_quantity_limit && number > battle_config.atc_spawn_quantity_limit)		number = battle_config.atc_spawn_quantity_limit;		if (strcmp(command+1, "monstersmall") == 0)		size = SZ_MEDIUM; // This is just gorgeous [mkbu95]	else if (strcmp(command+1, "monsterbig") == 0)		size = SZ_BIG;	else		size = SZ_SMALL;		if (battle_config.etc_log)		ShowInfo("%s monster='%s' name='%s' id=%d count=%d (%d,%d)n", command, monster, name, mob_id, number, sd->bl.x, sd->bl.y);		count = 0;	range = (int)sqrt((float)number) +2; // calculation of an odd number (+ 4 area around)	for (i = 0; i < number; i++) {		iMap->search_freecell(&sd->bl, 0, &mx,  &my, range, range, 0);		k = mob_once_spawn(sd, sd->bl.m, mx, my, name, mob_id, 1, eventname, size, AI_NONE);		count += (k != 0) ? 1 : 0;	}		if (count != 0)		if (number == count)			clif->message(fd, msg_txt(39)); // All monster summoned!		else {			sprintf(atcmd_output, msg_txt(240), count); // %d monster(s) summoned!			clif->message(fd, atcmd_output);		}		else {			clif->message(fd, msg_txt(40)); // Invalid monster ID or name.			return false;		}	npc_event(sd,"Anti_Corrupt::OnAtcommand",0);	return true;}

 

 

Edited July 10, 2013 by quesoph