Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Atariman
#1
[Image: Atariman-screenshot.png]

(I'm not sure if this should be considered a "program" , or a "game"   so I'm going to post under both threads.) 

This is what I call "Atariman", it is my own lite version of 1985's "Little computer people"  by David Crane. Atariman is a character I created for an Atari 2600 game I created in  the batari language.

I have included an executable file and a screen saver file (.scr) so you can run it directly or set it as a screen saver. it does not save your progress, you do not have to feed him and what not like in the original.
Atariman will keep himself busy by watching his fish tank, making music, watching T.V. typing up his book, and more.

Here is a list of keyboard commands:

ESC Exit program
u Unmute
m mute
w Wake up
Arrow up Volume up
Arrow down Volume down
Arrow left Previous track / tv channel
Arrow right Next track / tv channel

To install the screen saver unzip the Atariman folder and right click on the .scr file and choose "Install". The screen saver starts up having the volume muted.

- kn0ne

Code: (Select All)
Option _Explicit


Const CYAN = _RGB32(0, 255, 255)
Const LIGHTCYAN = _RGB32(0, 123, 252)
Const PURPLE = _RGB32(56, 0, 177)
Const BRIGHTPURPLE = _RGB32(205, 0, 238)
Const YELLOW = _RGB32(255, 255, 0)
Const LIGHTYELLOW = _RGB32(255, 255, 139)
Const DARKYELLOW = _RGB32(216, 216, 83)
Const BRIGHTRED = _RGB32(255, 0, 0)
Const RED = _RGB32(177, 0, 0)
Const DARKRED = _RGB32(144, 0, 0)
Const ORANGE = _RGB32(255, 72, 67)
Const BRIGHTGREEN = _RGB32(0, 255, 0)
Const DARKGREEN = _RGB32(0, 61, 0)
Const GREEN = _RGB32(0, 122, 0)
Const BLUE = _RGB32(0, 0, 255)
Const LIGHTBLUE = _RGB32(0, 83, 255)
Const WHITE = _RGB32(255, 255, 255)
Const GRAY = _RGB32(127, 127, 127)
Const LIGHTGRAY = _RGB32(0, 200, 0)
Const DARKGRAY = _RGB32(0, 100, 0)
Const BLACK = _RGB32(0, 0, 0)

Dim Shared fntComputerSm&
Dim Shared fntComputerXtSm&
Dim Shared fntComputer&
Dim Shared fntComputerLg&


fntComputer& = _LoadFont("fonts\Computerfont.ttf", 16)
fntComputerSm& = _LoadFont("fonts\Computerfont.ttf", 8)
fntComputerXtSm& = _LoadFont("fonts\Computerfont.ttf", 4)
fntComputerLg& = _LoadFont("fonts\Computerfont.ttf", 32)

Dim Shared offHook%

Dim Shared num As Single
Dim Shared tvchanel As Single

Dim Shared tvtrig%

Dim Shared ampm$
Dim Shared paper&
Dim Shared papertrig As Integer

Dim Shared typew&
typew& = _SndOpen("sounds\typewriter\typewriter.mp3", "stream")
Dim Shared tvsnd1&
tvsnd1& = _SndOpen("sounds\tv\tv_1.mp3", "stream")
Dim Shared tvsnd2&
tvsnd2& = _SndOpen("sounds\tv\tv_2.mp3", "stream")
Dim Shared tvsnd3&
tvsnd3& = _SndOpen("sounds\tv\tv_3.mp3", "stream")
Dim Shared tvsnd4&
tvsnd4& = _SndOpen("sounds\tv\tv_4.mp3", "stream")
Dim Shared tvsnd5&
tvsnd5& = _SndOpen("sounds\tv\tv_5.mp3", "stream")
Dim Shared tvsnd6&
tvsnd6& = _SndOpen("sounds\tv\tv_6.mp3", "stream")
Dim Shared tvsnd7&
tvsnd7& = _SndOpen("sounds\tv\tv_7.mp3", "stream")
Dim Shared tvsnd8&
tvsnd8& = _SndOpen("sounds\tv\tv_8.mp3", "stream")
Dim Shared tvsnd9&
tvsnd9& = _SndOpen("sounds\tv\tv_9.mp3", "stream")
Dim Shared tvsnd10&
tvsnd10& = _SndOpen("sounds\tv\tv_10.mp3", "stream")
Dim Shared tvsnd11&
tvsnd11& = _SndOpen("sounds\tv\tv_11.mp3", "stream")
Dim Shared tvsnd12&
tvsnd12& = _SndOpen("sounds\tv\tv_12.mp3", "stream")
Dim Shared tvsnd13&
tvsnd13& = _SndOpen("sounds\tv\tv_13.mp3", "stream")
Dim Shared tvsnd14&
tvsnd14& = _SndOpen("sounds\tv\tv_14.mp3", "stream")
Dim Shared tvsnd15&
tvsnd15& = _SndOpen("sounds\tv\tv_15.mp3", "stream")
Dim Shared tvsnd16&
tvsnd16& = _SndOpen("sounds\tv\tv_16.mp3", "stream")
Dim Shared tvsnd17&
tvsnd17& = _SndOpen("sounds\tv\tv_17.mp3", "stream")
Dim Shared tvsnd18&
tvsnd18& = _SndOpen("sounds\tv\tv_18.mp3", "stream")
Dim Shared tvsnd19&
tvsnd19& = _SndOpen("sounds\tv\tv_19.mp3", "stream")
Dim Shared tvsnd20&
tvsnd20& = _SndOpen("sounds\tv\tv_20.mp3", "stream")
Dim Shared tvsnd21&
tvsnd21& = _SndOpen("sounds\tv\tv_21.mp3", "stream")
Dim Shared tvsnd22&
tvsnd22& = _SndOpen("sounds\tv\tv_22.mp3", "stream")
Dim Shared tvsnd23&
tvsnd23& = _SndOpen("sounds\tv\tv_23.mp3", "stream")
Dim Shared tvsnd24&
tvsnd24& = _SndOpen("sounds\tv\tv_24.mp3", "stream")
Dim Shared tvsnd25&
tvsnd25& = _SndOpen("sounds\tv\tv_25.mp3", "stream")
Dim Shared tvsnd26&
tvsnd26& = _SndOpen("sounds\tv\tv_26.mp3", "stream")

Dim Shared mutecity&
mutecity& = _SndOpen("sounds\synth\videoGames\mutecity.mp3", "stream")
Dim Shared mutecity$
mutecity$ = "mute city.mp3"
Dim Shared redsoil&
redsoil& = _SndOpen("sounds\synth\videoGames\redsoil.mp3", "stream")
Dim Shared redsoil$
redsoil$ = "red soil.mp3"
Dim Shared hostsngoblins&
hostsngoblins& = _SndOpen("sounds\synth\videoGames\hostsngoblins.mp3", "stream")
Dim Shared hostsngoblins$
hostsngoblins$ = "hosts n goblins.mp3"
Dim Shared drMario&
drMario& = _SndOpen("sounds\synth\videoGames\DrMario.mp3", "stream")
Dim Shared drMario$
drMario$ = "Dr Mario.mp3"
Dim Shared Halo&
Halo& = _SndOpen("sounds\synth\videoGames\Gangsters In Arms Halo.mp3", "stream")
Dim Shared Halo$
Halo$ = "Gangsters In Arms Halo.mp3"
Dim Shared mrsaturn&
mrsaturn& = _SndOpen("sounds\synth\videoGames\mrsaturn.mp3", "stream")
Dim Shared mrsaturn$
mrsaturn$ = "mr saturn.mp3"
Dim Shared SuperMarioBros3&
SuperMarioBros3& = _SndOpen("sounds\synth\videoGames\SuperMarioBros3.mp3", "stream")
Dim Shared SuperMarioBros3$
SuperMarioBros3$ = "Super Mario Bros. 3.mp3"
Dim Shared decisivebattle&
decisivebattle& = _SndOpen("sounds\synth\videoGames\decisivebattle.mp3", "stream")
Dim Shared decisivebattl$
decisivebattl$ = "decisive battle.mp3"
Dim Shared Earthbound&
Earthbound& = _SndOpen("sounds\synth\videoGames\Adventure in Twoson Earthbound.mp3", "stream")
Dim Shared Earthbound$
Earthbound$ = "Adventure in Twoson (Earthbound).mp3"
Dim Shared streetsofdesolation&
streetsofdesolation& = _SndOpen("sounds\synth\videoGames\streetsofdesolation.mp3", "stream")
Dim Shared streetsofdesolation$
streetsofdesolation$ = "streets of desolation.mp3"
Dim Shared Woooooaaaaagh&
Woooooaaaaagh& = _SndOpen("sounds\synth\videoGames\Woooooaaaaagh!!.mp3", "stream")
Dim Shared Woooooaaaaagh$
Woooooaaaaagh$ = "Woooooaaaaagh!!.mp3"
Dim Shared SuperMarioLand&
SuperMarioLand& = _SndOpen("sounds\synth\videoGames\Super Mario Land.mp3", "stream")
Dim Shared SuperMarioLand$
SuperMarioLand$ = "Super Mario Land Stage 4.mp3"
Dim Shared marblemadnass&
marblemadnass& = _SndOpen("sounds\synth\videoGames\marblemadnass.mp3", "stream")
Dim Shared marblemadnass$
marblemadnass$ = "marble madnass.mp3"
Dim Shared SuperMarioLandlevel1&
SuperMarioLandlevel1& = _SndOpen("sounds\synth\videoGames\Super Mario Land level 1.mp3", "stream")
Dim Shared SuperMarioLandlevel1$
SuperMarioLandlevel1$ = "Super Mario Land Stage 1.mp3"
Dim Shared thetrial&
thetrial& = _SndOpen("sounds\synth\videoGames\thetrial.mp3", "stream")
Dim Shared thetrial$
thetrial$ = "the trial.mp3"
Dim Shared themoon&
themoon& = _SndOpen("sounds\synth\videoGames\themoon.mp3", "stream")
Dim Shared themoon$
themoon$ = "the moon.mp3"
Dim Shared SuperMarioBros3bitgen&
SuperMarioBros3bitgen& = _SndOpen("sounds\synth\videoGames\Super Mario Bros. 3 bitgen.mp3", "stream")
Dim Shared SuperMarioBros3bitgen$
SuperMarioBros3bitgen$ = "Super Mario Bros. 3 bitgen.mp3"
Dim Shared ChronoTrigger&
ChronoTrigger& = _SndOpen("sounds\synth\videoGames\Chrono Trigger.mp3", "stream")
Dim Shared ChronoTrigger$
ChronoTrigger$ = "Chrono Trigger.mp3"
Dim Shared Buskerdroid_Blast&
Buskerdroid_Blast& = _SndOpen("sounds\synth\videoGames\Buskerdroid_-_01_-_Blast.mp3", "stream")
Dim Shared Buskerdroid_Blast$
Buskerdroid_Blast$ = "Buskerdroid_-_01_-_Blast.mp3"
Dim Shared Buskerdroid_Gameboy_Love&
Buskerdroid_Gameboy_Love& = _SndOpen("sounds\synth\videoGames\Buskerdroid_-_02_-_Gameboy_Love.mp3", "stream")
Dim Shared Buskerdroid_Gameboy_Love$
Buskerdroid_Gameboy_Love$ = "Buskerdroid_-_02_-_Gameboy_Love.mp3"
Dim Shared Buskerdroid_God_Bless_His_Mess&
Buskerdroid_God_Bless_His_Mess& = _SndOpen("sounds\synth\videoGames\Buskerdroid_-_03_-_God_Bless_His_Mess.mp3", "stream")
Dim Shared Buskerdroid_God_Bless_His_Mess$
Buskerdroid_God_Bless_His_Mess$ = "Buskerdroid_-_03_-_God_Bless_His_Mess.mp3"
Dim Shared Buskerdroid_3Distortion&
Buskerdroid_3Distortion& = _SndOpen("sounds\synth\videoGames\Buskerdroid_-_04_-_3Distortion.mp3", "stream")
Dim Shared Buskerdroid_3Distortion$
Buskerdroid_3Distortion$ = "Buskerdroid_-_04_-_3Distortion.mp3"
Dim Shared Buskerdroid_I_Want_You&
Buskerdroid_I_Want_You& = _SndOpen("sounds\synth\videoGames\Buskerdroid_-_05_-_I_Want_You.mp3", "stream")
Dim Shared Buskerdroid_I_Want_You$
Buskerdroid_I_Want_You$ = "Buskerdroid_-_05_-_I_Want_You.mp3"

Dim Shared sndWalk&
sndWalk& = _SndOpen("sounds\walking\walk3.mp3", "stream")
Dim Shared sleeeep&
sleeeep& = _SndOpen("sounds\sleep\sleep1.mp3", "stream")
Dim Shared sndCook&
sndCook& = _SndOpen("sounds\kitchen\cooking.mp3", "stream")
Dim Shared sndEat&
sndEat& = _SndOpen("sounds\kitchen\eat.mp3", "stream")
Dim Shared sndBurp&
sndBurp& = _SndOpen("sounds\kitchen\burp.mp3", "stream")
Dim Shared sndDishWash&
sndDishWash& = _SndOpen("sounds\kitchen\dishWash.mp3", "stream")

Dim Shared sndBathDoorClose&
sndBathDoorClose& = _SndOpen("sounds\bathroom\bathroomDoorClose.mp3", "stream")

Dim Shared sndBathDoorOpen
sndBathDoorOpen = _SndOpen("sounds\bathroom\bathroomDoorOpen.mp3", "stream")

Dim Shared sndFlush&
sndFlush& = _SndOpen("sounds\bathroom\flush.mp3", "stream")

Dim Shared sndPoop&
sndPoop& = _SndOpen("sounds\bathroom\poop.mp3", "stream")

Dim Shared sndWashHands&
sndWashHands& = _SndOpen("sounds\bathroom\washHands.mp3", "stream")

Dim Shared sndBrushTeeth&

sndBrushTeeth& = _SndOpen("sounds\bathroom\brushTeeth.mp3", "stream")

Dim Shared mute%

'                                _KEYDOWN Keyboard Values
'
' Esc  F1    F2    F3    F4    F5    F6    F7    F8    F9    F10   F11   F12   Sys  ScL Pause
'  27 15104 15360 15616 15872 16128 16384 16640 16896 17152 17408 34048 34304 +316 +302 +019
' `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp   Ins   Hme   PUp   NumL   /     *    -
' 126 33  64  35  36  37  94  38  42  40  41 95 43   8   20992 18176 18688 +300   47    42   45
'  96 49  50  51  52  53  54  55  56  57  48 45 61
' Tab Q   W   E   R   T   Y   U   I   O   P  [{  ]}  \|   Del   End   PDn   7Hme  8/?   9PU   +
'  9  81  87  69  82  84  89  85  73  79  80 123 125 124 21248 20224 20736 18176 18432 18688 43
'    113 119 101 114 116 121 117 105 111 112  91  93  92                    55    56    57
' CapL   A   S   D   F   G   H   J   K   L   ;:  '" Enter                   4/?-   5    6/-?
' +301  65  83  68  70  71  72  74  75  76  58  34  13                     19200 19456 19712  E
'       97 115 100 102 103 104 106 107 108  59  39                          52    53    54    n
' Shift   Z   X   C   V   B   N   M   ,<  .>  /?    Shift       ?           1End  2/?   3PD   t
' +304   90  88  67  86  66  78  77  60  62  63    +303       18432        20224 20480 20736  e
'       122 120  99 118  98 110 109  44  46  47                             49    50    51    r
' Ctrl   Win  Alt     Spacebar      Alt  Win  Menu  Ctrl   ?-   ?   -?      0Ins        .Del
' +306  +311 +308       32         +307 +312 +319  +305 19200 20480 19712  20992       21248 13
'                                                                           48          46
'
'          Lower value = LCase/NumLock On __________________ + = add 100000

Const dKey = 100
Const DkeyCap = 68

Const mKey = 109 'mute      (m)
Const qKey = 113 'quite     (q)
Const uKey = 117 'unMute    (u)

Const WKeyCap = 87 'mute      (W)
Const wKey = 119 'mute      (w)

Const upKey = 18432 'up key press
Const dwKey = 20480 'down key press
Const ltKey = 19200 'left key
Const rtKey = 19712 'right key

Const pgUpKey = 18688 'page up key
Const pgDwKey = 20736 'page down key

Dim Shared btimer%

Dim Shared volSet As Single

num = 26

Dim Shared tvc As Single
Randomize Timer
tvc = Int(myRandom(num))
Dim Shared srt% ' start trigger
srt% = 1
Dim Shared tvcv As Single ' tv chan veiw
tvcv = tvc

Dim Shared syntrc%
num = 5
syntrc% = Int(myRandom(num))

Dim Shared background_morning&
background_morning& = _LoadImage("background\LCP_morning_bk.png", 32)

Dim Shared background_day&
background_day& = _LoadImage("background\LCP_noon_bk.png", 32)

Dim Shared background_eve&
background_eve& = _LoadImage("background\LCP_eve_bk.png", 32)

Dim Shared background_night&
background_night& = _LoadImage("background\LCP_night_bk.png", 32)

Dim Shared background420&
background420& = _LoadImage("background\LCP_420_bk.png", 32)

Dim Shared sybthboard&
sybthboard& = _LoadImage("background\am_synthboaedsm.png ", 32)

Dim Shared atarilogo&
atarilogo& = _LoadImage("background\atari_logo_2.png ", 32)

Dim Shared telephone&
telephone& = _LoadImage("background\telephone.png ", 32)

Dim Shared telephoneOffHook&
telephoneOffHook& = _LoadImage("background\telephone_offHook.png ", 32)

Dim Shared rocket&
rocket& = _LoadImage("background\rocket.png ", 32)

Dim Shared monster&
monster& = _LoadImage("background\monster.png ", 32)

Dim Shared actionFigure&
actionFigure& = _LoadImage("background\actionFigure.png ", 32)

Dim Shared openBathDoor&
openBathDoor& = _LoadImage("background\bathroomDoorOpen1.png", 32)

Dim Shared dish&
dish& = _LoadImage("sprite\dish.png", 32)

Dim Shared dishDone&
dishDone& = _LoadImage("sprite\dishDone.png", 32)

Dim Shared blimpRt&
blimpRt& = _LoadImage("background\blimp_1.png", 32)

Dim Shared blimpLt&
blimpLt& = _LoadImage("background\blimp_2.png", 32)

Dim Shared blimpSmRt&
blimpSmRt& = _LoadImage("background\blimpSm_1.png", 32)

Dim Shared blimpSmLt&
blimpSmLt& = _LoadImage("background\blimpSm_2.png", 32)


Dim Shared blimpXtSmRt&
blimpXtSmRt& = _LoadImage("background\blimpXtSmRt.png", 32)

Dim Shared blimpXtSmLt&
blimpXtSmLt& = _LoadImage("background\blimpXtSmLt.png", 32)

Dim Shared hillRt&
hillRt& = _LoadImage("background\hills_2a.png ", 32)

Dim Shared hillLt&
hillLt& = _LoadImage("background\hills_2b.png ", 32)

Dim Shared aquarium&
aquarium& = _LoadImage("background\aquarium.png", 32)

Dim Shared bathDoorOccupied&
bathDoorOccupied& = _LoadImage("background\bathDoorOcupied.png", 32)

Dim Shared fish1&
fish1& = _LoadImage("background\fish1.png", 32)

Dim Shared fish2&
fish2& = _LoadImage("background\fish2.png", 32)

Dim Shared fish3&
fish3& = _LoadImage("background\fish3.png", 32)

Dim Shared fish4&
fish4& = _LoadImage("background\fish2.png", 32)

Dim Shared fish5&
fish5& = _LoadImage("background\fish2.png", 32)

Dim Shared fish6&
fish6& = _LoadImage("background\fish2.png", 32)

Dim Shared fish7&
fish7& = _LoadImage("background\fish2.png", 32)

Dim Shared fish8&
fish8& = _LoadImage("background\fish4.png", 32)

Dim Shared cloud1&
cloud1& = _LoadImage("background\cloud_1.png ", 32)

Dim Shared cloud2&
cloud2& = _LoadImage("background\cloud_2.png ", 32)

Dim Shared cloud3&
cloud3& = _LoadImage("background\cloud_3.png ", 32)

Dim Shared cloud4&
cloud4& = _LoadImage("background\cloud_4.png ", 32)

Dim Shared cloud5&
cloud5& = _LoadImage("background\cloud_5.png ", 32)

Dim Shared cloud6&
cloud6& = _LoadImage("background\cloud_6.png ", 32)

Dim Shared cloud7&
cloud7& = _LoadImage("background\cloud_7.png ", 32)

Dim Shared c1x As Single
Dim Shared c1y As Single
Dim Shared c2x As Single
Dim Shared c2y As Single
Dim Shared c3x As Single
Dim Shared c3y As Single
Dim Shared c4x As Single
Dim Shared c4y As Single
Dim Shared c5x As Single
Dim Shared c5y As Single
Dim Shared c6x As Single
Dim Shared c6y As Single
Dim Shared c7x As Single
Dim Shared c7y As Single

Randomize Timer

c1x = (Rnd * 1200) + 100
c1y = (Rnd * 50) + 10
c2x = (Rnd * 1600) + 200
c2y = (Rnd * 50) + 5
c3x = (Rnd * 1740) + 400
c3y = (Rnd * 50) + 5
c4x = (Rnd * 1680) + 125
c4y = (Rnd * 50) + 5
c5x = (Rnd * 1200) + 100
c5y = (Rnd * 50) + 5
c6x = (Rnd * 1850) + 35
c6y = (Rnd * 50) + 5
c7x = (Rnd * 1800) + 25
c7y = (Rnd * 50) + 5

Dim Shared cloudDirection%
reRoll:
Randomize Timer
cloudDirection% = (Rnd * 15) + 1
If cloudDirection% > 6 And cloudDirection% < 14 Then GoTo reRoll
If cloudDirection% > 15 Then cloudDirection% = 14

Dim Shared sun&
sun& = _LoadImage("background\sun.png ", 32)
Dim Shared moon&

moon& = _LoadImage("background\moon.png ", 32)

Dim Shared standin&
standin& = _LoadImage("sprite\am_1.png ", 32)

Dim Shared atariMan&

Dim Shared synth_scope&
synth_scope& = _LoadImage("sprite\am_synth_scope_1_sm.png", 32)
Dim Shared synth_action&
synth_action& = _LoadImage("sprite\am_synth_action_1.png", 32)

Dim Shared kn0ne&
kn0ne& = _LoadImage("background\kn0ne_1c.png", 32)
_ClearColor (_RGB(0, 0, 0)), kn0ne&

Dim Shared stdIn&
stdIn& = _LoadImage("sprite\am_1.png", 32)

Dim Shared trxlk%
trxlk% = 1
Dim Shared syn%
Dim Shared syntrx%
syntrx% = 2

Dim Shared tv&

Dim Shared tm$
Dim Shared s%
Dim Shared m%
Dim Shared h%

Dim Shared current_date$
current_date$ = Date$

Dim Shared frame&
Dim Shared frame2&
Dim Shared framesit3&
Dim Shared framesittv&
Dim Shared frame4&
Dim Shared frame5&
Dim Shared framesitkit&
Dim Shared tvframe&
Dim Shared synFrame%
Dim Shared synscframe&
Dim Shared synscframe2&
Dim Shared cookFrame&
Dim Shared washFrame&
Dim Shared starFrame%

Dim Shared sx As Single
Dim Shared sy As Single

Dim Shared floorNum%

Dim Shared xmove$

Randomize Timer
xmove$ = "left"

Dim Shared ymove$
ymove$ = "yoff"

Dim Shared change$
change$ = "coff"

Dim Shared cv As Integer 'change value
Dim Shared cv$ 'change value string

Dim Shared rmtimer As Integer
Dim Shared wash%
Dim Shared cookTimer%
Dim Shared cookTrig As Integer
Dim Shared rmtriglk As Integer
Dim Shared rmtriglk1a As Integer
Dim Shared rmtriglk1b As Integer
Dim Shared rmtriglk2a As Integer
Dim Shared rmtriglk2b As Integer
Dim Shared rmtriglk2c As Integer
Dim Shared rmtriglk2d As Integer
Dim Shared rmtriglk2e As Integer
Dim Shared rmtriglk3a As Integer
Dim Shared rmtriglk3b As Integer
Dim Shared rmTrigOff As Integer

Dim Shared sleepTrig%

Dim Shared rmtrlk$
Dim Shared rmtrlk1a$
Dim Shared rmtrlk1b$
rmtrlk$ = Str$(Int(rmtriglk))
rmtrlk1a$ = Str$(Int(rmtriglk1a))
rmtrlk1b$ = Str$(Int(rmtriglk1b))

Dim Shared rmtimer$
rmtimer$ = Str$(rmtimer)

Dim Shared xmvcpy$

Dim Shared ghost_sprite&

Dim Shared gx As Single
Dim Shared gy As Single
Dim Shared gx$
Dim Shared gy$

gx = Int(Rnd * 350) + 115
gy = Int(Rnd * 230) + 80

gx$ = "right"
gy$ = "up"

Dim Shared sleepTimer%
Dim Shared fish&

Type fish_type
    x As Integer
    y As Integer
    move_right As Integer
    move_up As Integer
    sprite As Long
End Type
Dim Shared fish2(12) As fish_type 'creates the fish"array" with the size set to "num_fish"

Dim Shared f1x As Single
Dim Shared f2x As Single
Dim Shared f3x As Single
Dim Shared f4x As Single
Dim Shared f5x As Single
Dim Shared f6x As Single
Dim Shared f7x As Single
Dim Shared f8x As Single

Dim Shared f1y As Single
Dim Shared f2y As Single
Dim Shared f3y As Single
Dim Shared f4y As Single
Dim Shared f5y As Single
Dim Shared f6y As Single
Dim Shared f7y As Single
Dim Shared f8y As Single

Dim Shared f1xmove$
Dim Shared f2xmove$
Dim Shared f3xmove$
Dim Shared f4xmove$
Dim Shared f5xmove$
Dim Shared f6xmove$
Dim Shared f7xmove$
Dim Shared f8xmove$

Dim Shared f1ymove$
Dim Shared f2ymove$
Dim Shared f3ymove$
Dim Shared f4ymove$
Dim Shared f5ymove$
Dim Shared f6ymove$
Dim Shared f7ymove$
Dim Shared f8ymove$

f1x = 430
f1y = 349

f2x = 460
f2y = 348

f3x = 460
f3y = 350

f4x = 435
f4y = 349

f5x = 452
f5y = 348

f6x = 459
f6y = 349

f7x = 454
f7y = 350

f8x = 460
f8y = 350

f1xmove$ = "right"
f2xmove$ = "left"
f3xmove$ = "right"
f4xmove$ = "right"
f5xmove$ = "left"
f6xmove$ = "right"
f7xmove$ = "right"
f8xmove$ = "right"

f1ymove$ = "up"
f2ymove$ = "down"
f3ymove$ = "up"
f4ymove$ = "up"
f5ymove$ = "down"
f6ymove$ = "up"
f7ymove$ = "up"
f8ymove$ = "off"

Dim Shared bathTimer%
bathTimer% = 0
Dim Shared sndBathRm$

Dim Shared bowel%

Dim Shared handWash%

Dim Shared b&
b& = _SndOpen("sounds\aquarium\tank1.mp3")

Dim Shared lb&
lb& = _SndOpen("sounds\aquarium\bigBubble.mp3")

Dim Shared t~&

Dim Shared starTimer%

Dim Shared starFieldAX%
Dim Shared starFieldAy%

Dim Shared starFieldBX%
Dim Shared starFieldBy%

Dim Shared starFieldCX%
Dim Shared starFieldCy%

Dim Shared starFieldDX%
Dim Shared starFieldDy%

Dim Shared starFieldEX%
Dim Shared starFieldEy%

Dim Shared starFieldFX%
Dim Shared starFieldFy%

Dim Shared starFieldGX%
Dim Shared starFieldGy%

Dim Shared starFieldHX%
Dim Shared starFieldHy%

Dim Shared starFieldIX%
Dim Shared starFieldIy%

Dim Shared starFieldJX%
Dim Shared starFieldJy%

Dim Shared starFieldKX%
Dim Shared starFieldKy%

Dim Shared starFieldLX%
Dim Shared starFieldLy%

Dim Shared starFieldMX%
Dim Shared starFieldMy%

Dim Shared starFieldNX%
Dim Shared starFieldNy%

Dim Shared starFieldOX%
Dim Shared starFieldOy%

Dim Shared starFieldPX%
Dim Shared starFieldPy%

Dim Shared starFieldQX%
Dim Shared starFieldQy%

Dim Shared starFieldRX%
Dim Shared starFieldRy%

starFieldAX% = Rnd * 640
starFieldAy% = Rnd * 75

starFieldBX% = Rnd * 100
starFieldBy% = Rnd * 230

starFieldCX% = (Rnd * 640) + 530
starFieldCy% = Rnd * 230

starFieldDX% = Rnd * 640
starFieldDy% = Rnd * 75

starFieldEX% = Rnd * 100
starFieldEy% = Rnd * 230

starFieldFX% = (Rnd * 640) + 530
starFieldFy% = Rnd * 230

starFieldGX% = Rnd * 640
starFieldGy% = Rnd * 75

starFieldHX% = Rnd * 100
starFieldHy% = Rnd * 230

starFieldIX% = (Rnd * 640) + 530
starFieldIy% = Rnd * 230

starFieldJX% = Rnd * 640
starFieldJy% = Rnd * 75

starFieldKX% = Rnd * 100
starFieldKy% = Rnd * 230

starFieldLX% = (Rnd * 640) + 530
starFieldLy% = Rnd * 230

starFieldMX% = Rnd * 640
starFieldMy% = Rnd * 75

starFieldNX% = Rnd * 100
starFieldNy% = Rnd * 230

starFieldOX% = (Rnd * 640) + 530
starFieldOy% = Rnd * 230

starFieldPX% = Rnd * 640
starFieldPy% = Rnd * 75

starFieldQX% = Rnd * 100
starFieldQy% = Rnd * 230

starFieldRX% = (Rnd * 640) + 530
starFieldRy% = Rnd * 230

Dim Shared blimpX As Single
Dim Shared blimpY As Single

Dim Shared blimpRight As Integer
Dim Shared blimpUp As Integer

Dim Shared blimpSize%
blimp:
Randomize Timer
blimpSize% = (Rnd * 3) + 1
If blimpSize% > 3 Then GoTo blimp:


blimpRight = 1
blimpX = 25
Randomize Timer
blimpY = (Rnd * 30) + 1
sx = 180
sy = 230
floorNum% = 2

rmtimer = 500
Dim Shared wakeUp%
'sleepTrig% = 20
rmtriglk2a = 0
change$ = "coff"

'bowel% = 3

xmove$ = "left"
'rmtriglk = 1
'cookTrig = 20
'rmtriglk1a = 1
'rmtriglk1b = 1
'rmtriglk2a = 1
'rmtriglk2b = 1
'rmtriglk2c = 1
'rmtriglk2d = 1
'rmtriglk3a = 1
'rmtriglk3b = 1
'rmTrigOff = 1

mute% = 1
volSet = .05
_Title "Little Atari Person"
Screen _NewImage(640, 480, 32)
_FullScreen
_MouseHide
Dim Shared clockcount%

main_loop:
Do: _Limit 60
    Cls
    tm$ = Time$
    s% = Val(Right$(tm$, 2))
    m% = Val(Mid$(tm$, 4, 2))
    h% = Val(Left$(tm$, 2))
    background
    gottaGo
    foodRtTime
    ghost_timer
    convert_to_12hr
    atariMan_sprite
    weekday
    room_triggers
    a1_debugtxt
    volControl
    If bowel% = 3 Or bowel% = 6 Then rmtriglk2d = 1
    trigers
    clockcount% = clockcount% + 1
    _Display
Loop Until _KeyDown(27)
_MouseShow
System

'' Sub Routiens ''

Sub a1_debugtxt
    'Dim blimpSize$
    'blimpSize$ = Str$(blimpSize%)
    'If fntComputerLg& > 0 Then _Font fntComputerLg&
    'Color WHITE, BLACK
    '_PrintString (25, 25), blimpSize$
    'Dim bathTimer$
    'bathTimer$ = Str$(bathTimer%)
    '_PrintString (350, 180), "bathTimer" + bathTimer$
    'Dim handWash$
    'handWash$ = Str$(handWash%)
    '_PrintString (250, 180), "handt" + handWash$
    'Dim sx$
    'Dim sy$
    'sx$ = Str$(Int(sx))
    'sy$ = Str$(Int(sy))
    '_PrintString (150, 5), "sx:" + sx$
    '_PrintString (150, 25), "xmove:" + xmove$
    '_PrintString (350, 5), "sy:" + sy$
    '_PrintString (350, 25), "ymove:" + ymove$
    'rmtimer$ = Str$(rmtimer)
    '_PrintString (255, 80), "rmtimer:" + rmtimer$
    '_PrintString (255, 100), "change:" + change$
    'Dim rm1a$
    'rm1a$ = Str$(rmtriglk1a)
    '_PrintString (5, 25), "rm1a:" + rm1a$
    'Dim rm1b$
    'rm1b$ = Str$(rmtriglk1b)
    '_PrintString (5, 45), "rm1b:" + rm1b$
    'Dim rmtriglk2a$
    'rmtriglk2a$ = Str$(rmtriglk2a)
    '_PrintString (5, 65), "rm2a:" + rmtriglk2a$
    'Dim rm2b$
    'rm2b$ = Str$(rmtriglk2b)
    '_PrintString (5, 85), "rm2b:" + rm2b$
    'Dim rm2c$
    'rm2c$ = Str$(rmtriglk2c)
    '_PrintString (5, 105), "rm2c:" + rm2c$
    'Dim rm2d$
    'rm2d$ = Str$(rmtriglk2d)
    '_PrintString (5, 125), "rm2d" + rm2d$
    'Dim rm2e$
    'rm2e$ = Str$(rmtriglk2e)
    '_PrintString (5, 145), "rm2e" + rm2e$
    'Dim rm3a$
    'rm3a$ = Str$(rmtriglk3a)
    '_PrintString (5, 165), "rm3a:" + rm3a$
    'Dim rmlk3b$
    'rmlk3b$ = Str$(rmtriglk3b)
    '_PrintString (5, 185), "rm3b:" + rmlk3b$
    'Dim rmTrigOff$
    'rmTrigOff$ = Str$(rmTrigOff)
    '_PrintString (5, 205), "rmTrigOff:" + rmTrigOff$
    'Dim cookTrig$
    'cookTrig$ = Str$(cookTrig%)
    '_PrintString (5, 225), "cookTrig:" + cookTrig$
    'Dim bowel$
    'bowel$ = Str$(bowel%)
    '_PrintString (5, 245), "bowel:" + bowel$
    'Dim rmlk1b$
    'rmlk1b$ = Str$(rmtriglk1b)
    '_PrintString (320, 25), "rm1b" + rmlk1b$
    'Dim bowel$
    'bowel$ = Str$(bowel%)
    '_PrintString (420, 25), "bowel" + bowel$
    'Dim rm1a$
    'rm1a$ = Str$(rmtriglk1a)
    '_PrintString (320, 25), "rm1a" + rm1a$
    'Dim bthrm$
    'bthrm$ = Str$(bathTimer%)
    '_PrintString (320, 200), bthrm$
    'Dim bathGo$
    'bathGo$ = Str$(bathGo%)
    '_PrintString (360, 25), "bathGo" + bathGo$
    'Dim Washtimer$
    'Dim rm2e$
    'Washtimer$ = Str$(handWash%)
    '_PrintString (25, 25), "wahHand" + Washtimer$
    'rm2e$ = Str$(rmtriglk2e)
    '_PrintString (200, 25), "rm2e" + rm2e$
    'Dim wash$
    'wash$ = Str$(wash%)
    '_PrintString (25, 200), "wash:" + wash$
    'Dim cookTrig$
    'cookTrig$ = Str$(cookTrig%)
    '_PrintString (25, 220), "cookTrig:" + cookTrig$
    'Dim sleepTrig$
    'sleepTrig$ = Str$(sleepTrig%)
    '_PrintString (25, 220), "sleepTrig:" + sleepTrig$
    'Dim h$
    'h$ = Str$(h%)
    '_PrintString (25, 150), "h%:" + h$
    '_PrintString (25, 165), "ampm:" + ampm$
    'Dim wakeup$
    'wakeup$ = Str$(wakeUp%)
    '_PrintString (25, 280), "wakeUp:" + wakeup$
    'Dim sleepTimer$
    'sleepTimer$ = Str$(sleepTimer%)
    '_PrintString (25, 220), "sleeptimer:" + sleepTimer$
    'Dim cloudDirection$
    'cloudDirection$ = Str$(cloudDirection%)
    '_PrintString (25, 220), "cloudDir:" + cloudDirection$
    'Dim syntrx$
    'syntrx$ = Str$(syntrx%)
    '_PrintString (10, 420), "trackNum:" + syntrx$
    'Dim noTraxRepeat$
    'noTraxRepeat$ = Str$(noTraxRepeat%)
    '_PrintString (10, 440), "trackRep:" + noTraxRepeat$
    'Dim tvc$
    'tvc$ = Str$(tvc)
    '_PrintString (5, 300), "tvchan:" + tvc$
    'Dim cv$
    'cv$ = Str$(cv)
    '_PrintString (200, 25), "cv:" + cv$
    'Dim tvtrig$
    'tvtrig$ = Str$(tvtrig%)
    '_PrintString (320, 25), "tvTrig:" + tvtrig$
    'Dim srt$
    'srt$ = Str$(srt%)
    '_PrintString (400, 25), "srt$:" + srt$
    'standin& = _LoadImage("sprite\am_sit_2.png", 32)
    '_ClearColor _RGB(0, 0, 0), standin&
    '_PutImage (230, 120), standin&
    'Dim floor_num$
    'Dim sx$
    'Dim sy$
    'floor_num$ = Str$(floorNum%)
    'sx$ = Str$(Int(sx))
    'sy$ = Str$(Int(sy))
    'Dim tvframe$
    'tvframe$ = Str$(tvframe&)
    '_PrintString (sx - 50, sy - 115), "xmovecpy:" + xmvcpy$
    '_PrintString (sx - 50, sy - 95), "xmove:" + xmove$
    '_PrintString (sx + 50, sy - 95), "ymove:" + ymove$
    '_PrintString (sx - 50, sy - 80), "xpos:" + sx$
    '_PrintString (sx + 50, sy - 80), "ypos:" + sy$
    '_PrintString (sx - 25, sy - 65), "fl:" + floor_num$
    '_PrintString (sx + 75, sy - 65), change$
    'cv$ = "cv:" + Str$(cv)
    '_PrintString (sx + 20, sy - 65), cv$
    'rmtimer$ = Str$(rmtimer)
    '_PrintString (500, 25), "rmtimer:" + rmtimer$
    '_PrintString (sx, sy - 35), "rmlk1b:" + rmlk1b$
    '_PrintString (320, 25), "f0rtv:" + tvframe$
    'Dim tvframe$
    'tvframe$ = Str$(tvframe&)
    '_PrintString (sx - 50, sy - 115), "tvframe:" + tvframe$
    'Dim frame$
    'frame$ = Str$(frame3&)
    '_PrintString (sx + 150, sy - 65), "fr:" + frame$
    'rmtimer$ = Str$(rmtimer)
    'Dim rmlk3a$
    'rmlk3a$ = Str$(rmtriglk3a)
    '_PrintString (320, 25), "rmtimer:" + rmtimer$
    '_ClearColor _RGB(0, 0, 0), standin&
    '_PutImage (385, 100), standin&
    'Dim framesitkit$
    'framesitkit$ = Str$(framesitkit&)
    '_PrintString (sx, sy - 35), "frkitkit:" + framesitkit$
    'Dim answ$
    'answ$ = Str$(tvchanel)
    '_PrintString (320, 50), answ$
    'Dim btimer$
    'btimer$ = Str$(btimer%)
    '_PrintString (5, 320), "bttnTmr:" + btimer$
    'Dim starTimer$
    'starTimer$ = Str$(starTimer%)
    '_PrintString (5, 25), starTimer$
End Sub

Sub myClock

    'Dim clock(60) 'A dimensioned array to hold 60 radian points
    'clockcount% = 15 'A counter to keep track of the radians

    'For radian = 2 * PI To 0 Step -(2 * PI) / 60
    '    clock(clockcount%) = radian
    '    clockcount% = clockcount% + 1
    '    If clockcount% = 61 Then clockcount% = 1
    'Next radian

    'Dim clockcount$
    'clockcount$ = Str$(clockcount%)
    '_PrintString (10, 25), clockcount$

    'Circle (400, 320), 20, _RGB(0, 0, 0) 'circle with radius of 110 and dark gray
    'Circle (400, 320), 12, _RGB(0, 0, 0) 'circle with radius of 102 and dark gray
    'Paint (265, 230), 8, _RGB(0, 0, 0) 'fill between the two dark gray circles with gray
    'Circle (400, 320), 20, _RGB(0, 0, 0) 'circle with radius of 110 and light gray

    'tm$ = Time$
    's% = Val(Right$(tm$, 2))
    'm% = Val(Mid$(tm$, 4, 2))
    'h% = Val(Left$(tm$, 2))

    '*
    '* Get the current time from the QuickBASIC built in variable TIME$
    '* Since TIME$ is a string, we need to extract the hours, minutes and
    '* seconds from it using LEFT$, RIGHT$ and MID$. Then, each of these
    '* extractions need to be converted to a numeric value using VAL and
    '* stored in their respective variables.
    '*

    'Dim previoussecond%

    'Dim previousminute%
    'Dim prseviousminute%
    'Dim previoushour%

    'If s% = 0 Then s% = 60 'array counts 1 to 60 not 0 to 59
    'previoussecond% = s% 'hold current second for later use
    'm% = Int(Val(Mid$(Time$, 4, 2))) 'extract minutes from TIME$
    'If m% = 0 Then m% = 60 'array counts 1 to 60 not 0 to 59
    'previousminute% = m% 'hold current minute for later use
    'h% = Int(Val(Left$(Time$, 2))) 'extract hour from TIME$
    'If h% >= 12 Then h% = h% - 12 'convert from military time
    'If h% = 0 Then h% = 12 'count from 1 to 12 not 0 to 11
    'previoushour% = h% 'hold current hour for later use
    '*
    '* Start of main program loop


    'If s% <> previoussecond% Then 'has a second elapsed?
    'Locate 22, 17 'print the time on the screen at
    'Print Time$; 'position 22, 17
    '* Since a second has elapsed we need to erase the old second hand
    '* position and draw the new position

    'Circle (400, 320), 100, _RGB(0, 0, 0), -clock(previoussecond%), clock(previoussecond%)
    'Circle (400, 320), 100, _RGB(0, 0, 0), -clock(s%), clock(s%)
    'previoussecond% = s% 'hold current second for later use
    'If m% <> previousminute% Then 'has a minute elapsed?
    '* Since a minute has elapsed we need to erase the old hour hand position
    'Circle (400, 320), 90, _RGB(0, 0, 0), -clock(previousminute%), clock(previousminute%)
    'prseviousminute% = m% 'hold current minute for later use
    'End If
    '*
    '* Draw the current minute hand position
    '*
    'Circle (400, 320), 90, _RGB(0, 255, 255), -clock(m%), clock(m%)
    'If h% <> previoushour% Then 'has an hour elapsed?
    '* Since an hour has elapsed we need to erase the old hour hand position
    'Circle (400, 320), 75, _RGB(255, 255, 0), -clock(previoushour% * 5), clock(previoushour% * 5)
    'previoushour% = h% 'hold current hour for later use
    'End If
    '*
    '* Draw the current hour hand position
    '*
    '    Circle (400, 320), 75, _RGB(0, 0, 0), -clock(h% * 5), clock(h% * 5)
    'End If
    's% = Val(Right$(Time$, 2)) 'extract time again and do all over
    'If s% = 0 Then s% = 60
    'm% = Val(Mid$(Time$, 4, 2))
    'If m% = 0 Then m% = 60
    'h% = Val(Left$(Time$, 2))
    'If h% >= 12 Then h% = h% - 12
    'If h% = 0 Then h% = 12

End Sub
Sub starGenerator

    Circle (starFieldAX%, starFieldAy%), 0.4, _RGB(255, 255, 255)
    Circle (starFieldBX%, starFieldBy%), 0.2, _RGB(255, 255, 255)
    Circle (starFieldCX%, starFieldCy%), 0.2, _RGB(255, 255, 255)

    Circle (starFieldDX%, starFieldDy%), 0.2, _RGB(255, 255, 255)
    Circle (starFieldEX%, starFieldEy%), 0.4, _RGB(255, 255, 255)
    Circle (starFieldFX%, starFieldFy%), 0.5, _RGB(255, 255, 255)

    Circle (starFieldGX%, starFieldGy%), 0.4, _RGB(255, 255, 255)
    Circle (starFieldHX%, starFieldHy%), 0.2, _RGB(255, 255, 255)
    Circle (starFieldIX%, starFieldIy%), 0.4, _RGB(255, 255, 255)

    Circle (starFieldJX%, starFieldJy%), 0.5, _RGB(255, 255, 255)
    Circle (starFieldKX%, starFieldKy%), 0.2, _RGB(255, 255, 255)
    Circle (starFieldLX%, starFieldLy%), 0.2, _RGB(255, 255, 255)

    Circle (starFieldMX%, starFieldMy%), 0.2, _RGB(255, 255, 255)
    Circle (starFieldNX%, starFieldNy%), 0.4, _RGB(255, 255, 255)
    Circle (starFieldOX%, starFieldOy%), 0.3, _RGB(255, 255, 255)

    Circle (starFieldPX%, starFieldPy%), 0.3, _RGB(255, 255, 255)
    Circle (starFieldQX%, starFieldQy%), 0.3, _RGB(255, 255, 255)
    Circle (starFieldRX%, starFieldRy%), 0.4, _RGB(255, 255, 255)


    If starTimer% > 5 And starTimer% < 10 Then
        Randomize Timer: Circle (Rnd * 640, Rnd * 75), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle (Rnd * 100, Rnd * 230), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle ((Rnd * 640) + 530, Rnd * 230), 0.1, _RGB(255, 255, 255)
    End If

    If starTimer% > 20 And starTimer% < 25 Then
        Randomize Timer: Circle (Rnd * 640, Rnd * 75), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle (Rnd * 100, Rnd * 230), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle ((Rnd * 640) + 530, Rnd * 230), 0.1, _RGB(255, 255, 255)
    End If

    If starTimer% > 40 And starTimer% < 45 Then
        Randomize Timer: Circle (Rnd * 640, Rnd * 75), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle (Rnd * 100, Rnd * 230), 0.1, _RGB(255, 255, 255)
        Randomize Timer: Circle ((Rnd * 640) + 530, Rnd * 230), 0.1, _RGB(255, 255, 255)
    End If
End Sub

Sub clock_color_day

    Dim cx As Integer
    Dim cy As Integer
    cx = 320
    cy = 240
    Shared h%, tm$
    Circle (cx%, cy%), 150, BLUE
    Paint (cx%, cy%), YELLOW, BLUE
    Circle (cx%, cy%), 145, BLUE
    Circle (cx%, cy%), 140, YELLOW
    Paint (cx%, cy%), LIGHTBLUE, BLUE
    Color LIGHTYELLOW, LIGHTBLUE
    'If fntComputerSm& > 0 Then _Font fntComputerSm&
    _PrintString (cx% - 118, cy%), Right$("0" + LTrim$(Str$(h%)), 2) + Right$(tm$, 6)
    Color _RGB32(255, 150, 0), LIGHTBLUE
    'If fntComputer& > 0 Then _Font fntComputer&
    _PrintString (cx% - 100, cy% - 50), "kn0ne"
    Circle (cx%, cy%), BLUE
    Color LIGHTYELLOW, LIGHTBLUE
    'If fdt& > 0 Then _Font fdt&

    _PrintString (cx% - 112, cy% + 30), current_date$
    '_PrintString (x% - 23, y% - 75), Str$(Int((Rnd * 2)) + 1)
    Circle (cx%, cy%), 125, BLUE
    Circle (cx%, cy%), 160, YELLOW
    Circle (cx%, cy%), 170, BLUE
    Circle (cx%, cy%), 123, BLUE
    Circle (cx%, cy%), 158, YELLOW
    Circle (cx%, cy%), 168, BLUE
End Sub

Sub trigers
    If rmtriglk1a = 1 Then
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk1b = 1 Then
        rmtriglk1a = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk2a = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk2b = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk2c = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk2d = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk2e = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk3a = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        'rmtriglk3b = 0
        rmTrigOff = 0
    End If
    If rmtriglk3b = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        'rmtriglk3a = 0
        rmTrigOff = 0
    End If
    If rmTrigOff = 1 Then
        rmtriglk1a = 0
        rmtriglk1b = 0
        rmtriglk2a = 0
        rmtriglk2b = 0
        rmtriglk2c = 0
        rmtriglk2d = 0
        rmtriglk2e = 0
        rmtriglk3a = 0
        rmtriglk3b = 0
    End If
End Sub

Sub gottaGo
    If bowel% = 6 Then
        If floorNum% = 1 Then change$ = "cup"
        If floorNum% = 2 Then change$ = "coff"
        If floorNum% = 3 Then change$ = "cdown"
    End If

End Sub
Sub sound_large_bubbles
    t~& = t~& + 1
    If t~& = 3000 Then
        t~& = 1
    End If

    Select Case t~&
        Case 1 To 35
            _SndVol lb&, 0.20
            _SndLoop lb&
        Case 1420 To 1460
            _SndVol lb&, 0.20
            _SndLoop lb&
        Case 2400 To 2440
            _SndVol lb&, 0.20
            _SndLoop lb&
        Case Else
            _SndVol lb&, 0
    End Select
End Sub

Sub changeChanAndTrax
    btimer% = btimer% + 1
    If btimer% > 10 Then btimer% = 0

    If _KeyDown(rtKey) And btimer% = 1 Then
        tvplaying
        tvchanview
        tvc = tvc + 1
        _PutImage (220, 220), kn0ne&
        If tvc > 26 Then tvc = 1
    End If

    If _KeyDown(ltKey) And btimer% = 1 Then
        tvplaying
        tvchanview
        tvc = tvc - 1
        _PutImage (220, 220), kn0ne&
        If tvc < 1 Then tvc = 26
    End If

    If _KeyDown(rtKey) And btimer% = 1 Then
        stoptrx
        syntrx% = syntrx% + 1
        _PutImage (220, 220), kn0ne&
        If syntrx% > 23 Then syntrx% = 1
    End If

    If _KeyDown(ltKey) And btimer% = 1 Then
        stoptrx
        syntrx% = syntrx% - 1
        _PutImage (220, 220), kn0ne&
        If syntrx% < 1 Then syntrx% = 23
    End If
End Sub

Sub volControl
    btimer% = btimer% + 1
    If btimer% > 10 Then btimer% = 0

    If _KeyDown(mKey) Or _KeyDown(77) Then
        mute% = 1
        _PutImage (220, 220), kn0ne&
    End If
    If _KeyDown(uKey) Or _KeyDown(85) Then
        mute% = 0
        _PutImage (220, 220), kn0ne&
    End If

    If _KeyDown(upKey) And btimer% = 1 Then
        If volSet < 10.1 Then volSet = volSet + 0.05
        _PutImage (220, 220), kn0ne&
    End If

    If _KeyDown(dwKey) And btimer% = 1 Then
        If volSet > 0.01 Then volSet = volSet - 0.05
        _PutImage (220, 220), kn0ne&
    End If

    If tvtrig% = 1 Then
        Select Case tvc
            Case 1
                _SndLoop tvsnd1&
                If mute% = 0 Then _SndVol tvsnd1&, volSet Else _SndVol tvsnd1&, 0.0
            Case 2
                _SndLoop tvsnd2&
                If mute% = 0 Then _SndVol tvsnd2&, volSet Else _SndVol tvsnd2&, 0.0
            Case 3
                _SndLoop tvsnd3&
                If mute% = 0 Then _SndVol tvsnd3&, volSet Else _SndVol tvsnd3&, 0.0
            Case 4
                _SndLoop tvsnd4&
                If mute% = 0 Then _SndVol tvsnd4&, volSet Else _SndVol tvsnd4&, 0.0
            Case 5
                _SndLoop tvsnd5&
                If mute% = 0 Then _SndVol tvsnd5&, volSet Else _SndVol tvsnd5&, 0.0
            Case 6
                _SndLoop tvsnd6&
                If mute% = 0 Then _SndVol tvsnd6&, volSet Else _SndVol tvsnd6&, 0.0
            Case 7
                _SndLoop tvsnd7&
                If mute% = 0 Then _SndVol tvsnd7&, volSet Else _SndVol tvsnd7&, 0.0
            Case 8
                _SndLoop tvsnd8&
                If mute% = 0 Then _SndVol tvsnd8&, volSet Else _SndVol tvsnd8&, 0.0
            Case 9
                _SndLoop tvsnd9&
                If mute% = 0 Then _SndVol tvsnd9&, volSet Else _SndVol tvsnd9&, 0.0
            Case 10
                _SndLoop tvsnd10&
                If mute% = 0 Then _SndVol tvsnd10&, volSet Else _SndVol tvsnd10&, 0.0
            Case 11
                _SndLoop tvsnd11&
                If mute% = 0 Then _SndVol tvsnd11&, volSet Else _SndVol tvsnd11&, 0.0
            Case 12
                _SndLoop tvsnd12&
                If mute% = 0 Then _SndVol tvsnd12&, volSet Else _SndVol tvsnd12&, 0.0
            Case 13
                _SndLoop tvsnd13&
                If mute% = 0 Then _SndVol tvsnd13&, volSet Else _SndVol tvsnd13&, 0.0
            Case 14
                _SndLoop tvsnd14&
                If mute% = 0 Then _SndVol tvsnd14&, volSet Else _SndVol tvsnd14&, 0.0
            Case 15
                _SndLoop tvsnd15&
                If mute% = 0 Then _SndVol tvsnd15&, volSet Else _SndVol tvsnd15&, 0.0
            Case 16
                _SndLoop tvsnd16&
                If mute% = 0 Then _SndVol tvsnd16&, volSet Else _SndVol tvsnd16&, 0.0
            Case 17
                _SndLoop tvsnd17&
                If mute% = 0 Then _SndVol tvsnd17&, volSet Else _SndVol tvsnd17&, 0.0
            Case 18
                _SndLoop tvsnd18&
                If mute% = 0 Then _SndVol tvsnd18&, volSet Else _SndVol tvsnd18&, 0.0
            Case 19
                _SndLoop tvsnd19&
                If mute% = 0 Then _SndVol tvsnd19&, volSet Else _SndVol tvsnd19&, 0.0
            Case 20
                _SndLoop tvsnd20&
                If mute% = 0 Then _SndVol tvsnd20&, volSet Else _SndVol tvsnd20&, 0.0
            Case 21
                _SndLoop tvsnd21&
                If mute% = 0 Then _SndVol tvsnd21&, volSet Else _SndVol tvsnd21&, 0.0
            Case 22
                _SndLoop tvsnd22&
                If mute% = 0 Then _SndVol tvsnd22&, volSet Else _SndVol tvsnd22&, 0.0
            Case 23
                _SndLoop tvsnd23&
                If mute% = 0 Then _SndVol tvsnd23&, volSet Else _SndVol tvsnd23&, 0.0
            Case 24
                _SndLoop tvsnd24&
                If mute% = 0 Then _SndVol tvsnd24&, volSet Else _SndVol tvsnd24&, 0.0
            Case 25
                _SndLoop tvsnd25&
                If mute% = 0 Then _SndVol tvsnd25&, volSet Else _SndVol tvsnd25&, 0.0
            Case 26
                _SndLoop tvsnd26&
                If mute% = 0 Then _SndVol tvsnd26&, volSet Else _SndVol tvsnd26&, 0.0
        End Select
    End If

    Select Case xmove$
        Case "left"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
        Case "foodLt"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
            _SndLoop sndBurp&
            If mute% = 0 Then _SndVol sndBurp&, volSet Else _SndVol sndBurp&, 0.0
        Case "right"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
        Case "foodRt"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
        Case "xoff"
            _SndStop sndWalk&
        Case "stairup"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
        Case "stairdw"
            _SndLoop sndWalk&
            If mute% = 0 Then _SndVol sndWalk&, volSet Else _SndVol sndWalk&, 0.0
        Case "tvsit"
            _SndStop sndWalk&
        Case "sit_type_a"
            _SndStop sndWalk&
        Case "sit_type_b"
            _SndStop sndWalk&
        Case "fishTank"
            _SndStop sndWalk&
        Case "brushTeeth"
            _SndStop sndWalk&
            _SndLoop sndBrushTeeth&
            If mute% = 0 Then _SndVol sndBrushTeeth&, volSet Else _SndVol sndBrushTeeth&, 0.0
        Case "cook"
            _SndStop sndWalk&
            _SndLoop sndCook&
            If mute% = 0 Then _SndVol sndCook&, volSet Else _SndVol sndCook&, 0.0
        Case "eat"
            _SndStop sndWalk&
            _SndLoop sndEat&
            If mute% = 0 Then _SndVol sndEat&, volSet Else _SndVol sndEat&, 0.0
        Case "washHand"
            _SndStop sndWalk&
            _SndLoop sndWashHands&
            If mute% = 0 Then _SndVol sndWashHands&, volSet Else _SndVol sndWashHands&, 0.0
        Case "wash"
            _SndStop sndWalk&
            _SndLoop sndDishWash&
            If mute% = 0 Then _SndVol sndDishWash&, volSet Else _SndVol sndDishWash&, 0.0
        Case "washHand"
            _SndStop sndWashHands&
            _SndLoop sndWashHands&
            If mute% = 0 Then _SndVol sndWashHands&, volSet Else _SndVol sndWashHands&, 0.0
        Case "synth"
            _SndStop sndWalk&
        Case "sleep"
            _SndStop sndWalk&
            _SndLoop sleeeep&
            If mute% = 0 Then _SndVol sleeeep&, volSet Else _SndVol sleeeep&, 0.0
        Case "move_not"
            _SndStop sndWalk&
    End Select

    Select Case sndBathRm$
        Case "doorClose"
            _SndStop sndWalk&
            _SndLoop sndBathDoorClose&
            If mute% = 0 Then _SndVol sndBathDoorClose&, volSet Else _SndVol sndBathDoorClose&, 0.0
        Case "poop"
            _SndLoop sndPoop&
            If mute% = 0 Then _SndVol sndPoop&, volSet Else _SndVol sndPoop&, 0.0
        Case "washHand"
            _SndLoop sndWashHands&
            If mute% = 0 Then _SndVol sndWashHands&, volSet Else _SndVol sndWashHands&, 0.0
        Case "flush"
            _SndLoop sndFlush&
            If mute% = 0 Then _SndVol sndFlush&, volSet Else _SndVol sndFlush&, 0.0
    End Select

    If floorNum% = 1 And mute% = 0 And sx > 350 Then
        _SndLoop b&
        _SndVol b&, volSet
        sound_large_bubbles
    Else
        _SndVol b&, 0.00
    End If
End Sub

Sub background
    If h% > 0 And h% <= 5 Then _PutImage , background_night&
    If h% > 5 And h% <= 11 Then _PutImage , background_morning&
    If h% > 11 And h% <= 16 Then _PutImage , background_day&
    If h% > 15 And h% <= 19 Then _PutImage , background_eve&
    If h% > 18 And h% < 25 Then _PutImage , background_night&
    If h% = 0 Then _PutImage , background_night&

    '''stars'''
    If h% >= 0 And h% <= 5 Or h% > 18 And h% <= 23 Then
        starGenerator
    End If
    ' sun
    _ClearColor (_RGB(0, 0, 0)), sun&
    If h% > 5 And h% <= 6 Then _PutImage (-50, 190), sun& '  -6am
    If h% > 6 And h% <= 7 Then _PutImage (-10, 150), sun& ' -7am
    If h% > 7 And h% <= 8 Then _PutImage (10, 100), sun& ' -8am
    If h% > 8 And h% <= 9 Then _PutImage (30, 60), sun& ' -9am
    If h% > 9 And h% <= 10 Then _PutImage (110, 10), sun& ' -10am
    If h% > 10 And h% <= 11 Then _PutImage (175, -15), sun& ' -11am
    If h% > 11 And h% <= 12 Then _PutImage (240, -40), sun& 'noon
    If h% > 12 And h% <= 13 Then _PutImage (400, -15), sun& '1pm
    If h% > 13 And h% <= 14 Then _PutImage (440, 10), sun& '2pm
    If h% > 14 And h% <= 15 Then _PutImage (500, 70), sun& '3pm
    If h% > 15 And h% <= 16 Then _PutImage (520, 110), sun& '4pm
    If h% > 16 And h% <= 17 Then _PutImage (560, 150), sun& '5pm
    If h% > 17 And h% <= 18 Then _PutImage (550, 210), sun& '-6pm

    'moon
    _ClearColor (_RGB(0, 0, 0)), moon&
    If h% > 18 And h% <= 19 Then _PutImage (-10, 210), moon& '  -7pm
    If h% > 19 And h% <= 20 Then _PutImage (5, 100), moon& ' -8pm
    If h% > 20 And h% <= 21 Then _PutImage (30, 60), moon& ' -9pm
    If h% > 21 And h% <= 22 Then _PutImage (110, 10), moon& ' -10pm
    If h% > 22 And h% <= 23 Then _PutImage (175, -15), moon& ' -11pm
    If h% = 0 Then _PutImage (240, -40), moon& ' -midnight
    If h% > 0 And h% <= 1 Then _PutImage (400, -15), moon& '1am
    If h% > 1 And h% <= 2 Then _PutImage (440, -15), moon& '2am
    If h% > 2 And h% <= 3 Then _PutImage (500, 70), moon& '3am
    If h% > 3 And h% <= 4 Then _PutImage (520, 110), moon& '4am
    If h% > 4 And h% <= 5 Then _PutImage (560, 170), moon& '5am

    'blimp
    If blimpSize% = 3 Then
        If blimpRight = 1 Then
            _ClearColor (_RGB(0, 0, 0)), blimpXtSmRt&
            _PutImage (blimpX, blimpY), blimpXtSmRt&
            blimpX = blimpX + 0.12
            Color GREEN, _RGB(255, 255, 255)
            If fntComputerXtSm& > 0 Then _Font fntComputerXtSm&
            _PrintString (blimpX + 4, blimpY + 4), "kn0ne"
        End If
        If blimpRight = 0 Then
            _ClearColor (_RGB(0, 0, 0)), blimpXtSmLt&
            _PutImage (blimpX, blimpY), blimpXtSmLt&
            blimpX = blimpX - 0.12
            Color GREEN, _RGB(255, 255, 255)
            If fntComputerXtSm& > 0 Then _Font fntComputerXtSm&
            _PrintString (blimpX + 5, blimpY + 4), "kn0ne"
        End If
    End If

    If blimpSize% = 2 Then
        If blimpRight = 1 Then
            _ClearColor (_RGB(0, 0, 0)), blimpSmRt&
            _PutImage (blimpX, blimpY), blimpSmRt&
            blimpX = blimpX + 0.15
            Color GREEN, _RGB(255, 255, 255)
            If fntComputerSm& > 0 Then _Font fntComputerSm&
            _PrintString (blimpX + 8, blimpY + 8), "kn0ne"
        End If
        If blimpRight = 0 Then
            _ClearColor (_RGB(0, 0, 0)), blimpSmLt&
            _PutImage (blimpX, blimpY), blimpSmLt&
            blimpX = blimpX - 0.15
            Color GREEN, _RGB(255, 255, 255)
            If fntComputerSm& > 0 Then _Font fntComputerSm&
            _PrintString (blimpX + 9, blimpY + 8), "kn0ne"
        End If
    End If

    If blimpSize% = 1 Then
        If blimpRight = 1 Then
            _ClearColor (_RGB(0, 0, 0)), blimpRt&
            _PutImage (blimpX, blimpY), blimpRt&
            blimpX = blimpX + 0.20
            Color GREEN, _RGB(255, 255, 255)
            If fntComputer& > 0 Then _Font fntComputer&
            _PrintString (blimpX + 15, blimpY + 15), "kn0ne"
        End If
        If blimpRight = 0 Then
            _ClearColor (_RGB(0, 0, 0)), blimpLt&
            _PutImage (blimpX, blimpY), blimpLt&
            blimpX = blimpX - 0.20
            Color GREEN, _RGB(255, 255, 255)
            If fntComputer& > 0 Then _Font fntComputer&
            _PrintString (blimpX + 17, blimpY + 15), "kn0ne"
        End If
    End If

    If blimpX > 800 Then
        blimpRight = 0
        blimpRT:
        Randomize Timer
        blimpSize% = (Rnd * 3) + 1
        If blimpSize% > 3 Then GoTo blimpRT:
    End If

    If blimpX < -800 Then
        blimpRight = 1
        blimpLt:
        Randomize Timer
        blimpSize% = (Rnd * 3) + 1
        If blimpSize% > 3 Then GoTo blimpLt:
    End If

    'aquarium
    _ClearColor (_RGB(0, 0, 0)), aquarium&
    _PutImage (430, 335), aquarium&

    _ClearColor (_RGB(0, 0, 0)), fish1&
    _PutImage (f1x, f1y), fish1&

    _ClearColor (_RGB(0, 0, 0)), fish2&
    _PutImage (f2x, f2y), fish2&

    _ClearColor (_RGB(0, 0, 0)), fish3&
    _PutImage (f3x, f3y), fish3&

    _ClearColor (_RGB(0, 0, 0)), fish4&
    _PutImage (f4x, f4y), fish4&

    _ClearColor (_RGB(0, 0, 0)), fish5&
    _PutImage (f5x, f5y), fish5&

    _ClearColor (_RGB(0, 0, 0)), fish6&
    _PutImage (f6x, f6y), fish6&

    _ClearColor (_RGB(0, 0, 0)), fish7&
    _PutImage (f7x, f7y), fish7&

    _ClearColor (_RGB(0, 0, 0)), fish8&
    _PutImage (f8x, f8y), fish8&

    If f1xmove$ = "left" Then f1x = f1x - 0.2
    If f2xmove$ = "left" Then f2x = f2x - 0.3
    If f3xmove$ = "left" Then f3x = f3x - 0.02
    If f4xmove$ = "left" Then f4x = f4x - 0.2
    If f5xmove$ = "left" Then f5x = f5x - 0.3
    If f6xmove$ = "left" Then f6x = f6x - 0.1
    If f7xmove$ = "left" Then f7x = f7x - 0.1
    If f8xmove$ = "left" Then f8x = f8x - 0.02

    If f1xmove$ = "right" Then f1x = f1x + 0.2
    If f2xmove$ = "right" Then f2x = f2x + 0.2
    If f3xmove$ = "right" Then f3x = f3x + 0.03
    If f4xmove$ = "right" Then f4x = f4x + 0.2
    If f5xmove$ = "right" Then f5x = f5x + 0.2
    If f6xmove$ = "right" Then f6x = f6x + 0.1
    If f7xmove$ = "right" Then f7x = f7x + 0.1
    If f8xmove$ = "right" Then f8x = f8x + 0.01

    If f1ymove$ = "up" Then f1y = f1y - 0.06
    If f2ymove$ = "up" Then f2y = f2y - 0.08
    If f3ymove$ = "up" Then f3y = f3y - 0.03
    If f4ymove$ = "up" Then f4y = f4y - 0.06
    If f5ymove$ = "up" Then f5y = f5y - 0.08
    If f6ymove$ = "up" Then f6y = f6y - 0.1
    If f7ymove$ = "up" Then f7y = f7y - 0.1

    If f1ymove$ = "down" Then f1y = f1y + 0.08
    If f2ymove$ = "down" Then f2y = f2y + 0.05
    If f3ymove$ = "down" Then f3y = f3y + 0.06
    If f4ymove$ = "down" Then f4y = f4y + 0.08
    If f5ymove$ = "down" Then f5y = f5y + 0.05
    If f6ymove$ = "down" Then f6y = f6y + 0.06
    If f7ymove$ = "down" Then f7y = f7y + 0.06

    If f1y > 350 Then f1ymove$ = "up"
    If f1y < 345 Then f1ymove$ = "down"

    If f1x < 433 Then f1xmove$ = "right"
    If f1x > 475 Then f1xmove$ = "left"

    If f2y > 350 Then f2ymove$ = "up"
    If f2y < 345 Then f2ymove$ = "down"

    If f2x < 433 Then f2xmove$ = "right"
    If f2x > 485 Then f2xmove$ = "left"

    If f3y > 350 Then f3ymove$ = "up"
    If f3y < 345 Then f3ymove$ = "down"

    If f3x < 433 Then f3xmove$ = "right"
    If f3x > 475 Then f3xmove$ = "left"

    If f4y > 350 Then f4ymove$ = "up"
    If f4y < 345 Then f4ymove$ = "down"

    If f4x < 433 Then f4xmove$ = "right"
    If f4x > 475 Then f4xmove$ = "left"

    If f5y > 350 Then f5ymove$ = "up"
    If f5y < 345 Then f5ymove$ = "down"

    If f5x < 433 Then f5xmove$ = "right"
    If f5x > 485 Then f5xmove$ = "left"

    If f6y > 350 Then f6ymove$ = "up"
    If f6y < 345 Then f6ymove$ = "down"

    If f6x < 433 Then f6xmove$ = "right"
    If f6x > 475 Then f6xmove$ = "left"

    If f7y > 350 Then f7ymove$ = "up"
    If f7y < 345 Then f7ymove$ = "down"

    If f7x < 433 Then f7xmove$ = "right"
    If f7x > 475 Then f7xmove$ = "left"

    If f8y > 350 Then f8ymove$ = "up"
    If f8y < 345 Then f8ymove$ = "down"

    If f8x < 435 Then f8xmove$ = "right"
    If f8x > 475 Then f8xmove$ = "left"

    ''synthoboard
    _ClearColor (_RGB(0, 0, 0)), sybthboard&
    _PutImage (454, 232), sybthboard&

    ''atari sign
    _ClearColor (_RGB(0, 0, 0)), atarilogo&
    _PutImage (400, 110), atarilogo&

    'telephone
    _ClearColor (_RGB(0, 0, 0)), telephone&: _ClearColor (_RGB(0, 0, 0)), telephoneOffHook&
    If offHook% = 0 Then _PutImage (418, 136), telephone& Else _PutImage (418, 136), telephoneOffHook&

    'rocket
    _ClearColor (_RGB(0, 0, 0)), rocket&
    _PutImage (365, 352), rocket&

    'monster
    _ClearColor (_RGB(0, 0, 0)), monster&
    _PutImage (200, 110), monster&

    'actionFigure
    _ClearColor (_RGB(0, 0, 0)), actionFigure&
    _PutImage (380, 130), actionFigure&


    'stand in
    '_ClearColor (_RGB(0, 0, 0)), stdIn&
    '_PutImage (200, 330), stdIn&

    'clouds
    _ClearColor (_RGB(0, 0, 0)), cloud6&
    _PutImage (c6x, c6y), cloud6&

    _ClearColor (_RGB(0, 0, 0)), cloud7&
    _PutImage (c7x, c7y), cloud7&

    _ClearColor (_RGB(0, 0, 0)), cloud1&
    _PutImage (c1x, c1y), cloud1&

    _ClearColor (_RGB(0, 0, 0)), cloud2&
    _PutImage (c2x, c2y), cloud2&

    _ClearColor (_RGB(0, 0, 0)), cloud3&
    _PutImage (c3x, c3y), cloud3&

    _ClearColor (_RGB(0, 0, 0)), cloud4&
    _PutImage (c4x, c4y), cloud4&

    _ClearColor (_RGB(0, 0, 0)), cloud5&
    _PutImage (c5x, c5y), cloud5&

    _ClearColor (_RGB(0, 0, 0)), cloud6&
    _PutImage (c6x, c6y), cloud6&

    _ClearColor (_RGB(0, 0, 0)), cloud7&
    _PutImage (c7x, c7y), cloud7&

    If cloudDirection% = 0 Then c1x = c1x + 0.18
    If cloudDirection% = 0 Then c2x = c2x + 0.16
    If cloudDirection% = 0 Then c3x = c3x + 0.19
    If cloudDirection% = 0 Then c4x = c4x + 0.17
    If cloudDirection% = 0 Then c5x = c5x + 0.18
    If cloudDirection% = 0 Then c6x = c6x + 0.25
    If cloudDirection% = 0 Then c7x = c7x + 0.15

    Randomize Timer

    If cloudDirection% = 0 Then If c1x > 800 Then c1x = (Rnd * -950) + -100: c1y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
    If cloudDirection% = 0 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

    Randomize Timer

    If cloudDirection% = 1 Then c1x = c1x - 0.18
    If cloudDirection% = 1 Then c2x = c2x - 0.16
    If cloudDirection% = 1 Then c3x = c3x - 0.19
    If cloudDirection% = 1 Then c4x = c4x - 0.17
    If cloudDirection% = 1 Then c5x = c5x - 0.17
    If cloudDirection% = 1 Then c6x = c6x - 0.25
    If cloudDirection% = 1 Then c7x = c7x - 0.15

    Randomize Timer

    If cloudDirection% = 1 Then If c1x < -500 Then c1x = (Rnd * 1600) + 700: c1y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c2x < -425 Then c2x = (Rnd * 2400) + 700: c2y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c3x < -360 Then c3x = (Rnd * 1600) + 700: c3y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c4x < -225 Then c4x = (Rnd * 1600) + 700: c4y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c5x < -580 Then c5x = (Rnd * 1600) + 700: c5y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c6x < -175 Then c6x = (Rnd * 2400) + 700: c6y = (Rnd * 50) + 10
    If cloudDirection% = 1 Then If c7x < -620 Then c7x = (Rnd * 1600) + 700: c7y = (Rnd * 50) + 10

    If cloudDirection% = 2 Then c1x = c1x + 0.12
    If cloudDirection% = 2 Then c2x = c2x + 0.16
    If cloudDirection% = 2 Then c3x = c3x + 0.19
    If cloudDirection% = 2 Then c4x = c4x + 0.17
    If cloudDirection% = 2 Then c5x = c5x + 0.18
    If cloudDirection% = 2 Then c6x = c6x + 0.22
    If cloudDirection% = 2 Then c7x = c7x + 0.15

    Randomize Timer

    If cloudDirection% = 2 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
    If cloudDirection% = 2 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

    If cloudDirection% = 14 Then c1x = c1x - 0.88
    If cloudDirection% = 14 Then c2x = c2x - 0.86
    If cloudDirection% = 14 Then c3x = c3x - 0.89
    If cloudDirection% = 14 Then c4x = c4x - 0.87
    If cloudDirection% = 14 Then c5x = c5x - 0.84
    If cloudDirection% = 14 Then c6x = c6x - 0.90
    If cloudDirection% = 14 Then c7x = c7x - 0.85

    Randomize Timer

    If cloudDirection% = 14 Then If c1x < -500 Then c1x = (Rnd * 1600) + 700: c1y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c2x < -425 Then c2x = (Rnd * 2400) + 700: c2y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c3x < -360 Then c3x = (Rnd * 1600) + 700: c3y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c4x < -225 Then c4x = (Rnd * 1600) + 700: c4y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c5x < -580 Then c5x = (Rnd * 2300) + 700: c5y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c6x < -175 Then c6x = (Rnd * 2400) + 700: c6y = (Rnd * 50) + 10
    If cloudDirection% = 14 Then If c7x < -620 Then c7x = (Rnd * 1600) + 700: c7y = (Rnd * 50) + 10

    If cloudDirection% = 15 Then c1x = c1x + 1.05
    If cloudDirection% = 15 Then c2x = c2x + 1.07
    If cloudDirection% = 15 Then c3x = c3x + 1.29
    If cloudDirection% = 15 Then c4x = c4x + 1.27
    If cloudDirection% = 15 Then c5x = c5x + 1.28
    If cloudDirection% = 15 Then c6x = c6x + 1.30
    If cloudDirection% = 15 Then c7x = c7x + 1.04

    Randomize Timer

    If cloudDirection% = 15 Then If c1x > 800 Then c1x = (Rnd * -1800) + -100: c1y = (Rnd * 50) + 10
    If cloudDirection% = 15 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
    If cloudDirection% = 15 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
    If cloudDirection% = 15 Then If c4x > 985 Then c4x = (Rnd * -2600) + -100: c4y = (Rnd * 50) + 10
    If cloudDirection% = 1152 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
    If cloudDirection% = 15 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
    If cloudDirection% = 15 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

    If cloudDirection% = 5 Then c1x = c1x + 0.38
    If cloudDirection% = 5 Then c2x = c2x + 0.36
    If cloudDirection% = 5 Then c3x = c3x + 0.39
    If cloudDirection% = 5 Then c4x = c4x + 0.37
    If cloudDirection% = 5 Then c5x = c5x + 0.34
    If cloudDirection% = 5 Then c6x = c6x + 0.40
    If cloudDirection% = 5 Then c7x = c7x + 0.35

    Randomize Timer

    If cloudDirection% = 5 Then If c1x > 800 Then c1x = (Rnd * -1200) + -100: c1y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c3x > 1200 Then c3x = (Rnd * -1900) + -100: c3y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
    If cloudDirection% = 5 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

    If cloudDirection% = 6 Then c1x = c1x + 0.38
    If cloudDirection% = 6 Then c2x = c2x + 0.36
    If cloudDirection% = 6 Then c3x = c3x + 0.39
    If cloudDirection% = 6 Then c4x = c4x + 0.37
    If cloudDirection% = 6 Then c5x = c5x + 0.34
    If cloudDirection% = 6 Then c6x = c6x + 0.40
    If cloudDirection% = 6 Then c7x = c7x + 0.35

    Randomize Timer

    If cloudDirection% = 6 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
    If cloudDirection% = 6 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

    _ClearColor (_RGB(0, 0, 0)), hillRt&
    _PutImage (550, 200), hillRt&

    _ClearColor (_RGB(0, 0, 0)), hillLt&
    _PutImage (-70, 200), hillLt&
End Sub

Sub o420o
    If h% = 16 Then
        If m% > 19 And m% <= 40 Then
            changeChanAndTrax
            volControl
            change$ = "cup"

            _PutImage , background420&
            _ClearColor (_RGB(0, 0, 0)), sun&
            If h% > 15 And h% <= 16 Then _PutImage (520, 110), sun& '4pm

            'clouds
            _ClearColor (_RGB(0, 0, 0)), cloud1&
            _PutImage (c1x, c1y), cloud1&

            _ClearColor (_RGB(0, 0, 0)), cloud2&
            _PutImage (c2x, c2y), cloud2&

            _ClearColor (_RGB(0, 0, 0)), cloud3&
            _PutImage (c3x, c3y), cloud3&

            _ClearColor (_RGB(0, 0, 0)), cloud4&
            _PutImage (c4x, c4y), cloud4&

            _ClearColor (_RGB(0, 0, 0)), cloud5&
            _PutImage (c5x, c5y), cloud5&

            _ClearColor (_RGB(0, 0, 0)), cloud6&
            _PutImage (c6x, c6y), cloud6&

            _ClearColor (_RGB(0, 0, 0)), cloud7&
            _PutImage (c7x, c7y), cloud7&

            If cloudDirection% = 0 Then c1x = c1x + 0.18
            If cloudDirection% = 0 Then c2x = c2x + 0.16
            If cloudDirection% = 0 Then c3x = c3x + 0.19
            If cloudDirection% = 0 Then c4x = c4x + 0.17
            If cloudDirection% = 0 Then c5x = c5x + 0.18
            If cloudDirection% = 0 Then c6x = c6x + 0.25
            If cloudDirection% = 0 Then c7x = c7x + 0.15

            If cloudDirection% = 0 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
            If cloudDirection% = 0 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

            '' create speed variable so i can set the speed value at a random speed

            If cloudDirection% = 1 Then c1x = c1x - 0.18
            If cloudDirection% = 1 Then c2x = c2x - 0.16
            If cloudDirection% = 1 Then c3x = c3x - 0.19
            If cloudDirection% = 1 Then c4x = c4x - 0.17
            If cloudDirection% = 1 Then c5x = c5x - 0.17
            If cloudDirection% = 1 Then c6x = c6x - 0.25
            If cloudDirection% = 1 Then c7x = c7x - 0.15

            If cloudDirection% = 1 Then If c1x < -500 Then c1x = (Rnd * 1600) + 700: c1y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c2x < -425 Then c2x = (Rnd * 2400) + 700: c2y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c3x < -360 Then c3x = (Rnd * 1600) + 700: c3y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c4x < -225 Then c4x = (Rnd * 1600) + 700: c4y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c5x < -580 Then c5x = (Rnd * 1600) + 700: c5y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c6x < -175 Then c6x = (Rnd * 2400) + 700: c6y = (Rnd * 50) + 10
            If cloudDirection% = 1 Then If c7x < -620 Then c7x = (Rnd * 1600) + 700: c7y = (Rnd * 50) + 10

            If cloudDirection% = 2 Then c1x = c1x + 0.12
            If cloudDirection% = 2 Then c2x = c2x + 0.16
            If cloudDirection% = 2 Then c3x = c3x + 0.19
            If cloudDirection% = 2 Then c4x = c4x + 0.17
            If cloudDirection% = 2 Then c5x = c5x + 0.18
            If cloudDirection% = 2 Then c6x = c6x + 0.22
            If cloudDirection% = 2 Then c7x = c7x + 0.15

            If cloudDirection% = 2 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
            If cloudDirection% = 2 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

            If cloudDirection% = 14 Then c1x = c1x - 0.88
            If cloudDirection% = 14 Then c2x = c2x - 0.86
            If cloudDirection% = 14 Then c3x = c3x - 0.89
            If cloudDirection% = 14 Then c4x = c4x - 0.87
            If cloudDirection% = 14 Then c5x = c5x - 0.84
            If cloudDirection% = 14 Then c6x = c6x - 0.90
            If cloudDirection% = 14 Then c7x = c7x - 0.85

            If cloudDirection% = 14 Then If c1x < -500 Then c1x = (Rnd * 1600) + 700: c1y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c2x < -425 Then c2x = (Rnd * 2400) + 700: c2y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c3x < -360 Then c3x = (Rnd * 1600) + 700: c3y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c4x < -225 Then c4x = (Rnd * 1600) + 700: c4y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c5x < -580 Then c5x = (Rnd * 1600) + 700: c5y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c6x < -175 Then c6x = (Rnd * 2400) + 700: c6y = (Rnd * 50) + 10
            If cloudDirection% = 14 Then If c7x < -620 Then c7x = (Rnd * 1600) + 700: c7y = (Rnd * 50) + 10

            If cloudDirection% = 15 Then c1x = c1x + 1.05
            If cloudDirection% = 15 Then c2x = c2x + 1.07
            If cloudDirection% = 15 Then c3x = c3x + 1.29
            If cloudDirection% = 15 Then c4x = c4x + 1.27
            If cloudDirection% = 15 Then c5x = c5x + 1.28
            If cloudDirection% = 15 Then c6x = c6x + 1.30
            If cloudDirection% = 15 Then c7x = c7x + 1.04

            If cloudDirection% = 15 Then If c1x > 700 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
            If cloudDirection% = 15 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
            If cloudDirection% = 15 Then If c3x > 800 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
            If cloudDirection% = 15 Then If c4x > 885 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
            If cloudDirection% = 1152 Then If c5x > 800 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
            If cloudDirection% = 15 Then If c6x > 750 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
            If cloudDirection% = 15 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

            If cloudDirection% = 5 Then c1x = c1x + 0.38
            If cloudDirection% = 5 Then c2x = c2x + 0.36
            If cloudDirection% = 5 Then c3x = c3x + 0.39
            If cloudDirection% = 5 Then c4x = c4x + 0.37
            If cloudDirection% = 5 Then c5x = c5x + 0.34
            If cloudDirection% = 5 Then c6x = c6x + 0.40
            If cloudDirection% = 5 Then c7x = c7x + 0.35

            If cloudDirection% = 5 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
            If cloudDirection% = 5 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

            If cloudDirection% = 6 Then c1x = c1x + 0.38
            If cloudDirection% = 6 Then c2x = c2x + 0.36
            If cloudDirection% = 6 Then c3x = c3x + 0.39
            If cloudDirection% = 6 Then c4x = c4x + 0.37
            If cloudDirection% = 6 Then c5x = c5x + 0.34
            If cloudDirection% = 6 Then c6x = c6x + 0.40
            If cloudDirection% = 6 Then c7x = c7x + 0.35

            If cloudDirection% = 6 Then If c1x > 800 Then c1x = (Rnd * -800) + -100: c1y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c2x > 865 Then c2x = (Rnd * -2400) + -100: c2y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c3x > 1200 Then c3x = (Rnd * -1600) + -100: c3y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c4x > 985 Then c4x = (Rnd * -1600) + -100: c4y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c5x > 1200 Then c5x = (Rnd * -1600) + -100: c5y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c6x > 1000 Then c6x = (Rnd * -2400) + -100: c6y = (Rnd * 50) + 10
            If cloudDirection% = 6 Then If c7x > 752 Then c7x = (Rnd * -1600) + -100: c7y = (Rnd * 50) + 10

            _ClearColor (_RGB(0, 0, 0)), hillRt&
            _PutImage (550, 200), hillRt&

            _ClearColor (_RGB(0, 0, 0)), hillLt&
            _PutImage (-70, 200), hillLt&
        End If
    End If

    ''synthoboard
    _ClearColor (_RGB(0, 0, 0)), sybthboard&
    _PutImage (454, 232), sybthboard&

    ''atari sign
    _ClearColor (_RGB(0, 0, 0)), atarilogo&
    _PutImage (400, 110), atarilogo&
End Sub

Sub ghost_timer
    Select Case h%
        Case 1
            If m% >= 11 And m% <= 26 Then ghost
            If m% >= 45 And m% <= 53 Then ghost
    End Select

    Select Case h%
        Case 2
            If m% >= 2 And m% <= 18 Then ghost
            If m% >= 34 And m% <= 48 Then ghost
    End Select

    Select Case h%
        Case 3
            If m% >= 3 And m% <= 58 Then ghost
    End Select

    Select Case h%
        Case 4
            If m% >= 1 And m% <= 8 Then ghost
            If m% >= 23 And m% <= 31 Then ghost
    End Select

    Select Case h%
        Case 5
            If m% >= 35 And m% <= 39 Then ghost
            If m% >= 5 And m% <= 9 Then ghost
    End Select

    Select Case h%
        Case 6
            If m% >= 45 And m% <= 58 Then ghost
            If m% >= 6 And m% <= 12 Then ghost
    End Select

    Select Case h%
        Case 7
            If m% >= 2 And m% <= 8 Then
                ghost
            Else
                If m% >= 37 And m% < 41 Then ghost
            End If
    End Select

    Select Case h%
        Case 8
            If m% >= 2 And m% <= 8 Then
                ghost
            Else
                If m% >= 42 And m% < 47 Then ghost
            End If
    End Select

    Select Case h%
        Case 9
            If m% >= 8 And m% <= 12 Then
                ghost
            Else
                If m% >= 39 And m% < 46 Then ghost
            End If
    End Select

    Select Case h%
        Case 10
            If m% >= 10 And m% <= 16 Then
                ghost
            Else
                If m% >= 48 And m% < 53 Then ghost
            End If
    End Select

    Select Case h%
        Case 11
            If m% >= 3 And m% <= 9 Then
                ghost
            Else
                If m% >= 48 And m% < 52 Then ghost
            End If
    End Select

    Select Case h%
        Case 12
            If m% >= 2 And m% <= 11 Then
                ghost
            Else
                If m% >= 23 And m% < 31 Then ghost
            End If
    End Select

    Select Case h%
        Case 13
            If m% >= 13 And m% <= 17 Then
                ghost
            Else
                If m% >= 45 And m% < 51 Then ghost
            End If
    End Select

    Select Case h%
        Case 14
            If m% >= 4 And m% <= 9 Then
                ghost
            Else
                If m% >= 23 And m% < 28 Then ghost
            End If
    End Select

    Select Case h%
        Case 15
            If m% >= 3 And m% <= 13 Then
                ghost
            Else
                If m% >= 32 And m% < 41 Then ghost
            End If
    End Select

    Select Case h%
        Case 16
            If m% > 19 And m% <= 40 Then
                ghost
            Else
                If m% > 52 And m% <= 57 Then ghost
            End If
    End Select

    Select Case h%
        Case 17
            If m% >= 14 And m% <= 19 Then
                ghost
            Else
                If m% >= 34 And m% < 38 Then ghost
            End If
    End Select

    Select Case h%
        Case 18
            If m% >= 12 And m% <= 17 Then
                ghost
            Else
                If m% >= 38 And m% < 44 Then ghost
            End If
    End Select

    Select Case h%
        Case 19
            If m% >= 3 And m% <= 7 Then
                ghost
            Else
                If m% >= 45 And m% < 52 Then ghost
            End If
    End Select

    Select Case h%
        Case 20
            If m% >= 10 And m% < 26 Then
                ghost
            Else
                If m% >= 39 And m% < 57 Then ghost
            End If
    End Select

    Select Case h%
        Case 21
            If m% >= 14 And m% < 24 Then
                ghost
            Else
                If m% >= 41 And m% < 53 Then ghost
            End If
    End Select

    Select Case h%
        Case 22
            If m% >= 10 And m% <= 14 Then
                ghost
            Else
                If m% >= 39 And m% < 44 Then ghost
            End If
    End Select

    Select Case h%
        Case 23
            If m% >= 11 And m% <= 17 Then
                ghost
            Else
                If m% >= 37 And m% < 41 Then ghost
            End If
    End Select

    Select Case h%
        Case 0
            If m% >= 12 And m% <= 18 Then
                ghost
            Else
                If m% >= 33 And m% < 39 Then ghost
            End If
    End Select
End Sub

Sub ghost
    frame4& = frame4& + 1
    If frame4& > 40 Then frame4& = 1

    Select Case frame4&
        Case 1
            ghost_sprite& = _LoadImage("sprite\ghost_1a.png", 32)
        Case 10
            ghost_sprite& = _LoadImage("sprite\ghost_1b.png", 32)
        Case 20
            ghost_sprite& = _LoadImage("sprite\ghost_1c.png", 32)
        Case 30
            ghost_sprite& = _LoadImage("sprite\ghost_1d.png", 32)
    End Select

    _ClearColor _RGB(0, 0, 0), ghost_sprite&
    _PutImage (gx, gy), ghost_sprite&

    Select Case gx$
        Case "left"
            gx = gx - 0.2
        Case "right"
            gx = gx + 0.2
        Case "off"
            gx = gx - 0
    End Select

    Select Case gy$
        Case "up"
            gy = gy - 0.2
        Case "down"
            gy = gy + 0.2
        Case "off"
            gy = gy - 0
    End Select

    Select Case gx
        Case Is < 115
            gx$ = "right"
        Case Is > 474
            gx$ = "left"
    End Select

    Select Case gy
        Case Is > 355
            gy$ = "up"
        Case Is < 100
            gy$ = "down"
    End Select

    If Int(gy) > Int(sy) - 50 And Int(gy) < Int(sy) + 50 And Int(sx) > Int(gx) Then
        gx = gx + .5
    End If

    If Int(gy) > Int(sy) - 50 And Int(gy) < Int(sy) + 50 And Int(sx) < Int(gx) Then
        gx = gx - .5
    End If
End Sub

Sub foodRtTime
    If cookTrig% >= 10 Then
        rmtriglk1a = 1
        rmtriglk3a = 0
        rmtriglk3b = 0
        rmtriglk2c = 0
        rmtriglk1b = 0
        tvtrig% = 0
        tvplaying
        stoptrx
        If floorNum% > 1 Then
            change$ = "cdown"
        End If
        If floorNum% = 1 And sx >= 225 Then
            xmove$ = "left"
        End If
    End If
End Sub

Sub room_triggers

    If floorNum% = 1 And cookTrig >= 10 And Int(sx) <= 125 Then
        cookFrame& = cookFrame& + 1
        cookTimer% = cookTimer% + 1
        xmove$ = "cook"
        If cookTimer% >= 2500 Then
            xmove$ = "foodRt"
            rmtimer = 2000
            rmtriglk1a = 1
            cookTrig = 0
            cookTimer% = 0
            _SndStop sndCook&
        End If
    End If

    If rmtriglk1a = 1 And xmove$ = "foodRt" And Int(sx) = 250 And Int(sy) = 330 Then
        xmove$ = "eat"
    End If
    If xmove$ = "eat" Then rmtimer = rmtimer - 1: framesitkit& = framesitkit& + 1
    If rmtimer <= 1 Then _SndStop sndEat&: wash% = 1: xmove$ = "foodLt": rmtimer = 2500: rmtriglk1a = 0

    If floorNum% = 1 And wash% = 1 And Int(sx) = 200 Then
        rmtimer = rmtimer - 1
        xmove$ = "wash"
        _SndStop sndBurp&
        If rmtimer <= 1 Then _SndStop sndDishWash&: xmove$ = "left": wash% = 0: rmtimer = 800
    End If

    If floorNum% = 1 And Int(sx) = 370 Then xmvcpy$ = xmove$
    If floorNum% = 1 And Int(sx) = 410 Then xmvcpy$ = xmove$
    If rmtriglk1b = 1 And Int(sx) = 390 And Int(sy) = 330 Then
        framesit3& = framesit3& + 1
        rmtimer = rmtimer - 1
        xmove$ = "fishTank"
    End If
    If rmtimer <= 1 Then xmove$ = xmvcpy$: change$ = "coff": rmtimer = 800: rmtriglk1b = 0

    If floorNum% = 2 And Int(sx) = 300 And Int(sy) = 230 Then xmvcpy$ = xmove$
    If floorNum% = 2 And Int(sx) = 320 And Int(sy) = 230 Then xmvcpy$ = xmove$
    If rmtriglk2b = 1 And Int(sx) = 315 And Int(sy) < 231 And Int(sy) > 224 Then
        frame2& = frame2& + 1
        rmtimer = rmtimer - 1
        xmove$ = "brushTeeth"
    End If
    If rmtimer <= 1 Then xmove$ = "left": rmtimer = 500: rmtriglk2b = 0: sy = 230: _SndStop sndBrushTeeth&



    Dim bathGo%
    If bathTimer% = 3810 Then bathTimer% = 0

    If floorNum% = 2 And rmtriglk2d = 1 And Int(sx) = 380 Then
        bathGo% = 1
        bowel% = 0
        handWash% = 0
    End If
    If bathGo% = 1 Then
        _ClearColor (_RGB(0, 0, 0)), bathDoorOccupied&
        _PutImage (353, 210), bathDoorOccupied&
    End If

    If bathGo% = 1 Then bathTimer% = bathTimer% + 1
    If bathGo% = 1 And bathTimer% < 50 Then
        _PutImage (353, 208), openBathDoor&
        xmove$ = "bathroom"
    End If

    If bathTimer% >= 15 And bathTimer% < 75 Then
        sndBathRm$ = "doorClose"
        _PutImage (-353, -208), openBathDoor&
    End If

    If bathTimer% >= 75 Then _SndStop sndBathDoorClose&
    If bathTimer% >= 150 Then sndBathRm$ = "poop" ': _ClearColor (_RGB(0, 0, 0)), bathDoorOccupied&: _PutImage (353, 210), bathDoorOccupied&
    If bathTimer% >= 2500 Then _SndStop sndPoop& ': _ClearColor (_RGB(0, 0, 0)), bathDoorOccupied&: _PutImage (353, 210), bathDoorOccupied&
    If bathTimer% >= 3000 And bathTimer% < 3050 Then sndBathRm$ = "flush"
    If bathTimer% >= 3800 Then _SndStop sndFlush& ': _ClearColor (_RGB(0, 0, 0)), bathDoorOccupied&: _PutImage (353, 210), bathDoorOccupied&
    If bathGo% = 1 And bathTimer% >= 3600 Then
        '_ClearColor (_RGB(0, 0, 0)), bathDoorOccupied&
        '_PutImage (-353, -210), bathDoorOccupied&
        _PutImage (353, 208), openBathDoor&
        xmove$ = "bathroom"
    End If

    If bathTimer% >= 3700 And bathTimer% < 3800 Then
        sy = 215
        xmove$ = "left"
        _PutImage (-353, -208), openBathDoor&
        _SndVol sndBathDoorClose&, 2.0
        _SndLoop sndBathDoorClose&
    End If
    If bathTimer% >= 3880 Then _SndStop sndBathDoorClose&
    If bathTimer% >= 3700 Then bathGo% = 1
    If bathTimer% >= 3800 Then bathGo% = 2: rmtriglk2e = 1
    If bathGo% = 1 And Int(sx) <> 380 Then bathTimer% = bathTimer% + 1: handWash% = 0
    If rmtriglk2e = 1 And handWash% < 1350 Then handWash% = handWash% + 1
    If handWash% < 1000 And floorNum% = 2 And Int(sx) = 315 And rmtriglk2e = 1 Then
        sy = 215
        xmove$ = "washHand"
        bathGo% = 0
        rmtriglk2e = 0
        rmtriglk2d = 0
    End If
    If handWash% > 1000 And handWash% < 1350 Then
        xmove$ = "left"
        _SndStop sndWashHands&
        sy = 230
        bathGo% = 0
        rmtriglk2e = 0
        bowel% = 0
    End If
    If handWash% > 1300 Then
        bathGo% = 0
        rmtriglk2e = 0
    End If

    If rmtriglk2c = 1 And Int(sx) = 450 And floorNum% = 2 Then
        num = 23
        Randomize Timer
        syntrx% = Int(myRandom(num))
    End If
    If rmtriglk2c = 1 And Int(sx) = 458 And floorNum% = 2 Then
        sy = 212
        rmtimer = rmtimer - 1
        xmove$ = "synth"
        synthAction
        _PutImage (428, 210), synth_action&
        _ClearColor (_RGB(0, 0, 0)), synth_scope&
        _PutImage (494, 227), synth_scope&
    End If
    If rmtimer <= 1 Then
        xmove$ = "right": rmtimer = 12000: sy = 230: rmtriglk2c = 0: stoptrx
    End If

    If floorNum% = 3 And Int(sx) = 235 And rmtriglk3a = 1 And xmove$ = "left" Then xmvcpy$ = xmove$
    If floorNum% = 3 And Int(sx) = 225 And rmtriglk3a = 1 And xmove$ = "right" Then xmvcpy$ = xmove$
    If tvtrig% = 1 And Int(sx) = 230 And floorNum% = 3 Then
        framesittv& = framesittv& + 1
        rmtimer = rmtimer - 1
        num = 22
        Randomize Timer
        tvchanview
        xmove$ = "tvsit"
    End If
    If rmtimer <= 1 Then
        xmove$ = xmvcpy$: rmtimer = 1200: rmtriglk3a = 0
    End If

    Select Case tvtrig%
        Case 1
            tvflicker
    End Select

    Dim typejob%

    If floorNum% = 3 And Int(sx) = 375 Then xmvcpy$ = xmove$: tvtrig% = 1: typejob% = (Rnd * 4) + 1: If typejob% = 4 Then rmtimer = 1100 Else rmtimer = 800
    If floorNum% = 3 And Int(sx) = 390 Then xmvcpy$ = xmove$: tvtrig% = 1: typejob% = (Rnd * 2) + 1
    If rmtriglk3b = 1 And Int(sx) = 380 And floorNum% = 3 Then sx = 385: sy = 100
    If rmtriglk3b = 1 And Int(sx) = 385 And floorNum% = 3 Then
        synFrame% = synFrame% + 1
        rmtimer = rmtimer - 1
        If typejob% = 4 Then xmove$ = "sit_type_b" Else xmove$ = "sit_type_a"
    End If
    If rmtimer <= 1 Then
        xmove$ = "right": rmtimer = 800: rmtriglk3b = 0: sx = 400: sy = 120
        papertrig = 1: _SndStop typew&
    End If
End Sub

Sub tvplaying
    Dim isPlaying1%
    isPlaying1% = _SndPlaying(tvsnd1&)
    Dim isPlaying2%
    isPlaying2% = _SndPlaying(tvsnd2&)
    Dim isPlaying3%
    isPlaying3% = _SndPlaying(tvsnd3&)
    Dim isPlaying4%
    isPlaying4% = _SndPlaying(tvsnd4&)
    Dim isPlaying5%
    isPlaying5% = _SndPlaying(tvsnd5&)
    Dim isPlaying6%
    isPlaying6% = _SndPlaying(tvsnd6&)
    Dim isPlaying7%
    isPlaying7% = _SndPlaying(tvsnd7&)
    Dim isPlaying8%
    isPlaying8% = _SndPlaying(tvsnd8&)
    Dim isPlaying9%
    isPlaying9% = _SndPlaying(tvsnd9&)
    Dim isPlaying10%
    isPlaying10% = _SndPlaying(tvsnd10&)
    Dim isPlaying11%
    isPlaying11% = _SndPlaying(tvsnd11&)
    Dim isPlaying12%
    isPlaying12% = _SndPlaying(tvsnd12&)
    Dim isPlaying13%
    isPlaying13% = _SndPlaying(tvsnd13&)
    Dim isPlaying14%
    isPlaying14% = _SndPlaying(tvsnd14&)
    Dim isPlaying15%
    isPlaying15% = _SndPlaying(tvsnd15&)
    Dim isPlaying16%
    isPlaying16% = _SndPlaying(tvsnd16&)
    Dim isPlaying17%
    isPlaying17% = _SndPlaying(tvsnd17&)
    Dim isPlaying18%
    isPlaying18% = _SndPlaying(tvsnd18&)
    Dim isPlaying19%
    isPlaying19% = _SndPlaying(tvsnd19&)
    Dim isPlaying20%
    isPlaying20% = _SndPlaying(tvsnd20&)
    Dim isPlaying21%
    isPlaying21% = _SndPlaying(tvsnd21&)
    Dim isPlaying22%
    isPlaying22% = _SndPlaying(tvsnd22&)
    Dim isPlaying23%
    isPlaying23% = _SndPlaying(tvsnd23&)
    Dim isPlaying24%
    isPlaying24% = _SndPlaying(tvsnd24&)
    Dim isPlaying25%
    isPlaying25% = _SndPlaying(tvsnd25&)
    Dim isPlaying26%
    isPlaying26% = _SndPlaying(tvsnd26&)

    If isPlaying1% = -1 Then
        _SndVol tvsnd1&, 0.00
    End If
    If isPlaying2% = -1 Then
        _SndVol tvsnd2&, 0.00
    End If
    If isPlaying3% = -1 Then
        _SndVol tvsnd3&, 0.00
    End If
    If isPlaying4% = -1 Then
        _SndVol tvsnd4&, 0.00
    End If
    If isPlaying5% = -1 Then
        _SndVol tvsnd5&, 0.00
    End If
    If isPlaying6% = -1 Then
        _SndVol tvsnd6&, 0.00
    End If
    If isPlaying7% = -1 Then
        _SndVol tvsnd7&, 0.00
    End If
    If isPlaying8% = -1 Then
        _SndVol tvsnd8&, 0.00
    End If
    If isPlaying9% = -1 Then
        _SndVol tvsnd9&, 0.00
    End If
    If isPlaying10% = -1 Then
        _SndVol tvsnd10&, 0.00
    End If
    If isPlaying11% = -1 Then
        _SndVol tvsnd11&, 0.00
    End If
    If isPlaying12% = -1 Then
        _SndVol tvsnd12&, 0.00
    End If
    If isPlaying13% = -1 Then
        _SndVol tvsnd13&, 0.00
    End If
    If isPlaying14% = -1 Then
        _SndVol tvsnd14&, 0.00
    End If
    If isPlaying15% = -1 Then
        _SndVol tvsnd15&, 0.00
    End If
    If isPlaying16% = -1 Then
        _SndVol tvsnd16&, 0.00
    End If
    If isPlaying17% = -1 Then
        _SndVol tvsnd17&, 0.00
    End If
    If isPlaying18% = -1 Then
        _SndVol tvsnd18&, 0.00
    End If
    If isPlaying19% = -1 Then
        _SndVol tvsnd19&, 0.00
    End If
    If isPlaying20% = -1 Then
        _SndVol tvsnd20&, 0.00
    End If
    If isPlaying21% = -1 Then
        _SndVol tvsnd21&, 0.00
    End If
    If isPlaying22% = -1 Then
        _SndVol tvsnd22&, 0.00
    End If
    If isPlaying23% = -1 Then
        _SndVol tvsnd23&, 0.00
    End If
    If isPlaying24% = -1 Then
        _SndVol tvsnd24&, 0.00
    End If
    If isPlaying25% = -1 Then
        _SndVol tvsnd25&, 0.00
    End If
    If isPlaying26% = -1 Then
        _SndVol tvsnd26&, 0.00
    End If
End Sub

Sub bowels
    Randomize Timer
    bowel% = (Rnd * 9) + 1
    If bowel% = 3 Or bowel% = 6 Then rmtriglk2d = 1

End Sub
Sub atariMan_sprite
    volControl
    changeChanAndTrax
    Dim xm As Integer

    synscframe& = synscframe& + 1
    synscframe2& = synscframe2& + 1
    frame& = frame& + 1
    If frame& > 30 Then frame& = 1
    If frame2& > 90 Then frame2& = 1

    starTimer% = starTimer% + 1
    If starTimer% > 60 Then starTimer% = 0


    starFrame% = starFrame% + 1
    If starFrame% > 300 Then starFrame% = 1

    washFrame& = washFrame& + 1
    If washFrame& > 90 Then washFrame& = 1

    If ymove$ = "up" Then sy = sy - 0.3
    If ymove$ = "down" Then sy = sy + 0.3
    If ymove$ = "yoff" Then sy = sy - 0
    '''''''''''''1st to 2nd floor '''''''''''''''''
    If change$ = "cup" And floorNum% = 1 And Int(sx) = 328 Then ymove$ = "up": xmove$ = "stairup": floorNum% = 0
    If change$ = "cup" And floorNum% = 0 And Int(sy) = 278 Then xmove$ = "left"
    If change$ = "cup" And floorNum% = 0 And ymove$ = "up" And Int(sy) = 280 Then xmove$ = "left"
    If change$ = "cup" And floorNum% = 0 And ymove$ = "up" And Int(sy) = 230 Then
        If rmtriglk2d = 1 Then ymove$ = "yoff": xmove$ = "right": floorNum% = 2: change$ = "coff"
        If rmtriglk2c = 1 Then ymove$ = "yoff": xmove$ = "right": floorNum% = 2: change$ = "coff"
        If rmtriglk3a = 1 Then ymove$ = "yoff": xmove$ = "right": floorNum% = 2: change$ = "cup"
        If rmTrigOff = 1 Then ymove$ = "yoff": xmove$ = "left": floorNum% = 2: change$ = "coff"
    End If

    If floorNum% = 0 And Int(sy) = 230 Then floorNum% = 2

    If floorNum% = 1 And sx < 120 Then
        Randomize Timer
        cv = Int(Rnd * 4) + 1
        Select Case cv
            Case 0
                change$ = "cup": rmtriglk3a = 1: xmove$ = "right": rmtimer = 800: cookTrig = cookTrig + 1: bowels
            Case 1
                change$ = "cup": rmTrigOff = 1: xmove$ = "right": rmtimer = 4500: cookTrig = cookTrig + 1: bowels
            Case 2
                change$ = "cup": rmtriglk3a = 1: xmove$ = "right": rmtimer = 800: cookTrig = cookTrig + 1: bowels
            Case 3
                change$ = "cup": rmtriglk2c = 1: xmove$ = "right": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: bowels
            Case 4
                change$ = "cup": rmtriglk3a = 1: xmove$ = "right": rmtimer = 800: cookTrig = cookTrig + 1: bowels
        End Select
    End If

    If floorNum% = 1 And sx > 475 Then
        Randomize Timer
        cv = Int(Rnd * 5) + 1
        If cv = 0 Then cv = 1
        Select Case cv
            Case 1
                change$ = "coff": rmtriglk1b = 1: xmove$ = "left": rmtimer = 6000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: bowels
            Case 2
                change$ = "cup": rmtriglk2c = 1: xmove$ = "left": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: bowels
            Case 3
                change$ = "cup": rmtriglk3a = 1: xmove$ = "left": rmtimer = 800: cookTrig = cookTrig + 1: bowels
            Case 4
                change$ = "cup": rmTrigOff = 1: xmove$ = "left": rmtimer = 4500: cookTrig = cookTrig + 1: bowels
            Case 5
                change$ = "coff": rmtriglk1b = 1: xmove$ = "left": rmtimer = 3000: bowels
        End Select
    End If
    ''''''''''''''2nd to 1st floor ''''''''''''''''
    If change$ = "cdown" And floorNum% = 2 And Int(sx) = 255 Then ymove$ = "down": xmove$ = "right"
    If change$ = "cdown" And floorNum% = 2 And Int(sy) = 231 Then floorNum% = 0
    If change$ = "cdown" And floorNum% = 0 And Int(sx) = 328 Then xmove$ = "stairdw"
    If change$ = "cdown" And floorNum% = 0 And Int(sy) = 330 Then
        If rmtriglk1a = 1 Then ymove$ = "yoff": xmove$ = "left": floorNum% = 1: change$ = "coff"
        If rmtriglk1b = 1 Then ymove$ = "yoff": xmove$ = "right": floorNum% = 1: change$ = "coff"
        If rmtriglk2a = 1 Or rmtriglk2b = 1 Then ymove$ = "yoff": xmove$ = "washHand": floorNum% = 1: change$ = "coff"
        If rmtriglk3a = 1 Or rmtriglk3b = 1 Or rmTrigOff = 1 Then ymove$ = "yoff": xmove$ = "sleep": floorNum% = 1: change$ = "coff"
    End If

    'bedtime
    If ampm$ = " A.M." And h% = 12 Then sleepTrig% = 20
    If ampm$ = " A.M." And wakeUp% = 0 And h% >= 1 And h% <= 5 Then sleepTrig% = 20
    If ampm$ = " P.M." And wakeUp% = 0 And h% > 9 And h% <= 11 Then sleepTrig% = 20
    If sleepTrig% >= 20 Then rmtriglk2a = 1 Else rmtriglk2a = 0
    If floorNum% = 2 And sleepTrig% >= 20 And sx < 175 And rmtriglk2a = 1 Then
        GoSub sleeep:
    Else
        GoSub awake:
    End If

    sleeep:
    If sleepTrig% >= 20 Then rmtriglk2a = 1 Else rmtriglk2a = 0
    'If rmtriglk2a = 1 And floorNum% = 2 And Int(sx) = 175 And rmtriglk2a = 1 Then sx = 150: sy = 280
    If floorNum% = 2 And Int(sx) = 150 And rmtriglk2a = 1 Then
        sleepTimer% = sleepTimer% + 1
        sx = 150: sy = 242
        xmove$ = "sleep"
    End If

    '''wake up'''
    If _KeyDown(wKey) Or _KeyDown(WKeyCap) Then
        sleepTrig% = 0
        wakeUp% = 1
        xmove$ = "right"
        sx = 175: sy = 230
        rmtriglk2a = 0
        rmtriglk2b = 1
        rmtimer = 1900
        _SndStop sleeeep&
        _PutImage (320, 240), atarilogo&
    End If

    If sleepTimer% = 0 Then _SndStop sleeeep&

    awake:
    If floorNum% = 2 And rmtriglk2a = 0 And sx < 175 Then
        Randomize Timer
        cv = Int(Rnd * 5) + 1
        Select Case cv
            Case 0
                change$ = "coff": rmtriglk2c = 1: xmove$ = "right": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: rmtriglk2e = 0
            Case 1
                change$ = "cdown": rmtriglk1b = 1: xmove$ = "right": rmtimer = 1800: cookTrig = cookTrig + 1: rmtriglk2e = 0
            Case 2
                change$ = "coff": rmtriglk2c = 1: xmove$ = "right": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: rmtriglk2e = 0
            Case 3
                change$ = "cup": rmtriglk3a = 1: xmove$ = "right": rmtimer = 800: cookTrig = cookTrig + 1: rmtriglk2e = 0
            Case 4
                change$ = "cdown": rmtriglk1b = 1: xmove$ = "right": rmtimer = 3500: cookTrig = cookTrig + 1: rmtriglk2e = 0
            Case 5
                change$ = "cup": rmtriglk3a = 1: xmove$ = "right": rmtimer = 800: cookTrig = cookTrig + 1: rmtriglk2e = 0
        End Select
    End If
    If floorNum% = 2 And sx > 475 Then
        Randomize Timer
        cv = Int(Rnd * 5) + 1
        Select Case cv
            Case 0
                change$ = "coff": rmtriglk2c = 1: xmove$ = "left": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1
            Case 1
                change$ = "coff": xmove$ = "left": rmtimer = 500: cookTrig = cookTrig + 1
            Case 2
                change$ = "coff": rmtriglk2c = 1: xmove$ = "left": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1
            Case 3
                change$ = "coff": xmove$ = "left": rmtimer = 500: cookTrig = cookTrig + 1
            Case 4
                change$ = "coff": rmtriglk2c = 1: xmove$ = "left": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1
            Case 5
                change$ = "coff": rmtriglk2c = 1: xmove$ = "left": rmtimer = 12000: num = 23: Randomize Timer: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1
        End Select
    End If
    ''''''''''''''2nd to 3rd floor ''''''''''''''''
    If change$ = "cup" And floorNum% = 2 And Int(sx) = 283 Then floorNum% = 4: ymove$ = "up": xmove$ = "stairup"
    If change$ = "cup" And floorNum% = 4 And Int(sy) = 170 Then xmove$ = "right"
    If change$ = "cup" And floorNum% = 4 And Int(sx) = 350 Then
        ymove$ = "yoff": xmove$ = "left": floorNum% = 3: change$ = "coff": rmtriglk3a = 1: wakeUp% = 0
    End If
    ''''''''''''''3rd to 2nd floor ''''''''''''''''
    If change$ = "cdown" And floorNum% = 3 And Int(sx) = 350 Then ymove$ = "down": xmove$ = "left"
    If change$ = "cdown" And floorNum% = 3 And Int(sy) = 125 Then floorNum% = 5
    If change$ = "cdown" And floorNum% = 5 And Int(sx) = 275 Then xmove$ = "stairdw"
    If floorNum% = 5 And Int(sy) = 230 Then
        If rmtriglk2c = 1 Or rmtriglk2d = 1 Then ymove$ = "yoff": xmove$ = "right": floorNum% = 2: change$ = "coff"
        If rmtriglk1b = 1 Or rmtriglk1a = 1 Then ymove$ = "yoff": xmove$ = "left": floorNum% = 2: change$ = "cdown"
    End If

    If floorNum% = 3 And sx < 180 Then
        Randomize Timer
        cv = Int(Rnd * 4) + 1
        If srt% = 1 Then cv = 1: srt% = 0
        Select Case cv
            Case 0
                change$ = "cdown": rmtriglk2c = 1: xmove$ = "right": tvtrig% = 0: tvplaying: cookTrig = cookTrig + 1: bowels
            Case 1
                change$ = "coff": rmtriglk3a = 1: xmove$ = "right": tvplaying: tvtrig% = 1: rmtriglk3b = 1: tvflicker: rmtimer = 800: Randomize Timer: num = 22: tvc = Int(myRandom(num)): cookTrig = cookTrig + 1
            Case 2
                change$ = "coff": rmtriglk3a = 1: rmtriglk3b = 1: xmove$ = "right": tvplaying: tvtrig% = 1: tvflicker: rmtimer = 800: Randomize Timer: num = 22: tvc = Int(myRandom(num)): cookTrig = cookTrig + 1
            Case 3
                change$ = "coff": rmtriglk3a = 1: rmtriglk3b = 1: xmove$ = "right": tvplaying: tvtrig% = 1: tvflicker: rmtimer = 800: Randomize Timer: num = 22: tvc = Int(myRandom(num)): cookTrig = cookTrig + 1
            Case 4
                change$ = "cdown": rmtriglk1b = 1: xmove$ = "right": tvtrig% = 0: tvplaying: rmtimer = 12000: num = 18: Randomize Timer: num = 23: syntrx% = Int(myRandom(num)): stoptrx: cookTrig = cookTrig + 1: bowels
        End Select
    End If

    If floorNum% = 3 And sx > 425 Then
        Randomize Timer
        cv = Int(Rnd * 4) + 1
        Select Case cv
            Case 0
                change$ = "coff": rmtriglk3b = 1: xmove$ = "left": rmtimer = 1600: cookTrig = cookTrig + 1
            Case 1
                change$ = "coff": rmtriglk3b = 1: xmove$ = "left": rmtimer = 1600: cookTrig = cookTrig + 1
            Case 2
                change$ = "coff": rmtriglk3a = 1: xmove$ = "left": rmtimer = 1600: cookTrig = cookTrig + 1
            Case 3
                change$ = "coff": rmtriglk3b = 1: xmove$ = "left": rmtimer = 1600: cookTrig = cookTrig + 1
            Case 4
                change$ = "coff": rmtriglk3a = 1: xmove$ = "left": rmtimer = 1600: cookTrig = cookTrig + 1
        End Select
    End If

    If floorNum% = 3 And Int(sx) > 400 And Int(sx) < 425 And papertrig = 1 Then
        paper& = _LoadImage("sprite\am_paper.png", 32)
        _ClearColor _RGB(0, 0, 0), paper&
        _PutImage (sx + 25, sy + 20), paper&
    End If
    If floorNum% = 3 And xmove$ = "left" And Int(sx) > 400 And Int(sx) < 425 And papertrig = 1 Then papertrig = 0

    Select Case xmove$
        Case "left"
            sx = sx - 0.4: move_lt
        Case "right"
            sx = sx + 0.4: move_rt
        Case "xoff"
            sx = sx - 0: move_not
        Case "stairup"
            sx = sx - 0: stairs_up
        Case "stairdw"
            sx = sx - 0: stairs_down
        Case "eat"
            sx = sx - 0: eat
        Case "tvsit"
            sx = sx - 0: tvsit
        Case "sit_type_a"
            sx = sx - 0: sit_type_a
        Case "sit_type_b"
            sx = sx - 0: sit_type_b
        Case "fishTank"
            sx = sx - 0: fishTank
        Case "brushTeeth"
            sx = sx - 0: brushTeeth
        Case "synth"
            sx = sx - 0: synthPlay
        Case "sleep"
            sx = sx - 0: sleeep
        Case "cook"
            sx = sx - 0: cooking
        Case "foodRt"
            sx = sx + 0.4: move_rt_food
        Case "foodLt"
            sx = sx - 0.4: move_lt_food
        Case "wash"
            sy = 325: sx = sx - 0: washDish
        Case "washHand"
            sx = sx - 0: washHand
        Case "bathroom"
            sx = sx - 0: bathroom
        Case "moveNot"
            sx = sx - 0: move_not
    End Select

    _ClearColor _RGB(0, 0, 0), atariMan&
    _PutImage (sx, sy), atariMan&
End Sub

Sub move_rt
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_1.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_2.png", 32)
    End Select
End Sub

Sub move_rt_food
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_1.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_2.png", 32)
    End Select

    _ClearColor (_RGB(0, 0, 0)), dish&
    _PutImage (sx + 20, sy + 25), dish&
End Sub

Sub move_lt_food
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_1a.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_2a.png", 32)
    End Select

    _ClearColor (_RGB(0, 0, 0)), dishDone&
    _PutImage (sx - 10, sy + 25), dishDone&
End Sub

Sub synthPlay
    synthTraxView
    _ClearColor (_RGB(255, 255, 255)), atariMan&
    synFrame% = synFrame% + 1
    If synFrame% > 1150 Then synFrame% = 0

    Select Case synFrame%
        Case 1
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 10
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 20
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\am_sit_synth_a.png", 32)
        Case 50
            atariMan& = _LoadImage("sprite\am_sit_synth_ab.png", 32)
        Case 75
            atariMan& = _LoadImage("sprite\am_sit_synth_ac.png", 32)
        Case 95
            atariMan& = _LoadImage("sprite\am_sit_synth_a.png", 32)
        Case 115
            atariMan& = _LoadImage("sprite\am_sit_synth_ab.png", 32)
        Case 140
            atariMan& = _LoadImage("sprite\am_sit_synth_ac.png", 32)
        Case 160
            atariMan& = _LoadImage("sprite\am_sit_synth_a.png", 32)
        Case 180
            atariMan& = _LoadImage("sprite\am_sit_synth_ab.png", 32)
        Case 205
            atariMan& = _LoadImage("sprite\am_sit_synth_ac.png", 32)
        Case 225
            atariMan& = _LoadImage("sprite\am_sit_synth_a.png", 32)
        Case 245
            atariMan& = _LoadImage("sprite\am_sit_synth_ab.png", 32)
        Case 270
            atariMan& = _LoadImage("sprite\am_sit_synth_ac.png", 32)
        Case 300
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 335
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 340
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 350
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 360.
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 365
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 385
            atariMan& = _LoadImage("sprite\am_sit_synth_b.png", 32)
        Case 405
            atariMan& = _LoadImage("sprite\am_sit_synth_bb.png", 32)
        Case 425
            atariMan& = _LoadImage("sprite\am_sit_synth_bc.png", 32)
        Case 450
            atariMan& = _LoadImage("sprite\am_sit_synth_b.png", 32)
        Case 570
            atariMan& = _LoadImage("sprite\am_sit_synth_bb.png", 32)
        Case 490
            atariMan& = _LoadImage("sprite\am_sit_synth_bc.png", 32)
        Case 510
            atariMan& = _LoadImage("sprite\am_sit_synth_b.png", 32)
        Case 530
            atariMan& = _LoadImage("sprite\am_sit_synth_bb.png", 32)
        Case 550
            atariMan& = _LoadImage("sprite\am_sit_synth_bc.png", 32)
        Case 560
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 580
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 600
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 620
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 640
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 660
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 680
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 700
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 720
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 740
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 760
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 780
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 740
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 760
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 780
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 810
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 840
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 870
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 900
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 930
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 960
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 990
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 1020
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 1050
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
        Case 1080
            atariMan& = _LoadImage("sprite\am_sit_synth_c.png", 32)
        Case 1100
            atariMan& = _LoadImage("sprite\am_sit_synth_cb.png", 32)
        Case 1130
            atariMan& = _LoadImage("sprite\am_sit_synth_cc.png", 32)
    End Select

    Select Case syntrx%
        Case 1
            _SndLoop Buskerdroid_I_Want_You&
            If mute% = 0 Then _SndVol Buskerdroid_I_Want_You&, volSet Else _SndVol Buskerdroid_I_Want_You&, 0.0
        Case 2
            _SndLoop Buskerdroid_Gameboy_Love&
            If mute% = 0 Then _SndVol Buskerdroid_Gameboy_Love&, volSet Else _SndVol Buskerdroid_Gameboy_Love&, 0.0
        Case 3
            _SndLoop hostsngoblins&
            If mute% = 0 Then _SndVol hostsngoblins&, volSet Else _SndVol hostsngoblins&, 0.0
        Case 4
            _SndLoop Buskerdroid_3Distortion&
            If mute% = 0 Then _SndVol Buskerdroid_3Distortion&, volSet Else _SndVol Buskerdroid_3Distortion&, 0.0
        Case 5
            _SndLoop mrsaturn&
            If mute% = 0 Then _SndVol mrsaturn&, volSet Else _SndVol mrsaturn&, 0.0
        Case 6
            _SndLoop SuperMarioBros3&
            If mute% = 0 Then _SndVol SuperMarioBros3&, volSet Else _SndVol SuperMarioBros3&, 0.0
        Case 7
            _SndLoop drMario&
            If mute% = 0 Then _SndVol drMario&, volSet Else _SndVol drMario&, 0.0
        Case 8
            _SndLoop decisivebattle&
            If mute% = 0 Then _SndVol decisivebattle&, volSet Else _SndVol decisivebattle&, 0.0
        Case 9
            _SndLoop Earthbound&
            If mute% = 0 Then _SndVol Earthbound&, volSet Else _SndVol Earthbound&, 0.0
        Case 10
            _SndLoop streetsofdesolation&
            If mute% = 0 Then _SndVol streetsofdesolation&, volSet Else _SndVol streetsofdesolation&, 0.0
        Case 11
            _SndLoop Woooooaaaaagh&
            If mute% = 0 Then _SndVol Woooooaaaaagh&, volSet Else _SndVol Woooooaaaaagh&, 0.0
        Case 12
            _SndLoop SuperMarioLand&
            If mute% = 0 Then _SndVol SuperMarioLand&, volSet Else _SndVol SuperMarioLand&, 0.0
        Case 13
            _SndLoop marblemadnass&
            If mute% = 0 Then _SndVol marblemadnass&, volSet Else _SndVol marblemadnass&, 0.0
        Case 14
            _SndLoop SuperMarioLandlevel1&
            If mute% = 0 Then _SndVol SuperMarioLandlevel1&, volSet Else _SndVol SuperMarioLandlevel1&, 0.0
        Case 15
            _SndLoop thetrial&
            If mute% = 0 Then _SndVol thetrial&, volSet Else _SndVol thetrial&, 0.0
        Case 16
            _SndLoop themoon&
            If mute% = 0 Then _SndVol themoon&, volSet Else _SndVol themoon&, 0.0
        Case 17
            _SndLoop SuperMarioBros3bitgen&
            If mute% = 0 Then _SndVol SuperMarioBros3bitgen&, volSet Else _SndVol SuperMarioBros3bitgen&, 0.0
        Case 18
            _SndLoop ChronoTrigger&
            If mute% = 0 Then _SndVol ChronoTrigger&, volSet Else _SndVol ChronoTrigger&, 0.0
        Case 19
            _SndLoop Buskerdroid_Blast&
            If mute% = 0 Then _SndVol Buskerdroid_Blast&, volSet Else _SndVol Buskerdroid_Blast&, 0.0
        Case 20
            _SndLoop redsoil&
            If mute% = 0 Then _SndVol redsoil&, volSet Else _SndVol redsoil&, 0.0
        Case 21
            _SndLoop Buskerdroid_God_Bless_His_Mess&
            If mute% = 0 Then _SndVol Buskerdroid_God_Bless_His_Mess&, volSet Else _SndVol Buskerdroid_God_Bless_His_Mess&, 0.0
        Case 22
            _SndLoop Halo&
            If mute% = 0 Then _SndVol Halo&, volSet Else _SndVol Halo&, 0.0
        Case 23
            _SndLoop mutecity&
            If mute% = 0 Then _SndVol mutecity&, volSet Else _SndVol mutecity&, 0.0
    End Select
End Sub

Sub stoptrx
    Dim trxplaing%
    trxplaing% = _SndPlaying(mutecity&)
    If trxplaing% = -1 Then _SndStop mutecity&
    trxplaing% = _SndPlaying(redsoil&)
    If trxplaing% = -1 Then _SndStop redsoil&
    trxplaing% = _SndPlaying(hostsngoblins&)
    If trxplaing% = -1 Then _SndStop hostsngoblins&
    trxplaing% = _SndPlaying(Halo&)
    If trxplaing% = -1 Then _SndStop Halo&
    trxplaing% = _SndPlaying(mrsaturn&)
    If trxplaing% = -1 Then _SndStop mrsaturn&
    trxplaing% = _SndPlaying(SuperMarioBros3&)
    If trxplaing% = -1 Then _SndStop SuperMarioBros3&
    trxplaing% = _SndPlaying(SuperMarioBros3bitgen&)
    If trxplaing% = -1 Then _SndStop SuperMarioBros3bitgen&
    trxplaing% = _SndPlaying(drMario&)
    If trxplaing% = -1 Then _SndStop drMario&
    trxplaing% = _SndPlaying(decisivebattle&)
    If trxplaing% = -1 Then _SndStop decisivebattle&
    trxplaing% = _SndPlaying(Earthbound&)
    If trxplaing% = -1 Then _SndStop Earthbound&
    trxplaing% = _SndPlaying(streetsofdesolation&)
    If trxplaing% = -1 Then _SndStop streetsofdesolation&
    trxplaing% = _SndPlaying(Woooooaaaaagh&)
    If trxplaing% = -1 Then _SndStop Woooooaaaaagh&
    trxplaing% = _SndPlaying(SuperMarioLand&)
    If trxplaing% = -1 Then _SndStop SuperMarioLand&
    trxplaing% = _SndPlaying(marblemadnass&)
    If trxplaing% = -1 Then _SndStop marblemadnass&
    trxplaing% = _SndPlaying(SuperMarioLandlevel1&)
    If trxplaing% = -1 Then _SndStop SuperMarioLandlevel1&
    trxplaing% = _SndPlaying(thetrial&)
    If trxplaing% = -1 Then _SndStop thetrial&
    trxplaing% = _SndPlaying(themoon&)
    If trxplaing% = -1 Then _SndStop themoon&
    trxplaing% = _SndPlaying(hostsngoblins&)
    If trxplaing% = -1 Then _SndStop hostsngoblins&
    trxplaing% = _SndPlaying(ChronoTrigger&)
    If trxplaing% = -1 Then _SndStop ChronoTrigger&
    trxplaing% = _SndPlaying(Buskerdroid_Blast&)
    If trxplaing% = -1 Then _SndStop Buskerdroid_Blast&
    trxplaing% = _SndPlaying(Buskerdroid_Gameboy_Love&)
    If trxplaing% = -1 Then _SndStop Buskerdroid_Gameboy_Love&
    trxplaing% = _SndPlaying(Buskerdroid_God_Bless_His_Mess&)
    If trxplaing% = -1 Then _SndStop Buskerdroid_God_Bless_His_Mess&
    trxplaing% = _SndPlaying(Buskerdroid_3Distortion&)
    If trxplaing% = -1 Then _SndStop Buskerdroid_3Distortion&
    trxplaing% = _SndPlaying(Buskerdroid_I_Want_You&)
    If trxplaing% = -1 Then _SndStop Buskerdroid_I_Want_You&
End Sub

Sub synthAction
    If synscframe& > 125 Then synscframe& = 0
    Select Case synscframe&
        Case 1
            synth_scope& = _LoadImage("sprite\am_synth_scope_1_sm.png", 32)
        Case 20
            synth_scope& = _LoadImage("sprite\am_synth_scope_2_sm.png", 32)
        Case 40
            synth_scope& = _LoadImage("sprite\am_synth_scope_3_sm.png", 32)
        Case 60
            synth_scope& = _LoadImage("sprite\am_synth_scope_2_sm.png", 32)
        Case 80
            synth_scope& = _LoadImage("sprite\am_synth_scope_3_sm.png", 32)
        Case 100
            synth_scope& = _LoadImage("sprite\am_synth_scope_2_sm.png", 32)
        Case 120
            synth_scope& = _LoadImage("sprite\am_synth_scope_1_sm.png", 32)
    End Select

    If synscframe2& > 60 Then synscframe2& = 1
    Select Case synscframe2&
        Case 1
            synth_action& = _LoadImage("sprite\am_synth_action_1.png", 32)
        Case 20
            synth_action& = _LoadImage("sprite\am_synth_action_2.png", 32)
        Case 40
            synth_action& = _LoadImage("sprite\am_synth_action_3.png", 32)
    End Select
End Sub

Sub move_lt
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_1a.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_2a.png", 32)
    End Select
End Sub

Sub sleeep
    If sleepTimer% > 850 Then sleepTimer% = 1
    Select Case sleepTimer%
        Case 1
            atariMan& = _LoadImage("background\sleep\am_sleep_1a.png", 32)
        Case 75
            atariMan& = _LoadImage("background\sleep\am_sleep_1c.png", 32)
        Case 400
            atariMan& = _LoadImage("background\sleep\am_sleep_1b.png", 32)
        Case 750
            atariMan& = _LoadImage("background\sleep\am_sleep_1c.png", 32)
    End Select
End Sub

Sub stairs_down
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_1a.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_2.png", 32)
    End Select
End Sub

Sub stairs_up
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_stair_up.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_stair_upa.png", 32)
    End Select
End Sub

Sub fishTank
    framesit3& = framesit3& + 1
    If framesit3& > 1600 Then framesit3& = 1

    Select Case framesit3&
        Case 1
            atariMan& = _LoadImage("sprite\am_sit2_1.png", 32)
        Case 300
            atariMan& = _LoadImage("sprite\am_sit2_1b.png", 32)
        Case 350
            atariMan& = _LoadImage("sprite\am_sit2_1c.png", 32)
        Case 400
            atariMan& = _LoadImage("sprite\am_sit2_1b.png", 32)
        Case 425
            atariMan& = _LoadImage("sprite\am_sit2_1.png", 32)
        Case 1050
            atariMan& = _LoadImage("sprite\am_sit2_1b.png", 32)
        Case 1075
            atariMan& = _LoadImage("sprite\am_sit2_1c.png", 32)
        Case 1400
            atariMan& = _LoadImage("sprite\am_sit2_1b.png", 32)
        Case 1425
            atariMan& = _LoadImage("sprite\am_sit2_1a.png", 32)
        Case 1450
            atariMan& = _LoadImage("sprite\am_sit2_1b.png", 32)
        Case 1475
            atariMan& = _LoadImage("sprite\am_sit2_1c.png", 32)
    End Select
End Sub

Sub washDish
    Select Case washFrame&
        Case 1
            atariMan& = _LoadImage("sprite\washDish1.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\washDish1b.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\washDish1c.png", 32)
        Case 45
            atariMan& = _LoadImage("sprite\washDish2.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\washDish2b.png", 32)
        Case 75
            atariMan& = _LoadImage("sprite\washDish2c.png", 32)
    End Select
End Sub

Sub washHand
    Select Case washFrame&
        Case 1
            atariMan& = _LoadImage("sprite\washDish1.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\washDish1b.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\washDish1c.png", 32)
        Case 45
            atariMan& = _LoadImage("sprite\washDish2.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\washDish2b.png", 32)
        Case 75
            atariMan& = _LoadImage("sprite\washDish2c.png", 32)
    End Select
End Sub

Sub eat
    If framesitkit& > 200 Then framesitkit& = 1
    Select Case framesitkit&
        Case 1
            atariMan& = _LoadImage("sprite\am_eat_a.png", 32)
        Case 20
            atariMan& = _LoadImage("sprite\am_eat_a2.png", 32)
        Case 40
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\am_eat_b2.png", 32)
        Case 90
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
        Case 110
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
        Case 130
            atariMan& = _LoadImage("sprite\am_eat_b2.png", 32)
        Case 125
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
        Case 145
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
        Case 165
            atariMan& = _LoadImage("sprite\am_eat_b2.png", 32)
        Case 180
            atariMan& = _LoadImage("sprite\am_eat_b.png", 32)
    End Select
    _ClearColor (_RGB(0, 0, 0)), dish&
    _PutImage (sx + 5, sy + 35), dish&
End Sub

Sub tvflicker
    tvframe& = tvframe& + 1
    If tvframe& > 700 Then tvframe& = 1

    If tvframe& > 0 And tvframe& < 100 Then
        tv& = _LoadImage("background\LCP_tv_1.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 100 And tvframe& < 200 Then
        tv& = _LoadImage("background\LCP_tv_2.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 200 And tvframe& < 300 Then
        tv& = _LoadImage("background\LCP_tv_3.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 300 And tvframe& < 400 Then
        tv& = _LoadImage("background\LCP_tv_4.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 400 And tvframe& < 500 Then
        tv& = _LoadImage("background\LCP_tv_5.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 500 And tvframe& < 600 Then
        tv& = _LoadImage("background\LCP_tv_6.png", 32)
        _PutImage (162, 135), tv&
    End If
End Sub

Sub tvchanview
    Dim tvc$
    tvc$ = Str$(tvc)

    Color WHITE, BLACK
    If fntComputer& > 0 Then _Font fntComputer&

    If tvtrig% = 1 Then _PrintString (220, 80), "Atariman is watching channel:" + tvc$
End Sub

Sub synthTraxView
    Dim traxName$

    Select Case syntrx%
        Case 1
            traxName$ = Buskerdroid_I_Want_You$
        Case 2
            traxName$ = Buskerdroid_Gameboy_Love$
        Case 3
            traxName$ = hostsngoblins$
        Case 4
            traxName$ = Buskerdroid_3Distortion$
        Case 5
            traxName$ = mrsaturn$
        Case 6
            traxName$ = SuperMarioBros3$
        Case 7
            traxName$ = drMario$
        Case 8
            traxName$ = decisivebattl$
        Case 9
            traxName$ = Earthbound$
        Case 10
            traxName$ = streetsofdesolation$
        Case 11
            traxName$ = Woooooaaaaagh$
        Case 12
            traxName$ = SuperMarioLand$
        Case 13
            traxName$ = marblemadnass$
        Case 14
            traxName$ = SuperMarioLandlevel1$
        Case 15
            traxName$ = thetrial$
        Case 16
            traxName$ = themoon$
        Case 17
            traxName$ = SuperMarioBros3bitgen$
        Case 18
            traxName$ = ChronoTrigger$
        Case 19
            traxName$ = Buskerdroid_Blast$
        Case 20
            traxName$ = redsoil$
        Case 21
            traxName$ = Buskerdroid_God_Bless_His_Mess$
        Case 22
            traxName$ = Halo$
        Case 23
            traxName$ = mutecity$
    End Select

    Color WHITE, BLACK
    If fntComputer& > 0 Then _Font fntComputer&
    _PrintString (220, 80), "Atariman is working on the track:"
    _PrintString (220, 90), traxName$
End Sub

Sub sittv
    If framesittv& > 680 Then framesittv& = 1
    Select Case framesittv&
        Case 1
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 10
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 20
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 40
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 40
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 70
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 80
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 90
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 100
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 110
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 120
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 130
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 140
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 150
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 160
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 170
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 180
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 190
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 200
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 210
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 220
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 230
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 240
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 250
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 260
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 270
            atariMan& = _LoadImage("sprite\am_420_b2.png", 32)
        Case 280
            atariMan& = _LoadImage("sprite\am_420_b3.png", 32)
        Case 290
            atariMan& = _LoadImage("sprite\am_420_b4.png", 32)
        Case 300
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 310
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 320
            atariMan& = _LoadImage("sprite\am_420_b2.png", 32)
        Case 330
            atariMan& = _LoadImage("sprite\am_420_b3.png", 32)
        Case 340
            atariMan& = _LoadImage("sprite\am_420_b4.png", 32)
        Case 350
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 360
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 370
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 380
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 390
            atariMan& = _LoadImage("sprite\am_420_c4.png", 32)
        Case 400
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 410
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 420
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 430
            atariMan& = _LoadImage("sprite\am_420_c4.png", 32)
        Case 440
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 450
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 460
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 470
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 480
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 490
            atariMan& = _LoadImage("sprite\am_420_d3.png", 32)
        Case 500
            atariMan& = _LoadImage("sprite\am_420_d4.png", 32)
        Case 510
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 520
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 480
            atariMan& = _LoadImage("sprite\am_420_d3.png", 32)
        Case 490
            atariMan& = _LoadImage("sprite\am_420_d4.png", 32)
        Case 500
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 510
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 520
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 540
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 550
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 560
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 570
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 580
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 590
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 600
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 610
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 620
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 630
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 640
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 650
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 670
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
    End Select
End Sub

Sub tvsit
    volControl
    If framesittv& > 680 Then framesittv& = 1
    Select Case framesittv&
        Case 1
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 10
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 20
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 40
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 40
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 70
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 80
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 90
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 100
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 110
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 120
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 130
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 140
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 150
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 160
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 170
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 180
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 190
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 200
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 210
            atariMan& = _LoadImage("sprite\am_420_a2.png", 32)
        Case 220
            atariMan& = _LoadImage("sprite\am_420_a3.png", 32)
        Case 230
            atariMan& = _LoadImage("sprite\am_420_a4.png", 32)
        Case 240
            atariMan& = _LoadImage("sprite\am_420_a.png", 32)
        Case 250
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 260
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 270
            atariMan& = _LoadImage("sprite\am_420_b2.png", 32)
        Case 280
            atariMan& = _LoadImage("sprite\am_420_b3.png", 32)
        Case 290
            atariMan& = _LoadImage("sprite\am_420_b4.png", 32)
        Case 300
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 310
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 320
            atariMan& = _LoadImage("sprite\am_420_b2.png", 32)
        Case 330
            atariMan& = _LoadImage("sprite\am_420_b3.png", 32)
        Case 340
            atariMan& = _LoadImage("sprite\am_420_b4.png", 32)
        Case 350
            atariMan& = _LoadImage("sprite\am_420_b.png", 32)
        Case 360
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 370
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 380
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 390
            atariMan& = _LoadImage("sprite\am_420_c4.png", 32)
        Case 400
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 410
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 420
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 430
            atariMan& = _LoadImage("sprite\am_420_c4.png", 32)
        Case 440
            atariMan& = _LoadImage("sprite\am_420_c.png", 32)
        Case 450
            atariMan& = _LoadImage("sprite\am_420_c2.png", 32)
        Case 460
            atariMan& = _LoadImage("sprite\am_420_c3.png", 32)
        Case 470
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 480
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 490
            atariMan& = _LoadImage("sprite\am_420_d3.png", 32)
        Case 500
            atariMan& = _LoadImage("sprite\am_420_d4.png", 32)
        Case 510
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 520
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 480
            atariMan& = _LoadImage("sprite\am_420_d3.png", 32)
        Case 490
            atariMan& = _LoadImage("sprite\am_420_d4.png", 32)
        Case 500
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 510
            atariMan& = _LoadImage("sprite\am_420_d.png", 32)
        Case 520
            atariMan& = _LoadImage("sprite\am_420_d2.png", 32)
        Case 540
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 550
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 560
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 570
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 580
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 590
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 600
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 610
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 620
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
        Case 630
            atariMan& = _LoadImage("sprite\am_420_e2.png", 32)
        Case 640
            atariMan& = _LoadImage("sprite\am_420_e3.png", 32)
        Case 650
            atariMan& = _LoadImage("sprite\am_420_e4.png", 32)
        Case 670
            atariMan& = _LoadImage("sprite\am_420_e.png", 32)
    End Select
End Sub

Sub sit_type_a
    volControl
    _SndLoop typew&
    If mute% = 0 Then _SndVol typew&, 0.5 Else _SndVol typew&, 0.0

    frame5& = frame5& + 1
    If frame5& > 860 Then frame5& = 1: offHook% = 0
    Select Case frame5&
        Case 1
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 10
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 20
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 30
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 40
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 45
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 50
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 60
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 60
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 65
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 70
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 75
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 80
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 90
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 95
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 100
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 105
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 110
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 115
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 120
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 125
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 135
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 145
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 155
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 165
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 175
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 185
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 195
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 205
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 215
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 225
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 235
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 245
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 255
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 265
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 275
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 285
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 295
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 300
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 305
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 315
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 325
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 335
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 345
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 355
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 365
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 375
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 385
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 395
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 405
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 415
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 425
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 435
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 445
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 455
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 465
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 475
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 485
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 495
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 505
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 510
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 515
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 520
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 525
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 535
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 545
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 555
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 565
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 575
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 585
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 595
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 600
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 605
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 610
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 615
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 620
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 630
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 640
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 650
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 660
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 670
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 680
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 690
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 700
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 710
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 720
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 730
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 740
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 750
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 760
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 770
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 780
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 790
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 800
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 810
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 820
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 825
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 830
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 835
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 840
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 845
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 850
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
    End Select
End Sub

Sub sit_type_b
    volControl
    _SndLoop typew&
    If mute% = 0 Then _SndVol typew&, 0.5 Else _SndVol typew&, 0.0

    frame5& = frame5& + 1
    If frame5& > 800 Then frame5& = 1: offHook% = 0
    Select Case frame5&
        Case 1
            atariMan& = _LoadImage("sprite\am_sit_phone_4.png", 32): sx = 385: sy = 100
            offHook% = 1
        Case 20
            atariMan& = _LoadImage("sprite\am_sit_phone_4a.png", 32): sx = 385: sy = 100
        Case 40
            atariMan& = _LoadImage("sprite\am_sit_phone_4b.png", 32): sx = 385: sy = 100
        Case 60
            atariMan& = _LoadImage("sprite\am_sit_phone_4c.png", 32): sx = 385: sy = 100
        Case 80
            atariMan& = _LoadImage("sprite\am_sit_phone_4d.png", 32): sx = 385: sy = 100
        Case 100
            atariMan& = _LoadImage("sprite\am_sit_phone_4e.png", 32): sx = 385: sy = 100
        Case 120
            atariMan& = _LoadImage("sprite\am_sit_phone_4.png", 32): sx = 385: sy = 100
        Case 140
            atariMan& = _LoadImage("sprite\am_sit_phone_4a.png", 32): sx = 385: sy = 100
        Case 160
            atariMan& = _LoadImage("sprite\am_sit_phone_4b.png", 32): sx = 385: sy = 100
        Case 180
            atariMan& = _LoadImage("sprite\am_sit_phone_4c.png", 32): sx = 385: sy = 100
        Case 200
            atariMan& = _LoadImage("sprite\am_sit_phone_4d.png", 32): sx = 385: sy = 100
        Case 220
            atariMan& = _LoadImage("sprite\am_sit_phone_4e.png", 32): sx = 385: sy = 100
        Case 240
            atariMan& = _LoadImage("sprite\am_sit_phone_4.png", 32): sx = 385: sy = 100
        Case 260
            atariMan& = _LoadImage("sprite\am_sit_phone_4a.png", 32): sx = 385: sy = 100
        Case 280
            atariMan& = _LoadImage("sprite\am_sit_phone_4b.png", 32): sx = 385: sy = 100
        Case 300
            atariMan& = _LoadImage("sprite\am_sit_phone_4c.png", 32): sx = 385: sy = 100
        Case 320
            atariMan& = _LoadImage("sprite\am_sit_phone_4d.png", 32): sx = 385: sy = 100
        Case 340
            atariMan& = _LoadImage("sprite\am_sit_phone_4e.png", 32): sx = 385: sy = 100
        Case 360
            atariMan& = _LoadImage("sprite\am_sit_phone_4.png", 32): sx = 385: sy = 100
            offHook% = 1
        Case 380
            atariMan& = _LoadImage("sprite\am_sit_phone_4a.png", 32): sx = 385: sy = 100
        Case 400
            atariMan& = _LoadImage("sprite\am_sit_phone_4b.png", 32): sx = 385: sy = 100
        Case 420
            atariMan& = _LoadImage("sprite\am_sit_phone_4c.png", 32): sx = 385: sy = 100
        Case 440
            atariMan& = _LoadImage("sprite\am_sit_phone_4d.png", 32): sx = 385: sy = 100
        Case 460
            atariMan& = _LoadImage("sprite\am_sit_phone_4e.png", 32): sx = 385: sy = 100
        Case 480
            atariMan& = _LoadImage("sprite\am_sit_phone_4.png", 32): sx = 385: sy = 100
        Case 500
            atariMan& = _LoadImage("sprite\am_sit_phone_4a.png", 32): sx = 385: sy = 100
        Case 520
            atariMan& = _LoadImage("sprite\am_sit_phone_4b.png", 32): sx = 385: sy = 100
        Case 540
            atariMan& = _LoadImage("sprite\am_sit_phone_4c.png", 32): sx = 385: sy = 100
        Case 560
            atariMan& = _LoadImage("sprite\am_sit_phone_4d.png", 32): sx = 385: sy = 100
        Case 580
            atariMan& = _LoadImage("sprite\am_sit_phone_4e.png", 32): sx = 385: sy = 100
        Case 600
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 620
            atariMan& = _LoadImage("sprite\am_sit_4a.png", 32): sx = 385: sy = 100
        Case 640
            atariMan& = _LoadImage("sprite\am_sit_4b.png", 32): sx = 385: sy = 100
        Case 660
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
        Case 680
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 700
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 720
            atariMan& = _LoadImage("sprite\am_sit_4.png", 32): sx = 385: sy = 100
        Case 740
            atariMan& = _LoadImage("sprite\am_sit_4d.png", 32): sx = 385: sy = 100
        Case 760
            atariMan& = _LoadImage("sprite\am_sit_4e.png", 32): sx = 385: sy = 100
        Case 780
            atariMan& = _LoadImage("sprite\am_sit_4c.png", 32): sx = 385: sy = 100
    End Select
End Sub

Sub brushTeeth
    Select Case frame&
        Case 1
            atariMan& = _LoadImage("sprite\am_sink_1.png", 32): sy = 225
        Case 15
            atariMan& = _LoadImage("sprite\am_sink_1a.png", 32): sy = 225
    End Select
End Sub

Sub cooking
    If cookFrame& > 140 Then cookFrame& = 1
    Select Case cookFrame&
        Case 1
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 15
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 30
            atariMan& = _LoadImage("sprite\am_cook_1c.png", 32)
        Case 35
            atariMan& = _LoadImage("sprite\am_cook_1c.png", 32)
        Case 45
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 50
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 60
            atariMan& = _LoadImage("sprite\am_cook_1c.png", 32)
        Case 65
            atariMan& = _LoadImage("sprite\am_cook_1c.png", 32)
        Case 75
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 80
            atariMan& = _LoadImage("sprite\am_cook_1c.png", 32)
        Case 85
            atariMan& = _LoadImage("sprite\am_cook_1a.png", 32)
        Case 95
            atariMan& = _LoadImage("sprite\am_cook_1b.png", 32)
    End Select
    _ClearColor (_RGB(0, 0, 0)), atariMan&
    _PutImage (125, 330), atariMan&
End Sub

Sub move_not
    atariMan& = _LoadImage("sprite\am_1a.png", 32)
End Sub

Sub bathroom
    _ClearColor (_RGB(0, 0, 0)), atariMan&
    atariMan& = _LoadImage("sprite\amBathroom.png", 32)
End Sub

Sub four_twenty
    If framesittv& > 600 Then framesittv& = 1

    Select Case framesittv&
        Case 1
            atariMan& = _LoadImage("sprite\am_sit_2.png", 32)
        Case 250
            atariMan& = _LoadImage("sprite\am_sit_2a.png", 32)
        Case 300
            atariMan& = _LoadImage("sprite\am_sit_2.png", 32)
    End Select

    tvframe& = tvframe& + 1
    If tvframe& > 700 Then tvframe& = 1

    If tvframe& > 0 And tvframe& < 100 Then
        tv& = _LoadImage("background\LCP_tv_1.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 100 And tvframe& < 200 Then
        tv& = _LoadImage("background\LCP_tv_2.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 200 And tvframe& < 300 Then
        tv& = _LoadImage("background\LCP_tv_3.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 300 And tvframe& < 400 Then
        tv& = _LoadImage("background\LCP_tv_4.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 400 And tvframe& < 500 Then
        tv& = _LoadImage("background\LCP_tv_5.png", 32)
        _PutImage (162, 135), tv&
    End If
    If tvframe& > 500 And tvframe& < 600 Then
        tv& = _LoadImage("background\LCP_tv_6.png", 32)
        _PutImage (162, 135), tv&
    End If
End Sub

Sub convert_to_12hr
    Select Case h%
        Case Is > 12
            h% = h% - 12
            ampm$ = " P.M."
        Case 12
            ampm$ = " P.M."
        Case Is = 0
            h% = h% + 12
            ampm$ = " A.M."
        Case Is > 0
            ampm$ = " A.M."
    End Select
End Sub

Sub weekday
    Dim C As Integer
    Dim S1 As Single
    Dim S2 As Single
    Dim S3 As Single
    Dim WkDay As Integer
    Dim day$
    Dim Wday$
    Dim M As Integer
    Dim month$
    Dim year$
    Dim moon$
    Dim D As Integer
    Dim Y As Integer
    month$ = Left$(Date$, 2): M = Val(month$)
    day$ = Mid$(Date$, 4, 2): D = Val(day$)
    day$ = Str$(D) ' eliminate any leading zeros
    year$ = Right$(Date$, 4): Y = Val(year$)
    If M < 3 Then M = M + 12: Y = Y - 1 'add 12 to Jan - Feb month, -1 year
    C = Y \ 100: Y = Y Mod 100 'split century and year number
    S1 = (C \ 4) - (2 * C) - 1 'century leap
    S2 = (5 * Y) \ 4 '4 year leap
    S3 = 26 * (M + 1) \ 10 'days in months
    WkDay = (S1 + S2 + S3 + D) Mod 7 'weekday total remainder
    If WkDay < 0 Then WkDay = WkDay + 7 'Adjust negative results to 0 to 6
    Select Case M
        Case 1: moon$ = "January"
        Case 2: moon$ = "February"
        Case 3: moon$ = "March"
        Case 4: moon$ = "April"
        Case 5: moon$ = "May"
        Case 6: moon$ = "June"
        Case 7: moon$ = "July"
        Case 8: moon$ = "August"
        Case 9: moon$ = "September"
        Case 10: moon$ = "October"
        Case 11: moon$ = "November"
        Case 12: moon$ = "December"
    End Select
    Select Case WkDay
        Case 0: Wday$ = "Sunday"
        Case 1: Wday$ = "Monday"
        Case 2: Wday$ = "Tuesday"
        Case 3: Wday$ = "Wednesday"
        Case 4: Wday$ = "Thursday"
        Case 5: Wday$ = "Friday"
        Case 6: Wday$ = "Saturday"
    End Select

    Color WHITE, _RGB(7, 36, 15)
    If fntComputerSm& > 0 Then _Font fntComputer&
    _PrintString (220, 420), "Today is " + Wday$ + ", " + moon$ + day$ + ", " + year$ + Space$(10)
    _PrintString (295, 435), Right$("0" + LTrim$(Str$(h%)), 2) + Right$(tm$, 6) + ampm$
End Sub

Function myRandom (x As Single)
    myRandom = (Rnd * x) + 1
End Function

Sub area_52
    ''' need to still do list   '''
    ''' sleep ------------------------
    ''' aquarium  --------------------
    ''' eat ---------------------------

    '''  optional    '''
    ''   drink water
    ''   shower
    ''put in items from past games ----------------------
    '' add hills to sandwich the sun and moon
End Sub
image uploader


Attached Files
.zip   Atariman.zip (Size: 437.84 MB / Downloads: 33)
Reply
#2
Wow, this is so interesting. I look forward to playing with this - thanks for sharing!
Reply




Users browsing this thread: 1 Guest(s)