if Millisecs()-1000 => timer then ; wenn eine Sekunde vorbei ist
  timer = Millisecs() ; stelle den timer neu ein
  ...
  ...
endif

Function neuergegner()
         If MilliSecs()-1000 => timer   
   timer = MilliSecs()
   reset_timer = reset_timer - 1
   EndIf     
   
        If reset_timer = 0
   DrawImage Gegner1,1,1
   EndIf
End Function

Function neuergegner()
   If MilliSecs()-5000 => timer   
     timer = MilliSecs()
     DrawImage Gegner1,1,1 
   EndIf       
End Function

Graphics 640,480,16,2
SetBuffer BackBuffer()

timer = MilliSecs()
farbe = 1

Repeat

If MilliSecs()-timer>=500
timer = MilliSecs()
If farbe = 1 Then
farbe = 2
Else
farbe = 1
EndIf
EndIf

If farbe = 1 Then Color 255,0,0
If farbe = 2 Then Color 0,0,255
Rect 100,100,100,100

Flip
Cls
Until KeyHit(1)
End

type enemy
  field x, y ;position
  field hp ;lebenspunkte
  field kind ;gegnertyp
end type

graphics(640, 480, 32, 0)
setbuffer(backbuffer())

while not keyhit(1) ;mainloop
  acquireinput()
  gamelogic()
  drawenemies()
  drawplayers()
  flip()
wend

end ;programende

;--functions--------

function acquireinput()
  ;hier tasten / mouse / joystick testen und darauf reagieren
end function

function gamelogic()
  for gegner.enemy = each enemy
    ;hier alle sachen ausrechnen (AI - artificial intelligence), bewegungen, etc...
    if (gegner\hp <= 0) then ;monster hat 0 oder weniger hp
      delete gegner ;dann muss er weg! (hier könntest du stattessen die death-anim starten)
    end if
  next

  ;beispielsweise (wegen topic):
  if (millisecs() >= spawntime) then
    gegner.enemy = new enemy
    gegner\x = 320 ;horizontal mitte vom bildschirm
    gegner\y = 240 ;vertical mitte vom bildschirm
    gegner\hp = 50 ;muss ja hp haben
    gegner\kind = rand(0, 2) ;drei verschiedene monsters? :)
    spawntime = millisecs() + 5000 ;nächste monster kommt in 5 sekunden
  end if
end function

function drawenemies()
  for gegner.enemy = each enemy
    drawenemy(gegner\x, gegner\y, gegner\kind)
  next
end function

function drawenemy(x, y, kind)
  ;teste welche kind (gegnertyp) das ist, zeichne richtiges bild
end function

function drawplayers()
  ;zeichne die players hier
end function

Graphics 800,600,0,1
SetBuffer BackBuffer()
a=MilliSecs()
bild=LoadImage("bild.bmp")


Repeat


If a+1000<MilliSecs()
 Flip
 DrawImage bild,Rand(800),Rand(600)
 Flip
 
 a=MilliSecs()
EndIf


Until KeyHit(1)