[AutoIt] Raumschiff Spiel mit ProSpeed erstellen

[Greek]

Hi,

ich möchte mir der ProSpeed.dll in AutoIt ein Spiel erstellen

Hier ist mein Anfang

#include <prospeed30.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$dll = DllOpen("user32.dll")

HotKeySet("{Esc}","_Exit")

$Raumschiff = LoadFileImage(@ScriptDir&"\raumschiff.png")
$RaumschiffWidth = GetWidthImage($Raumschiff)
$RaumschiffHeight = GetHeightImage($Raumschiff)

$WindowWidth = 800
$WindowHeight = 600
$RaumschiffPosX = ($WindowWidth/2)-($RaumschiffWidth/2)
$RaumschiffPosY = $WindowHeight-$RaumschiffHeight

$SpaceGUI = GUICreate("Spaceshooter",$WindowWidth,$WindowHeight)
GUISetState()

$hDC = GetHDC()

$createbitmap = CreateImage($WindowWidth,$WindowHeight) ;create empty bitmap (default = black)
PaintImage($hDC,0,0,$WindowWidth,$WindowHeight,$createbitmap,0,0,0) ;copy empty bitmap to window
;~ CreateBuffer($WindowWidth,$WindowHeight) ;create buffer 800x600 for WM_PAINT
;~ SetBuffer($createbitmap) ;fill buffer with empty bitmap
; Brauch ich das??

AdlibEnable("_Zyklus",20)

Func _Zyklus()
_Update()
_Malen()
EndFunc

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_Exit()
EndSwitch
WEnd

Func _Exit()
;// resourcen vorher freigeben
FreeImage($Raumschiff)
DllClose($dll)
Exit
EndFunc

Func _Update()
If _IsPressed(25,$dll) And WinActive($SpaceGUI) Then $RaumschiffPosX += -5

EndFunc

Func _Malen()
Stars(0,0,$WindowWidth,$WindowHeight,200,64,0)
PaintImage($hDC,$RaumschiffPosX,$RaumschiffPosY,$RaumschiffWidth,$RaumschiffHeig ht,$Raumschiff,0,0,-1)
EndFunc

Soll ein Spaceshooter werden, hab früher mit GDI+ bisschen gearbeitet. Weis jetzt nicht genau wie ich alles wieder übermale, oder man das anders macht. Ist der Anfang auch so gut?

Hab noch keine Erfahrung mit ProSpeed, aber scheint richtig gut zu sein und für AutoIt gibt es auch kaum so sachen.

Gruss Greek

[Frabbing]

Hallo Greek,

ich hab leider kaum Erfahrung mit AutoIt. Aber ich frag mal den Jan, ob er hier reinsieht. Der hat die Includes und bekannten Demos für AutoIt zur ProSpeed geschrieben. Ich werd' ihn mal anskypen.

hi

You need CreateBuffer() and SetBuffer() in your game
When your window was overlapped by another window or
your window gets out of the systray, then your window needs to update.
windows sends a WM_PAINT message
you catch that message in your game and use the buffers to repaint your window background.

i could not test your code yet, because i don't have autoit installed due to a broken mainbord.

hope that i could help you

jan

there is allso a german autoit forum
Portal - .: autoit.de :. - Das deutsche AutoIt-Forum

Kind Regards

jan

[Greek]

hi

i know how to use autoit, but i don't understand how to delet the spaceship and stars with prospeed.

in gdi+ i make this:
GDIPlus_GraphicsClear($hgraphic)

But don't know what to use in prospeed. I can use _WinApi_RedrawWindow but this is flickering. Need buffer, don't know how to do this with prospeed.

Hope you can help me, don't understand your examples :S
Thanks Greek

some simple example

#include <prospeed30.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$dll = DllOpen("user32.dll")

HotKeySet("{Esc}","_Exit")

$Raumschiff = LoadSprite("fly.bmp")
$RaumschiffWidth = GetWidthImage($Raumschiff)
$RaumschiffHeight = GetHeightImage($Raumschiff)

$WindowWidth = 800
$WindowHeight = 600
$RaumschiffPosX = ($WindowWidth/2)-($RaumschiffWidth/2)
$RaumschiffPosY = $WindowHeight-$RaumschiffHeight

$SpaceGUI = GUICreate("Spaceshooter",$WindowWidth,$WindowHeight)
GUISetState()

$hDC = GetHDC()

$createbitmap = CreateImage($WindowWidth,$WindowHeight) ;create empty bitmap (default = black)
CreateBuffer($WindowWidth,$WindowHeight) ;create buffer 800x600 for WM_PAINT
SetBuffer($createbitmap) ;fill buffer with empty bitmap
PaintImage($hDC,0,0,$WindowWidth,$WindowHeight,$createbitmap,0,0,0) ;copy empty bitmap to window

; Brauch ich das??

Stars(0,0,$WindowWidth,$WindowHeight,200,64,0)

;Sprite($Raumschiff, $S_offsetX, $S_offsetY, WIDTH, HEIGHT, FRAMES, START_FRAME, FRAME_SPEED, posX, posY)
$Sprite1 = Sprite($Raumschiff, $hdc, 0, 0, 24, 24, 1, 1, 1, 10, 10)

Sleep(2000)


AdlibEnable("_Zyklus",20)

Func _Zyklus()
_Update()
EndFunc

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_Exit()
EndSwitch
WEnd

Func _Exit()
;// resourcen vorher freigeben
DeleteSprite($Sprite1) ; delete the sprite
FreeImage($Raumschiff) ; cleanup bitmap recources
NoStars(3)             ; stop the stars , option 3 = let the stars fade out
Exit
EndFunc

Func _Update()
If _IsPressed(25,$dll) And WinActive($SpaceGUI) Then $RaumschiffPosX += -5
; use Movesprite to move the sprite on screen
; Movesprite($S_Alias, $S_posx, $S_posy)
EndFunc

[Greek]

hi,

thank you very much, now i can go on

[Greek]

$Raumschiff = LoadSprite("raumschiff.png")
$Sprite1 = Sprite($Raumschiff, $hdc, 0, 0, $RaumschiffWidth, $RaumschiffHeight, 1, 1, 1, 10, 10)

I can't find those commands in the help? Where did you find them?

And i get an error when i press ESC:

"Die Anweisung in 0x01973d94 verweist auf Speicher in 0x01973d94. Der Vorgang 'read' konnte nicht auf dem Speicher durchgeführt werden."

Can't translate this into english, maybe it's because i use a png and you did use bmp?

Don't find information for these commands

Zitat von Greek

$Raumschiff = LoadSprite("raumschiff.png")
$Sprite1 = Sprite($Raumschiff, $hdc, 0, 0, $RaumschiffWidth, $RaumschiffHeight, 1, 1, 1, 10, 10)

I can't find those commands in the help? Where did you find them?

And i get an error when i press ESC:

"Die Anweisung in 0x01973d94 verweist auf Speicher in 0x01973d94. Der Vorgang 'read' konnte nicht auf dem Speicher durchgeführt werden."

Can't translate this into english, maybe it's because i use a png and you did use bmp?

Don't find information for these commands

most functions have the same name as the in the helpfile from frank abbing
and you can peek in the prospeed30.au3 for the functions you need

it does not matter if you are using a bmp or png
i don't know about alpha channel png's
try converting the png to a bmp or jpg and see if you get *** error's

Kind Regards
jan

[Greek]

Still got that error when i press ESC

Zitat von Greek

Still got that error when i press ESC

Try DestroyBuffer()
in the Exit function, no para's needed

[Greek]

Hi,

sry that i'm writing back so late, i was in the hospital.

I don't got the error anymore, don't know why.

I had some time in the hospital to go on:

#include <prospeed30.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <Array.au3>

Opt("MouseCoordMode",0)

$dll = DllOpen("user32.dll")

Global $mode = True
Global $AstroidsOff = False
Global $PlayerIsAlive = True

HotKeySet("{Esc}","_Exit")
HotKeySet("{PAUSE}","_Pause")

Global $Schuss[1]
Global $Astroiden[1]

$Raumschiff = LoadSprite("raumschiff.png")
$Standartschuss = LoadSprite("StandartSchuss.jpg")
$Astroid = LoadSprite("Astroid.jpg")

$StandartschussWidth = GetWidthImage($Standartschuss)
$StandartschussHeight = GetHeightImage($Standartschuss)
$RaumschiffWidth = GetWidthImage($Raumschiff)
$RaumschiffHeight = GetHeightImage($Raumschiff)
$AstroidWidth = GetWidthImage($Astroid)
$AstroidHeight = GetHeightImage($Astroid)

$WindowWidth = 600
$WindowHeight = 450
$RaumschiffPosX = ($WindowWidth/2)-($RaumschiffWidth/2)
$RaumschiffPosY = $WindowHeight-$RaumschiffHeight
$SpaceGUIX = (@DesktopWidth/2)-($WindowWidth/2)
$SpaceGUIY = (@DesktopHeight/2)-($WindowHeight/2)

$Feuersequence = 300 ; Je kleiner, desto schneller
$RaumschiffSpeed = 6

InitPixelEffects()

$SpaceGUI = GUICreate("Spaceshooter",$WindowWidth,$WindowHeight,$SpaceGUIX)
GUISetState()

$hDC = GetHDC()

$createbitmap = CreateImage($WindowWidth,$WindowHeight) ;create empty bitmap (default = black)
CreateBuffer($WindowWidth,$WindowHeight) ;create buffer 800x600 for WM_PAINT
SetBuffer($createbitmap) ;fill buffer with empty bitmap
PaintImage($hDC,0,0,$WindowWidth,$WindowHeight,$createbitmap,0,0,0) ;copy empty bitmap to window

Stars(0,0,$WindowWidth,$WindowHeight,200,64,0)

;Sprite($Raumschiff, $S_offsetX, $S_offsetY, WIDTH, HEIGHT, FRAMES, START_FRAME, FRAME_SPEED, posX, posY)
$SpriteRaumschiff = Sprite($Raumschiff, $hdc, 0, 0, $RaumschiffWidth, $RaumschiffHeight, 1, 1, 1, $RaumschiffPosX, $RaumschiffPosY)
MouseMove($RaumschiffPosX+$RaumschiffWidth/2,$RaumschiffPosY+$RaumschiffHeight,0)
Sleep(500)

SetSpriteSpeed($SpriteRaumschiff, $RaumschiffSpeed, $RaumschiffSpeed)

GUIRegisterMsg($WM_MOUSEMOVE,"_MY_WM_MOUSEMOVE")

SetMouseRect($SpaceGUIX, $SpaceGUIY, $SpaceGUIX+$WindowWidth, $SpaceGUIY+$WindowHeight)

$Feuerbegrenzung = TimerInit()
$AstroidenTimer = TimerInit()

While 1
_Feuern()
_Astriodfeld(500)
_Collision()

Sleep( 20 )
WEnd

Func _Exit()
;// resourcen vorher freigeben
DeInitPixelEffects()
DeleteAllSprites()
FreeImage($Raumschiff) ; cleanup bitmap recources
FreeImage($Standartschuss) ; cleanup bitmap recources
FreeImage($Astroid) ; cleanup bitmap recources
NoStars(3) ; stop the stars , option 3 = let the stars fade out
Exit
EndFunc

Func _MY_WM_MOUSEMOVE()
Local $pos = MouseGetPos()
$RaumschiffPosX = $pos[0]-$RaumschiffWidth/2
$RaumschiffPosY = $pos[1]-$RaumschiffHeight
Movesprite($SpriteRaumschiff,$RaumschiffPosX,$RaumschiffPosY)
EndFunc

Func _Schuss()
Return Sprite($Standartschuss, $hdc, 0, 0, $StandartschussWidth+1, $StandartschussHeight, 1, 1, 1, GetSpriteX($SpriteRaumschiff)+$RaumschiffWidth/2-2, GetSpriteY($SpriteRaumschiff)-$RaumschiffHeight/2) ; Mindestens 5 Pixel Breit!
EndFunc

Func _Astroid()
Return Sprite($Astroid,$hdc,0,0,$AstroidWidth,$AstroidHeight,1,1,1,Random(0,$WindowWidt h-$AstroidWidth,1),0)
EndFunc

Func _Feuern()
If MouseButton() = 1 And TimerDiff($Feuerbegrenzung)>=$Feuersequence And $PlayerIsAlive Then
$Feuerbegrenzung = TimerInit()
$SchussIndex = _ArrayAdd($Schuss, _Schuss())
SetSpriteSpeed($Schuss[$SchussIndex],5,5)
Movesprite($Schuss[$SchussIndex],GetSpriteX($Schuss[$SchussIndex]),0-$StandartschussHeight)
EndIf
EndFunc

Func _Astriodfeld($ms)
If TimerDiff($AstroidenTimer)>=$ms And Not $AstroidsOff Then
$AstroidenIndex = _ArrayAdd($Astroiden,_Astroid())
SetSpriteSpeed($Astroiden[$AstroidenIndex],3,3)
Movesprite($Astroiden[$AstroidenIndex],GetSpriteX($Astroiden[$AstroidenIndex]),$WindowHeight)
$AstroidenTimer = TimerInit()
EndIf
EndFunc

Func _Collision()
For $i=UBound($Schuss)-1 To 1 Step -1
$Getrofen = CollideAll($Schuss[$i])
If $Getrofen And $Getrofen<>$SpriteRaumschiff Then
$ColliKordinatenX = GetSpriteX($Getrofen)
$ColliKordinatenY = GetSpriteY($Getrofen)
SetSpritePos($Schuss[$i],0,-20,-20,-20) ;Rausdamit
SetSpritePos($Getrofen,900,900,900,900) ;Rausdamit
SetPixelEffect($ColliKordinatenX+$AstroidWidth/2, $ColliKordinatenY+$AstroidHeight/2, 0x0000ff, 7, 16, 2, 100, 1, 50)
EndIf
If GetSpriteY($Schuss[$i])<0 Then
DeleteSprite($Schuss[$i])
_ArrayDelete($Schuss,$i)
EndIf
Next
For $i=UBound($Astroiden)-1 To 1 Step -1
If Collide($Astroiden[$i],$SpriteRaumschiff) Then
$PlayerIsAlive = False
DeleteSprite($SpriteRaumschiff)
SetPixelEffect(GetSpriteX($SpriteRaumschiff)+$RaumschiffWidth/2, GetSpriteY($SpriteRaumschiff)+$RaumschiffHeight/2, 0x00ffff, 7, 10, 2, 500, 2, 100)
Sleep(500)
SetPixelEffect(GetSpriteX($SpriteRaumschiff)+$RaumschiffWidth/2, GetSpriteY($SpriteRaumschiff)+$RaumschiffHeight/2, 0x00ffff, 7, 10, 2, 300, 2, 100)
Sleep(500)
SetPixelEffect(GetSpriteX($SpriteRaumschiff)+$RaumschiffWidth/2, GetSpriteY($SpriteRaumschiff)+$RaumschiffHeight/2, 0x00ffff, 7, 10, 2, 300, 2, 100)
Sleep(500)
SetPixelEffect(GetSpriteX($SpriteRaumschiff)+$RaumschiffWidth/2, GetSpriteY($SpriteRaumschiff)+$RaumschiffHeight/2, 0x00ffff, 7, 10, 2, 500, 2, 100)
Sleep(5000)
_Exit()
EndIf
If GetSpriteY($Astroiden[$i])>=$WindowHeight Then
DeleteSprite($Astroiden[$i])
_ArrayDelete($Astroiden,$i)
EndIf
Next
EndFunc

Func _Pause()
$AstroidsOff = Not $AstroidsOff
$PlayerIsAlive = Not $PlayerIsAlive
StopAllSprites($mode)
$mode = Not $mode
EndFunc

Func StopAllSprites($mode) ; Didn't find that function
$Result = DllCall("ProSpeed.dll","long","StopAllSprites","long",$mode)
EndFunc

Hope it's getting a good game^^

Prospeed is great

Here the Pictures:

Astroid:

Shot:


I think i will have a few questions in the next days, hope you are looking for it.

greeting Greek

[Greek]

Ich hab noch eine frage zu IntSprite bei ProSpeed,

Ich hab ein Bild mit 9 Frames die in 3 Reihen aufgeteilt sind, also 4, 4, 1.

Jetzt kann ich aber nur mit IniSprite die ersten 4 Animieren, weil sie nebeneinander liegen müssen, gibts da ne möglichkeit das die unteren 2 Reihen mit einbezogen werden?

[Frabbing]

Nein. Die Animationsbilder eines Sprites müssen schon nebeneinander liegen. Da die Bildbreite aber nicht limitiert ist, sollte das doch kein Problem darstellen.
Wenn du kein Malprogramm hast, kannst du deine Grafik mit meinem "Sprite-Rotator" neu arrangieren.

[Greek]

Dank dir, hab alle 9 Frames nebeneinander mit GIMP gegrigt, funktioniert