OpenGl Plugin - Update 2007/08/31

[A. Percy]

New update released, see first post, please.

Thanks for all you that tried use the plugin. I'm waiting for the first 3d game in autoit...

In this morning (in Brazil), zeroZshadow made this little, but efficient, code that prevents autoit keeps in memory after closing glut window:

Func _CheckExit()
    if not WinExists("Walk da box") then Exit
EndFunc

Thank you!

[zeroZshadow]

u might wanna edit the "walk da box"thingy to your windows title after adding that >_>

[nfwu]

You should put something like "Minimum System Requirements" in your first post.

I noticed that it works with my laptop's Nvidia graphics card but not it's intergrated chipset.

Maybe: Requires a graphics card that supports OpenGL (Intergrated Chipsets not recommended).

#)

[zeroZshadow]

ya, i also found out that its damn smooth on my pc (gooood video card) and damn bad on school (not to shabby 3dcard)

[A. Percy]

ok! I will put it.

Thanks!

It's working well in my amd k6-2 500mhz with Stealth III pci 3d card (I will buy a new computer in next month after buy my car).

Bye!

You should put something like "Minimum System Requirements" in your first post.

I noticed that it works with my laptop's Nvidia graphics card but not it's intergrated chipset.

Maybe: Requires a graphics card that supports OpenGL (Intergrated Chipsets not recommended).

#)

[Guest JRowe_1]

very cool. I'll play with this today, maybe it will work for the 3D gui idea I had

[zeroZshadow]

yo there, i made a SMALL adjustment in my game, so that i have 9 plates instead of 1...and it lags like hell

seems autoit aint really made for this stuff XD

[Guest JRowe_1]

Yar, I wouldn't try anything heavier than low detail displays. I don't think autoit can farm stuff out to the gpu, either, so that's out

It might actually be more efficient to write a 3D display module for the windows GDI.

[A. Percy]

Give me more details. I'll work on it.

yo there, i made a SMALL adjustment in my game, so that i have 9 plates instead of 1...and it lags like hell

seems autoit aint really made for this stuff XD

[zeroZshadow]

well first, i made the camera follow the box nicely *proud* thanks to ur help.

expandcollapse popup

#include "GlPluginUtils.au3"
#Include <Misc.au3>
;hide icon!!!!!!
AutoItSetOption( "TrayIconHide", 1 )
dim $x=0
dim $y=10
dim $z=0
dim $eyex=100
dim $eyey=100
dim $eyez=100
dim $rotation=0
dim $speed=5
dim $pi = 3.14159265358979
dim $zforce=0
dim $jump = 1
DefineGlWindow( 400, 300, "Walk da box" )
SetClearColor( 0.5, 0.5, 0.5 )

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 )

_CreateCube( "Cube1", -30, 30, -30, 30, -30, 30 , 1, 0, 0, 1.0 )
TranslateObject( "Cube1", $x, $y, $z )

_CreateCube( "Cube2", -30, 30, -30, 30, -30, 30 , 0.4, 0.4, 1.0, 1.0 )
TranslateObject( "Cube2", 30, 60, 10)


$amount=0
for $x=0 to 2
    for $y=0 to 2
    _CreateCube( "plane"&$amount, -100, 100, -1, 100, -100,0,random (0,1 ),random (0,1 ),random (0,1 ), 1.0 )
    TranslateObject( "plane"&$amount,$x*200,$y*200, 0)
    $amount+=1
    next
next

SetCameraUp( 0, 0, 1 )


GlMainLoop( )

While 1
    sleep( 5 )
;Rotate box
    _movecam(300)
    SetCamera( $x+$eyex, $y+$eyey, $z+200, $x, $y, $z )
    RotateObject( "Cube1", 0, 0,$rotation)
    TranslateObject( "Cube1", $x, $y, $z+30 )
if WinActive ( "Walk da box") Then
    if _IsPressed("57") Then _move(-$speed);W
    if _IsPressed("53") Then _move($speed);s
    if _IsPressed("41") Then $rotation+=2;a
    if _IsPressed("44") Then $rotation-=2;D
    if _IsPressed("20") Then 
        if $jump = 1 Then
            $zforce=20
            $jump=0
        EndIf
    EndIf
    if _IsPressed("11") Then $z=-10;Ctrl
EndIf
    _CheckExit()
    _Forces()
Wend



Func _move($speedgo)
    $movex= -cos((2*$pi/360)*($rotation+90))*$speedgo
    $movey= -sin((2*$pi/360)*($rotation+90))*$speedgo
    $x +=$movex
    $y +=$movey
EndFunc

Func _movecam($distance)
    $movex= -cos((2*$pi/360)*($rotation+90))*$distance
    $movey= -sin((2*$pi/360)*($rotation+90))*$distance
    $eyex =$movex
    $eyey =$movey
EndFunc

Func _CheckExit()
    if not WinExists("Walk da box") then Exit
EndFunc
    
Func _Forces()
    $z+=$zforce
    $zforce-=1
    if $zforce<-10 then $zforce=-10
    if $z<=0 then 
        $zforce=0 
        $jump=1
    EndIf
EndFunc

i hope u guys like it

EDIT: if u wanna see some lag, change for $x=0 to 2 too for $x=0 to 5 (it makes a platfort of 6x6 plates)

Edited January 19, 2007 by zeroZshadow

[A. Percy]

Nice!

It's a good work!

[zeroZshadow]

can u figure out howto make it faster ?? also, something to set the view distance would also be cool

[A. Percy]

New update today! See first post.

Added only one function: SetFPS( Frequency )

The default value is 1000 - the CPU consuption is high. Try editing this value to 60, 45 - and CPU consuption down...

See sample.au3.

Bye!

[A. Percy]

New update again. Bug in SetFPS fixed... sorry.

[A. Percy]

Two days and none feedback...

[Lakes]

Two days and none feedback...

I`m busy doing stuff with the ProSpeed UDF at the moment, but am def interested in this, will have another look at it, when I get time...

Aways interested in anything that adds more graphics functions to autoit..

Keep up the Good Work!

[A. Percy]

I`m busy doing stuff with the ProSpeed UDF at the moment, but am def interested in this, will have another look at it, when I get time...

Aways interested in anything that adds more graphics functions to autoit..

Keep up the Good Work!

Thank you!

[zeroZshadow]

i'm still checking it out.. i'm having some trouble with autoit at the moment

UPDATE: it keeps crashing here >_>

at what point do you need to call the SetFPS ??

Edited January 25, 2007 by zeroZshadow

[A. Percy]

i'm still checking it out.. i'm having some trouble with autoit at the moment

UPDATE: it keeps crashing here >_>

at what point do you need to call the SetFPS ??

Before GlMainLoop( )

[zeroZshadow]

its still crashing at the start

even without the SetFPS