CoolBasic Forums

Code: Select all

Type pallo
    Field x
    Field y
End Type

kartta = LoadMap("Media\cdm2.til","Media\tileset.bmp")

pallokuva = LoadImage("media/cow.bmp")

tilew = 32
tileh = 32

For x = 1 to MapWidth()
    For y = 1 to MapHeight()
       
        If GetMap2(2, x, y) = 0 Then
            p.pallo = New(pallo)
            p\x = x*tilew + tilew/2 - ImageWidth(pallokuva)/2 - (MapWidth()*tilew/2+tilew)
            p\y = y*tileh + tileh/2 - ImageHeight(pallokuva)/2 - (MapHeight()*tileh/2+tileh)
        EndIf
       
    Next y
Next x

Repeat

    MoveCamera 0, (UpKey() - DownKey()) * 3
    MoveCamera (RightKey() - LeftKey()) * 3

    DrawGame

    DrawToWorld OFF, ON, OFF
    For p.pallo = Each pallo
        DrawImage pallokuva, p\x, p\y
    Next p

    Text 10, 10, "FPS: " + FPS()
   
    DrawScreen

Forever 

Code: Select all

If GetMap2(3, x, y) = 2 Then

Code: Select all

 positionobject objekti, x*tilew + tilew/2 - ImageWidth(pallokuva)/2 - (MapWidth()*tilew/2+tilew), y*tileh + tileh/2 - ImageHeight(pallokuva)/2 - (MapHeight()*tileh/2+tileh)

Code: Select all

padit=200
pateja=ON
If pateja=ON Then +MouseDown(1) padit=padit-1
If padit=<0 and mousedown(1) Then pateja=OFF
EndIf

Code: Select all

padit = padit - MouseDown(1)

Code: Select all

If cursorp=4 And KeyHit(cbkeyreturn) Then
    cursory=200
    cursorp=1
    actionp=actionp-1
        If actionp<1 Then
            Cls
            Goto NextTurn
        EndIf
    Cls
    Goto start
EndIf

Code: Select all

for i = 1 to 10
     sol.soldier = new(soldier)
     sol\soldier_name = "sotamies "+i
     sol\soldier_defence = rand(4,6)
     sol\soldier_attack = rand(2,5)
next i

Code: Select all

function GetSoldierAttack(name$)
     for sol.soldier = each soldier
          if sol\soldier_name = name then return sol\soldier_attack
     next sol
endfunction

Code: Select all

Type SOLDIERS
    Field name As String
    Field att
    Field def
    Field x
    Field y
EndType

soldierimage = LoadImage("media\cow.bmp") 'sotilaan kuva
ghostcursor = MakeImage(1,1) 'haamukuva kursorille (tätä ei tarvitse piirtää missään vaiheessa)


// Luodaan muutama pelaaja. Eli kutsutaan NewSoldier-funktiota. Parametreiksi annetaan sotilaan nimi,att,def sekä sotilaan x ja y-koordinaatit
NewSoldier("Mikko",10,10,60,150)
NewSoldier("Matti",5,15,120,150)
NewSoldier("Pate",12,23,180,150)
NewSoldier("Lehmä",2,13,240,150)

// "Pelin" pääsilmukka
Repeat
    For soldier.SOLDIERS = Each SOLDIERS 'Käydään läpi kaikki sotilaat
        DrawImage soldierimage,soldier\x,soldier\y
        
        // Jos kursori on sotilaan päällä, tulostetaan sen tiedot
        If ImagesOverlap(soldierimage,soldier\x,soldier\y,ghostcursor,MouseX(),MouseY()) Then
            Text 10,10,"name:    "+soldier\name
            Text 10,30,"attack:  "+soldier\att
            Text 10,50,"defence: "+soldier\def
        EndIf
    Next soldier
    DrawScreen
Until EscapeKey()


// Funktio, joka luo uuden sotilaan (kun sitä kutsutaan)
Function NewSoldier(name$,att,def,x,y)
    soldier.SOLDIERS = New(SOLDIERS)
    soldier\name = name$
    soldier\att = att
    soldier\def = def
    soldier\x = x
    soldier\y = y
EndFunction

Code: Select all

Type soldier
Field name
Field defence
Field attack
End type


For i = 1 to 1
     sol.soldier = new(soldier)
     sol\name = "sotamies"+i 
     sol\defence = rand(4,6)
     sol\attack = rand(2,5)
Next i



Repeat



Text 10,10,FPS()




GetSoldierAttack(sotamies1$)


Function GetSoldierAttack(name$)
     for sol.soldier = each soldier
          If sol\name = name Then Return sol\attack
          Text 10,20, sol\attack
     Next sol



EndFunction

DrawScreen

Forever

Code: Select all

Function GetSoldierAttack(name$)
    For sol.soldier = each soldier
        If sol\name = name Then 
			Text 10,20, sol\attack
			Return sol\attack
		EndIf
    Next sol
EndFunction

Code: Select all

tulo = kertolasku(13,5)
Print tulo
WaitKey


// funktio joka palauttaa sen parametreiksi annetuiden lukujen tulon
Function kertolasku(luku1,luku2)
    vastaus = luku1*luku2
    Return vastaus
EndFunction

Code: Select all

    Type SOLDIERS
        Field ID
        Field name As String
        Field defence
        Field attack
    End type


    max_players = 10
    For i = 1 to max_players
         soldier.SOLDIERS = new(SOLDIERS)
         soldier\ID = i
         soldier\name = "sotamies"+i
         soldier\defence = rand(4,6)
         soldier\attack = rand(2,5)
    Next i

    
    soldierID = 0
    
    Locate 10,10
    AddText "Paina nuolia sivuille vaihtaaksesi pelaajaa."
    AddText "Paina nuolia ylös ja alas muuttaaksesi valitun"
    AddText "pelaajan attack-arvoa."
    
    
    Repeat       
        soldierID = soldierID+(KeyHit(cbkeyright)-KeyHit(cbkeyleft))
        soldierID = Max(1,Min(10,soldierID))
        
        PrintSoldierInfo(soldierID)
        
        EditSoldierAttack(soldierID, KeyHit(cbkeyup)-KeyHit(cbkeydown))
        DrawScreen
    Forever


    Function PrintSoldierInfo(ID)
         For soldier.SOLDIERS = Each SOLDIERS
            If soldier\ID = ID Then
                Text 10,100,"Name:    "+soldier\name
                Text 10,120,"Attack:  "+soldier\attack
                Text 10,140,"Defence: "+soldier\defence
                Exit
            EndIf
         Next soldier
    EndFunction
    
    
    Function EditSoldierAttack(ID,amount)
         For soldier.SOLDIERS = Each SOLDIERS
            If soldier\ID = ID Then
                soldier\attack = soldier\attack+amount
                Exit
            EndIf
         Next soldier
    EndFunction