extern MODVAR long UMODE_BOT;       /* 0x400000	 User is a bot */

extern MODVAR long UMODE_PDEAF;

long UMODE_BOT = 0L;           /* User is a bot */

long UMODE_PDEAF = 0L;

UmodeAdd(NULL, 'B', UMODE_GLOBAL, NULL, &UMODE_BOT);

UmodeAdd(NULL, 'D', UMODE_GLOBAL, NULL, &UMODE_PDEAF);

/* Umode +R (idea from Bahamut) */
	if (IsRegNickMsg(acptr) && !IsLoggedIn(sptr) && !IsULine(sptr) && !IsOper(sptr) && !IsServer(sptr)) {
		sendto_one(sptr, err_str(ERR_NONONREG), me.name, sptr->name,
			acptr->name);
		return 0;
	}

if ((acptr->umodes & UMODE_PDEAF) && !IsAnOper(sptr) && !IsULine(sptr) && !IsServer(sptr) && (sptr != acptr))
     {
         sendto_one(sptr, ":%s: NOTICE %s :Mesajiniz '%s' rumuzuna gonderilemedi: Ozeli mesajlara kapali. (+D)", 
	 me.name, sptr->name, acptr->name);
	 sendto_one(acptr, ":%s NOTICE %s :'%s' rumuzlu kullanici size yazmaya calisti. Ozeliniz kapali(+D)",
	 me.name, acptr->name, sptr->name);
     return 0;
     }

if (acptr->umodes & UMODE_BOT)
			{
				sendto_one(sptr, ":IRC PRIVMSG %s :%s is a Bot on %s",
					sptr->name, name, ircnetwork);
			}

if (acptr->umodes & UMODE_PDEAF)
                        {
                                sendto_one(sptr, ":IRC PRIVMSG %s :%s Ozelini Kapatmis(+D)",
                                        sptr->name, name);
                        }

if (acptr->umodes & UMODE_BOT)
				sendto_one(sptr, rpl_str(RPL_WHOISBOT), me.name, parv[0], name, ircnetwork);

if (acptr->umodes & UMODE_PDEAF)
				sendto_one(sptr, ":%s %d %s %s :%s", me.name,
				    RPL_WHOISSPECIAL, parv[0], name, "Ozelini Kapatmis(+D)");