Problem in einem Strategiespiel

Übersicht

BlitzBasic

Allgemein

	AFRO Betreff: Problem in einem Strategiespiel	Sa, Nov 18, 2006 19:37 Antworten mit Zitat
Hi, ich hab nach einiger Zeit mal wieder n problem ich bin gerade dabei ein strategiespiel zu schreiben, und will gerade bei tastenklick eine einheit dastehen lassen, das problem dabei sieht so aus: [code]Type Standart Field X Field Y Field Technic Field Health Field name End Type Function Draw_A_Zeichen () DrawImage Standart_A_Zeichen, 500, 50 End Function Function Draw_Troops_A () If ImagesOverlap (Cursor_A, Cursor_A_X, Cursor_A_Y, Standart_A_Zeichen, 500, 50) And MouseHit (1) Then anzahl_s_a = anzahl_s_a +1 EndIf If anzahl_s_a > 0 Then s.Standart = New Standart s\X = 300 s\Y = 300 s\Technic = Technic_Level_Standart_A s\Health = 100 s\name = anzahl_s_a EndIf For s.Standart = Each s.Standart DrawImage Patrick_Standart, s\X, s\Y If Health =< 0 Then Delete s.Standart_A Next End Function [/code] dann kommt immer die fehlermeldung dass er den typenamen nicht findet und ich kann mir nicht weiterhelfen!!! Hoffentlich kann mir jemand von euch helfen AFRO[/code]

AFRO

Betreff: Problem in einem Strategiespiel

Sa, Nov 18, 2006 19:37
Antworten mit Zitat

Hi, ich hab nach einiger Zeit mal wieder n problem Laughing

ich bin gerade dabei ein strategiespiel zu schreiben, und will gerade bei tastenklick eine einheit dastehen lassen, das problem dabei sieht so aus:
[code]Type Standart

Field X
Field Y
Field Technic
Field Health
Field name

End Type

Function Draw_A_Zeichen ()

DrawImage Standart_A_Zeichen, 500, 50

End Function

Function Draw_Troops_A ()

If ImagesOverlap (Cursor_A, Cursor_A_X, Cursor_A_Y, Standart_A_Zeichen, 500, 50) And MouseHit (1) Then
anzahl_s_a = anzahl_s_a +1
EndIf
If anzahl_s_a > 0 Then
s.Standart = New Standart
s\X = 300
s\Y = 300
s\Technic = Technic_Level_Standart_A
s\Health = 100
s\name = anzahl_s_a
EndIf
For s.Standart = Each s.Standart
DrawImage Patrick_Standart, s\X, s\Y
If Health =< 0 Then Delete s.Standart_A
Next

End Function [/code]

dann kommt immer die fehlermeldung dass er den typenamen nicht findet und ich kann mir nicht weiterhelfen!!! Embarassed