menu * { 
  .eTokens: etpop
}

Alias etpop {
  If ($Dialog(etokens)) { Dialog -v etokens }
  Else { Dialog -md etokens etokens }
}

dialog Etokens {
  title "Etokens"
  size -1 -1 600 552
  option pixels
  tab "General etoken Commands", 1, 3 5 593 510
  box "Etoken Commands", 7, 12 28 228 440, tab 1
  tab "Police Commands", 2
  tab "Criminal Commands", 3
  tab "Admin Control", 4
  edit "", 5, 244 42 345 264, read multi return autohs hsbar vsbar
  box "#Etoken Channel View", 19, 242 28 349 282
  box "Etoken Window Commands", 11, 244 314 347 154
  edit "", 12, 357 329 229 24, autohs
  edit "", 21, 357 366 229 24, autohs
  button "Clear", 13, 358 410 113 45
  button "Say", 22, 261 331 75 25
  button "Action", 23, 261 363 75 25
}

on *:TEXT:*:#etokens: {
  if ($dialog(etokens)) { did -i etokens 5 $did(etokens,5).lines < $+ $nick $+ > $1- }
}
on *:NOTICE:*:*: {
  if ($dialog(etokens)) { did -i etokens 5 $did(etokens,5).lines -Notice- $nick $1- }
}

on *:action:*:#etokens: {
  if ($dialog(etokens)) { did -i etokens 5 $did(etokens,5).lines *Action* $nick $1- }
}

on *:input:#etokens:{
  if ($dialog(etokens)) { did -i etokens 5 $did(etokens,5).lines < $+ $nick $+ > $1- }
}

on *:DIALOG:etokens:sclick:22: {
  if ($did($dname,2)) { $iif($did($dname,12),msg #etokens $did($dname,12), $Input(You need too enter Some text to say!,o,Etokens)) | $iif($did($dname,12),,halt) | did -i etokens 5 $did(etokens,5).lines < $+ $nick $+ > $did($dname,12) }
}

on *:DIALOG:etokens:sclick:23: {
  if ($did($dname,2)) { $iif($did($dname,21),describe #etokens $did($dname,21), $Input(You need too enter Some text to say!,o,Etokens)) | $iif($did($dname,21),,halt) | did -i etokens 5 $did(etokens,5).lines *Action* $nick $did($dname,21) }
}

on *:DIALOG:etokens:sclick:13: {
  did -r $dname 5
}