Keskustelu: Ohjelmointikysymykset: CoolBasic: Coolbasic-peli ei vastaa

kartta=LoadMap("map.til","tileset.bmp")
leveys=ObjectSizeX(kartta)
korkeus=ObjectSizeY(kartta)
SCREEN leveys,korkeus
kartta=LoadMap("map.til","tileset.bmp")
pahiszombi=LoadObject("pahiszombi.bmp",130)
hyvisukko=LoadObject("hyvisukko.bmp",360)
alku=LoadObject("hyvissukko.bmp",0)
ShowObject alku,OFF
ShowObject pahiszombi,OFF
PositionObject kartta,0,0
DrawScreen
For x=1 To MapWidth()
For y=1 To MapWidth()
If GetMap2(3,x,y)=2 Then PositionObject alku,x*32-(ObjectSizeX(kartta)/2),-y*32+(ObjectSizeY(kartta)/2)
Next y
Next x

Repeat
PointObject pahiszombi,hyvisukko
    If Timer() > ajastin + aika Then
       ajastin = Timer()
       vihollinen=CloneObject(pahiszombi)
       CloneObjectPosition vihollinen,alku
    EndIf
If ObjectSight(vihollinen,hyvisukko) Then 'jos vihollinen näkee pelaajan niin...
    MoveObject vihollinen,2 '...liikuta vihollista
'    If ObjectsOverlap (vihollinen,pelaaja) Then
 '   EndIf
 If LeftKey() Then TurnObject hyvisukko,5
 If RightKey() Then TurnObject hyvisukko, -5
 If UpKey() Then MoveObject hyvisukko, 3
 If DownKey() Then MoveObject hyvisukko, -3
 DrawScreen
EndIf
Forever