/ScriptServ

[SCRIPT]
NAME=Other dialogs
VERSION=2.5

; ## Tips dialog

dialog tips {
  title "zIRCk Tips"
  size -1 -1 171 78
  option dbu
  icon $icl, 20
  text "", 1, 2 4 166 56
  text "Did you know...", 2, 5 7 61 8
  list 3, 142 7 22 21, disable size
  text "", 4, 5 19 124 37
  button "Done", 5, 132 64 37 12, ok
  button "3", 6, 2 64 9 12
  button "4", 7, 14 64 9 12
}

on *:dialog:tips:init:0: {
  mdx MarkDialog $dname 
  mdxbutton tips 5,6,7
  mdx SetControlMDX $dname 3 Toolbar flat wrap nodivider list > $bars
  mdx SetFont $dname 2 -11 700 $rconf(Display,Font)
  mdx SetFont $dname 6,7 -12 400 Webdings
  mdx SetColor $dname 1,2,3,4 background $rgb(255,255,255)
  mdx SetColor $dname 2,4 textbg $rgb(255,255,255)
  mdx SetColor $dname 2,4 text $rgb(0,0,0)
  mdx SetBorderStyle $dname 1 staticedge
  mdx SetBorderStyle $dname 3
  did -i $dname 3 1 bmpsize 32 32
  did -i $dname 3 1 setimage icon normal 20, $+ $icl
  did -a $dname 3 +a 1 $chr(9) Nothing
  did -ra $dname 4 $read($_doc(Tips), %tip)
}

on *:dialog:tips:sclick:6: {
  if (%tip == 1) {
    %tip = $lines($_doc(Tips))
    did -ra $dname 4 $read($_doc(Tips),%tip)
  }
  else {
    dec %tip
    did -ra $dname 4 $read($_doc(Tips),%tip)
  }
}

on *:dialog:tips:sclick:7: {
  if (%tip == $lines($_doc(Tips))) { 
    %tip = 1 
    did -ra $dname 4 $read($_doc(Tips),%tip)
  }
  else {
    inc %tip
    did -ra $dname 4 $read($_doc(Tips),%tip)
  }
}

; ## About dialog

dialog about {
  title "About zIRCk"
  size -1 -1 124 113
  option dbu
  icon $icl, 9
  icon 1, 3 2 18 18, $shortfn($scriptdirIcons\zIRCk.ico), 0
  text "zIRCk Script", 2, 26 2 47 8
  text "Final Project", 3, 26 10 60 8
  text "Written by Zak Bowler", 4, 26 25 69 8
  link "http://www.coderscore.org/afx", 5, 26 33 77 8
  button "Done", 7, 85 99 37 12, ok
  text "Originally a final project for high school computer science, this project turned out to be my final script for the IRC community. Thanks goes out to the people who have helped me with scripting over the past 6 years - it was fun.", 6, 26 47 97 47
}

on *:dialog:about:init:0: {
  mdx MarkDialog $dname
  mdxbutton about 7
  mdx SetFont $dname 2,3 -11 700 Tahoma
  mdx SetFont $dname 4,6,7 -11 400 Tahoma
}

on *:dialog:about:sclick:5: { url $did($dname,5) }

; ## Loading progressbar dialog

dialog load {
  title "Loading..."
  size -1 -1 158 29
  option dbu
  icon $shortfn($scriptdirIcons\zIRCk.ico), 0
  text "", 1, 2 2 154 15
  text "", 2, 2 19 154 8, center
}

on *:dialog:load:init:0: {
  mdx MarkDialog $dname
  mdx SetFont $dname 2 -11 700 Tahoma
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  did -a load 1 BarColor $rgb(144,152,168)
}