Grats Creator

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 "/!\ !Grats! /!\ By K_Its_Josh", 5, 17 76 181 12, tab 2
  button "Stars and dots", 6, 17 94 181 12, tab 2
  button "Right...", 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) 4GRATZ 0,4GRATZ 5GRATZ 4,5GRATZ 1GRATZ 5,1GRATZ 7/!\0,1 Gratz on $did(15) $did(14) $did(13)  7/!\5GRATZ 1,5GRATZ 4GRATZ 5,4GRATZ 0GRATZ 4,0GRATZ }
  if ($did == 6) { msg $did(16) 4*2.4*2.4*2.4*2.4*2.Grats on $did(15) $did(14) $did(13) $+ !4*2.4*2.4*2.4*2.4*2. }
  if ($did == 7) { msg $did(16) 4o.2O4o.2O4o.2OGrats $did(13) on $did(15) $did(14) $+ !2O.4o2O.4o2O.4o }
  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 %grats1* | notice $me Grats 1 is clear. }
  if ($did == 34) { unset %grats2* | notice $me Grats 2 is clear. }
  if ($did == 37) { unset %grats3* | notice $me Grats 3 is clear. }
  if ($did == 38) { unset %grats4* | notice $me Grats 4 is clear. }
  if ($did == 39) { unset %grats5* | notice $me Grats 5 is clear. }
  if ($did == 40) { unset %grats6* | notice $me Grats 6 is clear. }
  if ($did == 41) { unset %grats7* | notice $me Grats 7 is clear. }
  if ($did == 42) { unset %grats8* | notice $me Grats 8 is clear. }
  if ($did == 43) { unset %grats9* | notice $me Grats 9 is clear. }
  if ($did == 44) { unset %grats10* | notice $me Grats 10 is clear. }
}
alias grats { dialog -md grats grats }
menu * {
  Grats Creator:dialog -md grats grats
}