Jump to content

ItCopter

A. Percy

By A. Percy,
in AutoIt Example Scripts

 Share

Recommended Posts

A. Percy Universalist

A. Percy

Posted
Posted (edited)

Hi

This "game" is in alpha version for while.

Please, report all trouble you will find here.

When I complete the game development I'll put the code here, so, for now we have only compiled version.

Ok, it needs many work to do, but here you can find the source: download

Commands:

Mouse starts moving

"C" changes the camera

"Space" starts flight

"ESC" exits

It needs glut32 and glaux that can be found in Au3glplugin T2 thread.

So, thank you for testing.

;)

http://www.autoitscript.com/forum/index.ph...amp;showfile=91

code:

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseAnsi=y
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.4.9
 Author:         Alexsandro Percy Libanio Motta

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include "GlPluginUtils.au3"
#Include <Misc.au3>

Global $pi = 3.14159265358979

FileInstall( "Cabin_Tex.bmp", "Cabin_Tex.bmp" )

AutoItSetOption( "TrayIconHide", 1 )
Opt( "WinTitleMatchMode", 3 )

HotKeySet( "{ESC}", "EndGame" )

TextureSetBuffer( 1 )
TextureAdd( "Cabin", @ScriptDir & "\Cabin_Tex.bmp" )
TextureSetMode( 1 )

;defining window
$WinTitle = "ItCopter"
DefineGlWindow( $WinTitle )
SetCameraView( 1.0, 5000 )

;setting back color
SetClearColor( 0.8, 0.8, 0.8 )

;creating light 0
CreateLight( 0, 300, 300, 300 )
SetLightAmbient( 0, 0.2, 0.2, 0.2 )
SetLightDiffuse( 0, 0.7, 0.7, 0.7 )
SetLightSpecular( 0, 0.1, 0.1, 0.1 )

;======================================
;lets select a color
;======================================
SetCamera( 0, 8, 30, 0, 8, 0 )

$Plane = ObjectCreate( )
for $x=0 to 100
    for $y=0 to 100
;AddCube( ObjId, Width, Height, Deph, Red, Green, Blue, Alpha )
        $Cube = AddCube( $Plane, 5, 5, 0.5, 0.2, 0.2, random (0.6,0.9 ), random (1.0,1.5 ) )
        ShapeTranslate( $Plane, $Cube, $x*5 - 250, $y*5 - 250, -10 )
    next
next
SetPrint( $Plane )

$MakeColorPallete = ObjectCreate( )
$YColorPos = 11
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 1, 1, 0.5, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, -12.5, $YColorPos, 0 )
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 1, 1, 1, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, -7.5, $YColorPos, 0 )
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 0.5, 1, 0.5, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, -2.5, $YColorPos, 0 )
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 0.5, 0.5, 1, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, 2.5, $YColorPos, 0 )
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 1, 0.5, 0.5, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, 7.5, $YColorPos, 0 )
$Cube = AddCube( $MakeColorPallete, 2.5, 2.5, 1, 1, 0.7, 0.9, 1.0 )
ShapeTranslate( $MakeColorPallete, $Cube, 12.5, $YColorPos, 0 )
SetPrint( $MakeColorPallete )

$ColorPalleteSelector = ObjectCreate( )
$Disk = AddPartialDisk( $ColorPalleteSelector, 0, 0, 0, 2.1, 2.6, 20, 2, 0, 360, 0, 1, 0, 1 )
ShapeRotate( $ColorPalleteSelector, $Disk, 90, 0, 0 )
ObjectTranslate( $ColorPalleteSelector, -12.5, $YColorPos, 0 )
SetPrint( $ColorPalleteSelector )

$Text = ObjectCreate( )
$SelectText = AddStrokeText( $Text, 0, 0, 0, 1, 1, 0.5, "Select a color and type 'ENTER'" )
ShapeScale( $Text, $SelectText, 0.0132, 0.02, 0.012 )
ShapeTranslate( $Text, $SelectText, -14, 16, 0 )
SetPrint( $Text )

$MainRotor = 0
$DirRotor = 0
$Heli = MakeHeli( 1, 1, 0.5, $MainRotor, $DirRotor )
SetPrint( $Heli )
ObjectRotate( $Heli, 0, -45, 0 )

$CurrSlot = 1
$SetColor = 0
Dim $RGBColor[3]
While 1
    Sleep( 50 )
    If _IsPressed( "25" ) Then
        If $CurrSlot > 1 Then
            $CurrSlot -= 1
            $SetColor = 1
        EndIf
    EndIf
    If _IsPressed( "27" ) Then
        If $CurrSlot < 6 Then
            $CurrSlot += 1
            $SetColor = 1
        EndIf
    EndIf
    If _IsPressed( "0D" ) Then
        ExitLoop
    EndIf
    If $SetColor = 1 Then
        If $CurrSlot = 1 Then
            Dim $RGBColor[3] = [1, 1, 0.5]
            ObjectTranslate( $ColorPalleteSelector, -12.5, $YColorPos, 0 )
        EndIf
        If $CurrSlot = 2 Then
            Dim $RGBColor[3] = [1, 1, 1]
            ObjectTranslate( $ColorPalleteSelector, -7.5, $YColorPos, 0 )
        EndIf
        If $CurrSlot = 3 Then
            Dim $RGBColor[3] = [0.5, 1, 0.5]
            ObjectTranslate( $ColorPalleteSelector, -2.5, $YColorPos, 0 )
        EndIf
        If $CurrSlot = 4 Then
            Dim $RGBColor[3] = [0.5, 0.5, 1]
            ObjectTranslate( $ColorPalleteSelector, 2.5, $YColorPos, 0 )
        EndIf
        If $CurrSlot = 5 Then
            Dim $RGBColor[3] = [1, 0.5, 0.5]
            ObjectTranslate( $ColorPalleteSelector, 7.5, $YColorPos, 0 )
        EndIf
        If $CurrSlot = 6 Then
            Dim $RGBColor[3] = [1, 0.7, 0.9]
            ObjectTranslate( $ColorPalleteSelector, 12.5, $YColorPos, 0 )
        EndIf
        
        ObjectDelete( $Heli )
        $Heli = MakeHeli( $RGBColor[0], $RGBColor[1], $RGBColor[2], $MainRotor, $DirRotor )
        SetPrint( $Heli )
        $SetColor = 0
        ObjectRotate( $Heli, 0, -45, 0 )
    EndIf
    SceneDraw( )
Wend
ObjectRotate( $Heli, 0, 0, 0 )

ObjectDelete( $MakeColorPallete )
ObjectDelete( $ColorPalleteSelector )
ObjectDelete( $Text )
ObjectDelete( $Plane )
ClearPrintBuffer( )

;======================================
;now starting game
;======================================
$CenterX = @DesktopWidth / 2
$CenterY = @DesktopHeight / 2

MouseMove( $CenterX, $CenterY, 0 )

SetPrint( $Heli )
$Plane = ObjectCreate( )
for $x=0 to 50
    for $z=0 to 50
;AddCube( ObjId, Width, Height, Deph, Red, Green, Blue, Alpha )
        $Cube = AddCube( $Plane, 50, 0.5, 50, 0.2, random (0.6,0.8 ), 0.2, 1.0 )
        ShapeTranslate( $Plane, $Cube, $x*50 - 1000, -0.77, $z*50 - 1000 )
    next
next
SetPrint( $Plane )

SetCamera( 0, 20, 70, 0, 3, 0 )

$YForce = 0
$YPos = 0
$XPos = 0
$ZPos = 0
$Speed = 0.2
$Rotation = 0
$DirectionX = 0
$DirectionZ = 0
$Inercia = 0.2
$InerciaX = 0
$InerciaZ = 0
$ZLevel = 0

$EyeX = 0
$EyeZ = 0
$Cam = 0

$DeathZone = 60
$RotorY = 0
While 1
    $RotorY += 40
    If $RotorY >= 360 Then $RotorY -= 360
    
    If $Rotation >= 360 Then $Rotation -= 360
    If $Rotation < 0 Then $Rotation += 360
    SceneDraw( )
    
    Sleep( 20 )
    ObjectRotate( $Heli, 0, $Rotation + 90, $ZLevel )
    _Limiters( $XPos, $InerciaX )
    _Limiters( $ZPos, $InerciaZ )
    ObjectTranslate( $Heli, $XPos, $YPos, $ZPos )
    
    If $Cam = 1 Then
        _Movecam( 100, $EyeX, $EyeZ )
        SetCamera( $XPos + $EyeX, $YPos + 40, $EyeZ + $ZPos, $XPos, $YPos, $ZPos )
    Else
        SetCamera( 0, 40, 80, $XPos, $YPos, $ZPos )
    EndIf
    
    If WinActive ( $WinTitle ) Then
        $mouse = MouseGetPos( )
        if $YPos > 0 Then
            If $mouse[1] < $CenterY - $DeathZone Then
                _Move( -$Speed, $Rotation, $XPos, $ZPos, $DirectionX, $DirectionZ )
                $InerciaX += $DirectionX * $Inercia
                $InerciaZ += $DirectionZ * $Inercia
                $ZLevel = -10
            EndIf
            If $mouse[1] > $CenterY + $DeathZone Then
                _Move(  $Speed, $Rotation, $XPos, $ZPos, $DirectionX, $DirectionZ )
                $InerciaX += $DirectionX * $Inercia
                $InerciaZ += $DirectionZ * $Inercia
                $ZLevel = 10
            EndIf
            ObjectRotate( $Heli, 0, $Rotation + 90, $ZLevel / 2 )
            SceneDraw( )
        EndIf
        If $mouse[0] < $CenterX - $DeathZone Then
            $ControlSpeed =  int( ( $CenterX - $mouse[0] ) / ( $CenterX / 8 ) )
            $Rotation += $ControlSpeed + 1
        EndIf
        If $mouse[0] > $CenterX + $DeathZone Then
            $ControlSpeed = int( ( $mouse[0] - $CenterX ) / ( $CenterX / 8 ) )
            $Rotation -= $ControlSpeed + 1
        EndIf
        
        If _IsPressed("20") Then 
            $YForce = 0.5
        EndIf
        If _IsPressed("43") Then
            If $Cam = 1 Then
                $Cam = 0
            Else
                $Cam = 1
            EndIf
            Sleep( 100 )
        EndIf
    EndIf
    
    _Force( $YPos, $YForce )
    If $YPos <= 0 Then
        $InerciaX = $InerciaX / 3
        $InerciaZ = $InerciaZ / 3
    EndIf
    _ApplyInercia( $XPos, $InerciaX )
    _ApplyInercia( $ZPos, $InerciaZ )
    _AdjustLevel( $ZLevel )
    ObjectRotate( $MainRotor, 0, $RotorY, 0 )
Wend

Func _Limiters( ByRef $Pos, ByRef $Iner )
    Local $Lim = 500
    If $Pos > $Lim Then
        $Pos = $Lim
        $Iner = 0
    EndIf
    If $Pos < -$Lim Then
        $Pos = -$Lim
        $Iner = 0
    EndIf
EndFunc

;adapted from TestWorld by zerozshadow
Func _Movecam( $distance, ByRef $EyeX, ByRef $EyeZ )
    $EyeX = -cos((2*$pi/360)*($rotation+90))*$distance
    $EyeZ = sin((2*$pi/360)*($rotation+90))*$distance
EndFunc

;adapted from TestWorld by zerozshadow
Func _Move( $speedgo, $rotation, ByRef $XPos, ByRef $ZPos, ByRef $DirectionX, ByRef $DirectionZ )
    Local $movex= -cos((2*$pi/360)*($rotation+90))*$speedgo
    Local $movez= sin((2*$pi/360)*($rotation+90))*$speedgo
    $DirectionX = $movex
    $DirectionZ = $movez
;~   $XPos += $movex
;~   $ZPos += $movez
EndFunc

;adapted from TestWorld by zerozshadow
Func _Force( ByRef $pos, ByRef $force )
    $pos += $force
    $force -= 0.02
    if $force < -1 then
        $force = -1
    EndIf
    if $pos <= 0 then 
        $force = 0
        $pos = 0
    EndIf
EndFunc

Func _ApplyInercia( ByRef $pos, ByRef $inercia )
    Local $DecValue = 0.001
    $pos += $inercia
    If $inercia < 0 Then
        $inercia += $DecValue
    Else
        $inercia -= $DecValue
    EndIf
EndFunc

Func _AdjustLevel( ByRef $CurrLevel )
    If $CurrLevel > 0 Then
        $CurrLevel -= 1
    EndIf
    If $CurrLevel < 0 Then
        $CurrLevel += 1
    EndIf
EndFunc

Func MakeHeli( $Red, $Green, $Blue, ByRef $MainRotorId, ByRef $DirRotorId )
    Local $RetVal
    $RetVal = ObjectCreate( )
    
    Local $Cabin = AddSphere( $RetVal, 1, 1, 0, 1, 20, 9, $Red, $Green, $Blue, 1 )
    ShapeScale( $RetVal, $Cabin, 1, 1.2, 1 )
    ShapeRotate( $RetVal, $Cabin, 0, 0, 5 )
    TextureBind( $RetVal, $Cabin, "Cabin" )
    
;----------------------
;Corpo principal
    Local $MainAxis = AddCube( $RetVal, 1, 1.5, 0.3, 0, 0, 0, 1 )
    ShapeTranslate( $RetVal, $MainAxis, 0, 1.8, 0 )
    $MainAxis = AddCylinder( $RetVal, 0, 0, 0, 0.6, 0.6, 2, 20, 2, $Red, $Green, $Blue, 1 )
    ShapeRotate( $RetVal, $MainAxis, 90, 0, 0 )
    ShapeTranslate( $RetVal, $MainAxis, 0, 1.2, -1 )
    $MainAxis = AddPartialDisk( $RetVal, 0, 0, 0, 0, 0.6, 20, 2, 0, 360, $Red, $Green, $Blue, 1 )
    ShapeRotate( $RetVal, $MainAxis, -90, 0, 0 )
    ShapeTranslate( $RetVal, $MainAxis, 0, 1.2, -1 )
    $MainAxis = AddPartialDisk( $RetVal, 0, 0, 0, 0, 0.6, 20, 2, 0, 360, $Red, $Green, $Blue, 1 )
    ShapeRotate( $RetVal, $MainAxis, 90, 0, 0 )
    ShapeTranslate( $RetVal, $MainAxis, 0, 1.2, 1 )
    $MainAxis = AddCube( $RetVal, 3, 0.2, 0.3, 0, 0, 0, 1 )
    ShapeTranslate( $RetVal, $MainAxis, 0, 0.5, 0 )
    
;----------------------
;motor
    Local $ElectMotor = ObjectCreate( )
    SetToObject( $RetVal, $ElectMotor )
    AddCylinder( $ElectMotor, 0, 0, 0, 0.4, 0.4, 1.4, 20, 2, 0.7, 0.7, 0.7, 1 )
    AddCylinder( $ElectMotor, 0, 0.8, 0, 0.41, 0.41, 0.61, 20, 2, 0, 0, 0, 1 )
    AddPartialDisk( $ElectMotor, 0, 1.41, 0, 0, 0.41, 20, 2, 0, 360, 0, 0, 0, 1 )
    ObjectTranslate( $ElectMotor, -1.0, 0.6, 0 )
    
;----------------------
;cauda
    Local $Tail = ObjectCreate( )
    SetToObject( $RetVal, $Tail )
    Local $Tail_pt1 = AddCylinder( $Tail, 0, 0, 0, 0.1, 0.1, 6, 9, 2, 0, 0, 0, 1 )
    ShapeRotate( $Tail, $Tail_pt1, 0, 0, 90 )
    Local $Tail_pt2 = AddCylinder( $Tail, 0, 0, 0, 0.15, 0.15, 0.4, 9, 2, 0, 0, 0, 1 )
    ShapeRotate( $Tail, $Tail_pt2, 0, 90, 90 )
    ShapeTranslate( $Tail, $Tail_pt2, -6, 0, -0.3 )
    $Tail_pt2 = AddPartialDisk( $Tail, 0, 0, 0, 0, 0.15, 9, 2, 0, 360, 0, 0, 0, 1 )
    ShapeRotate( $Tail, $Tail_pt2, 90, 0, 0 )
    ShapeTranslate( $Tail, $Tail_pt2, -6, 0, -0.3 )
    
;estabilizadores
    Local $Tail_Prf = AddCube( $Tail, 0.5, 0.01, 1.5, $Red, $Green, $Blue, 1 )
    ShapeTranslate( $Tail, $Tail_Prf, -5, 0, -0.75 )
    $Tail_Prf = AddCube( $Tail, 0.5, 0.01, 1.5, $Red, $Green, $Blue, 1 )
    ShapeRotate( $Tail, $Tail_Prf, -80, 0, 0 )
    ShapeTranslate( $Tail, $Tail_Prf, -3, -0.71, -0.1 )

;direcional rotor
    $DirRotorId = ObjectCreate( )
    SetToObject( $Tail, $DirRotorId )
    AddCylinder( $DirRotorId, 0, 0.1, 0, 0.1, 0.1, 0.3, 9, 2, 0, 0, 0, 1 )
    AddSphere( $DirRotorId, 0, 0.3, 0, 0.2, 6, 3, 0, 0, 0, 1 )
    AddPartialDisk( $DirRotorId, 0, 0.3, 0, 0, 1.3, 20, 2, 0, 360, 0.1, 0.1, 0.1, 0.15 )
    ObjectRotate( $DirRotorId, 90, 0, 0 )
    ObjectTranslate( $DirRotorId, -6, 0, 0 )

    ObjectRotate( $Tail, 0, 0, -5 )
    ObjectTranslate( $Tail, -1.45, 0.5, 0 )

;----------------------
;gear
    Local $Gear = ObjectCreate( )
    SetToObject( $RetVal, $Gear )
    
;ski fixer
    Local $Gear_fx = ObjectCreate( )
    Local $Gear_fx_sh = AddCube( $Gear_fx, 0.4, 0.01, 2, 0, 0, 0, 1 )
    AddCylinder( $Gear_fx, 0, 0, 0, 0.2, 0.2, 0.5, 9, 2, 0, 0, 0, 1 )
    $Gear_fx_sh = AddCube( $Gear_fx, 0.4, 0.01, 0.59, 0, 0, 0, 1 )
    ShapeRotate( $Gear_fx, $Gear_fx_sh, -70, 0, 0 )
    ShapeTranslate( $Gear_fx, $Gear_fx_sh, 0, -0.25, -1.1 )
    $Gear_fx_sh = AddCube( $Gear_fx, 0.4, 0.01, 0.59, 0, 0, 0, 1 )
    ShapeRotate( $Gear_fx, $Gear_fx_sh, 70, 0, 0 )
    ShapeTranslate( $Gear_fx, $Gear_fx_sh, 0, -0.25, 1.1 )
    
;putting fixers
    Local $LegFx1 = ObjectCreate( )
    SetToObject( $LegFx1, $Gear_fx )
    ObjectTranslate( $LegFx1, -1, 0, 0 )
    SetToObject( $Gear, $LegFx1 )
    Local $LegFx2 = ObjectCreate( )
    SetToObject( $LegFx2, $Gear_fx )
    ObjectTranslate( $LegFx2, 1, 0, 0 )
    SetToObject( $Gear, $LegFx2 )
    
;ski
    Local $Leg = ObjectCreate( )
    Local $Leg_pt1 = AddCylinder( $Leg, 0, 0, 0, 0.1, 0.1, 4.5, 9, 2, 0, 0, 0, 1 )
    ShapeRotate( $Leg, $Leg_pt1, 0, 0, -90 )
    ShapeTranslate( $Leg, $Leg_pt1, -2, -0.5, 0 )
    Local $Leg_pt2 = AddCylinder( $Leg, 0, 0, 0, 0.1, 0.1, 0.7, 9, 2, 0, 0, 0, 1 )
    ShapeRotate( $Leg, $Leg_pt2, 0, 0, -45 )
    ShapeTranslate( $Leg, $Leg_pt2, 2.47, -0.5, 0 )
    Local $Leg_pt2 = AddSphere( $Leg, 0, 0.7, 0, 0.1, 9, 9, $Red, $Green, $Blue, 1 )
    ShapeRotate( $Leg, $Leg_pt2, 0, 0, -45 )
    ShapeTranslate( $Leg, $Leg_pt2, 2.47, -0.5, 0 )
    
;putting skis
    Local $Leg1 = ObjectCreate( )
    SetToObject( $Leg1, $Leg )
    ObjectTranslate( $Leg1, 0, 0, -1.2 )
    SetToObject( $Gear, $Leg1 )
    Local $Leg2 = ObjectCreate( )
    SetToObject( $Leg2, $Leg )
    ObjectTranslate( $Leg2, 0, 0, 1.2 )
    SetToObject( $Gear, $Leg2 )

;----------------------
;Main rotor
    $MainRotorId = ObjectCreate( )
    SetToObject( $RetVal, $MainRotorId )
    AddCylinder( $MainRotorId, 0, 1.3, 0, 0.1, 0.1, 2, 9, 2, 0, 0, 0, 1 )
    AddSphere( $MainRotorId, 0, 3.3, 0, 0.2, 6, 3, 0, 0, 0, 1 )
    AddPartialDisk( $MainRotorId, 0, 3.3, 0, 0, 5.5, 20, 2, 0, 360, 0.1, 0.1, 0.1, 0.15 )
    AddPartialDisk( $MainRotorId, 0, 3.4, 0, 0, 5.5, 20, 2, 0, 45, 0.2, 0.2, 0.2, 0.15 )
    AddPartialDisk( $MainRotorId, 0, 3.4, 0, 0, 5.5, 20, 2, 180, 45, 0.2, 0.2, 0.2, 0.15 )
    
    Return $RetVal
EndFunc

Func EndGame( )
    Exit
EndFunc
Edited by A. Percy

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites
  • Replies 47
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

A. Percy Universalist

A. Percy

Posted
  • Author
Posted

Ouch, Win32:Trojan-gen {Other}.

I am not sure it is a false positive or not.. but I'm going to have someone else try it first.

Update your antivirus, please.

I tried with AVP here and nothing...

Or try using a Virtual Machine... <_<

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites
jvanegmond Universalist

jvanegmond

Posted
Posted (edited)

I just compiled a script using the latest beta and the latest release, and that gave me no problems at all.

My anti-virus is fine.

Ok, so I tried it anyway in a sandbox. I don't understand what caused the anti-virus to flag it as a virus, but as far as I understand sandboxes the exe is clean.

I like it. <_< I like it a lot! :)

Based on what you have done so far, do you think it would be possible to create full 3D games using AutoIt?

Edited by Manadar

github.com/jvanegmond

Link to comment
Share on other sites
A. Percy Universalist

A. Percy

Posted
  • Author
Posted

Ok, so I tried it anyway in a sandbox. I don't understand what caused the anti-virus to flag it as a virus, but as far as I understand sandboxes the exe is clean.

I like it. <_< I like it a lot! :)

Based on what you have done so far, do you think it would be possible to create full 3D games using AutoIt?

I have a Dragonfly R/C helicopter and decided to "save" it's "structure" making a virtual copy from it. And yes, I believe that is possible create full 3D games in autoit, based in theory that the process of 3D engine can be independent of script processing using plugin :P

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites
jvanegmond Universalist

jvanegmond

Posted
Posted

I have a Dragonfly R/C helicopter and decided to "save" it's "structure" making a virtual copy from it. And yes, I believe that is possible create full 3D games in autoit, based in theory that the process of 3D engine can be independent of script processing using plugin <_<

Nice, I have a Dragonfly helicopter as well. It is an HM 004, but I suck at flying it because I keep breaking pieces when I try to pull of stunts with it. :)

I think I will have a shot at 3D games. I have been wanting it for SOO long, and I also have a ton of ideas. Just waiting to be visualised.

github.com/jvanegmond

Link to comment
Share on other sites
A. Percy Universalist

A. Percy

Posted
  • Author
Posted (edited)

@A. Percy

THIS IS AMAZING!!!

You never cease to amaze me. It would be soo cool to see the script though. And how do you design the objects, do you use a program that generates the script???

Thanks

I'm from PovRay old school, so, I made the objects with my own hands <_<

Edited by A. Percy

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites
A. Percy Universalist

A. Percy

Posted
  • Author
Posted

T~T You guys are makng me have to see this now, anyone got it working with vista?

The au3glplugin isn't working on Windows Vista <_< , but I'll fix it when I have a Windows Vista machine to test.

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites
A. Percy Universalist

A. Percy

Posted
  • Author
Posted

Ok, I changed my mind and I put the source in first post, but remember: It still in alpha version.

And you need Au3GlPlugin T2

<_<

Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator

VW Bug user

Pinheiral (Pinewood) city:

http://pt.wikipedia.org/wiki/Pinheiral

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...