-----------------------------------

jedi-bob

Tue Jan 20, 2004 3:03 pm


test my first game

-----------------------------------

it is not done yet, i need to more/other levels this is just the basic concept, and i wanted to get some feedback on how it is so far.



colorback (255)
cls
color  (10)
locate(10,24)
put"Welcome to.........."
delay(1000)
cls
locate(10,5)
put"Guy Who runs from ''bad'' people who may or may not violently execute him"
delay(5000)
cls
put"Instuctions"
locate(5,1)
put"Get to the goal without being seen by enemies."   
delay(2000)
cls 
put"These are the enemies"
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(3000)
cls
put"This is what the enemy looks like"
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
delay(500)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
delay(500)
drawfilloval(500,200,10,10,red)delay(500)
drawfilloval(500,200,50,50,yellow)
delay(500)
drawfilloval(500,200,10,10,red)
delay(750)
cls
put"This is the area where he will see or hear you"
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(1500)
drawfilloval(500,200,50,50,black)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,black)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,black)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,black)
drawfilloval(500,200,10,10,red)
delay(500)
drawfilloval(500,200,50,50,yellow)
drawfilloval(500,200,10,10,red)
delay(750)
cls
put"If you go into his area of vision, or hearing, you will be caught and killed"
%borrowed
delay(1500)
Draw.FillBox (0, 0, maxx, maxy, 255) 
colorback (255) 
color (10) 
var zz : int := 1 
for i : 1 .. 100 
    delay (50) 
    Draw.FillBox (100, 15, 100 + zz, 25, 54) 
    Draw.Box (100, 15, 200, 25, 1) 
    zz := zz + 1 
    locate (23, 13) 
    put "Loading... ", zz, "%" .. 
end for 
locate (23, 13) 
put "Done Loading!   " .. 
delay(1000)
colorback(white)
cls
%main character
var a,b : int 
a:=100 
b:=100 
%enemy 1
var a2,b2: int
a2:=500
b2:=200
%enemy 2
var a3,b3: int
a3:=200
b3:=100
%goal
var g1,g2 : int
g1:=620
g2:=370

var chars : array char of boolean 
        loop 
            Input.KeyDown (chars) 
            
            if chars (KEY_UP_ARROW) then 
            drawfilloval(a,b,10,10,white)    
            b:=b+3 
            end if 
            if chars (KEY_RIGHT_ARROW) then 
            drawfilloval(a,b,10,10,white)    
            a:=a+3 
            end if 
            if chars (KEY_LEFT_ARROW) then 
            drawfilloval(a,b,10,10,white)    
            a:=a-3 
            end if 
            if chars (KEY_DOWN_ARROW) then 
            drawfilloval(a,b,10,10,white)    
            b:=b-3 
            end if 
            
            drawfilloval(a,b,10,10,red) 
            delay(10) 
       
drawfilloval(a2,b2,50,50,yellow)
drawfilloval(a2,b2,10,10,red)

drawfilloval(a3,b3,50,50,yellow)
drawfilloval(a3,b3,10,10,red)

drawoval(620,370,20,20,black)

var distance := ((a2-a)*(a2-a) + (b2-b)*(b2-b))**0.5 
var distance2 := ((a3-a)*(a3-a) + (b3-b)*(b3-b))**0.5
var distance3 := ((g1-a)*(g1-a) + (g2-b)*(g2-b))**0.5
var radius1:=10
var radius2:=50
var radius3:=20
%you take the square of differences of X coordinates and add 
%a square of differences of Y coordinates then take a square 
%root of the sum 
%%%%%% 
%I did (x)*(x) instead of x**2 because exponents is a function 
%and it takes up more resourses then *, thus its faster 
%Also **0.5 is the same as sqrt() - learn your math guys 
if distance  < radius1 + radius2 

%might be a good idea to save radious1+radious2 as const/var 
then 
colorback(black)
cls
put"You have been spotted, the enemy has captured and killed you."
delay(2000)
exit
elsif distance2 < radius1 + radius2
then 
colorback(black)
cls
put"You have been spotted, the enemy has violently executed you."
delay(2000)
exit

elsif distance3 < radius1 + radius3
then 
colorback(black)
cls
put"You made it to the goal."
delay(2000)
exit

end if 

end loop
cls
delay(1000)
quit


PS- thanks for the loading bar dan shadow


-----------------------------------

the_short1

Tue Jan 20, 2004 5:31 pm



-----------------------------------

good start.... one suggestion.. make the delays smaller... not everyone has a WICKED FAST COMPUTER, if your running an old Pentium 1 or 2... its realy slow... maybe ask the person like i do if you computers are fast or slow... if fast then (speeddelay := 2000) if slow then speeddelay := 1000 ... something like that... speeddelay is a variable i pulled outa my head for example...

var comp : int
 loop
        locate (18, 40)
        put "Do you have a fast computer (y/n): " ..
        get yn
        if yn = "n" or yn = "N"
                then
            comp := 0
            exit
        elsif yn = "y" or yn = "Y" then
            comp := 20
            exit
        end if
    end loop

I took this from my text Twist Program...and i lied.. 2 suggestions...
because you program is long... maybe consider attaching it as a .t file

And your exit statement at end of program is an error.... are you running an older Turing version???, new ones can close the window... search for the_short1 for author and it will show you my post on closing window after program is finnished...Good Luck...


-----------------------------------

shorthair

Fri Jan 23, 2004 10:16 am



-----------------------------------

Good Concept to your game , but for times sake and waiting , ask if the user want to see the intro at the begining y/n  , then also dont use those cursed loading bars , i acn make you  a real one that actually does somthing if you must have it  :lol:  , but add in the suggestions we have given you and you should have a rockin game


-----------------------------------

DanShadow

Fri Jan 23, 2004 10:22 am



-----------------------------------

WOAH back it up....where the heck did you get that loading bar!! Thats the one used in my "Unholy Realms" Graphical RPG...and I HAVENT released the code for that!!! Now  tell me where you got that from!!
(your welcome for it....but how did you get it)


-----------------------------------

shorthair

Fri Jan 23, 2004 10:27 am



-----------------------------------

HOw could you use such a thing Dan , i expect so much more from you  :cry:


-----------------------------------

DanShadow

Fri Jan 23, 2004 10:42 am



-----------------------------------

lol....I did that because my teacher thought it looked neat (suprisingly) :lol:


-----------------------------------

kalin

Fri Jan 23, 2004 3:19 pm



-----------------------------------

Good Grief Boys I think that the 'game' is cool so far, you should have it so that the 'enemies' move around and whatnot. So yeah....and I think that if you work on it, it will be a really good game.


-----------------------------------

the_short1

Fri Jan 23, 2004 4:44 pm



-----------------------------------

Good concept tho,... here is 2 bits... pretty good for a first game concept ...mine was Rock Paper Scissors... (well first one i finished... i have 3 on the Go) please include your program as a .t file please/..//


-----------------------------------

sport

Fri Jan 23, 2004 7:06 pm



-----------------------------------

The first part of the program (till the game starts) should be as a help file. You should ask the user if he wants to view it? The delays are ok for the help file. Take out the loading bar it is a waist of time.