Hey, guess what! I started coding the Peoplez game! This is what I have so far (see code below), but I need some help cleaning out the errors. I don't know why the same message keeps coming up, and then closes my program. I might need some of you to look at and/or compile my program, in order to get some help fixing the code.
Sync On:sync rate 30:Sync
global PeoplezAnim as integer = 1 `the animated peoplez chibi human variable - will contain all animations
global Cam as integer = 2 `the camera variable
global SkinColor$ as string ` the skin color variable for use with input
global Chair as integer = 3 ` the chair object variable
global Arrow as integer = 4 ` the 3d arrow variable
global Land as integer = 5 `the matrix variable
global grass as integer = 6 `the grass image variable
global speed#=0.1 `speed of player
global angle#=0.1 `angle of player
global dist#=100.0 ` distance camera sohuld be behind player
global height#=40.0 ` height above player that camera should be
global smooth=10 ` smoothing value
global SkinPeach as integer = 7
global SkinTan as integer = 8
global SkinBrown as integer = 9
global EyesLightBlue as integer = 10
global EyesCobaltBlue as integer = 11
global EyesGreen as integer = 12
global EyesBrown as integer = 13
global EyesOrange as integer = 14
global EyesPink as integer = 15
global EyesPurple as integer = 16
global SkinColor$ as string
global EyeColor$ as string
Make Camera Cam
Hide Mouse
Load Object "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Animated.3ds",PeoplezAnim
Rem Load Object "",Chair:Position Object Chair,700,10,700
Rem Load Object "",Arrow:Position Object Arrow, Screen width,Screen Height,
Rem grass texture and land (a matrix)
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezgrassimage.bmp",grass
make matrix Land,10000,10000,32,32:PREPARE MATRIX TEXTURE Land,grass,100,100:position object Land,500,10,500
Rem skin textures
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplezSkin_Peach.bmp",SkinPeach
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplezSkin_Tan.bmp",SkinTan
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplezSkin_Brown.bmp",SkinBrown
Rem Eye colors
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes LightBlue.bmp",EyesLightBlue
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Cobalt Blue.bmp",EyesCobaltBlue
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Green.bmp",EyesGreen
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Brown.bmp",EyesBrown
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Orange.bmp",EyesOrange
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Pink.bmp",EyesPink
Load Image "C:Program FilesThe Game CreatorsDark Basic ProfessionalProjectsPeoplezPeoplez Eyes Purple.bmp",EyesPurple
do
Cls `clear the screen first, and ask for a skin color for the Peoplez you are making
If SpaceKey()=1 then Input "Choose a skin: 1=peach, 2=tan, 3=brown",SkinColor$
If Inkey$()="1" then texture object PeoplezAnim,SkinPeach
If Inkey$()="2" then texture object PeoplezAnim,SkinTan
If Inkey$()="3" then texture object PeoplezAnim,SkinBrown
If SpaceKey()=2 then Input "Choose an eye color: lb=lightblue, cb=cobaltblue, g=green, b=brown, p=pink, pu=purple",EyeColor$
Rem code for choosing the eye color from the input goes here
Rem start of the code for "camera follow"
Text 0,0,"Use the arrow keys to move the player."
if upkey()
move object PeoplezAnim,speed#:PLAY OBJECT PeoplezAnim,1,2 `play walk animation
Else STOP OBJECT PeoplezAnim
Endif
if downkey()
move object PeoplezAnim,-speed#:PLAY OBJECT PeoplezAnim,1,2 `play walk animation
Else Stop Object PeoplezAnim
Endif
if leftkey()
yrotate object PeoplezAnim,wrapvalue(object angle y(PeoplezAnim)-angle#):PLAY OBJECT PeoplezAnim,1,2 `play walk animation
Else Stop Object PeoplezAnim
Endif
if rightkey()
yrotate object PeoplezAnim,wrapvalue(object angle y(PeoplezAnim)+angle#):PLAY OBJECT PeoplezAnim,1,2 `play walk animation
Else Stop Object PeoplezAnim
Endif
set camera to follow object position x(PeoplezAnim),object position y(PeoplezAnim),object position z(PeoplezAnim),object angle y(PeoplezAnim),dist#,height#,smooth,0
Rem end of the code for "camera follow".
Rem start of code for the camera movement
Text 0,10,"Use the arrow keys and shift to move the camera."
if upkey() and ShiftKey()=1 then move object Up Cam,speed#
if downkey() and ShiftKey()=1 then move object down Cam,-speed#
if leftkey() and ShiftKey()=1 then Turn Camera Left angle#
if rightkey() and ShiftKey()=1 then Turn Camera Right angle#
Rem end of the code for the camera movement
sync
loop
The media is attached too, as a zip file, along with the mini movie for the beginning of the game (turn on your speakers, there's sound in the video!).
