Here's what's wrong with your code. You create a single zombie and an array of zombies. This in itself is nothing bad, but you seem to mix the two. First, you load the image into the zombie.image (line 12) but in your rise_from_the_dead method you try and clone an image in the zombie_image variable (line 22). This variable doesn't exist. Furthermore you assign the cloned image (which failed) to the zombie.image property instead of the image property of the current zombie (also line 22). Look at the difference between my version and yours, and you will probably see what you did wrong.

Your next problem was actually that you don't draw the zombies. You have to draw the zombies in every frame if you want to see them, so i moved the for-loop that draws them into the main loop between Graphics.Clear and Graphics.Display.

To make sure you see all zombies, and so they are not just drawn on top of each other, i randomized the start coordinates in the rise_from_the_dead method.

Hope this helps. Let me know if you are having any more trouble or if there is something you didn't understand :)

graphics.Initialize key.Initialize Dim zombie_image Dim zombies(100) ' The original zombie image (that all the images will clone from) 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 = rnd() * 800 y = rnd() * 600 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.SetXY image, x, 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 Do graphics.Clear For i = 1 To 100 zombies(i).draw() Next graphics.Display Loop Until key.Pressed(vk_escape) Or key.Pressed(vk_windowx) graphics.Terminate key.Terminate

Here's a working example. I'm sorry i don't have time to explain your faults right now. I'll get back to you tomorrow.

Perhaps the tutorial could be improved by placing a link to the complete project and graphic files which people could then download.

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.Terminate

if 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