Mine

menu * { 
  .Dialog Racing
  ..Main Menu: /dialog -md rmenu rmenu
}
alias /race { /dialog -md rmenu rmenu }
dialog rmenu {
  title "Main Menu"
  size -1 -1 210 100
  option dbu
  check "Main Menu", 1, 0 0 35 13, push
  check "Shop", 2, 35 0 35 13, push
  check "Race", 3, 70 0 35 13, push
  check "Friends", 4, 105 0 35 13, push
  check "Challanges", 5, 140 0 35 13, push
  check "Garage", 6, 175 0 35 13, push
  text "Welcome to the wonderfull world of racing!", 8, 2 18 105 7
  text "V1.0 Made in Holland -- By supamagier", 9, 63 93 95 8 
  text "The best starter thing that you can do is make some friends, which can help you.", 10, 2 24 210 7 
  text "Click on the buttons above to navigate through the game.", 11, 2 30 140 7
  text "Money:", 12, 5 40 25 7
  edit " ", 13, 5 48 45 8, read
  text "Races won:", 14, 150 40 30 7
  edit " ", 15, 150 48 45 8, read
  text "Races lost:", 16, 150 60 45 7
  edit " ", 17, 150 68 45 8, read
  text "City:", 18, 5 60 45 7
  edit " ", 19, 5 68 45 8, read 
  text "Respect:", 20, 77 40 45 7
  edit " ", 21, 77 48 45 8, read
  text "Friends:", 22, 77 60 45 7
  edit " ", 23, 77 68 45 8, read
}
on *:dialog:rmenu:sclick:2: { dialog -x rmenu rmenu
  dialog -md rshop rshop
  did -c rshop 2
}
on *:dialog:rshop:sclick:1: { dialog -x rshop rshop
  dialog -md rmenu rmenu
  did -c rmenu 1
}
on *:dialog:rmenu:sclick:1: { did -c rmenu 1 }
on *:dialog:rshop:sclick:2: { did -c rshop 2 }
dialog rshop {
  option dbu
  title "Shop (You ain't poor, are you?)"
  size -1 -1 210 210
  check "Main Menu", 1, 0 0 35 13, push
  check "Shop", 2, 35 0 35 13, push
  check "Race", 3, 70 0 35 13, push
  check "Friends", 4, 105 0 35 13, push
  check "Challanges", 5, 140 0 35 13, push
  check "Garage", 6, 175 0 35 13, push
  text "Welcome to the Shop! Click 'Buy' to buy and 'Sell' to sell.", 7, 2 15 150 7
  text "Here you can buy only car parts/upgrades, for new cars go to the garage.", 8, 2 22 200 7
  box "", 9, 3 30 203 160
  button "Buy", 10, 8 157 27 12
  button "Buy", 11, 8 40 27 12
  button "Buy", 12, 8 53 27 12
  button "Buy", 13, 8 66 27 12
  button "Buy", 14, 8 79 27 12
  button "Buy", 15, 8 92 27 12
  button "Buy", 16, 8 105 27 12
  button "Buy", 17, 8 118 27 12
  button "Buy", 18, 8 131 27 12
  button "Buy", 19, 8 144 27 12
  button "Buy", 20, 8 170 27 12
  text "Money:", 21, 6 195 25 7
  edit %racecash, 22, 27 195 45 8, read
  text "V1.0 Made in Holland -- By supamagier", 23, 63 203 95 7 
  edit " ", 24, 45 40 55 12, read
  edit " ", 25, 45 40 55 12, read
  edit " ", 26, 45 53 55 12, read
  edit " ", 27, 45 66 55 12, read
  edit " ", 28, 45 79 55 12, read
  edit " ", 29, 45 92 55 12, read
  edit " ", 30, 45 105 55 12, read
  edit " ", 31, 45 118 55 12, read
  edit " ", 32, 45 131 55 12, read
  edit " ", 33, 45 144 55 12, read
  edit " ", 34, 45 157 55 12, read
  edit " ", 35, 45 170 55 12, read
  text "You can install all things in the garage.", 36, 110 192 100 8
  edit " ", 37, 163 40 37 12, read
  edit " ", 38, 163 40 37 12, read
  edit " ", 39, 163 53 37 12, read
  edit " ", 40, 163 66 37 12, read
  edit " ", 41, 163 79 37 12, read
  edit " ", 42, 163 92 37 12, read
  edit " ", 43, 163 105 37 12, read
  edit " ", 44, 163 118 37 12, read
  edit " ", 45, 163 131 37 12, read
  edit " ", 46, 163 144 37 12, read
  edit " ", 47, 163 157 37 12, read
  edit " ", 48, 163 170 37 12, read
  text "Usefull if you need (more) friends/respect.", 49, 103 39 60 15
  text "Want speed? Here you go. ", 50, 103 52 60 15
  text "These are for friends and respect.", 51, 103 65 60 15
  text "Acceleration, speed, etc. Just buy it.", 52, 103 78 60 15
  text "What do you think? Well, duh, speed.", 53, 103 91 60 15
  text "Just friends... That's all - They'll love it.", 54, 103 104 60 15
  text "These are usefull in drifts, to brake...", 55, 103 117 60 15
  text "Same as carcolour, friends.", 56, 103 130 60 15
  text "Reduce weight, important, more speed.", 57, 103 143 60 15
  text "Better radio = less chance getting caught.", 58, 103 156 60 15
  text "Respect, and I think they'll look cool.", 59, 103 169 60 15   
}
on *:dialog:rshop:init:0: {             
  if (%racenitro == $null) { set %racenitro nitrous oxide 1 }
  if (%buy.nitro == 1) { set %racenitro nitrous oxide 2 }
  if (%buy.nitro == 2) { set %racenitro nitrous oxide 3 }
  if (%racewheel == $null) { set %racewheel enkei rims }
  if (%buy.wheel == 1) { set %racewheel mclaren rims }
  if (%buy.wheel == 2) { set %racewheel ferrari rims }
  if (%raceengine == $null) { set %raceengine engine lvl 1 }
  if (%buy.engine == 1) { set %raceengine engine lvl 2 }
  if (%buy.engine == 2) { set %raceengine engine lvl 3 }
  if (%racelook == $null) { set %racelook lamps+exhausts }
  if (%buy.look == 1) { set %racelook side skirts }
  if (%buy.look == 2) { set %racelook spoiler & hoods }
  if (%raceecu == $null) { set %raceecu  performance chip }
  if (%buy.ecu == 1) { set %raceecu  fuel filter }
  if (%buy.ecu == 2) { set %raceecu  no speed limiter }
  if (%raceturbo == $null) { set %raceturbo turbo lvl 1 }
  if (%buy.turbo == 1) { set %raceturbo turbo lvl 2 }
  if (%buy.turbo == 2) { set %raceturbo turbo lvl 3 }
  if (%racecolour == $null) { set %racecolour choose carcolour }
  if (%racebrake == $null) { set %racebrake citroen brakes }
  if (%buy.brake == 1) { set %racebrake mclaren brakes } 
  if (%buy.brake == 2) { set %racebrake ferrari brakes }
  if (%raceneon == $null) { set %raceneon choose neoncolour }
  if (%raceweight == $null) { set %raceweight no rear seats }
  if (%buy.weight == 1) { set %raceweight light roof }
  if (%buy.weight == 2) { set %raceweight light frame }
  if (%raceradio == $null) { set %raceradio car radio }
  if (%buy.radio == 1) { set %raceradio better aerial }
  if (%buy.radio == 2) { set %raceradio cops radio }
  if (%racestereo == $null) { set %racestereo small boxes }
  if (%buy.stereo == 1) { set %racestereo medium boxes }
  if (%buy.stereo == 2) { set %racestereo large boxes }
  did -ra rshop 24 %racenitro
  did -ra rshop 25 %racewheel
  did -ra rshop 26 %raceengine
  did -ra rshop 27 %racelook
  did -ra rshop 28 %raceecu
  did -ra rshop 29 %raceturbo
  did -ra rshop 30 %racecolour
  did -ra rshop 31 %racebrake
  did -ra rshop 32 %raceneon
  did -ra rshop 33 %raceweight
  did -ra rshop 34 %raceradio
  did -ra rshop 35 %racestereo
}
on *:dialog:rmenu:init:0: {
  did -c rmenu 1
  if (%racecash == $null) { set %racecash 1000 }
  if (%racewin == $null) { inc %racewin 0 }
  if (%racelose == $null) { inc %racelose 0 }
  if (%racecity == $null) { set %racecity Amsterdam }
  if (%raceresp == $null) { set %raceresp 0 }
  if (%racefrnds == $null) { inc %racefrnds 0 }
  did -a rmenu 13 %racecash
  did -a rmenu 15 %racewin
  did -a rmenu 17 %racelose
  did -a rmenu 19 %racecity
  did -a rmenu 21 %raceresp $+ /100%
  did -a rmenu 23 %racefrnds
}