what does this mean

Blitz3D Forums/Blitz3D Beginners Area/what does this mean

spear30

(Posted 2016) [#1]

I'm trying to edit something in an Mdickie game and i get function 'getpercent' not found when i try to run the program. Any idea how this is fixable?

grable

(Posted 2016) [#2]

Use grep or similar text search tool to figure out where the function is.
If it exists, include/import the file otherwise create a dummy function matching the prototype.

But since its name is "getpercent" i assume it does what it says, so shouldnt be too hard to implement it proper.

spear30

(Posted 2016) [#3]

how would i do that? btw can someone move this? I'm using blitz3D not blitz max

grable

(Posted 2016) [#4]

Since its Blitz3D i assume your on windows in which case using the search field in explorer should be sufficient.

EDIT: As for the function, i cant say without more information (like the line its called from)

spear30

(Posted 2016) [#5]

here you go grable.

[url]https://www.mediafire.com/?4ljduizr91a59h6[/url]

grable

(Posted 2016) [#6]

Ok, stick this somewhere in that file.

Function GetPercent#( value#, maxvalue#)
	Return (value / maxvalue) * 100.0
End Function

If you get weird values, reorder the arguments.
I dont have Blitz3D so wont be able to test it.

EDIT: Divided in the wrong order

Brucey

(Posted 2016) [#7]

You may also want to implement PercentOf() while you're at it :-)

spear30

(Posted 2016) [#8]

function ge not found.

Brucey

(Posted 2016) [#9]

Have you done much programming before?

It's just that it is generally quite hard to fill in missing functionality for a program one knows nothing about. You can make educated guesses, but it is likely prone to failure at some point :-)

grable

(Posted 2016) [#10]

Yeah, i cant go any further really. Not having b3d stops me in my tracks ;)
And that Hardware.bb isnt the only file either, as it contains only data and functions to work with that data.
But i suspect your package is incomplete, if several files are missing functions.

spear30

(Posted 2016) [#11]

None actually. Can you help me out via some sort of messenger brucey?

EDIT: What does expecting end of file mean and how do i fix it

spear30

(Posted 2016) [#12]

;//////////////////////////////////////////////////////////////////////////////
;------------------------ UNDER DEVELOPMENT: HARDWARE DATA --------------------
;//////////////////////////////////////////////////////////////////////////////

;///////////////////////////////////////////////////////
;--------------------- FORMATS -------------------------
;///////////////////////////////////////////////////////
.Formats
Dim formatName$(5)
Dim formatCost(5)
formatName$(0)="Digital" : formatCost(0)=0
formatName$(1)="Compact Disc" : formatCost(1)=5
formatName$(2)="Floppy Disc" : formatCost(2)=5
formatName$(3)="Cassette" : formatCost(3)=5
formatName$(4)="Media Disc" : formatCost(4)=10
formatName$(5)="Cartridge" : formatCost(5)=10

;CALCULATE PERCENTAGE OF VALUE
Function PercentOf#(valueA#,percent#)
 valueB#=(valueA#/100)*percent#
 Return valueB#
End Function

;CALCULATE VALUE AS PERCENT
Function GetPercent#(valueA#,valueB#)
 percent#=0
 If valueB#>0 Then percent#=(valueA#/valueB#)*100
 Return percent#
End Function



;///////////////////////////////////////////////////////
;--------------------- HARDWARE ------------------------
;///////////////////////////////////////////////////////
.Hardware
 no_machines=38
 hardFoc,hardScroll
Dim hardList(100)
Dim hardListed(100)
Dim hardBrand$(100)
Dim hardTitle$(100)
Dim hardModel$(100) ;name of 3D model
Dim hardCom$(100) ;name of computer used for development
Dim hardTV$(100) ;name of preferred monitor
Dim hardFormat(100) ;0=Online, 1=CD, 2=Floppy, 3=Tape, 4=UMD, 5=Cartridge
Dim hardHandheld(100) ;1=vertical (gameboy), 2=horizontal (PSP), 3=book (DS)
Dim hardCost(100)
Dim hardRetail(100)
Dim hardOwned(100)
Dim hardWeek(100),hardMonth(100),hardYear(100)
Dim hardReleased(100)
Dim hardOldPromotion#(100)
Dim hardPromotion#(100)
Dim hardUsers(100)
Dim hardPeakUsers(100)
Dim hardPirated(100)
Dim hardGameplay(100)
Dim hardReplay(100)
Dim hard2D(100)
Dim hard3D(100)
Dim hardSound(100)
Dim hardMusic(100)
Dim hardOldGameplay(100)
Dim hardOldReplay(100)
Dim hardOld2D(100)
Dim hardOld3D(100)
Dim hardOldSound(100)
Dim hardOldMusic(100)
Dim hardNewGameplay(100)
Dim hardNewReplay(100)
Dim hardNew2D(100)
Dim hardNew3D(100)
Dim hardNewSound(100)
Dim hardNewMusic(100)
Dim hardStandard(7),hardLeader(7) ;industry standard in each category
Global hardOldLeader=1
;default data
n=1 : hardBrand$(n)="Atari" : hardTitle$(n)="Atari 2600"
hardModel$(n)="Atari" : hardCom$(n)="Keyboard" : hardTV$(n)="OldTV"
hardWeek(n)=1 : hardMonth(n)=1 : hardYear(n)=1981
hardCost(n)=0 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=40 : hardReplay(n)=40
hard2D(n)=40 : hard3D(n)=25
hardSound(n)=40 : hardMusic(n)=40
;first computers
n=2 : hardBrand$(n)="Sinclair" : hardTitle$(n)="ZX Spectrum"
hardModel$(n)="Spectrum" : hardCom$(n)="Spectrum" : hardTV$(n)="OldTV"
hardWeek(n)=3 : hardMonth(n)=2 : hardYear(n)=1982
hardCost(n)=25000 : hardRetail(n)=10 : hardFormat(n)=3 : hardHandheld(n)=0
hardGameplay(n)=45 : hardReplay(n)=50
hard2D(n)=45 : hard3D(n)=30
hardSound(n)=45 : hardMusic(n)=45
n=3 : hardBrand$(n)="Commodore" : hardTitle$(n)="Commodore 64"
hardModel$(n)="C64" : hardCom$(n)="C64" : hardTV$(n)="Monitor"
hardWeek(n)=2 : hardMonth(n)=3 : hardYear(n)=1983
hardCost(n)=50000 : hardRetail(n)=10 : hardFormat(n)=3 : hardHandheld(n)=0
hardGameplay(n)=50 : hardReplay(n)=55
hard2D(n)=55 : hard3D(n)=40
hardSound(n)=50 : hardMusic(n)=50
n=4 : hardBrand$(n)="Amstrad" : hardTitle$(n)="Amstrad CPC"
hardModel$(n)="Amstrad" : hardCom$(n)="Amstrad" : hardTV$(n)="BoxTV"
hardWeek(n)=4 : hardMonth(n)=1 : hardYear(n)=1984
hardCost(n)=25000 : hardRetail(n)=10 : hardFormat(n)=3 : hardHandheld(n)=0
hardGameplay(n)=50 : hardReplay(n)=55
hard2D(n)=50 : hard3D(n)=35
hardSound(n)=50 : hardMusic(n)=50
;8-bit era
n=5 : hardBrand$(n)="Nintendo" : hardTitle$(n)="NES"
hardModel$(n)="NES" : hardCom$(n)="Keyboard" : hardTV$(n)="OldTV"
hardWeek(n)=1 : hardMonth(n)=4 : hardYear(n)=1986
hardCost(n)=75000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=60 : hardReplay(n)=60
hard2D(n)=55 : hard3D(n)=35
hardSound(n)=60 : hardMusic(n)=60
n=6 : hardBrand$(n)="Sega" : hardTitle$(n)="Master System"
hardModel$(n)="Master" : hardCom$(n)="Keyboard" : hardTV$(n)="OldTV"
hardWeek(n)=2 : hardMonth(n)=6 : hardYear(n)=1986
hardCost(n)=50000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=55 : hardReplay(n)=55
hard2D(n)=60 : hard3D(n)=40
hardSound(n)=60 : hardMusic(n)=60
;early handhelds
n=7 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Gameboy"
hardModel$(n)="Gameboy" : hardCom$(n)="Keyboard" : hardTV$(n)="OldTV"
hardWeek(n)=1 : hardMonth(n)=5 : hardYear(n)=1989
hardCost(n)=50000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=1
hardGameplay(n)=55 : hardReplay(n)=55
hard2D(n)=45 : hard3D(n)=30
hardSound(n)=55 : hardMusic(n)=55
n=8 : hardBrand$(n)="Sega" : hardTitle$(n)="Game Gear"
hardModel$(n)="Gear" : hardCom$(n)="Keyboard" : hardTV$(n)="OldTV"
hardWeek(n)=2 : hardMonth(n)=3 : hardYear(n)=1990
hardCost(n)=75000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=2
hardGameplay(n)=55 : hardReplay(n)=50
hard2D(n)=60 : hard3D(n)=35
hardSound(n)=50 : hardMusic(n)=50
n=9 : hardBrand$(n)="Atari" : hardTitle$(n)="Lynx"
hardModel$(n)="Lynx" : hardCom$(n)="AtariST" : hardTV$(n)="OldTV"
hardWeek(n)=3 : hardMonth(n)=5 : hardYear(n)=1990
hardCost(n)=75000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=2
hardGameplay(n)=50 : hardReplay(n)=55
hard2D(n)=55 : hard3D(n)=40
hardSound(n)=55 : hardMusic(n)=55
;16-bit computers
n=10 : hardBrand$(n)="Atari" : hardTitle$(n)="Atari ST"
hardModel$(n)="AtariST" : hardCom$(n)="AtariST" : hardTV$(n)="Monitor"
hardWeek(n)=4 : hardMonth(n)=1 : hardYear(n)=1987
hardCost(n)=150000 : hardRetail(n)=10 : hardFormat(n)=2 : hardHandheld(n)=0
hardGameplay(n)=60 : hardReplay(n)=70
hard2D(n)=65 : hard3D(n)=60
hardSound(n)=65 : hardMusic(n)=65
n=11 : hardBrand$(n)="Commodore" : hardTitle$(n)="Amiga 500"
hardModel$(n)="Amiga" : hardCom$(n)="Amiga" : hardTV$(n)="Monitor"
hardWeek(n)=3 : hardMonth(n)=7 : hardYear(n)=1987
hardCost(n)=150000 : hardRetail(n)=10 : hardFormat(n)=2 : hardHandheld(n)=0
hardGameplay(n)=65 : hardReplay(n)=75
hard2D(n)=70 : hard3D(n)=55
hardSound(n)=70 : hardMusic(n)=70
;16-bit era
n=12 : hardBrand$(n)="Sega" : hardTitle$(n)="Megadrive"
hardModel$(n)="Mega" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=1 : hardMonth(n)=1 : hardYear(n)=1990
hardCost(n)=75000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=65 : hardReplay(n)=65
hard2D(n)=65 : hard3D(n)=45
hardSound(n)=65 : hardMusic(n)=65
n=13 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Super Nintendo"
hardModel$(n)="SNES" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=3 : hardMonth(n)=3 : hardYear(n)=1991
hardCost(n)=100000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=70
hard2D(n)=70 : hard3D(n)=50
hardSound(n)=70 : hardMusic(n)=70
n=37 : hardBrand$(n)="SNK" : hardTitle$(n)="Neo Geo"
hardModel$(n)="NeoGeo" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=1 : hardMonth(n)=10 : hardYear(n)=1990
hardCost(n)=125000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=65
hard2D(n)=75 : hard3D(n)=55
hardSound(n)=75 : hardMusic(n)=75
n=38 : hardBrand$(n)="Commodore" : hardTitle$(n)="Amiga CD32"
hardModel$(n)="CD32" : hardCom$(n)="Amiga" : hardTV$(n)="BoxTV"
hardWeek(n)=4 : hardMonth(n)=9 : hardYear(n)=1993
hardCost(n)=75000 : hardRetail(n)=10 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=70
hard2D(n)=70 : hard3D(n)=55
hardSound(n)=75 : hardMusic(n)=75
;32/64-bit era
n=14 : hardBrand$(n)="Atari" : hardTitle$(n)="Jaguar"
hardModel$(n)="Jaguar" : hardCom$(n)="AtariST" : hardTV$(n)="BoxTV"
hardWeek(n)=1 : hardMonth(n)=8 : hardYear(n)=1993
hardCost(n)=150000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=70
hard2D(n)=75 : hard3D(n)=65
hardSound(n)=75 : hardMusic(n)=75
n=15 : hardBrand$(n)="Sega" : hardTitle$(n)="Saturn"
hardModel$(n)="Saturn" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=1 : hardMonth(n)=7 : hardYear(n)=1995
hardCost(n)=100000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=80 : hardReplay(n)=75
hard2D(n)=80 : hard3D(n)=70
hardSound(n)=80 : hardMusic(n)=80
n=16 : hardBrand$(n)="Sony" : hardTitle$(n)="Playstation"
hardModel$(n)="PS1" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=4 : hardMonth(n)=9 : hardYear(n)=1995
hardCost(n)=100000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=80 : hardReplay(n)=80
hard2D(n)=80 : hard3D(n)=70
hardSound(n)=80 : hardMusic(n)=80
n=17 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Nintendo 64"
hardModel$(n)="N64" : hardCom$(n)="Keyboard" : hardTV$(n)="BoxTV"
hardWeek(n)=1 : hardMonth(n)=3 : hardYear(n)=1996
hardCost(n)=125000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=0
hardGameplay(n)=85 : hardReplay(n)=75
hard2D(n)=80 : hard3D(n)=70
hardSound(n)=75 : hardMusic(n)=75
;windows (tracks industry standards)
n=18 : hardBrand$(n)="Microsoft" : hardTitle$(n)="PC"
hardModel$(n)="Keyboard" : hardCom$(n)="Keyboard" : hardTV$(n)="Monitor"
hardWeek(n)=1 : hardMonth(n)=1 : hardYear(n)=1995
hardCost(n)=25000 : hardRetail(n)=10 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=80
hard2D(n)=70 : hard3D(n)=60
hardSound(n)=75 : hardMusic(n)=75
;128-bit era
n=19 : hardBrand$(n)="Sega" : hardTitle$(n)="Dreamcast"
hardModel$(n)="Dream" : hardCom$(n)="Keyboard" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=11 : hardYear(n)=1999
hardCost(n)=125000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=85 : hardReplay(n)=80
hard2D(n)=85 : hard3D(n)=75
hardSound(n)=85 : hardMusic(n)=85
n=20 : hardBrand$(n)="Sony" : hardTitle$(n)="Playstation 2"
hardModel$(n)="PS2" : hardCom$(n)="Keyboard" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=10 : hardYear(n)=2000
hardCost(n)=125000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=85 : hardReplay(n)=85
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=90 : hardMusic(n)=90
n=21 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Gamecube"
hardModel$(n)="Gamecube" : hardCom$(n)="Keyboard" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=8 : hardYear(n)=2001
hardCost(n)=150000 : hardRetail(n)=20 : hardFormat(n)=4 : hardHandheld(n)=0
hardGameplay(n)=90 : hardReplay(n)=80
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=80 : hardMusic(n)=80
n=22 : hardBrand$(n)="Microsoft" : hardTitle$(n)="X-Box"
hardModel$(n)="XBox" : hardCom$(n)="Keyboard" : hardTV$(n)="Monitor"
hardWeek(n)=1 : hardMonth(n)=11 : hardYear(n)=2001
hardCost(n)=125000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=85 : hardReplay(n)=85
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=90 : hardMusic(n)=90
;modern handhelds
n=23 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Gameboy Advance"
hardModel$(n)="Advance" : hardCom$(n)="Keyboard" : hardTV$(n)="Monitor"
hardWeek(n)=4 : hardMonth(n)=3 : hardYear(n)=2001
hardCost(n)=100000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=2
hardGameplay(n)=70 : hardReplay(n)=70
hard2D(n)=70 : hard3D(n)=50
hardSound(n)=70 : hardMusic(n)=70
n=24 : hardBrand$(n)="Nintendo" : hardTitle$(n)="DS"
hardModel$(n)="DS" : hardCom$(n)="Laptop" : hardTV$(n)="Laptop"
hardWeek(n)=1 : hardMonth(n)=12 : hardYear(n)=2004
hardCost(n)=125000 : hardRetail(n)=20 : hardFormat(n)=5 : hardHandheld(n)=3
hardGameplay(n)=80 : hardReplay(n)=80
hard2D(n)=80 : hard3D(n)=60
hardSound(n)=75 : hardMusic(n)=75
n=25 : hardBrand$(n)="Sony" : hardTitle$(n)="PSP"
hardModel$(n)="PSP" : hardCom$(n)="Laptop" : hardTV$(n)="Laptop"
hardWeek(n)=2 : hardMonth(n)=3 : hardYear(n)=2005
hardCost(n)=100000 : hardRetail(n)=20 : hardFormat(n)=4 : hardHandheld(n)=2
hardGameplay(n)=80 : hardReplay(n)=80
hard2D(n)=80 : hard3D(n)=70
hardSound(n)=80 : hardMusic(n)=80
;modern consoles
n=26 : hardBrand$(n)="Microsoft" : hardTitle$(n)="X-Box 360"
hardModel$(n)="XBox360" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=2 : hardYear(n)=2006
hardCost(n)=150000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=90 : hardReplay(n)=90
hard2D(n)=95 : hard3D(n)=90
hardSound(n)=95 : hardMusic(n)=95
n=27 : hardBrand$(n)="Sony" : hardTitle$(n)="Playstation 3"
hardModel$(n)="PS3" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=11 : hardYear(n)=2006
hardCost(n)=150000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=90 : hardReplay(n)=90
hard2D(n)=95 : hard3D(n)=90
hardSound(n)=95 : hardMusic(n)=95
n=28 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Wii"
hardModel$(n)="Wii" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=12 : hardYear(n)=2006
hardCost(n)=175000 : hardRetail(n)=15 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=95 : hardReplay(n)=85
hard2D(n)=95 : hard3D(n)=80
hardSound(n)=95 : hardMusic(n)=95
;apple
n=36 : hardBrand$(n)="Apple" : hardTitle$(n)="Mac"
hardModel$(n)="MacKeys" : hardCom$(n)="MacKeys" : hardTV$(n)="MacTV"
hardWeek(n)=1 : hardMonth(n)=1 : hardYear(n)=1998
hardCost(n)=100000 : hardRetail(n)=10 : hardFormat(n)=1 : hardHandheld(n)=0
hardGameplay(n)=70 : hardReplay(n)=80
hard2D(n)=70 : hard3D(n)=60
hardSound(n)=80 : hardMusic(n)=80
n=29 : hardBrand$(n)="Apple" : hardTitle$(n)="iPhone"
hardModel$(n)="iPhone" : hardCom$(n)="MacKeys" : hardTV$(n)="MacTV"
hardWeek(n)=1 : hardMonth(n)=6 : hardYear(n)=2007
hardCost(n)=200000 : hardRetail(n)=5 : hardFormat(n)=0 : hardHandheld(n)=1
hardGameplay(n)=75 : hardReplay(n)=70
hard2D(n)=80 : hard3D(n)=60
hardSound(n)=99 : hardMusic(n)=99
n=30 : hardBrand$(n)="Apple" : hardTitle$(n)="iPad"
hardModel$(n)="iPad" : hardCom$(n)="MacKeys" : hardTV$(n)="MacTV"
hardWeek(n)=1 : hardMonth(n)=6 : hardYear(n)=2011
hardCost(n)=200000 : hardRetail(n)=5 : hardFormat(n)=0 : hardHandheld(n)=2
hardGameplay(n)=80 : hardReplay(n)=75
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=99 : hardMusic(n)=99
;next gen
n=31 : hardBrand$(n)="Nintendo" : hardTitle$(n)="3DS"
hardModel$(n)="DS" : hardCom$(n)="Laptop" : hardTV$(n)="Laptop"
hardWeek(n)=4 : hardMonth(n)=3 : hardYear(n)=2011
hardCost(n)=150000 : hardRetail(n)=10 : hardFormat(n)=0 : hardHandheld(n)=3
hardGameplay(n)=90 : hardReplay(n)=90
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=90 : hardMusic(n)=90
n=32 : hardBrand$(n)="Sony" : hardTitle$(n)="Vita"
hardModel$(n)="Vita" : hardCom$(n)="Laptop" : hardTV$(n)="Laptop"
hardWeek(n)=1 : hardMonth(n)=12 : hardYear(n)=2011
hardCost(n)=125000 : hardRetail(n)=10 : hardFormat(n)=0 : hardHandheld(n)=2
hardGameplay(n)=90 : hardReplay(n)=90
hard2D(n)=90 : hard3D(n)=80
hardSound(n)=90 : hardMusic(n)=90
n=33 : hardBrand$(n)="Nintendo" : hardTitle$(n)="Wii U"
hardModel$(n)="WiiU" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=4 : hardYear(n)=2012
hardCost(n)=175000 : hardRetail(n)=10 : hardFormat(n)=0 : hardHandheld(n)=2
hardGameplay(n)=99 : hardReplay(n)=99
hard2D(n)=99 : hard3D(n)=90
hardSound(n)=99 : hardMusic(n)=99
n=34 : hardBrand$(n)="Sony" : hardTitle$(n)="Playstation 4"
hardModel$(n)="PS3" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=1 : hardYear(n)=2013
hardCost(n)=200000 : hardRetail(n)=10 : hardFormat(n)=0 : hardHandheld(n)=0
hardGameplay(n)=99 : hardReplay(n)=99
hard2D(n)=99 : hard3D(n)=99
hardSound(n)=99 : hardMusic(n)=99
n=35 : hardBrand$(n)="Microsoft" : hardTitle$(n)="X-Box 720"
hardModel$(n)="XBox" : hardCom$(n)="Laptop" : hardTV$(n)="BigTV"
hardWeek(n)=1 : hardMonth(n)=4 : hardYear(n)=2013
hardCost(n)=200000 : hardRetail(n)=10 : hardFormat(n)=0 : hardHandheld(n)=0
hardGameplay(n)=99 : hardReplay(n)=99
hard2D(n)=99 : hard3D(n)=99
hardSound(n)=99 : hardMusic(n)=99
;update list
;no_machines=n

;///////////////////////////////////////////////////////
;----------------- RELATED FUNCTIONS -------------------
;///////////////////////////////////////////////////////

;COUNT MACHINES
Function CountMachines(task) ;0=released, 1=owned, 2=active
 value=0
 For v=1 To no_machines
  If hardReleased(v)>0
   If task=0 Then value=value+1
   If task=1 And hardOwned(v)>0 Then value=value+1
   If task=2 And hardPromotion#(v)>-99 Then value=value+1
  EndIf
 Next
 Return value
End Function

;AVERAGE HARDWARE STATS
Function AverageHardwareStats(cyc)
 value=hardGameplay(cyc)+hardReplay(cyc)+hard2D(cyc)+hard3D(cyc)+hardSound(cyc)+hardMusic(cyc)
 value=value/6
 Return value
End Function
;FIND INDUSTRY STANDARDS
Function FindIndustryStandards()
 For cyc=1 To 7
  hardStandard(cyc)=0
 Next
 For v=1 To no_machines
  If hardReleased(v)>0
   If v<>18 And v<>36
    If hardGameplay(v)=>hardStandard(1) Then hardStandard(1)=hardGameplay(v) : hardLeader(1)=v
    If hardReplay(v)=>hardStandard(2) Then hardStandard(2)=hardReplay(v) : hardLeader(2)=v
    If hard2D(v)=>hardStandard(3) Then hardStandard(3)=hard2D(v) : hardLeader(3)=v
    If hard3D(v)=>hardStandard(4) Then hardStandard(4)=hard3D(v) : hardLeader(4)=v
    If hardSound(v)=>hardStandard(5) Then hardStandard(5)=hardSound(v) : hardLeader(5)=v
    If hardMusic(v)=>hardStandard(6) Then hardStandard(6)=hardMusic(v) : hardLeader(6)=v
   EndIf
   If AverageHardwareStats(v)=>hardStandard(7) Then hardStandard(7)=AverageHardwareStats(v) : hardLeader(7)=v
  EndIf
 Next
End Function

;CALCULATE HARDWARE SALES
PercentOf ()

Function GetHardwareSales(cyc)
 sales=0
 ;sales=sales+PercentOf#(hardGameplay(cyc),GetPercent#(hardGameplay(cyc),hardStandard(1)))
 ;sales=sales+PercentOf#(hardReplay(cyc),GetPercent#(hardReplay(cyc),hardStandard(2)))
 ;sales=sales+PercentOf#(hard2D(cyc),GetPercent#(hard2D(cyc),hardStandard(3)))
 ;sales=sales+PercentOf#(hard3D(cyc),GetPercent#(hard3D(cyc),hardStandard(4)))
 ;sales=sales+PercentOf#(hardSound(cyc),GetPercent#(hardSound(cyc),hardStandard(5)))
 ;sales=sales+PercentOf#(hardMusic(cyc),GetPercent#(hardMusic(cyc),hardStandard(6)))
 ;sales=sales*sales
 sales=sales+hardGameplay(cyc)
 sales=sales+hardReplay(cyc)
 sales=sales+hard2D(cyc)
 sales=sales+hard3D(cyc)
 sales=sales+hardSound(cyc)
 sales=sales+hardMusic(cyc)
 prowess=0
 prowess=prowess+GetPercent#(hardGameplay(cyc),hardStandard(1))
 prowess=prowess+GetPercent#(hardReplay(cyc),hardStandard(2))
 prowess=prowess+GetPercent#(hard2D(cyc),hardStandard(3))
 prowess=prowess+GetPercent#(hard3D(cyc),hardStandard(4))
 prowess=prowess+GetPercent#(hardSound(cyc),hardStandard(5))
 prowess=prowess+GetPercent#(hardMusic(cyc),hardStandard(6))
 sales=(sales*prowess)/2
 If optTime=1 Then sales=sales/2
 If hardUsers(cyc)>1000000 Then sales=sales/2
 sales=PercentOf#(sales,hardPromotion#(cyc))
 GetPercent#( value#, maxvalue#)
	
	Return (maxvalue / value) * 100.0
End Function

;BRAND ACTIVE FOR EXCLUSIVITY?
Function BrandActive(brand$)
 value=0
 For v=1 To no_machines
  If hardReleased(v)>0 And hardBrand$(v)=brand$ And hardPromotion#(v)>-50 Then value=1
 Next
 Return value
End Function

;FORMAT IN USE?
Function FormatActive(format)
 value=0
 For v=1 To no_machines
  If hardReleased(v)>0 And hardFormat(v)=format And hardPromotion#(v)>-50 Then value=1
 Next

Return value
End Function

My code. how do i get past expecting end-of-file

Derron

(Posted 2016) [#13]

Wrap your code in [ codebox]...[ /codebox]-tags please.

Edit. was late when posting, meant codebox instead of codeblock.

bye
Ron

spear30

(Posted 2016) [#14]

any help?

grable

(Posted 2016) [#15]

how do i get past expecting end-of-file

That could mean anything really. But is most likely related to a syntax error with missing End scope or something.

Or it might be this line.

;CALCULATE HARDWARE SALES
PercentOf ()

The function expects 2 arguments.
But its no point in calling it there, as its only function is to produce a value (which is just discarded).

spear30

(Posted 2016) [#16]

Can someone find the duplicate identifier here?

;//////////////////////////////////////////////////////////////////////////////
;--------------------------- UNIVERSAL FUNCTIONS ------------------------------
;//////////////////////////////////////////////////////////////////////////////

;PRODUCE VARIANT SOUND
Function ProduceSound(entity,sound,pitch,vol#)
 ;fluctuate pitch
 range1=pitch-(pitch/8)
 range2=pitch+(pitch/16)
 pitcher=Rnd(range1,range2)
 ;fluctuate volume
 If vol#=0 Then vol#=Rnd(0.4,1.2)
 If vol#>1.0 Then vol#=1.0
 ;deliver sound
 If sound>0 And (gotim>0 Or screen<>50)
  If pitch>0 Then SoundPitch sound,pitcher
  SoundVolume sound,vol#
  If screen=50
   If entity=<0 Then EmitSound sound,cam
   If entity>0 Then EmitSound sound,entity 
  Else
   PlaySound sound
  EndIf
  ;reset
  If pitch>0 Then SoundPitch sound,pitch
  SoundVolume sound,1
 EndIf
End Function

;---------------------------------------------------------------------------
;///////////////////////////// GRAPHICAL ///////////////////////////////////
;---------------------------------------------------------------------------

;OUTLINE
Function Outline(script$,x,y,r1,g1,b1,r2,g2,b2)
 ;outline
 If r1<>r2 Or g1<>g2 Or b1<>b2
  Color r1,g1,b1
  Text x+2,y+2,script$,1,1
  Text x+1,y,script$,1,1
  Text x-1,y,script$,1,1
  Text x,y+1,script$,1,1
  Text x,y-1,script$,1,1
 EndIf
 ;core
 Color r2,g2,b2
 Text x,y,script$,1,1
End Function

;OUTLINE STRAIGHT
Function OutlineStraight(script$,x,y,r1,g1,b1,r2,g2,b2)
 ;outline
 If r1<>r2 Or g1<>g2 Or b1<>b2
  Color r1,g1,b1
  Text x+2,y+2,script$,0,1
  Text x+1,y,script$,0,1
  Text x-1,y,script$,0,1
  Text x,y+1,script$,0,1
  Text x,y-1,script$,0,1
 EndIf
 ;core
 Color r2,g2,b2
 Text x,y,script$,0,1
End Function

;PLOT BOLD LINE
Function DrawLine(startX,startY,endX,endY,r,g,b)
 ;outline
 Color 0,0,0
 Line startX-1,startY,endX-1,endY
 Line startX+1,startY,endX+1,endY
 Line startX,startY-1,endX,endY-1 
 Line startX,startY+1,endX,endY+1
 ;coloured line
 Color r,g,b
 Line startX,startY,endX,endY
End Function

;RESOLUTION X FIX
Function rX#(x#)
 factor#=800.0/Float(GraphicsWidth())
 newX#=x#/factor#
 Return newX#
End Function

;RESOLUTION Y FIX
Function rY#(y#)
 factor#=600.0/Float(GraphicsHeight())
 newY#=y#/factor#
 Return newY#
End Function

;---------------------------------------------------------------------------
;//////////////////////////// MATHEMATICAL /////////////////////////////////
;---------------------------------------------------------------------------

;CALCULATE HEIGHT IN FEET & INCHES
Function GetHeight$(value)
 feet=value/12
 inches=value-(feet*12)
 ft$=(feet+5)+"'"
 in$=inches+"''"
 figure$=ft$+in$
 Return figure$
End Function

;CALCULATE 1'000'000 FIGURE
Function GetFigure$(value)
  minus=0
  If value<0 Then minus=1 : value=value-(value*2)
  ;get segments
  hundreds=0 : thousands=0 : millions=0
  millions=value/1000000
  If millions<0 Then millions=0
  thousands=(value-(millions*1000000))/1000
  If thousands<0 Then thousands=0
  hundreds=value-((millions*1000000)+(thousands*1000))
  If hundreds<0 Then hundreds=0
  ;piece together
  hun$=hundreds
  If thousands>0 Then tho$=thousands Else tho$=""
  If millions>0 Then mil$=millions Else mil$=""
  If (thousands>0 Or millions>0) Then hun$="'"+hundreds
  If (thousands>0 Or millions>0) And hundreds<100 Then hun$="'0"+hundreds
  If (thousands>0 Or millions>0) And hundreds<10 Then hun$="'00"+hundreds
  If millions>0 Then tho$="'"+thousands
  If millions>0 And thousands<100 Then tho$="'0"+thousands
  If millions>0 And thousands<10 Then tho$="'00"+thousands
  ;return
  If minus=0 Then figure$=mil$+tho$+hun$ 
  If minus=1 Then figure$="-"+mil$+tho$+hun$
  Return figure$
End Function

;TRANSLATE NUMBER INTO DIGITS
Function Dig$(value,degree)
 digits$=value
 If value<degree Then digits$="0"+digits$
 If value<degree/10 Then digits$="0"+digits$
 If value=0 And degree=10 Then digits$="00"
 If value=0 And degree=100 Then digits$="000"
 Return digits$
End Function

;GET FIGURE TO NEAREST ???
Function RoundOff(value,degree)
 floater#=value/degree
 inty=Int(floater#)
 returner=inty*degree
 Return returner
End Function 

;PURSUE FIGURE
Function PursueFigure(current,target)
 ;working values
 differ=target-current
 value=0
 ;negative values
 If differ<0 Then value=-1
 If differ=<-10 Then value=-10
 If differ<-200 Then value=-100
 If differ<-2000 Then value=-1000
 If differ<-20000 Then value=-10000
 If differ<-200000 Then value=-100000
 If differ<-2000000 Then value=-1000000
 ;positive values
 If differ>0 Then value=1
 If differ=>10 Then value=10
 If differ>200 Then value=100
 If differ>2000 Then value=1000
 If differ>20000 Then value=10000
 If differ>200000 Then value=100000
 If differ>2000000 Then value=1000000
 Return value
End Function

;REACHED VALUE?
Function Reached(curr#,dest#,range)
 value=0
 If curr#>dest#-range And curr#<dest#+range Then value=1
 Return value
End Function

;REACHED CO-ORDINATE?
Function ReachedCord(currX#,currZ#,destX#,destZ#,range)
 value=0
 If currX#=>destX#-range And currX#=<destX#+range And currZ#=>destZ#-range And currZ#=<destZ#+range Then value=1
 Return value
End Function

;CLEAN GIVEN ANGLE
Function CleanAngle#(angle#)
 its=0
 Repeat
  If angle#<0 Then angle#=angle#+360
  If angle#=>360 Then angle#=angle#-360
  its=its+1
 Until (angle#=>0 And angle#=<359) Or its>100
 Return angle#
End Function

;FIND BEST ANGLE ROUTE
Function ReachAngle#(sA#,tA#,speed#)
 ;clean angles
 sA#=CleanAngle#(sA#)
 tA#=CleanAngle#(tA#)
 ;get negative route
 neg=0 : checkA#=sA#
 Repeat
  neg=neg+1
  checkA#=checkA#-1
  If checkA#<0 Then checkA#=359
 Until checkA#=>tA#-1 And checkA#=<tA#+1
 ;get positive route
 pos=0 : checkA#=sA#
 Repeat
  pos=pos+1
  checkA#=checkA#+1
  If checkA#>359 Then checkA#=0
 Until checkA#=>tA#-1 And checkA#=<tA#+1
 ;return shortest route
 If neg<pos Then value#=-speed# Else value#=speed#
 Return value#
End Function

;SATISFIED TARGET ANGLE?
Function SatisfiedAngle(sA#,tA#,range)
 value=0
 ;clean working angles
 sA#=CleanAngle#(sA#)
 tA#=CleanAngle#(tA#)
 ;scan clockwise
 angler#=sA#
 For count=1 To range
  If angler#=>tA#-1 And angler#=<tA#+1 Then value=1 
  angler#=angler#+1
  If angler#>360 Then angler#=0
 Next
 ;scan counter-clockwise
 angler#=sA#
 For count=1 To range
  If angler#=>tA#-1 And angler#=<tA#+1 Then value=1 
  angler#=angler#-1
  If angler#<0 Then angler#=360
 Next
 Return value
End Function

;CALCULATE DIFFERENCE (between any 2 numbers)
Function GetDiff#(source#,dest#)
 diff#=dest#-source#
 If diff#<0 Then diff#=MakePositive#(diff#)
 Return diff#
End Function

;CALCULATE CENTRE (of any 2 numbers)
Function GetCentre#(source#,dest#)
 If source#<dest#
  centre#=source#+(GetDiff#(source#,dest#)/2)
 Else
  centre#=dest#+(GetDiff#(source#,dest#)/2)
 EndIf
 Return centre#
End Function

;CALCULATE DISTANCE (between any 2 sets of co-ordinates)
Function GetDistance#(sourceX#,sourceZ#,destX#,destZ#)
 diffX#=GetDiff#(sourceX#,destX#)
 diffZ#=GetDiff#(sourceZ#,destZ#)
 If diffX#>diffZ# Then distance#=diffX# Else distance#=diffZ#
 Return distance#
End Function

;CALCULATE HIGHEST VALUE
Function HighestValue#(valueA#,valueB#)
 highest#=valueA#
 If valueB#>valueA# Then highest#=valueB#
 Return highest#
End Function

;CALCULATE LOWEST VALUE
Function LowestValue#(valueA#,valueB#)
 lowest#=valueA#
 If valueB#<valueA# Then lowest#=valueB#
 Return lowest#
End Function

;SMOOTH TRAVELLING SPEEDS
Function GetSmoothSpeeds(x#,tX#,y#,tY#,z#,tZ#,factor)
 ;calculate differences & identify leader
 diffX#=GetDiff#(x#,tX#)
 lead#=diffX# : leader=1
 diffY#=GetDiff#(y#,tY#) 
 If diffY#>lead# Then lead#=diffY# : leader=2
 diffZ#=GetDiff#(z#,tZ#)
 If diffZ#>lead# Then lead#=diffZ# : leader=3
 ;make anchor speed from leading difference
 anchor#=lead#/factor
 ;calculate respective speeds
 If leader=1 Then speedX#=anchor# Else speedX#=anchor#*(diffX#/lead#)
 If leader=2 Then speedY#=anchor# Else speedY#=anchor#*(diffY#/lead#)
 If leader=3 Then speedZ#=anchor# Else speedZ#=anchor#*(diffZ#/lead#)
End Function

;FORCE MINUS INTO POSITIVE
Function MakePositive#(value#)
 If value#<0
  positive#=value#-(value#*2)
 Else
  positive#=value#
 EndIf
 Return positive#
End Function

;CALCULATE PERCENTAGE OF VALUE
Function PercentOf#(valueA#,percent#)
 valueB#=(valueA#/100)*percent#
 Return valueB#
End Function

;CALCULATE VALUE AS PERCENT
Function GetPercent#(valueA#,valueB#)
 percent#=0
 If valueB#>0 Then percent#=(valueA#/valueB#)*100
 Return percent#
End Function

;DESCRIBE NUMBER
Function DescribeNumber$(value)
 description$=value+"th" 
 If value=1 Then description$="1st"
 If value=2 Then description$="2nd"
 If value=3 Then description$="3rd"
 If value>20
  For count=2 To value/10
   If value=(count*10)+1 Then description$=value+"st"
   If value=(count*10)+2 Then description$=value+"nd"
   If value=(count*10)+3 Then description$=value+"rd"
  Next 
 EndIf
 Return description$
End Function

B	(Posted 2016) [#17]

@spear30

Please use:

[ codebox]

code here

[ /codebox]

but without the space after the [
It puts the code into a box that scrolls so we don't have a page with a length comparable to War and Peace.

If Blitz3d has it, put Strict or Superstrict as the first line of your code.

I combed through quite a bit of the code first checking for 'local' or 'global' keywords typical of defining a variable, but noticed that there is only one use of 'local' in your code.

Then I checked to make sure you didn't name a function the same as another existing function. That looks fine.

Then I started from the bottom up looking through each function.
And... I don't have time for it right now.
But I didn't find a duplicate identifier.
Is this all the code?

I'd suggest that you just go through it again, putting more space between commands so it's easier to read when you go back over it.
I've solved numerous problems by just going over my code again, line by line, thinking out how each line works and fits into the larger code as a whole.

Also if you want to make a negative number positive you can always multiply by -1.

spear30

(Posted 2016) [#18]

;-------------------------------------------------------------------------
;////////////////////////// UNDER DEVELOPMENT ////////////////////////////
;-------------------------------------------------------------------------
;~~~~~~~~~~~~~~~~~~~~~ Copyright � Mat Dickie 2011 ~~~~~~~~~~~~~~~~~~~~~~~
;~~~~~~~~~~ This program may not be re-released under any other ~~~~~~~~~~
;~~~~~~~ identity or sold commercially without express permission. ~~~~~~~
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;FILE STRUCTURE
SeedRnd(MilliSecs())
AppTitle "Under Development"
Include "Values.bb"
Include "Texts.bb"
Include "Hardware.bb"
Include "Software.bb"
Include "Functions.bb"
Include "Data.bb"
Include "Menus.bb"
Include "Credits.bb"
Include "Rosters.bb"
Include "Editor.bb"
Include "World.bb"
Include "Promos.bb"
Include "Career.bb"
Include "Reviews.bb"
Include "News.bb"
Include "Charts.bb"
Include "Meetings.bb"
Include "Negotiations.bb"
;subgames
Include "Subgames/Invaders.bb"
Include "Subgames/Tetris.bb"
Include "Subgames/Breakout.bb"
Include "Subgames/Asteroids.bb"
Include "Subgames/Moksha.bb"
Include "Subgames/Snake.bb"
Include "Subgames/SureShot.bb"
Include "Subgames/Crosshair.bb"

;INITIATE ENGINE 
LoadOptions()
ChangeResolution(optMenuRes,0)
SetBuffer BackBuffer()
AutoMidHandle True
EnableDirectInput True
HidePointer
MoveMouse rX#(650),rY#(500)
SeedRnd(MilliSecs())   

;LOADING PROCESS
;start intro
Intro()
;load media
LoadMusic()
LoadImages()
LoadTextures()
;default universe
Loader("Please Wait","Restoring Data")
LoadUniverse()
slot=0
LoadProgress(slot)
LoadWorld(slot)
LoadChars(slot)
LoadPhotos(slot)
;software data
Loader("Please Wait","Loading Software")
LoadGameData()
LoadGameBox(0) : LoadGameScreen(0)
LoadGameBox(418) : LoadGameScreen(418)
;restore normal music
ManageMusic(Rnd(1,no_themes))

;SCREEN MANAGEMENT
SeedRnd(MilliSecs())
screen=1 
Repeat
 ;load screen
 If screen>0
  LoadScreen(screen)
 EndIf
 ;get-out clause
 If KeyDown(56) And KeyDown(45) Then End
Until screen=0
End 

;SCREEN ACCESS
Function LoadScreen(request)
 ;main menus
 If request=1 Then MainMenu()
 If request=2 Then Options()
 If request=3 Then Credits()
 If request=4 Then Outro()
 ;setup menus
 If request=10 Then SelectSlot()
 If request=11 Then SelectRoster()
 If request=12 Then SelectCharacter()
 If request=13 Then SelectProject()
 If request=14 Then SelectHardware()
 If request=15 Then ManageDesks()
 If request=16 Then SelectGame()
 If request=17 Then SoftwareLibrary()
 If request=18 Then EditGame()
 ;career screens
 If request=20 Then CareerHub()
 
 If request=22 Then IntroduceDate() 
 If request=23 Then NewsReports()
 If request=24 Then FinanceReport()
 If request=25 Then Retirement()
 If request=26 Then HallOfFame()
 If request=27 Then ConfirmUniverse()
 If request=28 Then GameChart()
 If request=29 Then Review()
 ;3D scenes
 If request=50 Then OfficeWork()
 If request=51 Then Editor()
 If request=52 Then NegotiateDeal()
 If request=53 Then Meeting()
 If request=54 Then RecruitMember()
 ;sub-games
 If request=61 Then Tetris()
 If request=62 Then SpaceInvaders()
 If request=63 Then Breakout()
 If request=64 Then Asteroids()
 If request=65 Then Moksha()
 If request=66 Then Snake() 
 If request=67 Then SureShot() 
 If request=68 Then CrossHair() 
End Function

;DELIBERATE CRASH LOOPHOLE
Function LoopHole()
 LoopHole()
End Function

;----------------------------------------------------------------------------
;/////////////////////////// 50. OFFICE WORK ////////////////////////////////
;----------------------------------------------------------------------------
Function OfficeWork()
;loading message
Loader("Please Wait","Entering Office")
;chThemeVol#=0.5 : ChannelVolume chTheme,chThemeVol#
;load office
fed=charFed(gamChar) : negSetting=6 
PrepareStudio()
If screenAgenda=0 Or screenAgenda=8 Then camFoc=negStar : camType=2
If screenAgenda=2 Then camFoc=negStar : camType=1
If screenAgenda=4 Then camAccel=0
For cyc=1 To no_plays
 pFoc(cyc)=0
Next
;alternative identities
If screenAgenda=6
 camFoc=negStar : camType=2
 For cyc=1 To 3
  projPossibleID(cyc)=0
 Next
 If projIdentity(gamProject)>0 Then projPossibleID(Rnd(1,3))=projIdentity(gamProject)
 For cyc=1 To 3
  Loader("","") 
  If projPossibleID(cyc)=0
   Repeat
    projPossibleID(cyc)=Rnd(1,no_games)
   Until projPossibleID(cyc)<>projIdentity(gamProject)
  EndIf
  projPossibleBox(cyc)=LoadImage("Games/Box Art/Box"+Dig$(projPossibleID(cyc),100)+".jpg")
  ResizeImage projPossibleBox(cyc),100,145
  MaskImage projPossibleBox(cyc),255,0,255
 Next
EndIf
;frame rating
timer=CreateTimer(30)
;MAIN LOOP
screenState=0
foc=0 : oldfoc=foc
go=0 : gotim=-20 : keytim=20
While go=0

 Cls
 frames=WaitTimer(timer)
 For framer=1 To frames
	
	;CONFIGURATION
	gotim=gotim+1
	keytim=keytim-1
	If keytim<0 Then keytim=0
	;viewing options
	If screenAgenda=0 Or screenAgenda=8
	 If KeyDown(1) Or KeyDown(28) Or MouseDown(2) Then PlaySound sMenuBack : go=-1
	EndIf
	If gotim=20 And screenAgenda=8 Then PlaySound sMilestone
	;development menu
	If screenAgenda=2 And screenState=0
	 camType=1
	 If gotim>20 And keytim=0
	  If KeyDown(1) Or (MouseDown(1) And foc=8) Then PlaySound sMenuBack : go=-1
	  If MouseDown(1) And foc=>1 And foc=<7
	   PlaySound sMenuBrowse : keytim=20
	   screenState=1 : gotim=0
	   ;If TeamSize(gamChar)=1 And charWorked(gamChar)=0
	    ;PlaySound sMenuGo : screenState=2
	    ;camFoc=negStar : gamWorker=pChar(camFoc) : pAnim(camFoc)=10
	   ;EndIf
	   gamDevelop=foc
	   If gamDevelop=>1 And gamDevelop=<6 And projLocked(gamProject,gamDevelop)>0
	    For v=1 To no_plays
	     If pChar(v)=projCredit(gamProject,gamDevelop) And pChar(v)<>gamChar Then screenState=-1 : gotim=0 : camFoc=v : negTopic=1 : negTim=0
	    Next
	   EndIf
	  EndIf
	 EndIf
	EndIf 
	;character selection
	If screenAgenda=2 And screenState=1
	 camType=1
	 If gotim>20 And keytim=0
	  If KeyDown(1) Or (MouseDown(1) And foc=4) Then PlaySound sMenuBrowse : keytim=20 : screenState=0 : gotim=10
	  If MouseDown(1) And foc=1
	   PlaySound sMenuBrowse : keytim=10
	   Repeat
	    camFoc=camFoc-1
	    If camFoc<1 Then camFoc=no_plays
	   Until gamDesk(camFoc)<>0
	  EndIf
	  If MouseDown(1) And foc=2
	   PlaySound sMenuBrowse : keytim=10
	   Repeat
	    camFoc=camFoc+1
	    If camFoc>no_plays Then camFoc=1
	   Until gamDesk(camFoc)<>0
	  EndIf
	  ;confirm
	  If MouseDown(1) And (foc=3 Or foc=5)
	   PlaySound sMenuGo : keytim=20
	   screenState=2 : gotim=0
	   If foc=5 Then optAuto=1 Else optAuto=0
	   gamWorker=pChar(camFoc)
	   ;dedicated role
	   If gamDevelop=>1 And gamDevelop=<6 And charDedicated(gamWorker)>0 And charDedicated(gamWorker)<>gamDevelop And gamWorker<>gamChar
	    screenState=-1 : gotim=0 : negTopic=9 : negTim=0
	   EndIf
	   ;alaready worked
	   If charWorked(gamWorker)>0
	    If pAnim(camFoc)=<10 Then pAnim(camFoc)=11
	    screenState=-1 : gotim=0 : negTopic=2 : negTim=0
	    If gamWorker=gamChar Then PlaySound sVoid : screenState=1 : gotim=100
	   Else
	    If pAnim(camFoc)=<9 Then pAnim(camFoc)=10
	   EndIf
	   ;broken equipment
	   If gamDesk(camFoc)<0
	    screenState=-1 : gotim=0 : negTopic=6 : negTim=0
	    If pAnim(camFoc)=<10 Then pAnim(camFoc)=5
	   EndIf
	   ;update screen
	   If screenState=2 And projIdentity(gamProject)=<0
	    If gamDevelop=>1 And gamDevelop=<6 
	     TextureScreens(camFoc,tDevelop(gamDevelop))
	    Else
	     TextureScreens(camFoc,tDevelop(Rnd(1,6)))
	    EndIf
	   EndIf
	
	  EndIf
	 EndIf
	EndIf  
	;zoom into game
	If screenAgenda=2 And screenState=2
	 camType=3
	 If gotim=0 Then PlaySound sTyping
	 If GetDistance#(camX#,camZ#,camPivTX#,camPivTZ#)<7.5
	  If optAuto>0
	   SimulateProgress()
	   ApplyNightLight()
	   pAnim(camFoc)=Rnd(1,9)
	   If projIdentity(gamProject)=>0
  		tScreenshot=LoadTexture("Games/Screenshots/Screen"+Dig$(projIdentity(gamProject),100)+".JPG")
        TextureScreens(camFoc,tScreenshot) 
 	   Else
  	    TextureScreens(camFoc,tDevelop(Abs(projIdentity(gamProject))))
 	   EndIf 
	   If hardHandheld(gamHardware)>0 And projIdentity(gamProject)>0
	  	pAnim(camFoc)=15+hardHandheld(gamHardware)
	    ApplyHandhelds(camFoc)
   	    HideEntity FindChild(desk(camFoc),hardModel$(gamHardware))
   	    HideEntity FindChild(desk(camFoc),hardTV$(gamHardware)+"S")
    	If FindChild(desk(camFoc),hardCom$(gamHardware)+"S")>0
         HideEntity FindChild(desk(camFoc),hardCom$(gamHardware)+"S")
        EndIf
 	   EndIf
	   camAccel=0
	   screen=50 : screenAgenda=4 : screenState=0 : gotim=1
	  Else
	   go=1
	  EndIf
	 EndIf
	EndIf
	;aftermath
	If screenAgenda=4
	 camType=2
	 If screenState=0 And gotim=20
	  If projIdentity(gamProject)>0 And projOldIdentity(gamProject)=<0 Then PlaySound sMilestone
	 EndIf
	 If screenState=0 And gotim>100 Then screenState=1 : gotim=0
	 If screenState=1 And keytim=0
	  v=gamProject
	  If projGameplay(v)<projNewGameplay(v) Then projGameplay(v)=projGameplay(v)+1 : keytim=4
	  If projGameplay(v)>projNewGameplay(v) Then projGameplay(v)=projGameplay(v)-1 : keytim=4
	  If projReplay(v)<projNewReplay(v) Then projReplay(v)=projReplay(v)+1 : keytim=4
	  If projReplay(v)>projNewReplay(v) Then projReplay(v)=projReplay(v)-1 : keytim=4
	  If proj2D(v)<projNew2D(v) Then proj2D(v)=proj2D(v)+1 : keytim=4
	  If proj2D(v)>projNew2D(v) Then proj2D(v)=proj2D(v)-1 : keytim=4
	  If proj3D(v)<projNew3D(v) Then proj3D(v)=proj3D(v)+1 : keytim=4
	  If proj3D(v)>projNew3D(v) Then proj3D(v)=proj3D(v)-1 : keytim=4
	  If projSound(v)<projNewSound(v) Then projSound(v)=projSound(v)+1 : keytim=4
	  If projSound(v)>projNewSound(v) Then projSound(v)=projSound(v)-1 : keytim=4
	  If projMusic(v)<projNewMusic(v) Then projMusic(v)=projMusic(v)+1 : keytim=4
	  If projMusic(v)>projNewMusic(v) Then projMusic(v)=projMusic(v)-1 : keytim=4
	  If keytim=4 Then PlaySound sMenuBrowse
	  If projGameplay(v)=projNewGameplay(v) And projReplay(v)=projNewReplay(v)
	   If proj2D(v)=projNew2D(v) And proj3D(v)=projNew3D(v)
	    If projSound(v)=projNewSound(v) And projMusic(v)=projNewMusic(v) Then screenState=2 : gotim=0
	   EndIf
	  EndIf
	 EndIf
	 If screenState=2
	  camType=4
	  If gotim>200 Or (gotim>100 And MouseDown(1)) Then screenAgenda=2 : screenState=0 : gotim=0 : keytim=20 
	 EndIf
	EndIf
	;identification process
	If screenAgenda=6 
	 camType=2 
	 If screenState=0 And gotim>100
	  screenState=-1 : gotim=0 : negTopic=3 : negTim=0 : camFoc=negVisitor
	  ;If gamChar=fedBooker(fed) Then screenState=1 : camFoc=negStar
	  If fedPolicy(fed)=6 And projIdentified(gamProject)>0
	   If AverageProjectStats(gamProject,1)<AverageHardwareStats(gamHardware)-10 Then negTopic=10 
	  EndIf
	  If projIdentified(gamProject)>0 And gamMission=>1 And gamMission=<6 Then negTopic=11 
	  If projIdentity(gamProject)=<0 Or (projIdentified(gamProject)>0 And projIdentity(gamProject)<>projIdentified(gamProject)) Then negTopic=7
	  If projIdentified(gamProject)<0 Then negTopic=8
	 EndIf
	 If screenState=1 And gotim>20 And keytim=0
	  If KeyDown(1) Then PlaySound sMenuBack : go=-1
	  If MouseDown(1) And foc=>1 And foc=<3
	   If projPossibleID(foc)=projIdentity(gamProject)
	    PlaySound sMilestone : keytim=10
	    projIdentified(gamProject)=projIdentity(gamProject)
	    projTitle$(gamProject)=softTitle$(projIdentity(gamProject))
	    If softDated(projIdentity(gamProject))>0 Then projTitle$(gamProject)=projTitle$(gamProject)+" "+GetYear(gamDate)
	    If hardHandheld(gamHardware)>0
	     HideEntity FindChild(p(negStar),hardModel$(gamHardware))
	    EndIf
	    pAnim(negStar)=15 : pAnim(negVisitor)=25
	    screenState=-1 : gotim=0 : negTopic=4 : negTim=0 : camFoc=negVisitor
	    If gamChar=fedBooker(fed) Then screenState=2 : camFoc=negStar
	   Else
	    PlaySound sIncorrect : keytim=10
	    projIdentified(gamProject)=-1
	    screenState=-1 : gotim=0 : negTopic=5 : negTim=0 : camFoc=negVisitor
	    If gamChar=fedBooker(fed) Then screenState=2 : camFoc=negStar
	   EndIf
	  EndIf
	 EndIf 
	 If screenState=2
	  If gotim>200 Or (gotim>100 And negTopic<>4) Then camType=4 
	  If gotim>400 Or (gotim>200 And negTopic<>4) Then go=1
	 EndIf
	EndIf 
	;speeches
	If screenState=-1
	 camType=10
	 negTim=negTim+1
	 If gotim>20 And keytim=0
	  If KeyDown(1) Or MouseDown(1) Then negTim=negTim+50 : keytim=5
	 EndIf
	EndIf 
	;decoration
	If KeyDown(56) And KeyDown(57) And keytim=0 Then DecorateOffice(Rnd(1,9)) : keytim=10
	
	;ACTORS
	For cyc=1 To no_plays
	 If pChar(cyc)>0
	  ;look at choice
	  If screenAgenda=2 And screenState=1
       If pChar(camFoc)>0 And camFoc<>cyc Then pFoc(cyc)=camFoc Else pFoc(cyc)=0
      EndIf
      ;look at screen
	  If screenAgenda=6 And screenState=>0 Then pFoc(cyc)=0
      ;change animation
      If screenAgenda<>2 Or screenState<>2 Then RandomizeAnimation(cyc)
      If pAnim(cyc)=15 Or pAnim(cyc)=25 Then ShowEntity FindChild(p(cyc),"Box")
	  ;facial expressions
	  FacialExpressions(cyc)
	  ;shadows
	  For limb=1 To 50
       If pShadow(cyc,limb)>0
        RotateEntity pShadow(cyc,limb),90,EntityYaw(pLimb(cyc,limb),1),0
        PositionEntity pShadow(cyc,limb),EntityX(pLimb(cyc,limb),1),pY#(cyc)+0.4,EntityZ(pLimb(cyc,limb),1)
       EndIf
      Next
     EndIf 
	Next
	
	;CAMERA
	Camera() 
	;manage music
	ManageMusic(0)  
	
 UpdateWorld
 Next  
 ;animation override
 For cyc=1 To no_plays
  If pChar(cyc)>0
   target=0
   If cyc=<optTeamSize Then target=FindChild(desk(cyc),hardTV$(deskHardware(cyc))+"S")
   If (pAnim(cyc)=>16 And pAnim(cyc)=<18) Or (pAnim(cyc)=>26 And pAnim(cyc)=<28) Then target=FindChild(p(cyc),hardModel$(deskHardware(cyc))+"S")
   If screenAgenda=6 Or screenAgenda=8 Or cyc>optTeamSize
    target=FindChild(desk(negStar),hardTV$(deskHardware(negStar))+"S")
    If (pAnim(negStar)=>16 And pAnim(negStar)=<18) Or (pAnim(negStar)=>26 And pAnim(negStar)=<28) Then target=FindChild(p(negStar),hardModel$(deskHardware(negStar))+"S")
    If pAnim(negStar)=15 Or pAnim(negStar)=25 Then target=FindChild(p(negStar),"Box")
   EndIf
   If (pAnim(cyc)=>16 And pAnim(cyc)=<18) Or (pAnim(cyc)=>26 And pAnim(cyc)=<28) Then target=0
   If pFoc(cyc)>0 And pChar(pFoc(cyc))>0 Then target=FindChild(p(pFoc(cyc)),"Head")
   If screenAgenda=8 And hardHandheld(gamNewHardware)=0 Then target=FindChild(desk(negStar),hardModel$(deskHardware(negStar)))
   If screenAgenda=6 And (pAnim(cyc)=15 Or pAnim(cyc)=25) Then target=0
   If pAnim(cyc)=11 Then target=0
   If target>0
    PointHead(cyc,target)
   EndIf
  EndIf
 Next

 RenderWorld 1

 ;DISPLAY
 ;reset expressions
 foc=0
 For cyc=1 To no_plays
  pSpeaking(cyc)=0
 Next
 ;development menu
 If screenAgenda=2 And screenState=0
  x=400 : y=220 : startTim=20
  If gotim>startTim+3 Then DrawOption(1,rX#(x),rY#(y),"DESIGN","") : DrawImage gIconLarge(1),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+6 Then DrawOption(2,rX#(x),rY#(y),"PROGRAMMING","") : DrawImage gIconLarge(2),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+9 Then DrawOption(3,rX#(x),rY#(y),"2D GRAPHICS","") : DrawImage gIconLarge(3),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+12 Then DrawOption(4,rX#(x),rY#(y),"3D GRAPHICS","") : DrawImage gIconLarge(4),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+15 Then DrawOption(5,rX#(x),rY#(y),"SOUND","") : DrawImage gIconLarge(5),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+18 Then DrawOption(6,rX#(x),rY#(y),"MUSIC","") : DrawImage gIconLarge(6),rX#(x)-100,rY#(y) : y=y+45
  If gotim>startTim+21 Then DrawOption(7,rX#(x),rY#(y),"EVERYTHING","") : y=y+60
  If gotim>startTim+24 Then DrawOption(8,rX#(400),rY#(565),"<<< BACK <<<","")
  If gotim>startTim Then DrawProjectProfile(gamProject,rX#(400),rY#(15),1)
 EndIf
 ;character selection
 If screenAgenda=2 And screenState=1 And gotim>10
  DrawOption(1,rX#(125),rY#(300),"<<< PREVIOUS <<<","")
  DrawOption(2,rX#(675),rY#(300),">>> NEXT >>>","")
  available=1
  If pChar(camFoc)=gamChar And charWorked(gamChar)>0 Then available=0
  If charRoster(gamChar,camFoc)=0 Or charVacant(charRoster(gamChar,camFoc))>0 Then available=0
  If available=1 
   DrawOption(3,rX#(400),rY#(475),"PLAY","")
   DrawOption(5,rX#(400),rY#(515),"SIMULATE","")
   If gamDevelop=>1 And gamDevelop=<6 Then DrawImage gIconLarge(gamDevelop),rX#(400)-100,rY#(495) 
   DrawImage gControl(2),rX#(400)+100,rY#(475)
   DrawImage gFormat(0),rX#(400)+100,rY#(515)
  EndIf
  DrawOption(4,rX#(400),rY#(565),"<<< BACK <<<","")
  If charRoster(gamChar,camFoc)>0
   DrawCharProfile(charRoster(gamChar,camFoc),rX#(400),rY#(10),1)
  EndIf
 EndIf
 ;aftermath
 If screenAgenda=4 And screenState=>1
  DrawCharProfile(gamWorker,rX#(400),rY#(10),1)
  DrawProjectProfile(gamProject,rX#(400)-60,rY#(600)-175,0)
  SetFont font(14)
  r=255 : g=255 : b=255
  If gamIncrease>0 Then r=100 : g=200 : b=100
  If gamIncrease<0 Then r=200 : g=100 : b=100
  Outline(GetFigure$(gamScore(0))+"pts @ "+gamSkill+"% skill",rX#(400)-200,rY#(600)-115,0,0,0,r,g,b)
  If gamIncrease=>0 Then Outline("= "+gamIncrease+"% increase",rX#(400)-200,rY#(600)-80,0,0,0,r,g,b)
  If gamIncrease<0 Then Outline("= "+gamIncrease+"% decrease",rX#(400)-200,rY#(600)-80,0,0,0,r,g,b)
  SetFont font(10)
  If gamPerfect>0 Then Outline("(Perfectionism)",rX#(400)-200,rY#(600)-50,0,0,0,r,g,b)
 EndIf
 ;identification choices
 If screenAgenda=6 And screenState=1
  x=700 : y=100
  For cyc=1 To 3
   If gotim>20+(cyc*5)
    DrawImage projPossibleBox(cyc),rX#(x),rY#(y)
    If MouseX()=>rX#(x)-50 And MouseX()=<rX#(x)+50 And MouseY()=>rY#(y)-73 And MouseY()=<rY#(y)+73 Then foc=cyc
    If foc=cyc
     Color 0,0,0 : Rect rX#(x)-50,rY#(y)-73,100,146,0
     Color 255,240,0 : Rect rX#(x)-51,rY#(y)-74,102,148,0
     Color 0,0,0 : Rect rX#(x)-52,rY#(y)-75,104,150,0
    EndIf
   EndIf
   y=y+200
  Next
 EndIf
 ;speeches
 If screenState=-1
  lineA$="" : lineB$=""
  redLineA$="" : redLineB$=""
  greenLineA$="" : greenLineB$=""
  If negTopic=1
   If negTim>25 And negTim<325
    Speak(camFoc,0,1)
    lineA$="I already did a good job on the "+textAttribute$(gamDevelop)+","
    lineB$=charName$(gamChar)+"! What do you want to change it for?"
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=0 : gotim=10
  EndIf
  If negTopic=2
   If negTim>25 And negTim<325
    Speak(camFoc,0,1)
    lineA$="I've already done enough work for one day,"
    lineB$=charName$(gamChar)+"! Find somebody else to do it..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=1 : gotim=0
  EndIf
  If negTopic=3
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,3)
    lineA$="So, "+charName$(gamChar)+", have you figured out"
    lineB$="how we should market this project yet?"
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=1 : gotim=0
  EndIf
  If negTopic=4
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,3)
    greenLineA$="Yes, '"+projTitle$(gamProject)+"' is the perfect choice!"
    greenLineB$="Now we can look ahead to the game's release..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  If negTopic=5
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,1)
    redLineA$="No, I'm not sure that's what we're looking for."
    redLineB$="I suggest you keep working on the project..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  If negTopic=6
   If negTim>25 And negTim<325 And gamDesk(camFoc)=-1
    Speak(camFoc,0,1)
    lineA$="I wish I could, but this damn computer is broken!"
    lineB$="When are you going to pay someone to fix it?"
   EndIf
   If negTim>25 And negTim<325 And gamDesk(camFoc)=-2
    Speak(camFoc,0,1)
    lineA$="This computer is still in the process of being repaired!"
    lineB$="I won't be able to get any work done until next week..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=1 : gotim=0
  EndIf
  If negTopic=7
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,1)
    lineA$="You dragged me down here to talk about releasing"
    lineB$="THIS?! Keep working on it until it takes shape..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  If negTopic=8
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,1)
    lineA$="We've already talked about this enough for one day!"
    lineB$="You should concentrate on finishing the project..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  If negTopic=9
   If negTim>25 And negTim<325
    Speak(camFoc,0,1)
    lineA$="I consider myself to be a "+textRole$(charDedicated(gamWorker))+" nowadays!"
    lineB$="Find somebody else to do the "+textAttribute$(gamDevelop)+"..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=1 : gotim=0
  EndIf
  If negTopic=10
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,1)
    lineA$=fedName$(fed)+" has a policy of only releasing games"
    lineB$="of the highest quality! This doesn't qualify yet..."
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  If negTopic=11
   If negTim>25 And negTim<325
    Speak(negVisitor,negStar,1)
    lineA$="I told you that we can't release this game"
    lineB$="until you get the "+textAttribute$(gamMission)+" up to "+gamTarget+"%!"
   EndIf
   If negTim>325 Then camFoc=negStar : screenState=2 : gotim=0
  EndIf
  DisplaySubtitles()
 EndIf
 ;cursor
 cursor=1
 If screenAgenda=0 Or screenAgenda=4 Or screenAgenda=8 Then cursor=0
 If screenAgenda=2 And screenState=2 Then cursor=0
 If cursor>0 Then DrawImage gCursor,MouseX(),MouseY()
 If foc<>oldfoc
  oldfoc=foc
  If foc>0 And gotim>0 Then PlaySound sMenuSelect
 EndIf
 ;mask shaky start
 If gotim<0 Then Loader("","")

 Flip
 ;screenshot (F12)
 If KeyHit(88) Then Screenshot()

Wend
;leave
FreeTimer timer
;free entities
If go=-1 Or screenAgenda<>2 Then Loader("Please Wait","Leaving Office")
FreeEntity world
FreeEntity cam 
FreeEntity camPivot
FreeEntity dummy
FreeEntity light
FreeEntity lightPivot
;remove workstations
If go=-1 Or screenAgenda<>2 Then Loader("","")
For cyc=1 To no_desks
 If gamDesk(cyc)<>0 And desk(cyc)>0
  FreeEntity desk(cyc) : desk(cyc)=0
 EndIf
Next
;remove characters
If go=-1 Or screenAgenda<>2 Then Loader("","")
For cyc=1 To no_plays
 If pChar(cyc)>0
  FreeEntity p(cyc)
  For limb=1 To 50
   If pShadow(cyc,limb)>0
    FreeEntity pShadow(cyc,limb)
   EndIf
  Next
 EndIf
Next
;update game box
If screenAgenda=6
 For cyc=1 To 3
  FreeImage projPossibleBox(cyc)
 Next
 If projIdentity(gamProject)>0 And projIdentified(gamProject)>0
  Loader("","")
  LoadProjectBox(gamProject)
 EndIf
EndIf
;save progress
If screenAgenda<>2
 Loader("","")
 SaveProgress(slot)
EndIf
;proceed
screen=20
If go=1 And screenAgenda=2 And optAuto=0 Then screen=60+Rnd(1,no_subgames)
If screenAgenda=8 Then screen=14
;automatic scores
;If go=1 And screenAgenda=2 And optAuto>0
 ;Loader("Please Wait","Simulating Progress")
 ;SimulateProgress()
 ;screen=50 : screenAgenda=4
;EndIf
End Function

;-----------------------------------------------------------------
;////////////////////// RELATED FUNCTIONS ////////////////////////
;-----------------------------------------------------------------

;PREPARE STUDIO
Function PrepareStudio()
 ;rest textures
 ResetTextures()
 ;camera
 LoadCamera()
 ;load workstations
 LoadWorkstations()
 ;universal scenery
 PrepareScenery()
 ;lighting
 LoadLighting()
 ;add visitor
 If (screenAgenda=6 Or screenAgenda=8) And gamChar<>fedBooker(fed)
  negChar=fedBooker(fed)
  If charTeam(negChar)<>gamChar
   no_plays=no_plays+1
   pChar(no_plays)=negChar
   negVisitor=no_plays
  EndIf
  pDesk(negVisitor)=negStar
  cyc=negVisitor : v=negStar
  PositionEntity dummy,deskX#(v),deskY#(v),deskZ#(v)
  RotateEntity dummy,0,deskA#(v),0
  MoveEntity dummy,-20,0,-5
  pX#(cyc)=EntityX(dummy) : pY#(cyc)=meetY# : pZ#(cyc)=EntityZ(dummy) : pA#(cyc)=deskA#(v)+Rnd(290,340) : pAnim(cyc)=Rnd(20,23)
  If pX#(cyc)>wEast# Then pX#(cyc)=wEast#
  If pX#(cyc)<wWest# Then pX#(cyc)=wWest#
  If pZ#(cyc)>wNorth# Then pZ#(cyc)=wNorth#
  If pZ#(cyc)<wSouth# Then pZ#(cyc)=wSouth#
 EndIf
 ;load actors
 For cyc=1 To no_plays
  If pChar(cyc)>0
   LoadActor(cyc,pChar(cyc))
  EndIf
 Next
 ;starting angles
 If screenAgenda=0 Or screenAgenda=2 Or screenAgenda=6 Or screenAgenda=8
  PositionEntity dummy,deskX#(negStar),0,deskZ#(negStar)
  RotateEntity dummy,0,deskA#(negStar),0
  If screenAgenda=0 Then MoveEntity dummy,-100,0,-100
  If screenAgenda=2 Then MoveEntity dummy,100,0,-200
  If screenAgenda=6 Then MoveEntity dummy,100,0,-100
  If screenAgenda=8 Then MoveEntity dummy,100,0,40
  camX#=EntityX(dummy) : camY#=wCeiling# : camZ#=EntityZ(dummy)   
 EndIf
 ;handheld offset
 If screenAgenda=4 And hardHandheld(gamHardware)>0 And projIdentity(gamProject)>0
  PositionEntity dummy,camX#,camY#,camZ#
  RotateEntity dummy,0,deskA#(camFoc),0
  MoveEntity dummy,5,-5,0
  camX#=EntityX(dummy) : camY#=EntityY(dummy) : camZ#=EntityZ(dummy)   
 EndIf
 ;restore textures
 RestoreTextures()
End Function

;LOAD WORKSTATIONS
Function LoadWorkstations()
 ;empty office
 Loader("","")
 If gamOffice=1
  world=LoadAnimMesh("World/Office/Empty Office.3ds")
  DecorateOffice(fed)
  ;dimensions
  wNorth#=110 : wSouth#=-110 : wWest#=-100 : wEast#=105
  wGround#=5 : wCeiling#=75
  lightX#=0 : lightY#=wGround#+60 : lightZ#=0 
  meetX#=Rnd(-50,50) : meetY#=wGround# : meetZ#=Rnd(-50,50) : meetA#=Rnd(0,360)
  If screenAgenda<>4
   randy=Rnd(0,2)
   If randy=0 Then camX#=0
   If randy=1 Then camX#=wWest#
   If randy=2 Then camX#=wEast#
   randy=Rnd(0,2)
   If randy=0 Then camZ#=0
   If randy=1 Then camZ#=wSouth#
   If randy=2 Then camZ#=wNorth#
   camY#=Rnd(wGround#,wCeiling#)
  EndIf
  ;desk positions
  no_desks=6 : rotor=gamDeskPosition
  For n=1 To no_desks
   If rotor=1 Then deskX#(n)=75 : deskY#(n)=wGround# : deskZ#(n)=23 : deskA#(n)=270
   If rotor=2 Then deskX#(n)=89 : deskY#(n)=wGround# : deskZ#(n)=-79 : deskA#(n)=180
   If rotor=3 Then deskX#(n)=-11 : deskY#(n)=wGround# : deskZ#(n)=-79 : deskA#(n)=180
   If rotor=4 Then deskX#(n)=-73 : deskY#(n)=wGround# : deskZ#(n)=9 : deskA#(n)=90
   If rotor=5 Then deskX#(n)=-73 : deskY#(n)=wGround# : deskZ#(n)=81 : deskA#(n)=90
   If rotor=6 Then deskX#(n)=63 : deskY#(n)=wGround# : deskZ#(n)=82 : deskA#(n)=0
   rotor=rotor+1
   If rotor>no_desks Then rotor=1
  Next
 EndIf
 ;add workstations
 Loader("","")
 For cyc=1 To no_desks
  desk(cyc)=0 : excluded=0
  If screenAgenda<>2 And screenAgenda<>4 And charRoster(gamChar,cyc)<>gamChar And charRoster(gamChar,cyc)<>negChar And optEntourage=<1
   randy=Rnd(0,4)
   If randy=<1 Or optEntourage=0 Then excluded=1
  EndIf
  If gamDesk(cyc)<>0 And excluded=0
   desk(cyc)=LoadAnimMesh("World/Workstations/Workstation.3ds")
   PositionEntity desk(cyc),deskX#(cyc),deskY#(cyc),deskZ#(cyc)
   RotateEntity desk(cyc),0,deskA#(cyc),0
   Loader("","")
   PrepareHardware(cyc)
  EndIf
 Next
 ;prepare cast
 negStar=0
 no_plays=optTeamSize
 For cyc=1 To optPlayLim
  pChar(cyc)=0 : pDesk(cyc)=0
 Next
 For cyc=1 To optTeamSize
  char=charRoster(gamChar,cyc) : excluded=0
  If charVacant(char)>0 Or gamDesk(cyc)=0 Or desk(cyc)=0 Then excluded=1
  If screenAgenda<>2 And screenAgenda<>4 And char<>gamChar And char<>negChar And optEntourage=<1
   randy=Rnd(0,4)
   If randy=<1 Or optEntourage=0 Then excluded=1
  EndIf
  If char>0 And excluded=0 And cyc=<no_desks
   pChar(cyc)=char : pDesk(cyc)=cyc
   If pChar(cyc)=gamChar Then negStar=cyc
   If screen=53 And char=negChar Then negVisitor=cyc
   If screenAgenda=6 And char=fedBooker(fed) Then negVisitor=cyc
   pX#(cyc)=deskX#(cyc) : pY#(cyc)=deskY#(cyc) : pZ#(cyc)=deskZ#(cyc)
   pA#(cyc)=deskA#(cyc)
   pAnim(cyc)=Rnd(1,20)
   If pAnim(cyc)>10 Then pAnim(cyc)=10 
  EndIf
 Next
 ;huddle positions
 If screen=50 And (screenAgenda=6 Or screenAgenda=8)
  spot=0
  For cyc=1 To no_plays 
   If cyc<>negStar
    PositionEntity dummy,deskX#(negStar),deskY#(negStar),deskZ#(negStar)
    RotateEntity dummy,0,deskA#(negStar),0
    spot=spot+1
    If spot=1 Then MoveEntity dummy,20,0,-5
    If spot=2 Then MoveEntity dummy,10,0,-15
    If spot=3 Then MoveEntity dummy,-10,0,-15
    If spot=4 Then MoveEntity dummy,0,0,-25
    If spot=5 Then MoveEntity dummy,15,0,-25
    If spot=6 Then MoveEntity dummy,-15,0,-25
    If spot=7 Then MoveEntity dummy,30,0,-10
    If spot=8 Then MoveEntity dummy,-30,0,-10
    randy=Rnd(0,1)
    If randy=0 And spot=<8
     pX#(cyc)=EntityX(dummy) : pY#(cyc)=meetY# : pZ#(cyc)=EntityZ(dummy) : pAnim(cyc)=Rnd(20,23)
     PointEntity dummy,FindChild(desk(negStar),"Monitor")
     pA#(cyc)=EntityYaw(dummy,1)
    EndIf
   EndIf
  Next
 EndIf
End Function

;PREPARE HARDWARE ON DESK
Function PrepareHardware(cyc)
 ;identify hardware
 deskHardware(cyc)=gamHardware
 If screenAgenda=8 Then deskHardware(cyc)=gamNewHardware
 ;hide by default
 HideEntity FindChild(desk(cyc),"Keyboard")
 HideEntity FindChild(desk(cyc),"Monitor")
 HideEntity FindChild(desk(cyc),"MacTV") 
 HideEntity FindChild(desk(cyc),"OldTV")
 HideEntity FindChild(desk(cyc),"BoxTV")
 HideEntity FindChild(desk(cyc),"BigTV")
 HideEntity FindChild(desk(cyc),"Laptop") 
 If GetYear(gamDate)>2000 Then hardModel$(18)="Laptop" : hardCom$(18)="Laptop" : hardTV$(18)="Laptop"
 HideEntity FindChild(desk(cyc),"Spectrum") : HideEntity FindChild(desk(cyc),"Speccy")
 If hardReleased(4)>0 And gamDate>hardReleased(4)+4
  hardModel$(2)="Speccy" : hardCom$(2)="Speccy" 
 Else 
  hardModel$(2)="Spectrum" : hardCom$(2)="Spectrum"
 EndIf
 For v=1 To no_machines
  If FindChild(desk(cyc),hardModel$(v))>0
   HideEntity FindChild(desk(cyc),hardModel$(v))
  EndIf
 Next
 If hardModel$(deskHardware(cyc))=hardCom$(deskHardware(cyc)) Then HideEntity FindChild(desk(cyc),"Cable03")
If gamDesk(cyc)<>0
 ;screenshot texture
 If projIdentity(gamProject)=>0
  tScreenshot=LoadTexture("Games/Screenshots/Screen"+Dig$(projIdentity(gamProject),100)+".JPG")
 Else
  tScreenshot=tDevelop(Abs(projIdentity(gamProject)))
 EndIf
 ;show computer
 ShowEntity FindChild(desk(cyc),hardCom$(deskHardware(cyc)))
 If FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S")>0
  EntityTexture FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S"),tScreenshot
  EntityFX FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S"),9 
  If HideScreen(cyc)
   HideEntity FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S")
  EndIf
 EndIf
 ;hide superfluous laptop
 If screen=50 And (screenAgenda=0 Or screenAgenda=6 Or screenAgenda=8)
  If hardCom$(deskHardware(cyc))="Laptop" And hardCom$(deskHardware(cyc))<>hardTV$(deskHardware(cyc)) And hardCom$(deskHardware(cyc))<>hardModel$(deskHardware(cyc))
   HideEntity FindChild(desk(cyc),hardCom$(deskHardware(cyc)))
   HideEntity FindChild(desk(cyc),"Cable02")
   HideEntity FindChild(desk(cyc),"Cable01")
   HideEntity FindChild(desk(cyc),"Mouse")
  EndIf
 EndIf
 ;show monitor/TV
 ShowEntity FindChild(desk(cyc),hardTV$(deskHardware(cyc)))
 EntityTexture FindChild(desk(cyc),hardTV$(deskHardware(cyc))+"S"),tScreenshot
 EntityFX FindChild(desk(cyc),hardTV$(deskHardware(cyc))+"S"),9
 If HideScreen(cyc)
  HideEntity FindChild(desk(cyc),hardTV$(deskHardware(cyc))+"S")
 EndIf
 ;show console
 If deskHardware(cyc)=33 Then ShowEntity FindChild(desk(cyc),"Wii")
 If FindChild(desk(cyc),hardModel$(deskHardware(cyc)))>0
  ShowEntity FindChild(desk(cyc),hardModel$(deskHardware(cyc)))
  If screenAgenda=8 And hardHandheld(gamNewHardware)>0 Then HideEntity FindChild(desk(cyc),hardModel$(deskHardware(cyc)))
  If FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S")>0
   EntityTexture FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S"),tScreenshot
   EntityFX FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S"),9 
   If HideScreen(cyc) Or hardModel$(deskHardware(cyc))<>hardCom$(deskHardware(cyc))
    HideEntity FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S")
   EndIf
  EndIf
 EndIf
 If projIdentity(gamProject)=>0 Then FreeTexture tScreenshot
EndIf
 ;boxes on desk
 For v=1 To 2
  If gamDesk(cyc)=0
   HideEntity FindChild(desk(cyc),"Box"+Dig$(v,10))
  Else
   If deskGame(cyc,v)=0 Then deskGame(cyc,v)=chartGame(Rnd(2,20))
   tBoxArt=LoadTexture("Games/Box Art/Box"+Dig$(deskGame(cyc,v),100)+".JPG")
   EntityTexture FindChild(desk(cyc),"Box"+Dig$(v,10)),tBoxArt
   FreeTexture tBoxArt
  EndIf
 Next
 ;desk items
 EntityTexture FindChild(desk(cyc),"Plant"),tPlant(deskPlant(cyc))
 randy=Rnd(0,1)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Plant") : HideEntity FindChild(desk(cyc),"Pot")
 randy=Rnd(0,2)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Paper01")
 randy=Rnd(0,2)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Paper02")
 randy=Rnd(0,2)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Phone")
 randy=Rnd(0,2)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Book")
 randy=Rnd(0,2)
 If randy=0 Then HideEntity FindChild(desk(cyc),"Box02")
End Function

;HIDE SCREEN?
Function HideScreen(cyc)
 value=0
 If charRoster(gamChar,cyc)=0 Or charVacant(charRoster(gamChar,cyc))>0 Then value=1
 If gamDesk(cyc)<0
  If (screen=50 And screenAgenda>0 And screenAgenda<>6) Or screen<>50 Then value=1
 EndIf
 If screenAgenda=8 Then value=1
 Return value
End Function

;TEXTURE SCREENS
Function TextureScreens(cyc,tex)
 EntityTexture FindChild(desk(cyc),hardTV$(deskHardware(cyc))+"S"),tex ;monitor
 If FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S")>0
  EntityTexture FindChild(desk(cyc),hardCom$(deskHardware(cyc))+"S"),tex ;laptop
 EndIf
 If FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S")>0
  EntityTexture FindChild(desk(cyc),hardModel$(deskHardware(cyc))+"S"),tex ;handheld
 EndIf
End Function

;POINT HEAD
Function PointHead(cyc,entity)
 ;identify limbs involved
 limb=FindChild(p(cyc),"Head")
 source=FindChild(p(cyc),"Body")
 ;stabilize and point
 RotateEntity limb,EntityPitch(source),EntityYaw(source),EntityRoll(source) 
 PointEntity limb,entity
 ;X limitations
 If EntityPitch(limb)<EntityPitch(source)-60 Then RotateEntity limb,EntityPitch(source)-60,EntityYaw(limb),EntityRoll(limb)
 If EntityPitch(limb)>EntityPitch(source)+10 Then RotateEntity limb,EntityPitch(source)+10,EntityYaw(limb),EntityRoll(limb)
 ;Y limitations
 If EntityYaw(limb)<EntityYaw(source)-40 Then RotateEntity limb,EntityPitch(limb),EntityYaw(source)-40,EntityRoll(limb)
 If EntityYaw(limb)>EntityYaw(source)+40 Then RotateEntity limb,EntityPitch(limb),EntityYaw(source)+40,EntityRoll(limb) 
 ;Z limitations
 RotateEntity limb,EntityPitch(limb),EntityYaw(limb),0
 ;preserve long hair
 hair=FindChild(p(cyc),"H_Long")
 pitch=-EntityPitch(limb)
 If pitch<10 Then pitch=pitch+(GetDiff#(pitch,10)/4)
 RotateEntity hair,pitch,-(EntityYaw(limb)/2),0
End Function

;SIMULATE PROGRESS
Function SimulateProgress()
 GetGameSettings()
 gamLimit=gamLimit/2 : gamMaxScore=gamLimit
 If gamDevelop=>1 And gamDevelop=<6
  gamScore(gamDevelop)=Rnd(0,gamMaxScore)
  gamScore(0)=gamScore(gamDevelop)
 Else
  For count=0 To 6
   gamScore(count)=0
  Next
  gamScore(0)=Rnd(0,gamMaxScore)
  While gamScore(0)>0
   randy=Rnd(1,6)
   gamScore(randy)=gamScore(randy)+1
   gamScore(0)=gamScore(0)-1
  Wend
  gamScore(0)=gamScore(1)+gamScore(2)+gamScore(3)+gamScore(4)+gamScore(5)+gamScore(6)
 EndIf
 screen=60 : UpdateProject(gamProject)
End Function

;UPDATE PROJECT
Function UpdateProject(cyc)
 ;reset stats
 gamIncrease=0
 projOldGameplay(cyc)=projGameplay(cyc)
 projOldReplay(cyc)=projReplay(cyc)
 projOld2D(cyc)=proj2D(cyc)
 projOld3D(cyc)=proj3D(cyc)
 projOldSound(cyc)=projSound(cyc)
 projOldMusic(cyc)=projMusic(cyc)
 projNewGameplay(cyc)=projGameplay(cyc)
 projNewReplay(cyc)=projReplay(cyc)
 projNew2D(cyc)=proj2D(cyc)
 projNew3D(cyc)=proj3D(cyc)
 projNewSound(cyc)=projSound(cyc)
 projNewMusic(cyc)=projMusic(cyc)
 ;improve stats 
 char=gamWorker
 divider=1
 If screen=61 Then divider=5
 If screen=62 Or screen=63 Or screen=65 Then divider=2
 perfecto=PercentOf#(gamMaxScore/divider,90) : gamPerfect=0
 If gamDevelop=1
  If projGameplay(cyc)=>hardGameplay(projFormat(cyc))-perfecto Then projNewGameplay(cyc)=hardGameplay(projFormat(cyc))-perfecto : gamPerfect=1
  projNewGameplay(cyc)=projNewGameplay(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNewGameplay(cyc)>hardGameplay(projFormat(cyc)) Then projNewGameplay(cyc)=hardGameplay(projFormat(cyc))
  gamIncrease=projNewGameplay(cyc)-projGameplay(cyc)
  charDesign(char)=charDesign(char)+PursueValue(charDesign(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 If gamDevelop=2
  If projReplay(cyc)=>hardReplay(projFormat(cyc))-perfecto Then projNewReplay(cyc)=hardReplay(projFormat(cyc))-perfecto : gamPerfect=1
  projNewReplay(cyc)=projNewReplay(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNewReplay(cyc)>hardReplay(projFormat(cyc)) Then projNewReplay(cyc)=hardReplay(projFormat(cyc))
  gamIncrease=projNewReplay(cyc)-projReplay(cyc)
  charProgram(char)=charProgram(char)+PursueValue(charProgram(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 If gamDevelop=3
  If proj2D(cyc)=>hard2D(projFormat(cyc))-perfecto Then projNew2D(cyc)=hard2D(projFormat(cyc))-perfecto : gamPerfect=1
  projNew2D(cyc)=projNew2D(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNew2D(cyc)>hard2D(projFormat(cyc)) Then projNew2D(cyc)=hard2D(projFormat(cyc))
  gamIncrease=projNew2D(cyc)-proj2D(cyc)
  char2D(char)=char2D(char)+PursueValue(char2D(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 If gamDevelop=4
  If proj3D(cyc)=>hard3D(projFormat(cyc))-perfecto Then projNew3D(cyc)=hard3D(projFormat(cyc))-perfecto : gamPerfect=1
  projNew3D(cyc)=projNew3D(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNew3D(cyc)>hard3D(projFormat(cyc)) Then projNew3D(cyc)=hard3D(projFormat(cyc))
  gamIncrease=projNew3D(cyc)-proj3D(cyc)
  char3D(char)=char3D(char)+PursueValue(char3D(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 If gamDevelop=5
  If projSound(cyc)=>hardSound(projFormat(cyc))-perfecto Then projNewSound(cyc)=hardSound(projFormat(cyc))-perfecto : gamPerfect=1
  projNewSound(cyc)=projNewSound(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNewSound(cyc)>hardSound(projFormat(cyc)) Then projNewSound(cyc)=hardSound(projFormat(cyc))
  gamIncrease=projNewSound(cyc)-projSound(cyc)
  charSound(char)=charSound(char)+PursueValue(charSound(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 If gamDevelop=6
  If projMusic(cyc)=>hardMusic(projFormat(cyc))-perfecto Then projNewMusic(cyc)=hardMusic(projFormat(cyc))-perfecto : gamPerfect=1
  projNewMusic(cyc)=projNewMusic(cyc)+PercentOf#(gamScore(gamDevelop)/divider,gamSkill)
  If projNewMusic(cyc)>hardMusic(projFormat(cyc)) Then projNewMusic(cyc)=hardMusic(projFormat(cyc))
  gamIncrease=projNewMusic(cyc)-projMusic(cyc)
  charMusic(char)=charMusic(char)+PursueValue(charMusic(char),GetPercent#(gamScore(gamDevelop),gamMaxScore),1)
 EndIf
 ;holistic changes
 If gamDevelop=7
  projNewGameplay(cyc)=projNewGameplay(cyc)+PercentOf#(gamScore(1)/divider,charDesign(char))
  If gamScore(1)>0 And projNewGameplay(cyc)=projGameplay(cyc) Then projNewGameplay(cyc)=projGameplay(cyc)+1
  If projNewGameplay(cyc)>hardGameplay(projFormat(cyc)) Then projNewGameplay(cyc)=hardGameplay(projFormat(cyc))
  gamIncrease=gamIncrease+(projNewGameplay(cyc)-projGameplay(cyc))
  projNewReplay(cyc)=projNewReplay(cyc)+PercentOf#(gamScore(2)/divider,charProgram(char))
  If gamScore(2)>0 And projNewReplay(cyc)=projReplay(cyc) Then projNewReplay(cyc)=projReplay(cyc)+1
  If projNewReplay(cyc)>hardReplay(projFormat(cyc)) Then projNewReplay(cyc)=hardReplay(projFormat(cyc))
  gamIncrease=gamIncrease+(projNewReplay(cyc)-projReplay(cyc))
  projNew2D(cyc)=projNew2D(cyc)+PercentOf#(gamScore(3)/divider,char2D(char))
  If gamScore(3)>0 And projNew2D(cyc)=proj2D(cyc) Then projNew2D(cyc)=proj2D(cyc)+1
  If projNew2D(cyc)>hard2D(projFormat(cyc)) Then projNew2D(cyc)=hard2D(projFormat(cyc))
  gamIncrease=gamIncrease+(projNew2D(cyc)-proj2D(cyc))
  projNew3D(cyc)=projNew3D(cyc)+PercentOf#(gamScore(4)/divider,char3D(char))
  If gamScore(4)>0 And projNew3D(cyc)=proj3D(cyc) Then projNew3D(cyc)=proj3D(cyc)+1
  If projNew3D(cyc)>hard3D(projFormat(cyc)) Then projNew3D(cyc)=hard3D(projFormat(cyc))
  gamIncrease=gamIncrease+(projNew3D(cyc)-proj3D(cyc))
  projNewSound(cyc)=projNewSound(cyc)+PercentOf#(gamScore(5)/divider,charSound(char))
  If gamScore(5)>0 And projNewSound(cyc)=projSound(cyc) Then projNewSound(cyc)=projSound(cyc)+1
  If projNewSound(cyc)>hardSound(projFormat(cyc)) Then projNewSound(cyc)=hardSound(projFormat(cyc))
  gamIncrease=gamIncrease+(projNewSound(cyc)-projSound(cyc))
  projNewMusic(cyc)=projNewMusic(cyc)+PercentOf#(gamScore(6)/divider,charMusic(char))
  If gamScore(6)>0 And projNewMusic(cyc)=projMusic(cyc) Then projNewMusic(cyc)=projMusic(cyc)+1
  If projNewMusic(cyc)>hardMusic(projFormat(cyc)) Then projNewMusic(cyc)=hardMusic(projFormat(cyc))
  gamIncrease=gamIncrease+(projNewMusic(cyc)-projMusic(cyc))
 EndIf
 ;update identity
 projOldIdentity(cyc)=projIdentity(cyc)
 projIdentity(cyc)=IdentifyProject(cyc)
 If gamIncrease=0 Then projIdentity(cyc)=projOldIdentity(cyc)
 If projIdentity(cyc)=<0
  projIdentity(cyc)=projOldIdentity(cyc)
  If gamDevelop=>1 And gamDevelop=<6 And projOldIdentity(cyc)=<0 Then projIdentity(cyc)=-gamDevelop
 EndIf
 ;update screenshot
 If projIdentity(cyc)<>projOldIdentity(cyc)
  If optAuto=0 Then Loader("","")
  LoadProjectScreen(cyc)
  If projIdentity(cyc)>0 And projIdentified(cyc)>0
   LoadProjectBox(cyc)
  EndIf
 EndIf
 ;credit worker
 gamNewCredit=0
 charWorked(char)=charWorked(char)+1
 If gamScore(0)>gamHiScore(screen-60) Then gamHiScore(screen-60)=gamScore(0) : gamHiCredit(screen-60)=char
 If gamDevelop=>1 And gamDevelop=<6 And gamIncrease>projHiIncrease(cyc,gamDevelop)
  projHiIncrease(cyc,gamDevelop)=gamIncrease
  projCredit(cyc,gamDevelop)=char
  gamNewCredit=gamDevelop
 EndIf
 If char<>gamChar And projCredit(cyc,gamDevelop)=char And projIdentity(cyc)>0 And gamMission<>gamDevelop ;And gamAgreement(1)=0
  If gamPerfect>0 Then randy=Rnd(0,5) Else randy=Rnd(0,10)
  If randy=<1 
   If gamDevelop=1 And projGameplay(gamProject)>hardGameplay(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
   If gamDevelop=2 And projReplay(gamProject)>hardGameplay(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
   If gamDevelop=3 And proj2D(gamProject)>hard2D(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
   If gamDevelop=4 And proj3D(gamProject)>hard3D(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
   If gamDevelop=5 And projSound(gamProject)>hardSound(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
   If gamDevelop=6 And projMusic(gamProject)>hardMusic(projFormat(gamProject))/2 Then projLocked(cyc,gamDevelop)=char
  EndIf
 EndIf
End Function

why is there a mav occuring when i run the file?

B	(Posted 2016) [#19]

Thanks for the codebox, would you mind editing your other posts to include them as well?

I downloaded blitz3d and ran your code.

Not sure what a 'mav' is.

Of course I can't do much help without your include files.

Also I'm not sure how you can assign a function to another function.

 deskGame(cyc,v)=chartGame(Rnd(2,20))

I get an error of ")" expected on that line of code. Leads me to believe deskGame() only requires one variable.

Maybe I'm just not thinking outside the box. It's been a long day.

EDIT:
So I googled "mdickie" and found his site, downloaded his .zip code for "Under Development" and checked it out.

Did you place the files in the correct folder of the game installation for 'Under Development'?

He doesn't leave very detailed instructions on exactly where to place the files, so maybe that's the problem.

spear30

(Posted 2016) [#20]

i have them in the main folder for under development. not sure where else they go.

B	(Posted 2016) [#21]

Me neither.

Since it's not your code and you aren't familiar with it like the original developer is, I think this will be a difficult undertaking.

Try contacting him, see what he says.

Or change up the directory where you put his .bb files.
Or delete all .bb files and re-download them from his site and place them back.

B	(Posted 2016) [#22]

I found the problem and got it working for me.

Here's what I did

I downloaded the game and place all the .bb code files in the same directory as the Under Development (Windowed).exe file.

I ran the Main.bb and got a graphics error.
I found out that he was trying to initialize the graphics3d command using 16 bit depth. This line of code is found in the 'Menus.bb' file. The debug window that pops up shows that.
Here's the code you need to change:

Menus.bb

;make transition?
 If width<>GraphicsWidth() Or height<>GraphicsHeight()
  If task>0 Then Loader("Please Wait","Adjusting Resolution")
  Graphics3D width,height,16,1+optWindow
  If task>0 ;restore media

So right here:

Graphics3D width,height,32,1+optWindow

I changed this number to 32, and wala!

FYI
If you didn't know this already, you can only Build and Run the 'Main.bb' file. Any attempt to build or run the other files will result in an error of some sort, as all the files are dependent upon one another.

Basically, instead of having one GIANT MASSIVE .bb file, he split off chuncks of code into separate files to be more organized.
This guys code is pretty messy. If you want to get into coding start by putting more space between the lines and DEFINITELY use comments.
Because you'll forget what you did or why you did it once you have 500+ lines of code.

spear30

(Posted 2016) [#23]

Next question. How would I make this windowed?

B	(Posted 2016) [#24]

Does it work for you? Your welcome by the way.

Google "blitz3d graphics3d" and follow the first link.

Read.