dialog grats {
  title "Grats Creator"
  size -1 -1 209 160
  option dbu
  text "Grats Creator", 1, 35 0 139 8, center
  tab "Preset", 2, 62 146 93 43
  button "Colourful", 4, 17 59 181 12, tab 2
  button "Short and Sweet", 5, 17 76 181 12, tab 2
  button "Awesome!", 6, 17 94 181 12, tab 2
  button "Nice one", 7, 17 111 181 12, tab 2
  button "99's", 8, 17 129 181 12, tab 2
  text "I am currently unable to give examples, as colours are not accepted in a dialog.", 36, 16 37 182 16, tab 2 center
  tab "Created Grats", 3
  text "Create-A-Grats", 18, 86 32 45 8, tab 3 center
  edit "", 17, 4 41 50 10, tab 3
  text "NICK", 21, 55 42 25 8, tab 3
  edit "", 22, 67 41 50 10, tab 3
  text "LEVEL SKILL", 23, 116 42 33 8, tab 3 center
  edit "", 24, 148 41 54 10, tab 3
  button "Add", 19, 92 53 29 12, tab 3
  button "Grats 2", 25, 6 85 37 12, tab 3
  button "Grats 3", 26, 6 100 37 12, tab 3
  button "Grats 5", 28, 6 130 37 12, tab 3
  button "Grats 4", 27, 6 115 37 12, tab 3
  button "Grats 7", 30, 167 85 37 12, tab 3
  button "Grats 6", 29, 167 70 37 12, tab 3
  button "Grats 8", 31, 167 100 37 12, tab 3
  button "Grats 9", 32, 167 115 37 12, tab 3
  button "Grats 10", 33, 167 130 37 12, tab 3
  button "Grats 1", 20, 6 70 37 12, tab 3
  button "Clear", 34, 46 85 37 12, tab 3
  button "Clear", 37, 46 100 37 12, tab 3
  button "Clear", 9, 46 70 37 12, tab 3
  button "Clear", 40, 126 70 37 12, tab 3
  button "Clear", 41, 126 85 37 12, tab 3
  button "Clear", 42, 126 100 37 12, tab 3
  button "Clear", 39, 46 130 37 12, tab 3
  button "Clear", 43, 126 115 37 12, tab 3
  button "Clear", 44, 126 130 37 12, tab 3
  button "Clear", 38, 46 115 37 12, tab 3
  text "Channel", 12, 159 10 25 8, center
  text "Name", 99, 30 10 25 8, center
  text "Skill", 11, 82 10 25 8, center
  text "Level", 10, 120 10 25 8, center
  edit "", 13, 17 20 49 10
  edit "", 14, 66 20 56 10
  edit "", 15, 122 20 22 10, limit 2
  edit "", 16, 144 20 55 10
  button "Clear Memory", 35, 171 147 37 12
}

on *:dialog:grats:sclick:*: {
  if ($did == 4) { msg $did(16) 4@2!14=D3><7*** Nice one $did(13) on $did(14) level $did(15) $+ !***3><14=D2!4@ }
  if ($did == 5) { msg $did(16) 4Congratulations on2 $did(15) $did(14) 4 $+ $did(13) $+ ! }
  if ($did == 6) { msg $did(16) 2Wow $did(13) $+ ! 4Grats on $did(14) level $did(15) $+ , thats 2awesome! }
  if ($did == 7) { msg $did(16) 04 $+ $did(15) $did(14) $+ , $did(13) $+ ? 2Nice one! }
  if ($did == 8) { if ($did(15) == 99) { msg $did(16) 02 99 $did(14) $did(13) $+ ?!?!?!?!?!?! 4THATS AWESOME! CONGRATULATIONS!!!! } }
  if ($did == 19) { if (!%grats1a) && (!%grats1b) && (!%grats1c) { set %grats1a $did(17) | set %grats1b $did(22) | set %grats1c $did(24) | notice $me To use this grats, click Grats 1. | halt }
    if (%grats1a) && (%grats1b) && (%grats1c) && (!%grats2a) && (!%grats2b) && (!%grats2c) { set %grats2a $did(17) | set %grats2b $did(22) | set %grats2c $did(24) | notice $me To use this grats, click Grats 2. | halt }
    if (%grats2a) && (%grats2b) && (%grats2c) && (!%grats3a) && (!%grats3b) && (!%grats3c) { set %grats3a $did(17) | set %grats3b $did(22) | set %grats3c $did(24) | notice $me To use this grats, click Grats 3. | halt }
    if (%grats3a) && (%grats3b) && (%grats3c) && (!%grats4a) && (!%grats4b) && (!%grats4c) { set %grats4a $did(17) | set %grats4b $did(22) | set %grats4c $did(24) | notice $me To use this grats, click Grats 4. | halt }
    if (%grats4a) && (%grats4b) && (%grats4c) && (!%grats5a) && (!%grats5b) && (!%grats5c) { set %grats5a $did(17) | set %grats5b $did(22) | set %grats5c $did(24) | notice $me To use this grats, click Grats 5. | halt }
    if (%grats5a) && (%grats5b) && (%grats5c) && (!%grats6a) && (!%grats6b) && (!%grats6c) { set %grats6a $did(17) | set %grats6b $did(22) | set %grats6c $did(24) | notice $me To use this grats, click Grats 6. | halt }
    if (%grats6a) && (%grats6b) && (%grats6c) && (!%grats7a) && (!%grats7b) && (!%grats7c) { set %grats7a $did(17) | set %grats7b $did(22) | set %grats7c $did(24) | notice $me To use this grats, click Grats 7. | halt }
    if (%grats7a) && (%grats7b) && (%grats7c) && (!%grats8a) && (!%grats8b) && (!%grats8c) { set %grats8a $did(17) | set %grats8b $did(22) | set %grats8c $did(24) | notice $me To use this grats, click Grats 8. | halt }
    if (%grats8a) && (%grats8b) && (%grats8c) && (!%grats9a) && (!%grats9b) && (!%grats9c) { set %grats9a $did(17) | set %grats9b $did(22) | set %grats9c $did(24) | notice $me To use this grats, click Grats 9. | halt }
    if (%grats9a) && (%grats9b) && (%grats9c) && (!%grats10a) && (!%grats10b) && (!%grats10c) { set %grats10a $did(17) | set %grats10b $did(22) | set %grats10c $did(24) | notice $me To use this grats, click Grats 10. | halt }
  if (%grats10a) && (%grats10b) && (%grats10c) { notice $me Your memory is full. Try clearing your memory. | halt } }
  if ($did == 20) { msg $did(16) %grats1a $did(13) %grats1b $did(15) $did(14) %grats1c }
  if ($did == 25) { msg $did(16) %grats2a $did(13) %grats2b $did(15) $did(14) %grats2c }
  if ($did == 26) { msg $did(16) %grats3a $did(13) %grats3b $did(15) $did(14) %grats3c }
  if ($did == 27) { msg $did(16) %grats4a $did(13) %grats4b $did(15) $did(14) %grats4c }
  if ($did == 28) { msg $did(16) %grats5a $did(13) %grats5b $did(15) $did(14) %grats5c }
  if ($did == 29) { msg $did(16) %grats6a $did(13) %grats6b $did(15) $did(14) %grats6c }
  if ($did == 30) { msg $did(16) %grats7a $did(13) %grats7b $did(15) $did(14) %grats7c }
  if ($did == 31) { msg $did(16) %grats8a $did(13) %grats8b $did(15) $did(14) %grats8c }
  if ($did == 32) { msg $did(16) %grats9a $did(13) %grats9b $did(15) $did(14) %grats9c }
  if ($did == 33) { msg $did(16) %grats10a $did(13) %grats10b $did(15) $did(14) %grats10c }
  if ($did == 35) { unset %grats* | notice $me All grats' deleted. }
  if ($did == 9) { unset %grats1a | unset %grats1b | unset %grats1c | notice $me Grats 1 is clear. }
  if ($did == 34) { unset %grats2a | unset %grats2b | unset %grats2c | notice $me Grats 2 is clear. }
  if ($did == 37) { unset %grats3a | unset %grats3b | unset %grats3c | notice $me Grats 3 is clear. }
  if ($did == 38) { unset %grats4a | unset %grats4b | unset %grats4c | notice $me Grats 4 is clear. }
  if ($did == 39) { unset %grats5a | unset %grats5b | unset %grats5c | notice $me Grats 5 is clear. }
  if ($did == 40) { unset %grats6a | unset %grats6b | unset %grats6c | notice $me Grats 6 is clear. }
  if ($did == 41) { unset %grats7a | unset %grats7b | unset %grats7c | notice $me Grats 7 is clear. }
  if ($did == 42) { unset %grats8a | unset %grats8b | unset %grats8c | notice $me Grats 8 is clear. }
  if ($did == 43) { unset %grats9a | unset %grats9b | unset %grats9c | notice $me Grats 9 is clear. }
  if ($did == 44) { unset %grats10a | unset %grats10b | unset %grats10c | notice $me Grats 10 is clear. }
}
alias grats { dialog -md grats grats }