/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
#if defined(macintosh)
#include<types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
// HAHAHA -Xrak my who messages :)
void do_setxrakwho(CHAR_DATA *ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
if (IS_NPC(ch)) return;
smash_tilde(argument);
sprintf(buf,"#n");
strcpy(buf,argument);
SET_BIT(ch->pcdata->jflags, JFLAG_XRAKWHO);
free_string(ch->pcdata->xrakwho);
ch->pcdata->xrakwho = str_dup(wordwrapchange(argument));
send_to_char("done.\n\r",ch);
return;
}
void do_who(CHAR_DATA *ch, char *argument)
{
DESCRIPTOR_DATA *d;
CHAR_DATA *wch;
CHAR_DATA *victim;
char sexbuf[MSL];
char arg[MAX_INPUT_LENGTH];
char pkratio[MAX_STRING_LENGTH];
char kav[MAX_STRING_LENGTH];
char faith[MAX_STRING_LENGTH];
char god[MAX_STRING_LENGTH];
char openb[20];
char closeb[20];
int b, c, a;
char buf[MAX_STRING_LENGTH]; // banners
char buf1[MAX_STRING_LENGTH]; // Admin.
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
char buf4[MAX_STRING_LENGTH];
char buf5[MAX_STRING_LENGTH];
char buf6[MAX_STRING_LENGTH];
char buf7[MAX_STRING_LENGTH];
char buf8[MAX_STRING_LENGTH]; // avatars : buf2 - buf16
char buf9[MAX_STRING_LENGTH];
char buf10[MAX_STRING_LENGTH];
char buf11[MAX_STRING_LENGTH];
char buf12[MAX_STRING_LENGTH];
char buf13[MAX_STRING_LENGTH];
char buf14[MAX_STRING_LENGTH];
char buf15[MAX_STRING_LENGTH];
char buf16[MAX_STRING_LENGTH];
char buf17[MAX_STRING_LENGTH]; // mortals.
char buf18[MAX_STRING_LENGTH];
char buf19[MAX_STRING_LENGTH];
int nPlayerAll = 0;
int nPlayerVis = 0;
int nImmVis = 0;
int mightRate;
int i, x, v;
bool rangeOnly = FALSE;
bool canDecap;
bool canKillYou;
bool avatars = FALSE;
bool a1 = FALSE;
bool a2 = FALSE;
bool a3 = FALSE;
bool a4 = FALSE;
bool a5 = FALSE;
bool a6 = FALSE;
bool a7 = FALSE;
bool a8 = FALSE;
bool a9 = FALSE;
bool a10 = FALSE;
bool a11 = FALSE;
bool a12 = FALSE;
bool a13 = FALSE;
bool a14 = FALSE;
bool a15 = FALSE;
bool a16 = FALSE;
bool a17 = FALSE;
if (IS_NPC(ch)) return;
one_argument(argument, arg);
if (!str_cmp(arg, "kill")) rangeOnly = TRUE;
buf1[0] = '\0';
buf2[0] = '\0';
buf3[0] = '\0';
buf4[0] = '\0';
buf5[0] = '\0';
buf6[0] = '\0';
buf7[0] = '\0';
buf8[0] = '\0';
buf9[0] = '\0';
buf10[0] = '\0';
buf11[0] = '\0';
buf12[0] = '\0';
buf13[0] = '\0';
buf14[0] = '\0';
buf15[0] = '\0';
buf16[0] = '\0';
buf17[0] = '\0';
// do_save( ch, " " );
// save_char_obj_backup( ch );
// save_char_obj( ch );
// save_char_obj( wch );
// save_char_obj_backup( wch );
for (d = descriptor_list; d != NULL; d = d->next)
{
char const *title;
if (d->connected != CON_PLAYING) continue;
if ((wch = d->character) == NULL) continue;
/*
* Immortals are not players, and should not be counted as such.
*/
if (wch->level < 7) nPlayerAll++;
/*
* Visibility :-)
*/
if (!can_see(ch, wch)) continue;
if (wch->level < 7) nPlayerVis++;
else nImmVis++;
/*
* The playerkill range is decided
*/
if (!str_cmp(ch->pcdata->last_decap[0], wch->name)) canDecap = FALSE;
else canDecap = fair_fight(ch, wch);
if (!str_cmp(wch->pcdata->last_decap[0], ch->name)) canKillYou = FALSE;
else canKillYou = fair_fight(wch, ch);
if (rangeOnly && !canDecap) continue;
if ( wch->sex == 1 )
{
sprintf (sexbuf, "#n*%s#n*#n ", "#LM" );
}
if ( wch->sex == 2 )
{
sprintf (sexbuf, "#n*%s#n*#n ", "#PF" );
}
if ( wch->fight_timer > 0 )
{
sprintf (sexbuf, "#n[#YF#yT#n] ");
}
/*
* Let's calculate the pkratio and the color of the symbols for players to be guided by.
*/
if (!IS_SET(wch->immune, IMM_HYBRID))
{
sprintf(pkratio,"#7[#n%2d#7]#n",wch->pStatus);
}
else
{
sprintf(pkratio,"#7[#n%2d#7]#n",wch->pStatus);
}
/*
* Now let's parse the title.
*/
mightRate = getMight(wch);
if ((IS_HEAD(wch,LOST_HEAD) || IS_EXTRA(wch,EXTRA_OSWITCH)) && wch->pcdata->chobj != NULL)
{
if (wch->pcdata->chobj->pIndexData->vnum == 12) title = " #CA Head#n #n ";
else if (wch->pcdata->chobj->pIndexData->vnum == 30005) title = " #CA Brain#n ";
else title = " #RAn Object#n ";
}
else
{
switch (wch->level )
{
default:
title = " ";
break;
case MAX_LEVEL:
case MAX_LEVEL - 1:
case MAX_LEVEL - 2:
case MAX_LEVEL - 3:
case MAX_LEVEL - 4:
case MAX_LEVEL - 5:
if (IS_EXTRA(wch, EXTRA_AFK)) title = " #C*#0***A#CF#0K***#C*#n ";
else if (IS_SET(wch->newbits2, NEW2_CODING)) title = "#r-#0[#rCODING#0]#r-#n ";
else if (wch->prefix != NULL && strlen(wch->prefix) > 1 && str_cmp(wch->prefix,"off")) title = wch->prefix;
else if (!str_cmp(wch->pcdata->switchname, "Xrakisis")) title = "#G(#C=-#gOWNER#C-=#G)#n";
else if (!str_cmp(wch->pcdata->switchname, "Sneak")) title = "#G(#C=-#PGoat#C-=#G)#n";
else if (!str_cmp(wch->pcdata->switchname, "Drexx")) title = "#LC#7oder#n";
else if (!str_cmp(wch->pcdata->switchname, "Akurei")) title = "#G(#C=-#rCoder#C-=#G)#n";
else if (!str_cmp(wch->pcdata->switchname, "Anubis")) title = "#R|#0)-#RD#remo#Rn #rW#Rarlor#rd#0-(#R|#n";
else title = "#Y>>>#0GoD#Y<<<#n";
break;
case MAX_LEVEL - 6:
case MAX_LEVEL - 7:
case MAX_LEVEL - 8:
case MAX_LEVEL - 9:
if (IS_EXTRA(wch, EXTRA_AFK)) title = " #C*#0***A#CF#0K***#C*#n ";
else if (IS_SET(wch->act, PLR_SILENCE)) title = " #LSI#7LENC#LED#n ";
else if (IS_RACE(wch, RACE_HUMAN))
title = " #0Human#n ";
else if (IS_RACE(wch, RACE_ELF))
title = " #0High Elf#n ";
else if (IS_RACE(wch, RACE_GNOME))
title = " #0Gnome#n ";
else if (IS_RACE(wch, RACE_GULLYDWARF))
title = " #0Gully Dwarf#n ";
else if (IS_RACE(wch, RACE_HILLDWARF))
title = " #0Hill Dwarf#n ";
else if (IS_RACE(wch, RACE_MTDWARF))
title = " #0Mountain Dwarf#n";
else if (IS_RACE(wch, RACE_DRAGONKIND))
title = " #0DragonKind#n ";
else if (IS_RACE(wch, RACE_HOBBIT))
title = " #0Hobbit#n ";
else if (IS_RACE(wch, RACE_KENDER))
title = " #0Kender#n ";
else if (IS_RACE(wch, RACE_DROW))
title = " #0Drow#n ";
else if (IS_RACE(wch, RACE_GIANT))
title = " #0Giant#n ";
else if (IS_RACE(wch, RACE_HALFELF))
title = " #0Half Elf#n ";
else if (IS_RACE(wch, RACE_OGRE))
title = " #0Ogre#n ";
else if (IS_RACE(wch, RACE_HALFOGRE))
title = " #0Half Ogre#n ";
else if (IS_RACE(wch, RACE_MINOTAUR))
title = " #0Minotaur#n ";
else if (IS_RACE(wch, RACE_GOBLIN))
title = " #0Goblin#n ";
else if (IS_RACE(wch, RACE_HOBGOBLIN))
title = " #0HobGoblin#n ";
else if (IS_RACE(wch, RACE_DUERGARDWARF))
title = " #0Duergar#n ";
else if (IS_RACE(wch, RACE_TROLL))
title = " #0Troll#n ";
else if (IS_RACE(wch, RACE_HALFTROLL))
title = " #0Half Troll#n ";
else if (IS_RACE(wch, RACE_ORC))
title = " #0Orc#n ";
else if (IS_RACE(wch, RACE_HALFORC))
title = " #0Half Orc#n ";
else if (IS_RACE(wch, RACE_CENTAUR))
title = " #0Centaur#n ";
else if (IS_RACE(wch, RACE_WILDELF))
title = " #0Wild Elf#n ";
else if (IS_RACE(wch, RACE_ARCHDEMON))
title = " #0Arch-Demon#n ";
else if (IS_RACE(wch, RACE_ARCHANGEL))
title = " #0Arch-Angel#n ";
else
title = " ";
break;
break;
case MAX_LEVEL - 10:
title = " #YM#yortal#n ";
break;
case MAX_LEVEL - 11:
title = " #YN#yewbie#n ";
break;
case MAX_LEVEL - 12:
title = " #YU#yndefined#n ";
break;
}
}
/*
* Time to parse the class name, first we do the symbols.
*/
if (IS_CLASS(wch, CLASS_TANARRI))
{strcpy(openb, "#y{#n"); strcpy(closeb, "#y}#n");}
else if (IS_CLASS(wch, CLASS_ANGEL))
{strcpy(openb, "#y.x#0[#n" ); strcpy( closeb, "#0]#yx.#n" );}
else if (IS_CLASS(wch, CLASS_UNDEAD_KNIGHT))
{strcpy(openb, "#0|[#n" ); strcpy( closeb, "#0]|#n" );}
else if (IS_CLASS(wch, CLASS_VAMPIRE))
{strcpy(openb, "#R<<#n" ); strcpy( closeb, "#R>>#n" );}
else if (IS_CLASS(wch, CLASS_WEREWOLF))
{strcpy(openb, "#y((#n" ); strcpy( closeb, "#y))#n" );}
else if (IS_CLASS(wch, CLASS_DROW))
{strcpy(openb, "#P.o0"); strcpy(closeb, "#P0o.#n" );}
else if (IS_CLASS(wch, CLASS_ASSASSIN))
{strcpy(openb, "#g[#rX#g]#n"); strcpy(closeb, "#g[#rX#g]#n");}
else if (IS_CLASS(wch, CLASS_GHOUL))
{strcpy(openb, "#GX#gx#G(#n");strcpy(closeb, "#G)#gx#GX#n");}
else if (IS_CLASS(wch, CLASS_ANTIPALADIN))
{strcpy(openb, "#R^-^#n"); strcpy(closeb, "#R^-^#n");}
else if (IS_CLASS(wch, CLASS_PRIEST))
{strcpy(openb, "#W]#w>#B*#n"); strcpy(closeb, "#B*#w<#W[#n");}
else if (IS_CLASS(wch, CLASS_GIANT))
{strcpy(openb, "#c<>#n"); strcpy(closeb, "#c<>#n");}
else if (IS_CLASS(wch, CLASS_SKYBLADE))
{strcpy(openb, "#B=#R*#W>#n");strcpy(closeb, "#W<#R*#B=#n");}
else if ( IS_CLASS(wch, CLASS_WRAITH))
{strcpy( openb, "#o-#R(#0*#R)#o>#n"); strcpy(closeb, "#o<#R(#0*#R)#o-#n");}
else if ( IS_CLASS(wch, CLASS_ELEMENTAL))
{strcpy( openb, "#rx#RX#C[#n"); strcpy(closeb, "#C]#RX#rx#n");}
else if ( IS_CLASS(wch, CLASS_PALADIN))
{strcpy( openb, "#y<#7/#y+#7>#n"); strcpy(closeb, "#7<#y+#7\\#y>#n");}
else if (IS_CLASS(wch, CLASS_DRAGON))
{strcpy(openb, "#r:=#n"); strcpy(closeb, "#r=:#n");}
else if (IS_CLASS(wch, CLASS_UNDEAD_ASSASSIN))
{strcpy(openb, "#0|#g[#n"); strcpy(closeb, "#g]#0|#n");}
else
{strcpy(openb, "#0[#n" ); strcpy( closeb, "#0]#n" );}
/*
* and then the class name.
*/
if (wch->class > 0)
{
if( IS_CLASS(wch, CLASS_ANGEL) )
{
if (wch->generation == 1)
sprintf( kav, "%s#7Arch Angel#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#7Cherubim#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#7Seraphim#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#7Guardian Angel#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#7Angel#n%s ", openb, closeb );
else
sprintf( kav, "%s#7Nephalim#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_UNDEAD_KNIGHT) )
{
if (wch->generation == 1)
sprintf( kav, "%s#LFallen Paladin#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#LUndead Lord#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#LUndead Knight#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#LUndead Knight#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#LUndead Knight#n%s ", openb, closeb );
else
sprintf( kav, "%s#LSkeleton Knight#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_SHADOW_DRAGON) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g[#cS#lhado#cw D#lrago#cn#g]#n#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#c[#rD#Re#rm#Ro#rn#Ri#rc #gd#lrago#gn#c]#n#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#c[#gd#lrago#gn #rl#Ro#rr#Rd#n#c]#n#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s[#0b#nl#0a#nc#0k#ne#0n#nd #gd#lrago#gn#c]#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#c[#rA#Rb#ry#Rs#rs#Rm#ra#Rl #gD#lrago#gn#n]#n%s ", openb, closeb );
else
sprintf( kav, "%s#c[#gD#lrago#gn #ri#Rm#rp#n]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_SHADOW_FIEND) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g[#rS#chado#rw F#cien#rd#g]#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#g[#rD#0e#rm#0o#rn#0i#rc #rS#chado#rw#g]#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#g[#rD#0e#rm#0o#rn#0i#rc #nM#7i#ns#7t#g]#n#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#g[#0C#7h#0a#7o#0s #nM#7i#ns#7t#g]#n#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#g[#rR#Re#rd #nM#7i#ns#7t#g]#n#n%s ", openb, closeb );
else
sprintf( kav, "%s#g[#0D#na#0r#nk #nM#7i#ns#7t#g]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_STALKER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#r[#gS#rtalke#gr#g]#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#r[#pM#Pa#pg#Pu#ps #lW#yol#lf#r]#n#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#r[#pS#0h#pa#0w#pm#0e#pn #RB#reas#Rt#r]#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#r[#0S#7h#0a#7d#0o#7w #lW#yol#lf#r]#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#r[#0Dark #RB#reas#Rt#r]#n%s ", openb, closeb );
else
sprintf( kav, "%s#r[#pL#Pl#po#Pt#ph #rB#Re#ra#Rs#rt]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_SHADOWBORN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g[#rS#chado#rw#cb#ro#cr#rn#g]#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#g[#rS#chado#rw #RW#rarrio#Rr#g]#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#g[#PC#phose#Pn #rS#chado#rw#g]#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#g[#cS#Cpiri#ct #nof #PL#plot#Ph#n#g]#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#g[#PP#purpl#Pe #rS#chado#rw#g]#n%s ", openb, closeb );
else
sprintf( kav, "%s#g[#pM#Pa#pg#Pu#ps #7M#0i#7s#0t#g]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HELL_SPAWN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g[#rH#gELL#rS #rS#gPAW#rN#g]#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#g[#rB#Rl#ro#Ro#rd #0T#ra#0n#ra#0r#rr#0i#g]#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#g[#rM#Re#rthu#Rs#rel#Ra#rh #0Fig#rh#0ter#g]#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#g[#rA#0n#rc#0i#rl#0l#ra #rFo#0d#0d#rer#g]#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#g[#rB#Rl#ro#Ro#rd #rB#ya#rl#yo#rr#g]#n%s ", openb, closeb );
else
sprintf( kav, "%s#g[#RB#rl#Ro#ro#Rd #rS#gpaw#rn#g]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_DEVA) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g[#GD#gEV#GA#g]#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#g[#GG#ga#Gi#ga #RD#remo#Rn#g]#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#g[#rF#Ri#rr#Re #RD#remo#Rn#g]#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#g[#CW#la#Ct#le#Cr #RD#remo#Rn#g]#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#g[#oE#ya#or#yt#oh #RD#remo#Rn#g]#n%s ", openb, closeb );
else
sprintf( kav, "%s-#g[#7A#ni#7r #RD#remo#Rn#g]#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_NAZGUL) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g|[#lN#Lazgu#ll#g]|#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#g|[#gH#Gydr#ga #lZ#Lo#0mb#Li#le#g]|#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#g|[#3#lh#Leade#ld #lK#Lnigh#lt#g]|#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#g|[#lU#Ln#0de#La#ld #gH#Gydr#ga]|#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#g|[#lD#Lea#ld #GS#gcale#Gs#g]|#n%s ", openb, closeb );
else
sprintf( kav, "%s#g|[#lF#Lalle#ln #gH#Gydr#ga]|#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_VAMPIRIC_MIST) )
{
if (wch->generation == 1)
sprintf( kav, "%s#g<<#rVampyric #oMist#g>>#n%s ", openb, closeb );
else
sprintf( kav, "%s#g<<#rVampyric #oMist#g>>#n%s ", openb, closeb );
}
else if ( IS_CLASS(wch, CLASS_BETRAYER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#7-#0[#RB#ret#0r#7a#rye#Rr#0]#7-#n%s ", openb, closeb );
else
sprintf( kav, "%s#7-#0[#RB#ret#0r#7a#rye#Rr#0]#7-#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_NECROMANCER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#rx#RX#C[#gNecromancer#C]#RX#rx#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#rx#RX#C[#GG#ga#Gi#ga #lZ#Lo#0mb#Li#le#C]#RX#rx#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#rx#RX#C[#rF#Ri#rr#Re #lZ#Lo#0mb#Li#le#C]#RX#rx#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#rx#RX#C[#CW#la#Ct#le#Cr #lZ#Lo#0mb#Li#le#C]#RX#rx#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#rx#RX#C[#0A#7i#0r #lZ#Lo#0mb#Li#le#C]#RX#rx#n%s ", openb, closeb );
else
sprintf( kav, "%s#rx#RX#C[#yE#oa#yr#ot#yh #lZ#Lo#0mb#Li#le#C]#RX#rx#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_SILVER_DRAGON) )
{
if (wch->generation == 1)
sprintf( kav, "%s#y.x#g(#7Silver Dragon#g)#yx.%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#y.x#g(#CG#co#Cd#cs #gH#Gachlin#Gg#g)#yx.%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#y.x#g(#gS#0c#ga#0l#ge#0y #CS#ce#Cr#ca#Cp#ch#Ci#cm#g)#yx.%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#y.x#g(#GD#grago#Gn #nof #7Light#g)#yx.%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#y.x#g(#CH#ceavan#Cs #GD#gragoo#Gn#g)#yx.%s ", openb, closeb );
else
sprintf( kav, "%s#y.x#g(#7Nephalim #GD#gr#0ag#go#Gn#g)#yx.%s ", openb, closeb );
}
else if ( IS_CLASS(wch, CLASS_WEREWOLF))
{
if (wch->generation == 1)
sprintf( kav, "%s#LChieftain#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#LTribe Shaman#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#LPack Leader#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#LFenris Wolf#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#LStalker#n%s ", openb, closeb );
else if (wch->generation == 6)
sprintf( kav, "%s#LHunter#n%s ", openb, closeb );
else if (wch->generation == 7)
sprintf( kav, "%s#LPup of Gaia#n%s ", openb, closeb );
else
sprintf( kav, "%s#LHalfbreed Bastard#n%s ", openb, closeb );
}
else if ( IS_CLASS(wch, CLASS_DROW))
{
if (wch->generation == 1)
sprintf(kav,"%s#0Matron Mother#n%s ", openb, closeb);
else if (wch->generation == 2)
sprintf(kav,"%s#0Weaponmaster#n%s ", openb, closeb);
else if (wch->generation == 3)
sprintf(kav,"%s#0High Priestess#n%s ", openb, closeb);
else if (wch->generation == 4)
sprintf(kav,"%s#0Favored of Lloth#n%s ", openb, closeb);
else if (wch->generation == 5)
sprintf(kav,"%s#0Black Widow#n%s ", openb, closeb);
else if (wch->generation == 6)
sprintf(kav,"%s#0Drow#n%s ", openb, closeb);
else if (wch->generation == 7)
sprintf(kav,"%s#0Drow Male#n%s ", openb, closeb);
else
sprintf(kav,"%s#0Drider#n%s ", openb, closeb);
}
else if ( IS_CLASS(wch, CLASS_VAMPIRE))
{
if (wch->generation == 1)
sprintf( kav, "%s#RI#0nner #RC#0ircle#n%s ", openb, closeb);
else if (wch->generation == 2)
sprintf( kav, "%s#RV#0ampire #RJ#0usticar#n%s ", openb, closeb);
else if (wch->generation == 3)
sprintf( kav, "%s#RV#0ampire #RP#0rince#n%s ", openb, closeb);
else if (wch->generation == 4)
sprintf( kav, "%s#RV#0ampire #RA#0ncilla#n%s ", openb, closeb);
else if (wch->generation == 5)
sprintf( kav, "%s#RV#0ampire #RA#0rchon#n%s ", openb, closeb);
else if (wch->generation == 6)
sprintf( kav, "%s#RV#0ampire#n%s ", openb, closeb);
else if (wch->generation == 7)
sprintf( kav, "%s#RV#0ampire #RA#0narch#n%s ", openb, closeb);
else
sprintf( kav, "%s#RB#0loodsucker#n%s ", openb, closeb);
}
else if ( IS_CLASS(wch, CLASS_TANARRI))
{
if (wch->generation == 1)
sprintf( kav, "%s#RTanar'ri Balor#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#RTanar'ri Marilith#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#RGreater Tanar'ri#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#RTrue Tanar'ri#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#RTanar'ri#n%s ", openb, closeb );
else
sprintf( kav, "%s#RCambion#n%s ", openb, closeb );
}
else if (IS_CLASS(wch, CLASS_SHINOBI)){
switch(wch->pcdata->powers[S_ELEMENT]){
case S_FIRE:
sprintf(buf19, "%s", "#R");
break;
case S_EARTH:
sprintf(buf19, "%s", "#o");
break;
case S_WIND:
sprintf(buf19, "%s", "#C");
break;
case S_WATER:
sprintf(buf19, "%s", "#L");
break;
case S_HOLY:
sprintf(buf19, "%s", "#7");
break;
case S_SHADOW:
sprintf(buf19, "%s", "#0");
break;
}
switch(wch->pcdata->powers[S_RANK]){
case S_APPRENTICE:
sprintf(kav,"%s\\#0|%s/#l-%sA#0pprentic%se#l-%s\\#0|%s/#n ", buf19, buf19,buf19,buf19,buf19,buf19);
break;
case S_GENIN:
sprintf(kav,"%s\\#0|%s/#l-%sG#0eni%sn#l-%s\\#0|%s/#n ", buf19, buf19,buf19,buf19,buf19,buf19);
break;
case S_JOUNIN:
sprintf(kav,"%s\\#0|%s/#l-%sJ#0ouni%sn#l-%s\\#0|%s/#n ", buf19, buf19,buf19,buf19,buf19,buf19);
break;
case S_KAGE:
sprintf(kav,"%s\\#0|%s/#l-%sK#0ag%se#l-%s\\#0|%s/#n ", buf19, buf19,buf19,buf19,buf19,buf19);
break;
}
}
else if ( IS_CLASS(wch, CLASS_DEMON) )
{
if (wch->generation == 1)
sprintf( kav, "%s#RPit Lord#n%s ", openb, closeb);
else if (wch->generation == 2)
sprintf( kav, "%s#RPit Fiend#n%s ", openb, closeb);
else if (wch->generation == 3)
sprintf( kav, "%s#RGateKeeper#n%s ", openb, closeb);
else if (wch->generation == 4)
sprintf( kav, "%s#RImp Lord#n%s ", openb, closeb);
else if (wch->generation == 5)
sprintf( kav, "%s#RHell Spawn#n%s ", openb, closeb);
else if (wch->generation == 6)
sprintf( kav, "%s#RDemon#n%s ", openb, closeb);
else if (wch->generation == 7)
sprintf( kav, "%s#RSpawnling#n%s ", openb, closeb);
else
sprintf( kav, "%s#RImp#n%s ", openb, closeb);
}
else if( IS_CLASS(wch, CLASS_ASSASSIN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#CDeath Dealer#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#CMaster Assassin#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#CAssassin#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#CAssassin#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#CKiller#n%s ", openb, closeb );
else
sprintf( kav, "%s#CM#ci#Cs#cc#Cr#ce#Ca#cn#Ct#n%s ", openb, closeb );
}
else if (IS_CLASS(wch, CLASS_PRIEST))
{
if (wch->generation == 1)
sprintf(kav,
"%s#WHoly Priest#n%s ",
openb, closeb);
else
sprintf(kav,
"%s#WPriest#n%s ",
openb, closeb);
}
else if (IS_CLASS(wch, CLASS_GHOUL))
{
if (wch->generation == 1)
sprintf(kav,
"%s#gNec#Grite#n%s ",
openb, closeb);
else if (wch->generation == 2)
sprintf(kav,
"%s#wSwamp #0Thing#n%s ",
openb, closeb);
else if (wch->generation == 3)
sprintf(kav,
"%s#gUndead#n%s ",
openb, closeb);
else if (wch->generation == 4)
sprintf(kav,
"%s#0Zom#wbie#n%s ",
openb, closeb);
else if (wch->generation == 5)
sprintf(kav,
"%s#GFlesh #0Eater#n%s ",
openb, closeb);
else if (wch->generation == 6)
sprintf(kav,
"%s#gGhoul#n%s ",
openb, closeb);
else
sprintf(kav,
"%s#GScum Bag#n%s ",
openb, closeb);
}
else if (IS_CLASS(wch, CLASS_ANTIPALADIN))
sprintf( kav, "%s#0Warlord#n%s ", openb, closeb );
else if (IS_CLASS(wch, CLASS_SKYBLADE))
{
if (wch->generation == 1)
sprintf(kav,
"%s#WWind Sword#n%s ",
openb, closeb);
else if (wch->generation == 2)
sprintf(kav,
"%s#WCloud Defender#n%s ",
openb, closeb);
else if (wch->generation == 3)
sprintf(kav,
"%s#WCloud #0Knight#n%s ",
openb, closeb);
else if (wch->generation == 4)
sprintf(kav,
"%s#WTempest Knight#n%s ",
openb, closeb);
else if (wch->generation == 5)
sprintf(kav,
"%s#WSkyBlade#n%s ",
openb, closeb);
else if (wch->generation == 6)
sprintf(kav,
"%s#CSky#wTrainee#n%s ",
openb, closeb);
else
sprintf(kav,
"%s#CSky#WWimp#n%s ",
openb, closeb);
}
else if (IS_CLASS(wch, CLASS_GIANT))
{
if (wch->generation == 1)
sprintf(kav,
"%s#GS#gtorm Gian#Gt#n%s ",
openb, closeb);
else if (wch->generation == 2)
sprintf(kav,
"%s#GC#gloud Gian#Gt#n%s ",
openb, closeb);
else if (wch->generation == 3)
sprintf(kav,
"%s#GF#gire Gian#Gt#n%s ",
openb, closeb);
else if (wch->generation == 4)
sprintf(kav,
"%s#GS#gtone Gian#Gt#n%s ",
openb, closeb);
else if (wch->generation == 5)
sprintf(kav,
"%s#GH#gill Gian#Gt#n%s ",
openb, closeb);
else if (wch->generation == 6)
sprintf(kav,
"%s#GG#gian#Gt#n%s ",
openb, closeb);
else
sprintf(kav,
"%s#GO#ggr#Ge#n%s ",
openb, closeb);
}
else if( IS_CLASS(wch, CLASS_WRAITH) )
{
if (wch->generation == 1)
sprintf( kav, "%s#yW#0raith Lor#yd#n%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#yD#0ark Wrait#yh#n%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#yU#0ndead Sou#yl#n%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#yW#0ailing Sou#yl#n%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#yS#0piri#yt#n%s ", openb, closeb );
else
sprintf( kav, "%s#yD#0ead Bod#yy#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_ELEMENTAL) )
{
if (wch->generation == 1)
sprintf( kav, "%s#CF#corc#Ce of N#catur#Ce%s ", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%s#CH#carbringe#Cr%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%s#CS#ctor#Cm #CR#cide#Cr%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%s#CN#catura#Cl #CD#cisaste#Cr%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%s#CE#clde#Cr E#clementa#Cl%s ", openb, closeb );
else
sprintf( kav, "%s#CM#cino#Cr E#clementa#Cl%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_PALADIN) )
{
if (wch->generation == 1)
sprintf( kav, "%sAscended Paladin%s", openb, closeb );
else if (wch->generation == 2)
sprintf( kav, "%sCaptain General%s ", openb, closeb );
else if (wch->generation == 3)
sprintf( kav, "%sCrusader%s ", openb, closeb );
else if (wch->generation == 4)
sprintf( kav, "%sCavalier%s ", openb, closeb );
else if (wch->generation == 5)
sprintf( kav, "%sKnight Templar%s ", openb, closeb );
else if (wch->generation <= 7)
sprintf( kav, "%sLance Knight%s ", openb, closeb );
else if (wch->generation <= 9)
sprintf( kav, "%sRecruit%s ", openb, closeb );
else
sprintf( kav, "%sSquire%s ", openb, closeb );
}
else if ( IS_CLASS(wch, CLASS_DRAGON) )
{
if (wch->generation <= 1)
sprintf( kav, "%s#CAncient One#n%s ", openb, closeb);
else if (wch->generation <= 2)
sprintf( kav, "%s#CElder Wyrm#n%s ", openb, closeb);
else if (wch->generation <= 3)
sprintf( kav, "%s#CWyrm#n%s ", openb, closeb);
else if (wch->generation <= 4)
sprintf( kav, "%s#CElder Dragon#n%s ", openb, closeb);
else if (wch->generation <= 5)
sprintf( kav, "%s#CAdult Dragon#n%s ", openb, closeb);
else if (wch->generation <= 6)
sprintf( kav, "%s#CDragon#n%s ", openb, closeb);
else if (wch->generation <= 9)
sprintf( kav, "%s#CYoung Dragon#n%s ", openb, closeb);
else
sprintf( kav, "%s#CHatchling#n%s ", openb, closeb);
}
else if( IS_CLASS(wch, CLASS_ZOMBIE) ){
if(wch->generation <= 1)
sprintf( kav, "%s#7Doombringer#n%s ", openb, closeb );
else if(wch->generation <= 2)
sprintf( kav, "%s#7Deathlord#n%s ", openb, closeb );
else if(wch->generation <= 3)
sprintf( kav, "%s#7Soulless#n%s ", openb, closeb );
else if(wch->generation <= 4)
sprintf( kav, "%s#7Tainted#n%s ", openb, closeb );
else if(wch->generation <= 5)
sprintf( kav, "%s#7Cursed#n%s ", openb, closeb );
else if(wch->generation <= 6)
sprintf( kav, "%s#7Nightmare#n%s ", openb, closeb );
else if(wch->generation <= 7)
sprintf( kav, "%s#7Servant#n%s ", openb, closeb );
else if(wch->generation <= 8)
sprintf( kav, "%s#7Cannibal#n%s ", openb, closeb );
else if(wch->generation <= 9)
sprintf( kav, "%s#7Ghost#n%s ", openb, closeb );
else
sprintf( kav, "%s#7Zombie#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_BAATEZU) )
{
if (wch->generation == 1)
sprintf( kav, "%s#gBAATEZU#n%s ", openb, closeb );
else
sprintf( kav, "%s#C**#r{#yBa#r'#yatezu#r}#C**#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_BLADE_MASTER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#C-=#CB#rlad#CeM#raste#Cr#C=-#n%s ", openb, closeb );
else
sprintf( kav, "%s#C-=#CB#rlad#CeM#raste#Cr#C=-#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_BLACK_ASSASSIN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#CBlack Assassin#n%s ", openb, closeb );
else
sprintf( kav, "%s#G{#g/*\#G}#CBlack Assassin#G{#g/*\#G}#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_DRUID) )
{
if (wch->generation == 1)
sprintf( kav, "%s#gDruid#n%s ", openb, closeb );
else
sprintf( kav, "%s#C-=#y(#rx#gDruid#rx#y)#C=-#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HYDRA) )
{
if (wch->generation == 1)
sprintf( kav, "%s#C***#yHydra#C***#n%s ", openb, closeb );
else
sprintf( kav, "%s#C***#yHydra#C***#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HEAVENS_SOLDIER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#G<#G>Heaven's Soldier#G<#G>#n%s", openb, closeb );
else
sprintf( kav, "%s#G<#G>Heaven's Soldier#G<#G>#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_GAIA_WOLF) )
{
if (wch->generation == 1)
sprintf( kav, "%s#C-=#y(#rx#gG#Gaia Wol#gf#rx#y)#C=-#n%s ", openb, closeb );
else
sprintf( kav, "%s#C-=#y(#rx#gG#Gaia Wol#gf#rx#y)#C=-#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_SCORPION) )
{
if (wch->generation == 1)
sprintf( kav, "%s#C-=#r<<#n#rS#Rcorpio#rn#r>>#C=-#n%s ", openb, closeb );
else
sprintf( kav, "%s#C-=#r<<#n#rS#Rcorpio#rn#r>>#C=-#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HUMAN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#G+#g-#G+Cyber-Mage#G+#g-#G+#n%s ", openb, closeb );
else
sprintf( kav, "%s#g+#G-#g+#0Te#Gch#0no#GMa#0ge#g+#G-#g+#0#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_TYPHON) )
{
if (wch->generation == 1)
sprintf( kav, "%s#C**#yX#C(#yTyphon#C)#yX#C**#n%s ", openb, closeb );
else
sprintf( kav, "%s#C**#yX#C(#yTyphon#C)#yX#C**#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HELLS_SOLDIER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#gH#rell#gs #gS#roldie#gr#n%s ", openb, closeb );
else
sprintf( kav, "%s#gH#rell#gs #gS#roldie#gr#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_HEAVENS_SOLDIER) )
{
if (wch->generation == 1)
sprintf( kav, "%s#G<#G>Heaven's Soldier#G<#G>#n%s", openb, closeb );
else
sprintf( kav, "%s#G<#G>Heaven's Soldier#G<#G>#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_UNDEAD_LYCAN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#gU#rndea#gd L#ryca#gn#n%s ", openb, closeb );
else
sprintf( kav, "%s#gU#rndea#gd L#ryca#gn#n%s ", openb, closeb );
}
else if( IS_CLASS(wch, CLASS_UNDEAD_ASSASSIN) )
{
if (wch->generation == 1)
sprintf( kav, "%s#lU#Lndea#ld #oM#yercenar#oy#n%s ", openb, closeb );
else
sprintf( kav, "%s#lU#Lndea#ld #oA#yssassi#on#n%s ", openb, closeb );
}
else
sprintf( kav, "#nNone#n " );
}
else sprintf(kav, "#nNone#n " );
/* I'm aware it says faith, but I was just to lazy to change it to kingdom - Jobo */
// if (wch->pcdata->kingdom >= 1 && wch->pcdata->kingdom <= MAX_KINGDOM)
if (!IS_NPC(ch))
{
if (wch->pcdata->kingdom == 1)
sprintf(faith, "#YR#yu#7le#yr#Ys#n ");
else if (wch->pcdata->kingdom == 2)
sprintf(faith, "#BF#bo#nr#7sa#nk#be#Bn#n ");
else if (wch->pcdata->kingdom == 3)
sprintf(faith, "#RS#ry#yn#Yd#7i#Yc#ya#rt#Re#n");
else if (wch->pcdata->kingdom == 4)
sprintf(faith, "#7+#n)#0)#ROn#riw#Rab#ran#0(#n(#7+#n");
else if (wch->pcdata->kingdom == 5)
sprintf(faith, "#GP#gl#na#7g#nu#ge#Gs#n ");
else if (wch->pcdata->kingdom == 6)
sprintf(faith, "#l=#0<>#RA#rka#Rts#ruk#Ri#0<>#l=#n");
else
sprintf(faith, "");
}
if (!IS_NPC(ch))
{
if (wch->god == 0) sprintf(god,"Athiest ");
if (wch->god == 1) sprintf(god,"Astinus ");
if (wch->god ==2) sprintf(god,"Chemosh ");
if (wch->god ==3) sprintf(god,"Hiddukel ");
if (wch->god ==4) sprintf(god,"Nuitari ");
if (wch->god ==5) sprintf(god,"Sargonnas ");
if (wch->god ==6) sprintf(god,"Zeboim ");
if (wch->god ==7) sprintf(god,"Branchala ");
if (wch->god ==8) sprintf(god,"Habbakuk ");
if (wch->god ==9) sprintf(god,"Kiri-Jolith ");
if (wch->god ==10) sprintf(god,"Majere ");
if (wch->god ==11) sprintf(god,"Mishakal ");
if (wch->god ==12) sprintf(god,"Solinari ");
if (wch->god ==13) sprintf(god,"Chislev ");
if (wch->god ==14) sprintf(god,"Gilean ");
if (wch->god ==15) sprintf(god,"Lunitari ");
if (wch->god ==16) sprintf(god,"Reorx ");
if (wch->god ==17) sprintf(god,"Shinare ");
if (wch->god ==18) sprintf(god,"Sirrion ");
if (wch->god ==19) sprintf(god,"Zivilyn ");
if (wch->god ==20) sprintf(god,"Takhisis ");
if (wch->god ==21) sprintf(god,"Paladine ");
}
/*
* Let's figure out where to place the player.
*/
if (wch->level > 6 )
{
sprintf(buf1 + strlen(buf1), " %37s %s\n\r", wch->pcdata->switchname, title);
a1 = TRUE;
}
else if (wch->level >= 3 && wch->level <= 6)
{
if (mightRate > 3500)
{
sprintf(buf2 + strlen(buf2), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a2 = TRUE; avatars = TRUE;
}
else if (mightRate > 3250)
{
sprintf(buf3 + strlen(buf3), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a3 = TRUE; avatars = TRUE;
}
else if (mightRate > 3000)
{
sprintf(buf4 + strlen(buf4), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a4 = TRUE; avatars = TRUE;
}
else if (mightRate > 2750)
{
sprintf(buf5 + strlen(buf5), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a5 = TRUE; avatars = TRUE;
}
else if (mightRate > 2500)
{
sprintf(buf6 + strlen(buf6), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a6 = TRUE; avatars = TRUE;
}
else if (mightRate > 2250)
{
sprintf(buf7 + strlen(buf7), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a7 = TRUE; avatars = TRUE;
}
else if (mightRate > 2000)
{
sprintf(buf8 + strlen(buf8), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a8 = TRUE; avatars = TRUE;
}
else if (mightRate > 1750)
{
sprintf(buf9 + strlen(buf9), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a9 = TRUE; avatars = TRUE;
}
else if (mightRate > 1500)
{
sprintf(buf10 + strlen(buf10), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a10 = TRUE; avatars = TRUE;
}
else if (mightRate > 1250)
{
sprintf(buf11 + strlen(buf11), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a11 = TRUE; avatars = TRUE;
}
else if (mightRate > 1000)
{
sprintf(buf12 + strlen(buf12), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a12 = TRUE; avatars = TRUE;
}
else if (mightRate > 750)
{
sprintf(buf13 + strlen(buf13), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a13 = TRUE; avatars = TRUE;
}
else if (mightRate > 500)
{
sprintf(buf14 + strlen(buf14), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a14 = TRUE; avatars = TRUE;
}
else if (mightRate >= 150)
{
sprintf(buf15 + strlen(buf15), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a15 = TRUE; avatars = TRUE;
}
else
{
sprintf(buf16 + strlen(buf16), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a16 = TRUE; avatars = TRUE;
}
}
else if (wch->level < 3)
{
sprintf(buf17 + strlen(buf17), " %-16s %-6s %-6s %-24s #7%-12s %-6s#n %s\n\r",
title, pkratio, sexbuf, kav, wch->pcdata->switchname, faith, god);
a17 = TRUE;
}
}
/*
* Let's send the whole thing to the player.
*/
// switch(number_range(1,4))
// {
// case 1:
// sprintf(buf, "\n\r #R(*)*********************(**)= #rKinder von der Nacht#R =(**)*********************(*)#n\n\r");
// send_to_char(buf, ch);
//
// sprintf(buf, "\n\r #R(*)*********************(**)= #rXraks Message#R =(**)*********************(*)#n\n\r");
// send_to_char(buf, ch);
// if(!IS_NPC(ch)){
// sprintf(buf, "%s\n\r",ch->pcdata->xrakwho);
// send_to_char(NULL,buf);
//}
// if (wch->xrakwho != NULL && strlen(wch->xrakwho) > 1)
//{
// sprintf(buf, "%s\n\r",ch->xrakwho);
// send_to_char(buf, ch);
//
//}
// if (wch->xrakwho == NULL && strlen(wch->xrakwho) == 1)
//{
// stc( "#gHRM\n\r", ch);
//
//}
// else (wch->xrakwho == NULL)
// return;
char *wordwrapchange(char *word)
{
char newword[MAX_STRING_LENGTH];
char newword2[MAX_STRING_LENGTH];
int i = 0, x = 0, n = 0, v = 0;
// i = original word position
// x = newword position
// n = spacer
// v = letter count
for ( i = 0; i < strlen(word); i++ )
{
if ( word[i] == ' ' && v > 500 )
{
v = 0;
newword[x++] = '\n';
for ( n = 0; n < 29; n++ ) { newword[x++] = ' '; }
}
newword[x++] = word[i];
v++;
}
newword[x++] = '\0';
strcpy(newword2,newword);
return str_dup(newword2);
}
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n #7Ch#ni#0ld#nr#7en #Co#cf #Ct#ch#Ce #7N#ni#0g#nh#7t #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n#n\n\r");
send_to_char(buf, ch);
if (a1)
{
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n #YS#ytaff #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n#n\n\r");
send_to_char(buf, ch);
send_to_char(buf1, ch);
}
if (avatars)
{
// sprintf(buf, "\n\r #g*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>=<*><> #gAvatars #g<><*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>#n\n\r");
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n #YA#yvatars #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n\n\r");
send_to_char(buf, ch);
if (a2) send_to_char(buf2, ch);
if (a3) send_to_char(buf3, ch);
if (a4) send_to_char(buf4, ch);
if (a5) send_to_char(buf5, ch);
if (a6) send_to_char(buf6, ch);
if (a7) send_to_char(buf7, ch);
if (a8) send_to_char(buf8, ch);
if (a9) send_to_char(buf9, ch);
if (a10) send_to_char(buf10, ch);
if (a11) send_to_char(buf11, ch);
if (a12) send_to_char(buf12, ch);
if (a13) send_to_char(buf13, ch);
if (a14) send_to_char(buf14, ch);
if (a15) send_to_char(buf15, ch);
if (a16) send_to_char(buf16, ch);
}
if (a17)
{
// sprintf(buf, "\n\r #R<*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>=<*><> #gMortals #R<><*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>=<*>#n\n\r");
// sprintf(buf, "#4 - - - - -#6- ---===#7 #gMortals #6===--- -#4- - - - -#n\n\r");
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X #YM#yortals #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n\n\r");
send_to_char(buf, ch);
send_to_char(buf17, ch);
}
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X #YM#yud #YI#ynfo #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n\n\r");
send_to_char(buf, ch);
send_to_char("\n\r",ch);
sprintf(buf, " #7%d#n/#7%d #YV#yisible #Yp#ylayers #Ya#ynd #7%d #Yv#yisible #Yi#ymmortals #Yc#yonnected #Yt#yo#n #7Ch#ni#0ld#nr#7en #Co#cf #Ct#ch#Ce #7N#ni#0g#nh#7t#n\n\r",
nPlayerVis, nPlayerAll, nImmVis);
send_to_char(buf, ch);
a = mudinfo[MUDINFO_UPDATED] / 120;
b = a / 24;
c = a - b * 24;
sprintf(buf, " #n[#YS#ytatistics #YR#yeset#n:#7 %d #Yd#yays #Ya#ynd #7%d #Yh#yours #Ya#ygo#n][#YA#yverage #YO#ynline#n:#7 %d#n][#YP#yeak #YO#ynline#n:#7 %d#n]#n\n\r",
b, c, (mudinfo[MUDINFO_MCCP_USERS] + mudinfo[MUDINFO_OTHER_USERS]) / mudinfo[MUDINFO_UPDATED],
mudinfo[MUDINFO_PEAK_USERS]);
send_to_char(buf, ch);
// New stuff starts here -Xrak
a = mudinfo[MUDINFO_MBYTE] * 1024 + mudinfo[MUDINFO_BYTE] / 1024;
b = a / (mudinfo[MUDINFO_UPDATED] * 3);
c = b / 10;
c = c * 10;
c = b - c;
sprintf(buf, " #n[#YP#ylayers #YS#yince #YM#yarch#7 29 2005#n:#7 %d#n][#YD#yatatransfer #n:#Y A#yverage #YR#yate#c: #n%d.%d #Yk#yb/#Ys#yec#n]\n\r",
top_playerid, b / 10, c);
send_to_char(buf, ch);
b = mudinfo[MUDINFO_DATA_PEAK] / (3 * 1024);
c = b / 10;
c = c * 10;
c = b - c;
sprintf(buf, " #n[#YD#yata #YT#yransfers#n]#R:#n [#YP#yeak #YR#yate#7: %d.%d #Yk#yb/#Ys#yec#n][#YT#yhis #YR#yeboot#n:#7 %dMB#n][#YT#yhis #YW#yeek#n:#7 %dMB#n]=- - -#n\n\r",
b / 10, c, mudinfo[MUDINFO_MBYTE_S], mudinfo[MUDINFO_MBYTE] );
send_to_char(buf, ch);
// The comment used to end here -xrak
send_to_char("\n\r",ch);
sprintf(buf, "#7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X #7Ch#ni#0ld#nr#7en #Co#cf #Ct#ch#Ce #7N#ni#0g#nh#7t#n #7X#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#R=#r=#7X#n\n\r");
send_to_char(buf, ch);
return;
}