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 "Favours gotten:", 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:rmenu:sclick:3: { dialog -x rmenu rmenu
  dialog -md rrace rrace
  did -c rrace 3
}
on *:dialog:rmenu:sclick:4: { dialog -x rmenu rmenu
  dialog -md rfriend rfriend
  did -c rfriend 4
}
on *:dialog:rmenu:sclick:6: { dialog -x rmenu rmenu
  dialog -md rgarage rgarage
  did -c rgarage 6
}
on *:dialog:rshop:sclick:1: { dialog -x rshop rshop
  dialog -md rmenu rmenu
  did -c rmenu 1
}
on *:dialog:rshop:sclick:3: { dialog -x rshop rshop
  dialog -md rrace rrace
  did -c rrace 3
}
on *:dialog:rshop:sclick:4: { dialog -x rshop rshop
  dialog -md rfriend rfriend
  did -c rfriend 4
}
on *:dialog:rshop:sclick:6: { dialog -x rshop rshop
  dialog -md rgarage rgarage
  did -c rgarage 6
}
on *:dialog:rrace:sclick:2: { dialog -x rrace rrace
  dialog -md rshop rshop
  did -c rshop 2
}
on *:dialog:rrace:sclick:1: { dialog -x rrace rrace
  dialog -md rmenu rmenu
  did -c rmenu 1
}
on *:dialog:rrace:sclick:4: { dialog -x rrace rrace
  dialog -md rfriend rfriend
  did -c rfriend 4
}
on *:dialog:rrace:sclick:6: { dialog -x rrace rrace
  dialog -md rgarage rgarage
  did -c rgarage 6
}
on *:dialog:rfriend:sclick:2: { dialog -x rfriend rfriend
  dialog -md rshop rshop
  did -c rshop 2
}
on *:dialog:rfriend:sclick:1: { dialog -x rfriend rfriend
  dialog -md rmenu rmenu
  did -c rmenu 1
}
on *:dialog:rfriend:sclick:3: { dialog -x rfriend rfriend
  dialog -md rrace rrace
  did -c rrace 3
}
on *:dialog:rfriend:sclick:6: { dialog -x rfriend rfriend
  dialog -md rgarage rgarage
  did -c rgarage 6
}
on *:dialog:rgarage:sclick:2: { dialog -x rgarage rgarage
  dialog -md rshop rshop
  did -c rshop 2
}
on *:dialog:rgarage:sclick:1: { dialog -x rgarage rgarage
  dialog -md rmenu rmenu
  did -c rmenu 1
}
on *:dialog:rgarage:sclick:3: { dialog -x rgarage rgarage
  dialog -md rrace rrace
  did -c rrace 3
}
on *:dialog:rgarage:sclick:4: { dialog -x rgarage rgarage
  dialog -md rfriend rfriend
  did -c rfriend 4
}
on *:dialog:rmenu:sclick:1: { did -c rmenu 1 }
on *:dialog:rshop:sclick:2: { did -c rshop 2 }
on *:dialog:rrace:sclick:3: { did -c rrace 3 }
on *:dialog:rfriend:sclick:4: { did -c rfriend 4 }
on *:dialog:rgarage:sclick:6: { did -c rgarage 6 }
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:sclick:11: {
  if (%buy.wheel == 3) { halt }
  if ($calc(%racecash - %price.wheel) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gwheel %racewheel
  if (%buy.wheel == 2) { set %buy.wheel 3 }
  if (%buy.wheel == 1) { set %buy.wheel 2 }
  if (%buy.wheel == $null) { set %buy.wheel 1 }
  set %racecash $calc(%racecash - %price.wheel)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:12: {
  if (%buy.engine == 3) { halt }
  if ($calc(%racecash - %price.engine) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gengine %raceengine
  if (%buy.engine == 2) { set %buy.engine 3 }
  if (%buy.engine == 1) { set %buy.engine 2 }
  if (%buy.engine == $null) { set %buy.engine 1 }
  set %racecash $calc(%racecash - %price.engine)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:13: {
  if (%buy.look == 3) { halt }
  if ($calc(%racecash - %price.look) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %glook %racelook
  if (%buy.look == 2) { set %buy.look 3 }
  if (%buy.look == 1) { set %buy.look 2 }
  if (%buy.look == $null) { set %buy.look 1 }
  set %racecash $calc(%racecash - %price.look)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:14: {
  if (%buy.ecu == 3) { halt }
  if ($calc(%racecash - %price.ecu) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gecu %raceecu
  if (%buy.ecu == 2) { set %buy.ecu 3 }
  if (%buy.ecu == 1) { set %buy.ecu 2 }
  if (%buy.ecu == $null) { set %buy.ecu 1 }
  set %racecash $calc(%racecash - %price.ecu)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:15: {
  if (%buy.turbo == 3) { halt }
  if ($calc(%racecash - %price.turbo) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gturbo %raceturbo
  if (%buy.turbo == 2) { set %buy.turbo 3 }
  if (%buy.turbo == 1) { set %buy.turbo 2 }
  if (%buy.turbo == $null) { set %buy.turbo 1 }
  set %racecash $calc(%racecash - %price.turbo)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:16: {
  if ($calc(%racecash - %price.colour) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %racecash $calc(%racecash - %price.colour)
  did -ra rshop 22 %racecash
  /dialog -md rccolour rccolour
}
on *:dialog:rshop:sclick:17: {
  if (%buy.brake == 3) { halt }
  if ($calc(%racecash - %price.brake) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gbrake %racebrake
  if (%buy.brake == 2) { set %buy.brake 3 }
  if (%buy.brake == 1) { set %buy.brake 2 }
  if (%buy.brake == $null) { set %buy.brake 1 }
  set %racecash $calc(%racecash - %price.brake)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:18: {
  if ($calc(%racecash - %price.neon) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %racecash $calc(%racecash - %price.neon)
  did -ra rshop 22 %racecash
  /dialog -md rcneon rcneon
}
on *:dialog:rshop:sclick:19: {
  if (%buy.weight == 3) { halt }
  if ($calc(%racecash - %price.weight) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gweight %raceweight
  if (%buy.weight == 2) { set %buy.weight 3 }
  if (%buy.weight == 1) { set %buy.weight 2 }
  if (%buy.weight == $null) { set %buy.weight 1 }
  set %racecash $calc(%racecash - %price.weight)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:10: {
  if (%buy.radio == 3) { halt }
  if ($calc(%racecash - %price.radio) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gradio %raceradio
  if (%buy.radio == 2) { set %buy.radio 3 }
  if (%buy.radio == 1) { set %buy.radio 2 }
  if (%buy.radio == $null) { set %buy.radio 1 }
  set %racecash $calc(%racecash - %price.radio)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:sclick:20: {
  if (%buy.stereo == 3) { halt }
  if ($calc(%racecash - %price.stereo) < 0 ) { /dialog -md rnocash rnocash | halt  }
  set %gstereo %racestereo
  if (%buy.stereo == 2) { set %buy.stereo 3 }
  if (%buy.stereo == 1) { set %buy.stereo 2 }
  if (%buy.stereo == $null) { set %buy.stereo 1 }
  set %racecash $calc(%racecash - %price.stereo)
  dialog -x rshop rshop | dialog -md rshop rshop
}
on *:dialog:rshop:init:0: {             
  if (%racewheel == $null) { set %racewheel enkei rims |  set %price.wheel 500 }
  if (%buy.wheel == 1) { set %racewheel mclaren rims |  set %price.wheel 700 }
  if (%buy.wheel == 2) { set %racewheel ferrari rims |  set %price.wheel 1000 }
  if (%buy.wheel == 3) { set %racewheel ferrari rims |  set %price.wheel bought }
  if (%raceengine == $null) { set %raceengine engine lvl 1 |  set %price.engine 2000 }
  if (%buy.engine == 1) { set %raceengine engine lvl 2 |  set %price.engine 5000 }
  if (%buy.engine == 2) { set %raceengine engine lvl 3 |  set %price.engine 10.000 }
  if (%buy.engine == 3) { set %raceengine engine lvl 3 |  set %price.engine bought }
  if (%racelook == $null) { set %racelook lamps & exhausts |  set %price.look 500 }
  if (%buy.look == 1) { set %racelook side skirts |  set %price.look 700 }
  if (%buy.look == 2) { set %racelook spoiler & hoods |  set %price.look 1000 }
  if (%buy.look == 3) { set %racelook spoiler & hoods |  set %price.look bought }
  if (%raceecu == $null) { set %raceecu  performance chip |  set %price.ecu 800 }
  if (%buy.ecu == 1) { set %raceecu  fuel filter |  set %price.ecu 1200 }
  if (%buy.ecu == 2) { set %raceecu  no speed limiter |  set %price.ecu 2000 }
  if (%buy.ecu == 3) { set %raceecu  no speed limiter |  set %price.ecu bought }
  if (%raceturbo == $null) { set %raceturbo turbo lvl 1 |  set %price.turbo 700 }
  if (%buy.turbo == 1) { set %raceturbo turbo lvl 2 |  set %price.turbo 1500 }
  if (%buy.turbo == 2) { set %raceturbo turbo lvl 3 |  set %price.turbo 2500 }
  if (%buy.turbo == 3) { set %raceturbo turbo lvl 3 |  set %price.turbo bought }
  if (%racecolour == $null) { set %racecolour choose carcolour |  set %price.colour 100 }
  if (%racebrake == $null) { set %racebrake citroen brakes |  set %price.brake 200 }
  if (%buy.brake == 1) { set %racebrake mclaren brakes |  set %price.brake 1900 } 
  if (%buy.brake == 2) { set %racebrake ferrari brakes |  set %price.brake 3000 }
  if (%buy.brake == 3) { set %racebrake ferrari brakes |  set %price.brake bought }
  if (%raceneon == $null) { set %raceneon choose neoncolour |  set %price.neon 500 }
  if (%raceweight == $null) { set %raceweight no rear seats |  set %price.weight 1200 }
  if (%buy.weight == 1) { set %raceweight light roof |  set %price.weight 1400 }
  if (%buy.weight == 2) { set %raceweight light frame |  set %price.weight 2000 }
  if (%buy.weight == 3) { set %raceweight light frame |  set %price.weight bought }
  if (%raceradio == $null) { set %raceradio car radio |  set %price.radio 300 }
  if (%buy.radio == 1) { set %raceradio better aerial |  set %price.radio 1500 }
  if (%buy.radio == 2) { set %raceradio cops radio |  set %price.radio 4000 }
  if (%buy.radio == 3) { set %raceradio cops radio |  set %price.radio bought }
  if (%racestereo == $null) { set %racestereo small boxes |  set %price.stereo 200 }
  if (%buy.stereo == 1) { set %racestereo medium boxes |  set %price.stereo 500 }
  if (%buy.stereo == 2) { set %racestereo large boxes |  set %price.stereo 1000 }
  if (%buy.stereo == 3) { set %racestereo large boxes |  set %price.stereo bought }
  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
  did -ra rshop 38 %price.wheel
  did -ra rshop 39 %price.engine
  did -ra rshop 40 %price.look
  did -ra rshop 41 %price.ecu
  did -ra rshop 42 %price.turbo
  did -ra rshop 43 %price.colour
  did -ra rshop 44 %price.brake
  did -ra rshop 45 %price.neon
  did -ra rshop 46 %price.weight
  did -ra rshop 47 %price.radio
  did -ra rshop 48 %price.stereo
}
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 (%racefavs == $null) { set %racefavs 0 }
  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 %racefavs
  did -a rmenu 21 %raceresp $+ /100%
  did -a rmenu 23 %racefrnds
}
dialog rnocash {
  option dbu
  title "Poor noob!"
  size -1 -1 120 50
  text "You don't have enough money!", 1, 20 10 100 7
  button "Ok", 2, 45 30 30 12, ok flat
}
dialog rccolour {
  option dbu
  title "Choose you colour"
  size -1 -1 80 80
  button "Red", 1, 0 0 20 20
  button "Green", 2, 0 20 20 20
  button "Blue", 3, 20 0 20 20
  button "Yellow", 4, 40 0 20 20
  button "Orange", 5, 40 20 20 20
  button "Purple", 6, 20 20 20 20
  button "Pink", 7, 20 40 20 20
  button "White", 8, 40 40 20 20
  button "Black", 9, 0 40 20 20
  button "Grey", 10, 60 20 20 20
  button "Gold", 11, 20 60 20 20
  button "Silver", 12, 0 60 20 20
  button "Brown", 13, 60 0 20 20
  button "Beige", 14, 60 40 20 20
  button "Cyan", 15, 40 60 20 20
  button "Indigo", 16, 60 60 20 20
}
dialog rcneon {
  option dbu
  title "Choose you colour"
  size -1 -1 80 80
  button "Red", 1, 0 0 20 20
  button "Green", 2, 0 20 20 20
  button "Blue", 3, 20 0 20 20
  button "Yellow", 4, 40 0 20 20
  button "Orange", 5, 40 20 20 20
  button "Purple", 6, 20 20 20 20
  button "Pink", 7, 20 40 20 20
  button "White", 8, 40 40 20 20
  button "Black", 9, 0 40 20 20
  button "Grey", 10, 60 20 20 20
  button "Gold", 11, 20 60 20 20
  button "Silver", 12, 0 60 20 20
  button "Brown", 13, 60 0 20 20
  button "Beige", 14, 60 40 20 20
  button "Cyan", 15, 40 60 20 20
  button "Indigo", 16, 60 60 20 20
}
on *:dialog:rccolour:sclick:1: {
  set %racecarcolour Red
  dialog -x rccolour rccolour 
}
on *:dialog:rccolour:sclick:2: {
  set %racecarcolour Green
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:3: {
  set %racecarcolour Blue
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:4: {
  set %racecarcolour Yellow
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:5: {
  set %racecarcolour Orange
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:6: {
  set %racecarcolour Purple
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:7: {
  set %racecarcolour Pink
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:8: {
  set %racecarcolour White
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:9: {
  set %racecarcolour Black
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:10: {
  set %racecarcolour Grey
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:11: {
  set %racecarcolour Gold
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:12: {
  set %racecarcolour Silver
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:13: {
  set %racecarcolour Brown
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:14: {
  set %racecarcolour Beige
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:15: {
  set %racecarcolour Cyan
  dialog -x rccolour rccolour
}
on *:dialog:rccolour:sclick:16: {
  set %racecarcolour Indigo
  dialog -x rccolour rccolour
}
on *:dialog:rcneon:sclick:1: {
  set %racecarneon Red
  dialog -x rcneon rcneon 
}
on *:dialog:rcneon:sclick:2: {
  set %racecarneon Green
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:3: {
  set %racecarneon Blue
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:4: {
  set %racecarneon Yellow
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:5: {
  set %racecarneon Orange
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:6: {
  set %racecarneon Purple
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:7: {
  set %racecarneon Pink
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:8: {
  set %racecarneon White
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:9: {
  set %racecarneon Black
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:10: {
  set %racecarneon Grey
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:11: {
  set %racecarneon Gold
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:12: {
  set %racecarneon Silver
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:13: {
  set %racecarneon Brown
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:14: {
  set %racecarneon Beige
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:15: {
  set %racecarneon Cyan
  dialog -x rcneon rcneon
}
on *:dialog:rcneon:sclick:16: {
  set %racecarneon Indigo
  dialog -x rcneon rcneon
}
dialog rrace {
  option dbu
  title "Let's race!"
  size -1 -1 210 250
  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 Races! Click 'Race' to race, which costs money.", 7, 2 15 180 7
  text "Here you can race against other racers, you can win money, but with a risk.", 8, 2 22 200 7
  box "", 9, 3 30 200 200
  text "V1.0 Made in Holland -- By supamagier", 10, 63 243 95 7 
  text "Money:", 11, 6 235 25 7
  edit %racecash, 12, 27 235 45 8, read
  box "", 13, 3 30 200 15
  box "", 27, 3 30 40 200
  button "Race", 14, 8 157 27 12
  button "Race", 15, 8 53 27 12
  button "Race", 16, 8 66 27 12
  button "Race", 17, 8 79 27 12
  button "Race", 18, 8 92 27 12
  button "Race", 19, 8 105 27 12
  button "Race", 20, 8 118 27 12
  button "Race", 21, 8 131 27 12
  button "Race", 22, 8 144 27 12
  button "Race", 23, 8 170 27 12
  button "Race", 24, 8 183 27 12
  button "Race", 25, 8 196 27 12
  button "Race", 26, 8 209 27 12
  box "", 28, 43 30 40 200
  text "Type race", 29, 50 36 60 15
  text "Winning chance", 30, 85 36 60 15
  box "", 31, 83 30 40 200
  box "", 32, 123 30 40 200
  box "", 33, 163 30 40 200
  text "Your stake", 34, 130 36 60 15
  text "Money to win", 35, 166 36 60 15
  text " ", 36, 57 55 50 12
  text " ", 37, 57 55 50 12
  text " ", 38, 57 68 50 12
  text " ", 39, 57 81 50 12
  text " ", 40, 57 94 50 12
  text " ", 41, 57 107 50 12
  text " ", 42, 57 120 50 12
  text " ", 43, 57 133 50 12
  text " ", 44, 57 146 50 12
  text " ", 45, 57 159 50 12
  text " ", 46, 57 172 50 12
  text " ", 47, 57 185 50 12
  text " ", 48, 57 198 50 12
  text "Joyride", 49, 57 211 50 12 
  text " ", 50, 100 232 130 8
  text " ", 51, 97 55 50 12
  text " ", 52, 97 55 50 12
  text " ", 53, 97 68 50 12
  text " ", 54, 97 81 50 12
  text " ", 55, 97 94 50 12
  text " ", 56, 97 107 50 12
  text " ", 57, 97 120 50 12
  text " ", 58, 97 133 50 12
  text " ", 59, 97 146 50 12
  text " ", 60, 97 159 50 12
  text " ", 61, 97 172 50 12
  text " ", 62, 97 185 50 12
  text " ", 63, 97 198 50 12
  text " ", 64, 97 211 50 12
  button "Info                    Info", 65, 125 209 75 12
  text " ", 66, 137 55 50 12
  text " ", 67, 137 68 50 12
  text " ", 68, 137 81 50 12
  text " ", 69, 137 94 50 12
  text " ", 70, 137 107 50 12
  text " ", 71, 137 120 50 12
  text " ", 72, 137 133 50 12
  text " ", 73, 137 146 50 12
  text " ", 74, 137 159 50 12
  text " ", 75, 137 172 50 12
  text " ", 76, 137 185 50 12
  text " ", 77, 137 198 50 7
  text " ", 78, 177 55 50 7
  text " ", 79, 177 68 50 7
  text " ", 80, 177 81 50 7
  text " ", 81, 177 94 50 7
  text " ", 82, 177 107 50 7
  text " ", 83, 177 120 50 7
  text " ", 84, 177 133 50 7
  text " ", 85, 177 146 50 7
  text " ", 86, 177 159 50 7
  text " ", 87, 177 172 50 7
  text " ", 88, 177 185 50 7
  text " ", 89, 177 198 50 7
}
on *:dialog:rrace:sclick:65: { /dialog -md joyinfo joyinfo }
dialog joyinfo {
  option dbu
  title "So you want info"
  size -1 -1 120 50
  text "Joyrides impress other ppl, so they are usefull to make new friends. The 'Winning chance' means with joyride the chance you will get caught by police.", 1, 10 5 100 40
  button "Ok", 2, 45 34 30 12, ok flat
}
on *:dialog:rrace:init:0: {
  if (%in.radio == $null) { set %copc1 0 }
  if (%in.radio == 1) { set %copc1 5 }
  if (%in.radio == 2) { set %copc1 20 }
  if (%in.radio == 3) { set %copc1 35 } 
  did -ra rrace 50 There is %copchance $+ % the police'll catch you.
  did -ra rrace 64 $calc((%copchance * 6) - 10 - %copc1) $+ %
  set %randrwin $rand(1,100)
  if (%sponswin != $null) { set %race1 Drift }
  if (%racewin == 10 || %racewin ==  20 || %racewin == 30 || %racewin == 40 || %racewin == 50 || %racewin == 60 || %racewin == 70 || %racewin == 80 || %racewin == 90 || %racewin == 100) { set %race1 Sponsored }
  if (%race1 == $null || (%racewin != 10) && (%racewin != 20) && (%racewin != 30) && (%racewin != 40) && (%racewin != 50) && (%racewin != 60) && (%racewin != 70) && (%racewin != 80) && (%racewin != 90) && (%racewin != 100)) { set %race1 Drift }
  if (%race2 == $null) { set %race2 Street X }
  if (%race3 == $null) { set %race3 Drag }
  if (%race4 == $null) { set %race4 Sprint }
  if (%race5 == $null) { set %race5 Drag }
  if (%race6 == $null) { set %race6 Circuit }
  if (%race7 == $null) { set %race7 Sprint }
  if (%race8 == $null) { set %race8 Street X }
  if (%race9 == $null) { set %race9 Drift }
  if (%race10 == $null) { set %race10 Circuit }
  if (%race11 == $null) { set %race11 Drag }
  if (%race12 == $null) { set %race12 Street X }
  if (%race13 == $null) { set %race13 Drift }
  if (%in.engine == $null) { set %cwin1 10 }
  if (%in.engine == 1) { set %cwin1 15 }
  if (%in.engine == 2) { set %cwin1 25 }
  if (%in.engine == 3) { set %cwin1 30 }
  if (%in.ecu == $null) { set %cwin2 0 }
  if (%in.ecu == 1) { set %cwin2 5 }
  if (%in.ecu == 2) { set %cwin2 10 }
  if (%in.ecu == 3) { set %cwin2 20 }
  if (%in.turbo == $null) { set %cwin3 0 }
  if (%in.turbo == 1) { set %cwin3 0 }
  if (%in.turbo == 2) { set %cwin3 10 }
  if (%in.turbo == 3) { set %cwin3 20 }
  if (%in.weight == $null) { set %cwin4 0 }
  if (%in.weight == 1) { set %cwin4 5 }
  if (%in.weight == 2) { set %cwin4 10 }
  if (%in.weight == 3) { set %cwin4 15 }
  if (%in.brake == $null) { set %cwin5 0 }
  if (%in.brake == 1) { set %cwin5 5 }
  if (%in.brake == 2) { set %cwin5 10 }
  if (%in.brake == 3) { set %cwin5 15 }
  set %cwint $calc( %cwin1 + %cwin2 + %cwin3 + %cwin4)
  set %cwint $calc(%cwint + 30)
  set %crace1 $calc(%cwint + %cwin5 + 5) | set %cstake1 500
  set %crace3 $calc(%cwint + 10) | set %cstake2 200  
  set %crace4 $calc(%cwint + 15) | set %cstake3 300
  set %crace5 $calc(%cwint + 10) | set %cstake4 400
  set %crace6 $calc(%cwint + 25) | set %cstake5 100
  set %crace7 $calc(%cwint + 20) | set %cstake6 200
  set %crace8 $calc(%cwint + 15) | set %cstake7 700
  set %crace9 $calc(%cwint + 5 + %cwin5) | set %cstake8 300
  set %crace10 $calc(%cwint + 10) | set %cstake9 250
  set %crace11 $calc(%cwint + 15) | set %cstake10 150
  set %crace12 $calc(%cwint + 5) | set %cstake11 100
  set %crace13 $calc(%cwint + %cwin5 - 5) | set %cstake12 700
  if (%crace1 > 140) { set %crace1 100 | set %cstake1 1000 }
  if (%crace3 > 140) { set %crace2 100 | set %cstake2 1200 }
  if (%crace4 > 140) { set %crace3 100 | set %cstake3 2000 }
  if (%crace5 > 140) { set %crace4 100 | set %cstake4 500 }
  if (%crace6 > 140) { set %crace5 100 | set %cstake5 1200 }
  if (%crace7 > 140) { set %crace6 100 | set %cstake6 800 }
  if (%crace8 > 140) { set %crace7 100 | set %cstake7 1600 }
  if (%crace9 > 140) { set %crace8 100 | set %cstake8 2500 }
  if (%crace10 > 140) { set %crace9 100 | set %cstake9 1000 }
  if (%crace11 > 140) { set %crace10 100 | set %cstake10 1000 }
  if (%crace12 > 140) { set %crace11 100 | set %cstake11 2000 }
  if (%crace13 > 140) { set %crace12 100 | set %cstake12 500 }
  if (%crace1 > 100) && (%crace1 < 140) { set %crace1 95 | %set %cstake1 800 }
  if (%crace3 > 100) && (%crace3 < 140) { set %crace3 95 | %set %cstake3 900 }
  if (%crace4 > 100) && (%crace4 < 140) { set %crace4 95 | %set %cstake4 1800 }
  if (%crace5 > 100) && (%crace5 < 140) { set %crace5 95 | %set %cstake5 1000 }
  if (%crace6 > 100) && (%crace6 < 140) { set %crace6 95 | %set %cstake6 300 }
  if (%crace7 > 100) && (%crace7 < 140) { set %crace7 95 | %set %cstake7 1400 }
  if (%crace8 > 100) && (%crace8 < 140) { set %crace8 95 | %set %cstake8 1800 }
  if (%crace9 > 100) && (%crace9 < 140) { set %crace9 95 | %set %cstake9 2000 }
  if (%crace10 > 100) && (%crace10 < 140) { set %crace10 95 | %set %cstake10 900 }
  if (%crace11 > 100) && (%crace11 < 140) { set %crace11 95 | %set %cstake11 800 }
  if (%crace12 > 100) && (%crace12 < 140) { set %crace12 95 | %set %cstake12 100 }
  if (%crace13 > 100) && (%crace13 < 140) { set %crace13 95 | %set %cstake13 1000 }
  if (%racewin == 10 || %racewin ==  20 || %racewin == 30 || %racewin == 40 || %racewin == 50 || %racewin == 60 || %racewin == 70 || %racewin == 80 || %racewin == 90 || %racewin == 100) { set %crace1 $calc(%crace1 - 20) | set %cstake1 $calc(%cstake1 + 1000) }
  set %rwin1 $calc(%cstake1 * $rand(3,4))
  set %rwin2 $calc(%cstake2 * $rand(3,4))
  set %rwin3 $calc(%cstake3 * $rand(3,4))
  set %rwin4 $calc(%cstake4 * $rand(3,4))
  set %rwin5 $calc(%cstake5 * $rand(3,4))
  set %rwin6 $calc(%cstake6 * $rand(3,4))
  set %rwin7 $calc(%cstake7 * $rand(3,4))
  set %rwin8 $calc(%cstake8 * $rand(3,4))
  set %rwin9 $calc(%cstake9 * $rand(3,4))
  set %rwin10 $calc(%cstake10 * $rand(3,4))
  set %rwin11 $calc(%cstake11 * $rand(3,4))
  set %rwin12 $calc(%cstake12 * $rand(3,4))
  did -ra rrace 37 %race1
  did -ra rrace 38 %race3
  did -ra rrace 39 %race4
  did -ra rrace 40 %race5
  did -ra rrace 41 %race6
  did -ra rrace 42 %race7
  did -ra rrace 43 %race8
  did -ra rrace 44 %race9
  did -ra rrace 45 %race10
  did -ra rrace 46 %race11
  did -ra rrace 47 %race12
  did -ra rrace 48 %race13
  did -ra rrace 52 %crace1 $+ %
  did -ra rrace 53 %crace3 $+ % 
  did -ra rrace 54 %crace4 $+ %
  did -ra rrace 55 %crace5 $+ %
  did -ra rrace 56 %crace6 $+ %
  did -ra rrace 57 %crace7 $+ %
  did -ra rrace 58 %crace8 $+ %
  did -ra rrace 59 %crace9 $+ %
  did -ra rrace 60 %crace10 $+ %
  did -ra rrace 61 %crace11 $+ %
  did -ra rrace 62 %crace12 $+ %
  did -ra rrace 63 %crace13 $+ %
  did -ra rrace 66 %cstake1
  did -ra rrace 67 %cstake2
  did -ra rrace 68 %cstake3
  did -ra rrace 69 %cstake4
  did -ra rrace 70 %cstake5
  did -ra rrace 71 %cstake6
  did -ra rrace 72 %cstake7
  did -ra rrace 73 %cstake8
  did -ra rrace 74 %cstake9
  did -ra rrace 75 %cstake10
  did -ra rrace 76 %cstake11
  did -ra rrace 77 %cstake12
  did -ra rrace 78 %rwin1
  did -ra rrace 79 %rwin2
  did -ra rrace 80 %rwin3
  did -ra rrace 81 %rwin4
  did -ra rrace 82 %rwin5
  did -ra rrace 83 %rwin6
  did -ra rrace 84 %rwin7
  did -ra rrace 85 %rwin8
  did -ra rrace 86 %rwin9
  did -ra rrace 87 %rwin10
  did -ra rrace 88 %rwin11
  did -ra rrace 89 %rwin12
}
on *:dialog:rrace:sclick:15: {
  if ($calc(%racecash - %cstake1) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake1)
  did -ra rrace 12 %racecash
  set %rtype %crace1
  set %rwin %rwin1
  dialog -md racing racing
}
on *:dialog:rrace:sclick:16: {
  if ($calc(%racecash - %cstake2) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake2)
  set %rtype %crace3
  did -ra rrace 12 %racecash
  set %rwin %rwin2
  dialog -md racing racing
}
on *:dialog:rrace:sclick:17: {
  if ($calc(%racecash - %cstake3) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake3)
  set %rtype %crace4
  set %rwin %rwin3
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:18: {
  if ($calc(%racecash - %cstake4) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake4)
  set %rtype %crace5
  set %rwin %rwin4
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:19: {
  if ($calc(%racecash - %cstake5) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake5)
  set %rtype %crace6
  set %rwin %rwin5
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:20: {
  if ($calc(%racecash - %cstake6) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake6)
  set %rtype %crace7
  set %rwin %rwin6
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:21: {
  if ($calc(%racecash - %cstake7) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake7)
  set %rtype %crace8
  set %rwin %rwin7
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:22: {
  if ($calc(%racecash - %cstake8) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake8)
  set %rtype %crace9
  set %rwin %rwin8
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:14: {
  if ($calc(%racecash - %cstake9) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake9)
  set %rtype %crace10
  set %rwin %rwin9
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:23: {
  if ($calc(%racecash - %cstake10) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake10)
  set %rtype %crace11
  set %rwin %rwin10
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:24: {
  if ($calc(%racecash - %cstake11) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake11)
  set %rtype %crace12
  set %rwin %rwin11
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
on *:dialog:rrace:sclick:25: {
  if ($calc(%racecash - %cstake12) < 0) { dialog -md rnocash rnocash | halt }
  set %racecash $calc(%racecash - %cstake12)
  set %rtype %crace13
  set %rwin %rwin12
  did -ra rrace 12 %racecash
  dialog -md racing racing
}
dialog racing {
  option dbu
  Title "Racing"
  size -1 -1 120 50
  text " ", 1, 20 15 100 7
  button "Cancel", 2, 45 34 30 12
}
on *:dialog:racing:sclick:2: {
  if (%raceend == 1) {
    set %raceend 0
    inc %racelose
    set %raceresp $calc(%raceresp - 1)
    if (%raceresp < 0) { set %raceresp 0 }
  }
  timers off
  dialog -x racing racing
  did -ra rrace 12 %racecash
}
on *:dialog:rrace:sclick:26: { dialog -md racing2 racing2 }
on *:dialog:racing:init:0: {
  set %randrwin $rand(1,100)
  set %raceend 1
  did -ra racing 1 Staking money...
  timer 1 2 did -ra racing 1 Driving to the startline...
  timer 1 4 did -ra racing 1 Started! Racing...
  timer 1 6 did -ra racing 1 Racing...
  if (%randrwin >= $calc(%rtype + 10)) {
    timerrace1 1 15 did -ra racing 1 You lost! Too bad... You end on place $rand(2,6) $+ . 
    timerrace2 1 15 set %raceend 0
    timerrace3 1 15 inc %racelose
    timerrace4 1 15 set %raceresp $calc(%raceresp - 1)
    if (%raceresp < 0) { timer 1 16 set %raceresp 0 }
  }
  if (%randrwin <= 10) {  
    timer 1 12 did -ra racing 1 Oh Oh! The police caught you! 
    timer 1 15 did -ra racing 1 You lost 200.
    if ($calc(%racecash - 200) < 0) { timerrace1 1 15 set %racecash 0 }
    else { timerrace1 1 15 set %racecash $calc(%racecash - 200) }
    timerrace2 1 16 did -ra rrace 12 %racecash
    set %raceend 0
  }
  if (%randrwin <= $calc(%rtype + 10)) && (%randrwin > 10) {
    timer 1 15 did -ra racing 1 You won %rwin $+ ! Congratz!
    timerrace1 1 16 set %racecash $calc(%racecash + %rwin)
    timerrace2 1 16 set %raceend 0
    timerrace3 1 16 inc %racewin
    timerrace4 1 16 set %raceresp $calc(%raceresp + 2)
    if (%raceresp > 100) { timer 1 17 set %raceresp 100 }
  }
  timerrace0 1 17 did -ra racing 2 Ok
  if (%raceresp < 0) { timer 1 17 set %raceresp 0 }
  if (%raceresp > 100) { timer 1 17 set %raceresp 100 }
}
dialog racing2 {
  option dbu
  Title "Enjoy your ride!"
  size -1 -1 120 50
  text " ", 1, 20 15 100 7
  button "Cancel", 2, 45 34 30 12
}
on *:dialog:racing2:sclick:2: {
  if (%raceend == 1) {
    set %raceend 0
    set %raceresp $calc(%raceresp - 5)
    if (%raceresp < 0) { set %raceresp 0 }
  }
  timers off
  dialog -x racing2 racing2
  did -ra rrace 12 %racecash
}

on *:dialog:racing2:init:0: {
  set %randrwin $rand(1,100)
  set %raceend 1
  did -ra racing2 1 Let's race!
  timer 1 2 did -ra racing2 1 First find some ppl...
  timer 1 8 did -ra racing2 1 You found $rand(4,8) ppl to impress.
  timer 1 10 did -ra racing2 1 Racing...
  if ($calc((%copchance *6) - 10 - %copc1) > %randrwin) { 
    timer 1 13 did -ra racing2 1 The police caught you!
    timer 1 14 did -ra racing2 1 Watch out better next time!
    timer 1 15 did -ra racing2 1 You lost 500!
    timer 1 15 set %racecash $calc(%racecash - 500)
    timer 1 16 set %raceend 0
  }
  if ($calc((%copchance * 6) - 10 - %copc1) < %randrwin) {
    timer 1 13 did -ra racing2 1 They're loving it!
    timer 1 14 did -ra racing2 1 Your gaining respect!
    set %grespect $rand(1,4)
    timer 1 16 did -ra racing2 1 You gained %grespect $+ % respect.
    timer 1 2 set %raceresp $calc(%raceresp + %grespect)
    timer 1 16 set %raceend 0
  }
  if (%raceresp > 100) { timer 1 16 set %raceresp 100 }
  timer 1 16 did -ra racing2 2 Ok
}
dialog rfriend {
  option dbu
  title "Friends (Your lonely?)"
  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 Friends menu!", 7, 2 15 150 7
  text "Here you can see your friend-stats, and ask them things, like money, respect. You can't do the same thing twice within a few mins.", 8, 2 22 190 14
  text "Number of Friends:", 9, 4 45 50 7
  edit " ", 10, 3 53 50 11, read
  text "Amount of Cash:", 11, 4 72 50 7
  edit " ", 12, 3 80 50 11, read
  text "Favours done 2 you:", 13, 4 99 60 7
  edit " ", 14, 3 107 50 11, read
  text "Respect:", 15, 4 126 50 7
  edit " ", 16, 3 134 50 11, read
  text "Money gotten", 17, 4 153 50 7
  edit " ", 18, 3 161 50 11, read
  text "V1.0 Made in Holland -- By supamagier", 19, 63 203 95 7
  text "I need money", 20, 70 45 50 7
  edit "Amount of cash?", 21, 70 53 50 11
  button "Ask", 22, 125 53 45 11
  text "There is a small chance any of your friends'll give you the money you need. With more friends, this chance'll increase.", 23, 65 67 150 15
  text "Let's have fun!", 24, 70 90 50 7
  button "Invite friends", 25, 120 88 50 11
  text "With this there is like 25% chance your friends will give you a (high) reward, in cash or in respect.", 26, 65 99 150 15
  text "I'm lonely! =(", 27, 70 122 50 7
  button "meet people", 28, 120 120 50 11
  text "Press the button for a friend; 15% chance on a new friend, 10% chance they're not so nice and steal some cash.", 29, 65 132 150 15
  text "Information:", 30, 65 153 150 7
  text "Friends are very usefull, you can ask them money if your poor and they can give you respect. For new friends:         I) Win races, don't lose. II) Complete challanges successfull. III) Press the button above. IV) Have Joyrides.", 31, 65 160 145 40
}
on *:dialog:rfriend:sclick:28: {
  if (%noask3 == 0) { halt }
  set %randcwin $rand(1,100)
  if (%randcwin < 16) { did -ra rfriend 29 Congratz! You made a new friend! | inc %racefrnds }
  if (%randcwin < 26) && (%randcwin > 15) { 
    if ($calc(%racecash - 500) < 0) { did -ra rfriend 29 They stole %racecash $+ ! | set %racecash 0 }
  else { did -ra rfriend 29 They stole 500! | set %racecash $calc(%racecash - 500) } }
  if (%randcwin > 25) { did -ra rfriend 29 Too bad, nothing interesting happened. }
  timer 1 5 did -ra rfriend 29 Press the button for a friend; 15% chance on a new friend, 10% chance they're not so nice and steal some cash.
  did -ra rfriend 10 %racefrnds
  did -ra rfriend 12 %racecash
  set %noask3 0
  timer 1 30 set %noask3 1
}


on *:dialog:rfriend:sclick:25: {
  if (%noask2 == 0) { did -ra rfriend 21 Friends: Not now! | halt }
  set %noask2 0
  set %randcwin $rand(1,100)
  set %rand25 $rand(20,30)
  if (%rand25 < %randcwin) {
    set %randcwin $rand(1,2)
    if (%randcwin == 1) { set %randccash $rand(1,10)
      if (%randccash <= 7) { set %racecash $calc(%racecash + 200) | set %rfcash $calc(%rfcash + 200) | did -ra rfriend 21 They gave 200! }
      if (%randccash == 8) { set %racecash $calc(%racecash + 1000 | set %rfcash $calc(%rfcash + 1000) | did -ra rfriend 21 They gave 1000! }
    if (%randccash >= 9) { set %racecash $calc(%racecash + 500 | set %rfcash $calc(%rfcash + 500) | did -ra rfriend 21 They gave 500! } }
    if (%randcwin == 2) { set %rrresp $rand(2,7) | set %raceresp $calc(%raceresp + %rrresp) }
  }
  else { did -ra rfriend 21 Nothing, try again later. }
  timer 1 150 set %noask2 1
  did -ra rfriend 18 %rfcash
  did -ra rfriend 16 %raceresp
  did -ra rfriend 12 %racecash
}
on *:dialog:rfriend:sclick:22: {
  if (%noask == 0) { did -ra rfriend 21 Not so fast! | halt }
  if ($did(21) isnum) {
    set %randcwin $rand(1,100)
    if (%racecash <= 300) && ($did(21) <= 1000) {
      set %racecash $calc(%racecash + $did(21))
      did -ra rfriend 21 You got it! 
      did -ra rfriend 11 %racecash 
      set %rfcash $calc(%rfcash + $did(21)) 
      did -ra rfriend 18 %rfcash 
    set %noask 0 | timer 1 150 set %noask 1 | halt }
    if ($calc(%racefrnds * 4) > 50) { set %fcchan 50 }
    if ($calc(%racefrnds * 4) =< 50) { set %fcchan $calc(%racefrnds * 5) }
    if (%racefrnds == 0) { set %fcchan 5 }
    set %fcchan $calc(%fcchan + %fcchan1 + %fcchan2 + %fcchan3 + %fcchan4 + %fcchan5)
    if (%randcwin < %fcchan) && ($did(21) =< 1000) {
      set %racecash $calc(%racecash + $did(21))
      set %rfcash $calc(%rfcash + $did(21))
      did -ra rfriend 11 %racecash
      did -ra rfriend 18 %rfcash
      set %noask 0 | timer 1 150 set %noask 1
    }
    if (%randcwin < %fcchan) && ($did(21) > 1000) {
    did -ra rfriend 21 Too much! }
    if (%randcwin > %fcchan) { did -ra rfriend 21 They won't give! | set %noask 0 | timer 1 300 set %noask 1 }
  }
  else { did -ra rfriend 21 Fill in a number! }
}
on *:dialog:rfriend:init:0: {
  if (%in.rim == $null) { set %fcchan1 0 }
  if (%in.rim == 1) { set %fcchan1 2 }
  if (%in.rim == 2) { set %fcchan1 5 }
  if (%in.rim == 3) { set %fcchan1 8 }
  if (%in.look == $null) { set %fcchan2 0 }
  if (%in.look == 1) { set %fcchan2 3 }
  if (%in.look == 2) { set %fcchan2 5 }
  if (%in.look == 3) { set %fcchan2 8 }
  if (%racecarcolour != $null) { set %fcchan3 3 }
  if (%racecarneon != $null) { set %fcchan4 3 }
  if (%in.box == $null) { set %fcchan5 0 }
  if (%in.box == 1) { set %fcchan5 4 }
  if (%in.box == 2) { set %fcchan5 6 }
  if (%in.box == 3) { set %fcchan5 8 }
  if (%rfavs == $null) { set %rfavs 0 }
  if (%fcchan == $null) { set %fcchan 0 }
  did -ra rfriend 10 %racefrnds
  did -ra rfriend 12 %racecash
  did -ra rfriend 14 %rfavs
  did -ra rfriend 16 %raceresp $+ /100%
  did -ra rfriend 18 %rfcash
}
dialog rgarage {
  option dbu
  title "Garage - Bought stuff?"
  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 wonderfull world of racing!", 8, 2 18 105 7
}