menu * {
  Quick Tips {
    tips
  }
}
alias tips {
  if ($dialog(tips)) dialog -x tips
  dialog -m tips tips
}
dialog tips {
  option dbu
  title "Quick Tips - by Ashley"
  size 189 285 150 50
  text "", 1, 5 5 76 40, multi
  button "Next Tip", 2, 93 11 46 11
  button "Close Dialog", 3, 93 28 46 11, ok
}
on *:dialog:tips:*:*:{
  if ($devent == init) did -ra tips 1 $read(tips.txt)
  elseif ($devent == sclick && $did == 2) { did -ra tips 1 $read(tips.txt) }
}