Stuff

dialog dm_status {
  title "Kyles DM status - Made by Jcfc"
  size -1 -1 208 237
  option dbu
  text "HP", 1, 2 19 54 8, center
  edit "", 2, 1 29 56 10, read center
  edit "", 3, 144 29 56 10, read center
  text "Spec remaining", 4, 145 19 53 8, center
  text "Food remaining", 5, 76 18 50 8, center
  edit "", 6, 73 29 56 10, read center
  button "Whip", 7, 3 67 37 12
  button "Crystal Bow", 8, 3 83 37 12
  button "Dragon Scim", 9, 3 99 37 12
  box "Normal Attacks", 10, 1 58 43 57
  button "Update HP", 11, 1 41 56 10
  button "Update Food", 12, 73 41 56 10
  button "Update Spec", 13, 144 41 56 10
  button "DDS", 14, 55 67 37 12
  button "Granite Maul", 15, 55 83 37 12
  box "Specs", 16, 52 58 44 41
  text "DDS - 25% Spec", 17, 52 99 43 8
  text "Maul - 100% Spec", 18, 52 107 44 8
  button "Barrage", 19, 106 67 37 12
  button "Dharok", 20, 106 83 37 12
  box "Bonus attacks", 21, 104 58 43 40
  button "Eat", 22, 160 67 37 12
  button "Skip", 23, 160 83 37 12
  button "Super Set", 24, 160 99 37 12
  box "Other", 25, 155 58 46 56
  button "Monkfish (5m)", 26, 4 124 37 12
  button "Shark (20m)", 27, 58 124 35 12
  button "Sea turtle (50m)", 28, 107 124 41 12
  button "Super set (50k)", 29, 162 124 40 12
  text "Only 3 barrages allowed.", 30, 104 99 43 14, center
  box "Buy", 31, 1 116 205 25
  edit "", 32, 3 155 56 10, read center
  text "Money", 33, 4 167 54 8, center
  edit "", 34, 74 155 56 10, read center
  text "Strength Level", 35, 75 167 55 8, center
  edit "", 36, 146 155 56 10, read center
  text "XP to level", 37, 146 167 55 8, center
  edit "", 38, 40 181 56 10, read center
  text "Wins", 39, 41 193 54 8, center
  edit "", 40, 115 181 56 10, read center
  text "Losses", 41, 116 193 54 8, center
  box "Death Stats", 42, 2 142 204 62
  edit "", 43, 5 223 197 10, read center
  box "Status Bar", 44, 2 215 204 21
  button "DM!", 45, 160 2 37 12
  text "Stake:", 46, 5 4 30 8, right
  edit "", 47, 41 3 114 10, center
  button "Update all deathstats", 48, 44 205 127 12
}
on *:DIALOG:dm_status:sclick:*: {
  ;Simple parts - The bits that are most important
  if ($did == 7) msg #kdm !whip
  if ($did == 8) msg #kdm !cbow
  if ($did == 9) msg #kdm !dscim
  if ($did == 14) msg #kdm !dds
  if ($did == 15) msg #kdm !gmaul
  if ($did == 19) msg #kdm !barrage
  if ($did == 20) msg #kdm !dh
  if ($did == 22) msg #kdm !eat
  if ($did == 23) msg #kdm !skip
  if ($did == 24) msg #kdm !sset
  if ($did == 26) msg #kdm !buy food monkfish
  if ($did == 27) msg #kdm !buy food shark
  if ($did == 28) msg #kdm !buy food sea turtle
  if ($did == 29) msg #kdm !buy pots super strength
  if ($did == 45) msg #kdm !dm $did(47)
  ;Update parts
  if ($did == 11) ctcp CheeseBap DM HP
  if ($did == 12) ctcp CheeseBap DM FOOD
  if ($did == 13) ctcp CheeseBap DM SPEC
  if ($did == 48) ctcp CheeseBap DM DEATHSTATS
}
on *:ctcpreply:*HP*:{ if ($dialog(dm_status)) { /did -ra dm_status 2 $3-  | /did -ra dm_status 43 HP Updated. } }
on *:ctcpreply:*FOOD*:{ if ($dialog(dm_status)) { /did -ra dm_status 6 $3-  | /did -ra dm_status 43 Food Updated. } }
on *:ctcpreply:*SPEC*:{ if ($dialog(dm_status)) { /did -ra dm_status 3 $3- | /did -ra dm_status 43 Spec Updated. } }
on *:ctcpreply:*WINS*:{ if ($dialog(dm_status)) { /did -ra dm_status 38 $5 | /did -ra dm_status 40 $7 | /did -ra dm_status 34 $10 | /did -ra dm_status 36 $15 | /did -ra dm_status 32 $17- | /did -ra dm_status 43 Deathstats Updated. } }

on *:NOTICE:*You do not*:*:{ if ($dialog(dm_status)) { /did -ra dm_status 43 $1- } }
on *:NOTICE:*There is*:*:{ if ($dialog(dm_status)) { /did -ra dm_status 43 $1- } }
on *:NOTICE:*You have*:*:{ if ($dialog(dm_status)) { /did -ra dm_status 43 $1- } }
on *:NOTICE:*You cannot*:*:{ if ($dialog(dm_status)) { /did -ra dm_status 43 $1- } }

alias dms { dialog -md dm_status dm_status }