/ScriptServ

alias smf.tips dialog -mn smftips smftips | showtip $rand(1,20) | if (%showtips) did -c smftips 9
alias showtip {
  if ($1 = F) did -ra smftips 2 $readini $qts($scriptdirtips.ini) tips 0
  if ($1 > 0) && ($1 < 21) { did -ra smftips 2 $readini $qts($scriptdirtips.ini) tips $1 | did -ra smftips 5 $1 }
  if ($1 = 0) { did -ra smftips 2 $readini $qts($scriptdirtips.ini) tips 20 | did -ra smftips 5 20 }
  if ($1 = 21) { did -ra smftips 2 $readini $qts($scriptdirtips.ini) tips 1 | did -ra smftips 5 1 }
}
dialog smftips {
  title "Welcome to the SMF Script 8"
  size -1 -1 450 279
  button "Close",1,330 94 100 24,cancel
  edit "",2,20 35 300 200,multi,read,vsbar
  text "Did you know...",3,20 11 300 13,center
  text "Tip #",4,352 14 25 13
  edit "",5,377 9 25 23,read
  button "Next Tip",6,330 36 100 24
  button "Last Tip",7,330 65 100 24
  button "More Details",8,330 123 100 24
  check "Show this dialog the next time you run the SMF Script.",9,25 245 300 13 
}
on *:dialog:smftips:sclick:*:{
  if ($did = 6) showtip $calc($did(5) + 1)
  if ($did = 7) showtip $calc($did(5) - 1)
  if ($did = 9) { if (%showtips) unset %showtips | else set %showtips - }
  if ($did = 8) { $sets(tip) }
}
alias smf.help {
  dialog -mn smfhelp smfhelp
  showhelp titles 3
if ($2) showhelp $1-
}
dialog smfhelp {
  title "the SMF Script 8 helpfile"
  size -1 -1 445 279
  button "Close",1,315 244 120 24,cancel
  edit "",2,10 10 300 259,multi,read,vsbar
  list 3,315 10 120 150,vsbar
  text "Related",4,315 162 120 13,center
  list 5,315 178 120 80,vsbar,sort
}
on *:dialog:smfhelp:sclick:3: showhelp $gettok($did(3,$did(3).sel),1,32) 2
alias showhelp did -r smfhelp $$2 | loadbuf -ot $+ $$1 smfhelp $$2 $qts($scriptdirhelp.ini)