BlockBuster - An OpenGL Game

[jWalker]

Hey all!

This is my first post on this forum.

I am programming (scripting) Autoit since abt. 3 Months.

My first "games" were some Reaction Games, mady with Koda and Autoit.

I also made a Pong clone which actually worked really good!

But now i found a nice OpenGL UDF on the forums...

I started to write my first programs on it and it is really cool to get these 3D things so easy and fast.

I want to share my first real OpenGL Project with you guys, and maybe i could find someone with cool ideas

and even someone who would really like to help me with this game.

At this Point, there is no really gameplay at all.

But if you know the game "Audiosurf" you can maybe imagine what i want this game to be like.

The music-aspect of audiosurf will not be implemented in my game. Just collecting some points, avoiding obstacles or shooting enemies... something like that...

You could have a look if you want

A - Steer left

D - Steer right

F - Turbo

Here is the Code:

expandcollapse popup

;--INCLUDES--
#include 'GlPluginUtils.au3'
#include <Misc.au3>
;<-----------
;--VARIABLES--
$PlayerPosX = 0
$PlayerPosZ = 0
$PlayerAngle = 0
$PlayerSpeed = 0.6
$UpDownSpeed = 0.03
$UpDownTrigger = "UP"
;<------------
;--DLL--
$userdll = DLLOpen("user32.dll")
;<------
;--OPTIONS--
AutoItSetOption( "TrayIconHide", 1 )
Opt( "WinTitleMatchMode", 3 )
$WinTitle = "BlockBuster"
;<----------
 
;--------OPENGL--------
;######################
;OpenGL Window
DefineGlWindow( $WinTitle, 800, 600 )
;Background Color
SetClearColor( 1.0, 1.0, 1.0 )
;Lights
CreateLight( 0, 300, 300, 300 )
SetLightAmbient( 0, 0.2, 0.2, 0.2 )
SetLightDiffuse( 0, 0.7, 0.7, 0.7 )
SetLightSpecular( 0, 1.0, 1.0, 1.0 )
;Camera
$xCam = 0 ;X Position of Camera
$yCam = -60 ;Y Position of Camera
$zCam = 80 ;Z Position of Camera
SetCamera( $xCam, $yCam, $zCam, 0, 40, 0 )
;Objects
$Player = ObjectCreate( )
$Ambient = ObjectCreate( )
;PLAYER
$PlayerRed = 0.5
$PlayerGreen = 0.5
$PlayerBlue = 0.5
$PlayerAlpha = 1.0
$Body = AddCylinder( $Player, 0, -7, 0, 3, 2.5, 10, 10, 10, $PlayerRed, $PlayerGreen, $PlayerBlue, $PlayerAlpha )
$EngineRight = AddCylinder( $Player, 2.9, -9, 0, 1.3, 1, 6, 10, 10, $PlayerRed, $PlayerGreen, $PlayerBlue, $PlayerAlpha )
$EngineLeft = AddCylinder( $Player, -2.9, -9, 0, 1.3, 1, 6, 10, 10, $PlayerRed, $PlayerGreen, $PlayerBlue, $PlayerAlpha )
$BackMain = AddPartialDisk( $Player, 0, -7, 0, 1, 3, 10, 3, 0, 360, $PlayerRed, $PlayerGreen, $PlayerBlue, $PlayerAlpha )
$BackMainInner = AddPartialDisk( $Player, 0, -6, 0, 0, 2.8, 10, 3, 0, 360, 0.9, 0.1, 0.1, 1 )
$BackRight = AddPartialDisk( $Player, 2.9, -9, 0, 0, 1, 10, 3, 0, 360, 0.9, 0.1, 0.1, 0.9 )
$BackLeft = AddPartialDisk( $Player, -2.9, -9, 0, 0, 1, 10, 3, 0, 360, 0.9, 0.1, 0.1, 0.9 )
;--->END OF PLAYER
;AMBIENT
$Street = AddCube( $Ambient, 70, 500, 0.01, 0.2, 0.2, 0.2, 1.0 )
;--->END OF AMBIENT
;--What to print on screen--
SetPrint( $Player )
SetPrint( $Ambient )
;<--------------------------
;--Set Position of Objects and Shapes at start--
ObjectTranslate( $Player, -1, -1, -1)
ShapeTranslate( $Ambient, $Street, -1, -1, -6)
;<----------------------------------------------
;###############################################
;<---------END OF OPENGL-------------------------
 
;--Hotkey Functions--
HotKeySet( "{ESC}", "ExitScript" )
;--------------------
 
WinWait( $WinTitle )
$CheckWindowTimer = TimerInit( )
 
;~  For $i = 1 To 10
;~   $Point = AddSphere( $Points[$i], Random(-25, 25), $PointsY[$i], 0, 3, 10, 10, 0.2, 0.95, 0.2, 1.0 )
;~  Next
;__________________________
;#######_GAMEPLAY_########
While 1
If _IsPressed("41", $userdll) AND _IsPressed("44", $userdll) Then
  If $PlayerAngle < 0 Then
   $PlayerAngle = $Playerangle + 2
   ObjectRotate( $Player, -1, $PlayerAngle, -1 )
  ElseIf $PlayerAngle > 0 Then
   $PlayerAngle = $PlayerAngle - 2
   ObjectRotate( $Player, -1, $PlayerAngle, -1 )
  EndIf
Else
  If _IsPressed("41", $userdll) Then
   If $PlayerAngle > 0 Then $PlayerAngle = $Playerangle - 4
   If $PlayerAngle > -35 Then
    $PlayerAngle = $PlayerAngle - 2
    ObjectRotate( $Player, -1, $PlayerAngle, -1 )
   EndIf
   If $PlayerPosX > -27.5 Then
    $PlayerPosX = $PlayerPosX - $PlayerSpeed
    ObjectTranslate( $Player, $PlayerposX, -1, $PlayerPosZ )
;~   ToolTip($PlayerPosX)
   EndIf
  ElseIf _IsPressed("44", $userdll) Then
   If $PlayerAngle < 0 Then $PlayerAngle = $Playerangle + 4
   If $PlayerAngle < 35 Then
    $PlayerAngle = $PlayerAngle + 2
    ObjectRotate( $Player, -1, $PlayerAngle, -1 )
   EndIf
   If $PlayerPosX < 25 Then
    $PlayerPosX = $PlayerPosX + $PlayerSpeed
    ObjectTranslate( $Player, $PlayerposX, -1, $PlayerPosZ )
;~   ToolTip($PlayerPosX)
   EndIf
  Else
   If $PlayerAngle < 0 Then
    $PlayerAngle = $Playerangle + 2
    ObjectRotate( $Player, -1, $PlayerAngle, -1 )
   ElseIf $PlayerAngle > 0 Then
    $PlayerAngle = $PlayerAngle - 2
    ObjectRotate( $Player, -1, $PlayerAngle, -1 )
   EndIf
  EndIf
EndIf
If _IsPressed( "46", $userdll ) Then
  If $zCam > 61 Then
   $zCam = $zCam - 0.35
   $yCam = $yCam + 0.25
  EndIf
  $UpDownSpeed = 0.08
;~   ToolTip($zCam&" "&$yCam)
  SetCameraPos( $xCam, $yCam, $zCam )
Else
  If $zCam < 82 Then
   $zCam = $zCam + 0.35
   $yCam = $yCam - 0.25
  EndIf
  $UpDownSpeed = 0.03
;~   ToolTip($zCam&" "&$yCam)
  SetCameraPos( $xCam, $yCam, $zCam )
EndIf
If $PlayerPosZ < 2.3 AND $UpDownTrigger = "UP" Then
$PlayerPosZ = $PlayerposZ + $UpDownSpeed
ObjectTranslate( $Player, $PlayerPosX, -1, $PlayerPosZ )
If $PlayerPosZ > 2.2 Then $UpDownTrigger = "DOWN"
ElseIf $PlayerPosZ > 0 AND $UpDownTrigger = "DOWN" Then
$PlayerPosZ = $PlayerposZ - $UpDownSpeed
ObjectTranslate( $Player, $PlayerPosX, -1, $PlayerPosZ )
If $PlayerPosZ < 0.15 Then $UpDownTrigger = "UP"
EndIf
 
;--Drawing of the Scene--
SceneDraw( )
Sleep( 3 )
;<-----------------------
;--End the program if window is removed--
If TimerDiff( $CheckWindowTimer ) > 500 Then
  If WinExists( $WinTitle ) = 0 Then ExitScript()
  If WinActive( $WinTitle ) == 0 Then WinWaitActive( $WinTitle )
  $CheckWindowTimer = TimerInit( )
EndIf
;<----------------------------------------
WEnd
;#######_GAMEPLAY END_########
;<----------------------------
 
;---FUNCTIONS---
;°°°°°°°°°°°°°°°
Func ExitScript()
DllClose($userdll)
Exit
EndFunc
;°°°°°°°°°°°°°°°
;<--------------

[jWalker]

Sorry, double post.. THIS ONE can be deleted..