;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;      Author: Doglem        |
;       Date: June 26th 2003 | 
; Description: MOTD Viewer   |
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

on *:load:{ echo -a MOTD Viewer 1.0  By: Doglem is loaded! }
on *:unload:{ echo -a MOTD Viewer 1.0 By: Doglem has been unloaded. | unset %motdhash }

dialog motd {
  title $str($chr(160),25) Message of the Day
  size -1 -1 213 185
  option dbu
  combo 1, 1 2 185 80, size drop,sort
  list 2, 1 14 185 172, size hsbar vsbar
  button "Get", 3, 187 1 25 12
  button "Close", 4, 187 14 25 170,ok
}
on *:dialog:motd:init:0:{ 
  links
  motd
}
on *:dialog:motd:sclick:3:{
  if ($serveR) {
    if (!$hget(motd)) {
      if ($dialog(motd)) { hmake motd 1 | motd $gettok($did(motd,1),2,45) | halt }
      if (!$dialog(motd)) { hmake motd 1 | dialog -m motd motd | motd $gettok($did(motd,1),2,45) }
    }    
    if ($hget(motd)) {
      if ($dialog(motd)) { motd $gettok($did(motd,1),2,45) | halt }
      if (!$dialog(motd)) { dialog -m motd motd | motd $gettok($did(motd,1),2,45) }
    }
  }
}
;---------------------------
raw 372:*:{
  inc %motdhash
  hadd motd %motdhash $2-
  halt
}
raw 375:*:{
  if (!$dialog(motd)) { dialog -m motd motd | links | goto motd }
  if ($dialog(motd)) { did -r motd 2 | goto motd }
  :motd
  if (!$hget(motd)) { hmake motd 1 }
  if (!%motdhash) { set %motdhash 0 | goto inc }
  if (%motdhash) { goto inc }
  set %motdhash 0
  :inc
  hadd motd %motdhash $2-
  did -c motd 1 $didwm(motd,1,* $+ $3 $+ *)
  halt
}
raw 376:*:{
  while (%motdhash >= 1) {
    did -a motd 2 $hget(motd,%motdhash).data
    dec %motdhash
  }
  hfree motd
  halt
} 
raw 364:*:{
  if (!$dialog(motd)) { dialog -m motd motd | goto linkhop }
  if ($dialog(motd)) { goto linkhop }
  :linkhop
  if ($didwm(motd,1,* $+ $2 $+ *)) { halt }
  did -a motd 1 $chr(91) $+ $4 $+ $chr(93) - $2 -" $+ $5- $+ "
}
raw 365:*:{ did -c motd 1 $didwm(motd,1,* $+ $server $+ *,1) | halt }
;----------------------------
menu status,menubar {
  MOTD:{ if (!$dialog(motd)) { motdretrieve | halt } | if ($dialog(motd)) { echo -a MOTD Dialog In Use. } }
}
;----------------------------
alias motdretrieve {
  dialog -m motd motd
  links
}
alias motd {
  if (!$hget(motd)) { hmake motd 1 }
  if ($dialog(motd)) { did -r motd 2 }
  if (!$dialog(motd)) { dialog -m motd motd }
  .links
  motd $1-
}
-----------------------------