sure i can, but its a mess to look at.
so ill save you some trouble thinking what is what :P


1. $theme(logo) - this is just some alias script calls to make colorfull line (themed), just ignore this smile
2. if (%srvinfstatus == on) - if on, shows info in status
3. elseif (%srvinfwin == on) - if on, shows info in @windows
-- youll see those 2 alot --
4. if (%hmotd == on ) - if on, hides motd (doesnt show it at all)


as for alias, already said, its put in ON DISCONNECT event
but also doesnt work manul nor in event (for me)

there now enjoy this mess grin

Code:

;------------------------------------------------
;               Server Info
;------------------------------------------------

alias clear_server_infos {
  if ($window($+(@Server,$chr(160),info))) { window -c $v1 }
  if ($window($+(@IRCD,$chr(160),info))) { window -c $v1 }
  if ($window($+(@,$network,$chr(160),Map))) { window -c $v1 }
  if ($window(@MOTD)) { window -c $v1 }
}

raw 001:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo) $2-
    halt
  }
  elseif (%srvinfwin == on) {
    window -k +s @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) 220 50 320 290 @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) Verdana 11
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) $2-
    halt
  }
}


raw 002:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo) $2-
    halt
  }
  elseif (%srvinfwin == on) {
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) $2-
    halt
  }
}



raw 003:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo) $2-
    .echo -s $timestamps $+ $theme(logo) $chr(160)
    halt
  }
  elseif (%srvinfwin == on) {
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) $2-
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) $chr(160)
    halt
  }
}

raw 004:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo) Usermodes available: $4
    .echo -s $timestamps $+ $theme(logo) Channelmodes available: $5 
    halt
  }
  elseif (%srvinfwin == on) {
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) Usermodes available: $4
    .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) Channelmodes available: $5
    halt
  }
}


raw 005:*:{
  haltdef
  .set %and $chr(38)
  .set %hash $chr(35)
  tokenize 32 $2-
  if ($wildtok($1-,CHANTYPES=*,1,32)) { set %chantypes $gettok($ifmatch,2-,61) }
  if (%srvinfstatus == on) {
    if (%hash $+ %and isincs %chantypes) { 
      .echo -s $timestamps $+ $theme(logo) $chr(160)
      .echo -s $timestamps $+ $theme(logo) Global and Local Channel Types (# and &) are supported by this server.
      .echo -s $timestamps $+ $theme(logo) To join such channels type:
      .echo -s $timestamps $+ $theme(logo) Global Channel: /join #channel (or /j channel).
      .echo -s $timestamps $+ $theme(logo) Local Channel: /join &channel (or /j &channel).
    }
    .unset %chantypes
  }
  elseif (%srvinfwin == on) {
    if (%hash $+ %and isincs %chantypes) { 
      .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) $chr(160)
      .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) Global and Local Channel Types (# and &) are supported by this server.
      .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) To join such channels type:
      .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) Global Channel: /join #channel (or /j channel).
      .aline @Server $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $timestamps $+ $theme(logo) Local Channel: /join &channel (or /j &channel).
      .unset %chantypes
      halt
    }
  }
}

;IRCD Info
alias info {
  if (%srvinfwin == on) { .clear @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) | .quote info }
}


raw 371:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo) $network Info:
    .echo -s $timestamps $+ $theme(logo) $chr(160)
    .echo -s $timestamps $+ $theme(logo) $chr(160)
    .echo -s $timestamps $+ $theme(logo) $chr(160) $2-
    halt
  }
  elseif (%srvinfwin == on) {
    window -lkg1 +s @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) 220 50 320 290 @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) Verdana 11
    if !$line(@IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ),0) {
      .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $network Info:
      .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $chr(160)
      .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $chr(160)
    }
    .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $2-
    halt
  }
}

raw 374:*:{
  haltdef
  if (%srvinfstatus == on) {
    .echo -s $timestamps $+ $theme(logo)
    .echo -s $timestamps $+ $theme(logo) $2-
    halt
  }
  elseif (%srvinfwin == on) {
    .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $chr(160) 
    .aline @IRCD $+ $chr(160) $+ Info $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $2-
    halt
  }
}

;/MAP
alias map {
  if (%srvinfwin == on) { .clear @ $+ $network $+ $chr(160) $+ Map | .quote map }
}

raw 006:*:{
  window -lkg1 +s @ $+ $network $+ $chr(160) $+ Map 220 50 320 290 @ $+ $network $+ $chr(160) $+ Map Verdana 11
  .aline @ $+ $network $+ $chr(160) $+ Map $theme(logo) $network Map:
  .aline @ $+ $network $+ $chr(160) $+ Map $chr(160)
  .aline @ $+ $network $+ $chr(160) $+ Map $chr(160)
  .aline @ $+ $network $+ $chr(160) $+ Map $2-6
  halt
}
raw 007:*:{
  .aline @ $+ $network $+ $chr(160) $+ Map $chr(160) 
  .aline @ $+ $network $+ $chr(160) $+ Map $theme(logo) End of /MAP
  halt
}


;MOTD
alias motd {
  if (%srvinfwin == on) { .clear @MOTD $+ $chr(160) $+ ( $+ $network $+ ) | .quote motd }
}

raw 372:*:{
  haltdef
  if (%hmotd == on ) { halt }
  window -lkg1 +s @MOTD $+ $chr(160) $+ ( $+ $network $+ ) 220 50 320 290 @MOTD Verdana 11
  if !$line(@MOTD $+ $chr(160) $+ ( $+ $network $+ ),0) {
    .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $network Message of the Day
    .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $chr(160)
    .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $chr(160)
  }
  .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $2-
  halt
}

raw 376:*:{
  haltdef
  if (%hmotd == on ) { halt }
  .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $chr(160) 
  .aline @MOTD $+ $chr(160) $+ ( $+ $network $+ ) $theme(logo) $2-
  halt
}

  


now you can really say OMFG WTF is this :P

Last edited by raZOR; 24/09/06 01:31 AM.

IceCapped