Help?
im trying to do this zombi thing and like im a NOOB huge noob so what am i doing wrong here?
graphics.Initialize
key.Initialize
Dim image
Dim zombie
Dim zombies(100)
Set zombie = New zombie_cl
zombie.hit_points = 10
zombie.x = 100
zombie.y = 100
zombie.image = graphics.LoadImage("C:\Documents and Settings\BloodyRain\My Documents\My Pictures\zombie.PNG")
Class zombie_cl
Public hit_points
Public x
Public y
Public image
Public Sub rise_from_the_dead()
hit_points = 10
x = 100
y = 100
zombie.image = graphics.CloneImage(zombie_image)
End Sub
Public Sub move_x( move_it )
x = x + move_it
if x > 800 then x = 600
if x < 0 then x = 0
End Sub
Public Sub move_y( move_it )
y = y + move_it
if y > 600 then y = 600
if y < 0 then y = 0
End Sub
Public Sub draw()
graphics.SetX image, x
graphics.SetY image, y
graphics.SetImage image
End Sub
End Class
For i = 1 to 100
Set zombies(i) = New zombie_cl
zombies(i).rise_from_the_dead()
Next
For i = 1 to 100
zombies(i).draw()
Next
zombies(1).x = zombies(1).x + 2
if zombies(1).x > 800 then zombie(1).x = 800
Do
graphics.Clear
graphics.SetImage image
graphics.Display
Loop Until key.Pressed(vk_escape) Or key.Pressed(vk_windowx)
graphics.Terminate
key.Terminateif someone can just post how its spose to look i can read over what u did and i didnt see what i did wrong im trying to do the zombie tutorial http://gamedesign.wikidot.com/brutus2d:basic-oop-tutorial-i
*edit* - added code box — hartnell
