rendered paste bodymenu * {
.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
}