Computer Science Canada

How do you get multiple enemies?
Author:  mobin12 [ Thu Feb 09, 2012 7:19 pm ]
Post subject:  How do you get multiple enemies?
What is it you are trying to achieve?
I want to have multiple enemies when the score reaches 250 (So it's kind of like a difficulty)


Turing:


%Set the screen size
setscreen ("graphics:900;550,nobuttonbar,offscreenonly")

var chars : array char of boolean
var enemy, player : array 1 .. 3 of int
enemy (1) := 15
enemy (2) := 15
enemy (3) := 1
player (1) := 450
player (2) := 275
player (3) := 1
var mx, my, b : int
var shockwave : array 1 .. 4 of int
shockwave (3) := 1
shockwave (4) := 0
var space : int := 0
var count : int := 3
var health : int := 215
var Intro : int := Pic.FileNew ("Game-Intro.jpg")
var Instructions : int := Pic.FileNew ("Game-Instructions.jpg")
var Background : int := Pic.FileNew ("Game-Background.jpg")
var Pause : int := Pic.FileNew ("Game-Pause.jpg")
var End : int := Pic.FileNew ("Game-End.jpg")
var font : int := Font.New ("DigifaceWide:46")
var font1 : int := Font.New ("Ethnocentric:13")
var score : int := 0
var s : string := ""
var rectangle : int

%THE INTRO
loop
    Pic.Draw (Intro, 0, 0, picMerge)
    mousewhere (mx, my, b)
    exit when mx > 288 and mx < 634 and my > 185 and my < 234 and b = 1
    View.Update
end loop

%THE INSTRUCTIONS
loop
    Pic.Draw (Instructions, 0, 0, picMerge)
    mousewhere (mx, my, b)
    exit when mx > 242 and mx < 694 and my > 104 and my < 170 and b = 1
    View.Update
    cls
end loop

%THE GAME
loop
    loop
        %Draw the Background for the game
        Pic.Draw (Background, 0, 0, picMerge)
       
        s:=intstr(score)
        Font.Draw ("score: ", 0, 507, font1, black)
        Font.Draw (s, 94, 507, font1, black)
       
        %Draw the player
        if player (3) = 1 then
            drawfilloval (player (1), player (2), 10, 10, 54)
            drawfilloval (player (1), player (2), 8, 8, 55)
        end if
       
        %Draw the enemy
        if enemy (3) = 1 then
            drawfilloval (enemy (1), enemy (2), 7, 7, 41)
        end if

        %Randomly place the enemy in the 'ENEMY BAY'
        randint (rectangle,1,4)
        if enemy (3) = 0 and rectangle = 1 then
            randint (enemy (1),7,893)
            randint (enemy (2),7,30)
            drawfilloval (enemy (1), enemy (2), 7, 7, 41)
            enemy (3) := 1
        elsif enemy (3) = 0 and rectangle = 2 then
            randint (enemy (1),7,29)
            randint (enemy (2),38,513)
            drawfilloval (enemy (1), enemy (2), 7, 7, 41)
            enemy (3) := 1
        elsif enemy (3) = 0 and rectangle = 3 then
            randint (enemy (1),37,893)
            randint (enemy (2),491,513)
            drawfilloval (enemy (1), enemy (2), 7, 7, 41)
            enemy (3) := 1
        elsif enemy (3) = 0 and rectangle = 4 then
            randint (enemy (1),870,893)
            randint (enemy (2),38,483)
            drawfilloval (enemy (1), enemy (2), 7, 7, 41)
            enemy (3) := 1
        end if

        Input.KeyDown (chars)
        %Player controls
        if chars ('a') and player (1) > 48 then
            player (1) := player (1) - 2
        end if
        if chars ('d') and player (1) < 851 then
            player (1) := player (1) + 2
        end if
        if chars ('w') and player (2) < 472 then
            player (2) := player (2) + 2
        end if
        if chars ('s') and player (2) > 49 then
            player (2) := player (2) - 2
        end if

        % Attempt on enemy follow
        if player (1) > enemy (1) then
            enemy (1) := enemy (1) + 1
        end if
        if player (1) < enemy (1) then
            enemy (1) := enemy (1) - 1
        end if
        if player (2) > enemy (2) then
            enemy (2) := enemy (2) + 1
        end if
        if player (2) < enemy (2) then
            enemy (2) := enemy (2) - 1
        end if

        %Shockwave
        if chars (' ') and count > 0 and space = 0 then
            shockwave (1) := player (1)
            shockwave (2) := player (2)
            shockwave (3) := 1
            shockwave (4) := 1
            count := count - 1
            space := 1
        end if
        if not chars (' ') then
            space := 0
        end if

        if chars ('e') then
            Pic.Draw (Pause, 0, 0, picMerge)
            Input.Pause
        end if
       
        %Display amount of shockwaves that are left
        if count = 3 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
            drawoval (222, 538, 7, 7, 39)
            drawoval (222, 538, 8, 8, 39)
            drawoval (245, 538, 7, 7, 39)
            drawoval (245, 538, 8, 8, 39)
        end if
        if count = 2 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
            drawoval (222, 538, 7, 7, 39)
            drawoval (222, 538, 8, 8, 39)
        end if
        if count = 1 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
        end if
        if count = 0 then
        end if

        %Firing the bullets
        mousewhere (mx, my, b)
        if b = 1 then
            drawline (player (1), player (2), mx, my, 40)
        end if

        %Enemy collision with shockwave
        if round (sqrt (((player (1) - enemy (1)) ** 2) + (player (2) - enemy (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy (3) = 1 and round (sqrt (((enemy (1) - player (1)) ** 2) + (enemy (2) - player (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy (3) = 1 and score <= 99999 then
            enemy (3) := 0
            score := score + 5
        end if
       
        %Enemy collision with bullet
        if mx <= (enemy (1) + 7) and mx >= (enemy (1) - 7) and b = 1 and my <= (enemy (2) + 7) and my >= (enemy (2) - 7) and b = 1 and score <= 99999 then
            enemy (3) := 0
            score := score + 10
        end if
       
        %Enemy collision with player and player health
        drawfillbox (395, 528, 394 + health, 542, 46)
        if enemy (3) = 1 and enemy (1) - 7 <= (player (1) + 12) and enemy (1) + 7 >= (player (1) - 12) and enemy (2) - 7 <= (player (2) + 12) and enemy (2) + 7 >= (player (2) - 12) and health >= 1 then
            health := health - 1
            score := score - 2
        end if
        if health = 0 then
            player (3) := 0
        end if

        %Draw the shockwaves
        if shockwave (4) = 1 then
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 41)
            shockwave (3) := shockwave (3) + 3
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 40)
            shockwave (3) := shockwave (3) + 3
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 39)
            shockwave (3) := shockwave (3) + 3
            if shockwave (3) >= 1000 + 5 then
                shockwave (4) := 0
            end if
        end if
       
        %Anti-flicker command
        View.Update
       
        %Slow program down
        Time.Delay (8)
       
        %Clear screen for the next loop
        cls
        exit when player (3) = 0
    end loop
   
    %THE END
    loop
        s:=intstr(score)
        Pic.Draw (End, 0, 0, picMerge)
        Font.Draw (s, 481, 355, font, white)
        View.Update
        mousewhere (mx, my, b)
       
        %Restart the game if 'TRY AGAIN' is clicked
        if mx > 216 and mx < 389 and my > 183 and my < 271 and b = 1 then
            %Set the variables
            enemy (1) := 15
            enemy (2) := 15
            enemy (3) := 1
            player (1) := 450
            player (2) := 275
            player (3) := 1
            count := 3
            health := 215
            score := 0
            exit
        end if
       
        %Close the game if 'EXIT' is clicked
        if mx > 522 and mx < 692 and my > 200 and my < 257 and b = 1 then
            Window.Close (defWinID)
        end if
    end loop
end loop



Please specify what version of Turing you are using
Turing 1.4.1

The code is also in the 'zip' file
Author:  Raknarg [ Thu Feb 09, 2012 7:28 pm ]
Post subject:  RE:How do you get multiple enemies?
You would use flexible arrays I believe. Or just a regular array, but you keep track of the amount of enemies you have.

One thing I would change for sure is how you have youyr variables set up. The player, for instance, you have as player (1) = x and player (2) = y. Thats bad format; if someone was trying to figure out your code, it would be diffivult for someone to understand, especially if it becomes longer. If the reason you have this is to have less random variables, I would suggest looking into records:

Turing:

type shipSpecs :
     record
          x, y : int
     end record

var player : shipSpecs

player.x := 50
player.y := 100
Author:  Aange10 [ Fri Feb 10, 2012 11:39 am ]
Post subject:  RE:How do you get multiple enemies?
Also, what is it you are having difficulty with?
Author:  mobin12 [ Fri Feb 10, 2012 4:16 pm ]
Post subject:  RE:How do you get multiple enemies?
i dont know how to make a lot of enemies spawn at a certain point.
I have never tried something like this before, it's very new for me.
Author:  Raknarg [ Fri Feb 10, 2012 6:01 pm ]
Post subject:  RE:How do you get multiple enemies?
You can use an arrays to keep track of individual enemies.

For instance:

var enemyX, enemyY : array 1 .. 5 of int
var enemyLive : array 1 .. 5 of boolean

This is assuming there are 5 enemies. Enemy 1 would get the first element of all those arrays, enemy 2 would get element 2, etc.

You use the x and y to keep track of enemies. When you want to spawn an enemy, you set the x and y and set the Live variable to true. When they die, set that variable to false. Only draw them when they're live.

Thats the basic idea.
Author:  mobin12 [ Fri Feb 10, 2012 6:12 pm ]
Post subject:  RE:How do you get multiple enemies?
thanks very much i will try that
Author:  mobin12 [ Sat Feb 11, 2012 2:51 pm ]
Post subject:  Re: How do you get multiple enemies?
Alright i have tried that, but i ended up with a huge error: For the code of collision of the enemy
with the shockwave, player, and bullet. Does it have to be repeated for every single enemy.
Because if that's true then would i just copy and paste and change the numbers?
Author:  Raknarg [ Sat Feb 11, 2012 4:20 pm ]
Post subject:  RE:How do you get multiple enemies?
What I would do is include a for loop for every object that needs to check for certain collisions.

For instance, when you calculate bullet conditions such as movement, you can calculate collisions as well. Lets say you had five bullets total and ten enemies:

Turing:

for i : 1 .. 5
     calculate_bullet_stuff ()
     for j : 1 .. 10
          if bullet (i) and enemy (j) collide then
               kill enemy (j)
               kill bullet (i)
          end if
     end for
end for

same thing goes for the shockwave. You would calulate everything for the shockwave, then you would check for collisions in the same loop.

If I got your question totally wrong, you should reword it.
Author:  mobin12 [ Mon Feb 13, 2012 5:27 pm ]
Post subject:  Re: How do you get multiple enemies?
I found another way of doing it but i'm not sure if it is something one of you would do so...
Oh and it's actually pretty fun to play in my opinion.
Turing:


%Set the screen size
setscreen ("graphics:900;550,nobuttonbar,offscreenonly")

var chars : array char of boolean
var player : array 1 .. 3 of int
player (1) := 450
player (2) := 275
player (3) := 1
var enemy1, enemy2, enemy3 : array 1 .. 3 of int
enemy1 (1) := 15
enemy1 (2) := 15
enemy1 (3) := 1
enemy2 (1) := 15
enemy2 (2) := 15
enemy2 (3) := 1
enemy3 (1) := 15
enemy3 (2) := 15
enemy3 (3) := 1
var mx, my, b : int
var shockwave : array 1 .. 4 of int
shockwave (3) := 1
shockwave (4) := 0
var space : int := 0
var count : int := 3
var health : int := 215
var Intro : int := Pic.FileNew ("Game-Intro.jpg")
var Instructions : int := Pic.FileNew ("Game-Instructions.jpg")
var Background : int := Pic.FileNew ("Game-Background.jpg")
var Pause : int := Pic.FileNew ("Game-Pause.jpg")
var End : int := Pic.FileNew ("Game-End.jpg")
var font : int := Font.New ("DigifaceWide:46")
var font1 : int := Font.New ("Ethnocentric:13")
var score : int := 0
var s : string := ""
var rectangle : int

%THE INTRO
loop
    Pic.Draw (Intro, 0, 0, picMerge)
    mousewhere (mx, my, b)
    exit when mx > 288 and mx < 634 and my > 185 and my < 234 and b = 1
    View.Update
end loop

%THE INSTRUCTIONS
loop
    Pic.Draw (Instructions, 0, 0, picMerge)
    mousewhere (mx, my, b)
    exit when mx > 242 and mx < 694 and my > 104 and my < 170 and b = 1
    View.Update
    cls
end loop

%THE GAME
loop
    loop
        %Draw the Background for the game
        Pic.Draw (Background, 0, 0, picMerge)
       
        s:=intstr(score)
        Font.Draw ("score: ", 0, 507, font1, black)
        Font.Draw (s, 94, 507, font1, black)
       
        %Draw the player
        if player (3) = 1 then
            drawfilloval (player (1), player (2), 10, 10, 54)
            drawfilloval (player (1), player (2), 8, 8, 55)
        end if
       
        %Draw the enemy
        if enemy1 (3) = 1 then
            drawfilloval (enemy1 (1), enemy1 (2), 7, 7, 41)
        end if
        if enemy2 (3) = 1 then
            drawfilloval (enemy2 (1), enemy2 (2), 7, 7, 41)
        end if
        if enemy3 (3) = 1 then
            drawfilloval (enemy3 (1), enemy3 (2), 7, 7, 41)
        end if

        %Randomly spawn the enemy in the 'ENEMY BAY'
        %Enemy 1
        randint (rectangle,1,4)
        if enemy1 (3) = 0 and rectangle = 1 then
            randint (enemy1 (1),7,893)
            randint (enemy1 (2),7,30)
            drawfilloval (enemy1 (1), enemy1 (2), 7, 7, 41)
            enemy1 (3) := 1
        elsif enemy1 (3) = 0 and rectangle = 2 then
            randint (enemy1 (1),7,29)
            randint (enemy1 (2),38,513)
            drawfilloval (enemy1 (1), enemy1 (2), 7, 7, 41)
            enemy1 (3) := 1
        elsif enemy1 (3) = 0 and rectangle = 3 then
            randint (enemy1 (1),37,893)
            randint (enemy1 (2),491,513)
            drawfilloval (enemy1 (1), enemy1 (2), 7, 7, 41)
            enemy1 (3) := 1
        elsif enemy1 (3) = 0 and rectangle = 4 then
            randint (enemy1 (1),870,893)
            randint (enemy1 (2),38,483)
            drawfilloval (enemy1 (1), enemy1 (2), 7, 7, 41)
            enemy1 (3) := 1
        end if
        %Enemy 2
        if enemy2 (3) = 0 and rectangle = 1 then
            randint (enemy2 (1),7,893)
            randint (enemy2 (2),7,30)
            drawfilloval (enemy2 (1), enemy2 (2), 7, 7, 41)
            enemy2 (3) := 1
        elsif enemy2 (3) = 0 and rectangle = 2 then
            randint (enemy2 (1),7,29)
            randint (enemy2 (2),38,513)
            drawfilloval (enemy2 (1), enemy2 (2), 7, 7, 41)
            enemy2 (3) := 1
        elsif enemy2 (3) = 0 and rectangle = 3 then
            randint (enemy2 (1),37,893)
            randint (enemy2 (2),491,513)
            drawfilloval (enemy2 (1), enemy2 (2), 7, 7, 41)
            enemy2 (3) := 1
        elsif enemy2 (3) = 0 and rectangle = 4 then
            randint (enemy2 (1),870,893)
            randint (enemy2 (2),38,483)
            drawfilloval (enemy2 (1), enemy2 (2), 7, 7, 41)
            enemy2 (3) := 1
        end if
        %Enemy 3
        if enemy3 (3) = 0 and rectangle = 1 then
            randint (enemy3 (1),7,893)
            randint (enemy3 (2),7,30)
            drawfilloval (enemy3 (1), enemy3 (2), 7, 7, 41)
            enemy3 (3) := 1
        elsif enemy3 (3) = 0 and rectangle = 2 then
            randint (enemy3 (1),7,29)
            randint (enemy3 (2),38,513)
            drawfilloval (enemy3 (1), enemy3 (2), 7, 7, 41)
            enemy3 (3) := 1
        elsif enemy3 (3) = 0 and rectangle = 3 then
            randint (enemy3 (1),37,893)
            randint (enemy3 (2),491,513)
            drawfilloval (enemy3 (1), enemy3 (2), 7, 7, 41)
            enemy3 (3) := 1
        elsif enemy3 (3) = 0 and rectangle = 4 then
            randint (enemy3 (1),870,893)
            randint (enemy3 (2),38,483)
            drawfilloval (enemy3 (1), enemy3 (2), 7, 7, 41)
            enemy3 (3) := 1
        end if

        Input.KeyDown (chars)
        %Player controls
        if chars ('a') and player (1) > 48 then
            player (1) := player (1) - 2
        end if
        if chars ('d') and player (1) < 851 then
            player (1) := player (1) + 2
        end if
        if chars ('w') and player (2) < 472 then
            player (2) := player (2) + 2
        end if
        if chars ('s') and player (2) > 49 then
            player (2) := player (2) - 2
        end if

        %Make the enemy follow the player's position
        %Enemy 1
        if player (1) > enemy1 (1) then
            enemy1 (1) := enemy1 (1) + 1
        end if
        if player (1) < enemy1 (1) then
            enemy1 (1) := enemy1 (1) - 1
        end if
        if player (2) > enemy1 (2) then
            enemy1 (2) := enemy1 (2) + 1
        end if
        if player (2) < enemy1 (2) then
            enemy1 (2) := enemy1 (2) - 1
        end if
        %Enemy 2
        if player (1) > enemy2 (1) then
            enemy2 (1) := enemy2 (1) + 1
        end if
        if player (1) < enemy2 (1) then
            enemy2 (1) := enemy2 (1) - 1
        end if
        if player (2) > enemy2 (2) then
            enemy2 (2) := enemy2 (2) + 1
        end if
        if player (2) < enemy2 (2) then
            enemy2 (2) := enemy2 (2) - 1
        end if
        %Enemy 3
        if player (1) > enemy3 (1) then
            enemy3 (1) := enemy3 (1) + 1
        end if
        if player (1) < enemy3 (1) then
            enemy3 (1) := enemy3 (1) - 1
        end if
        if player (2) > enemy3 (2) then
            enemy3 (2) := enemy3 (2) + 1
        end if
        if player (2) < enemy3 (2) then
            enemy3 (2) := enemy3 (2) - 1
        end if

        %Shockwave
        if chars (' ') and count > 0 and space = 0 then
            shockwave (1) := player (1)
            shockwave (2) := player (2)
            shockwave (3) := 1
            shockwave (4) := 1
            count := count - 1
            space := 1
        end if
        if not chars (' ') then
            space := 0
        end if

        if chars ('e') then
            Pic.Draw (Pause, 0, 0, picMerge)
            Input.Pause
        end if
       
        %Display amount of shockwaves that are left
        if count = 3 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
            drawoval (222, 538, 7, 7, 39)
            drawoval (222, 538, 8, 8, 39)
            drawoval (245, 538, 7, 7, 39)
            drawoval (245, 538, 8, 8, 39)
        end if
        if count = 2 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
            drawoval (222, 538, 7, 7, 39)
            drawoval (222, 538, 8, 8, 39)
        end if
        if count = 1 then
            drawoval (198, 538, 7, 7, 39)
            drawoval (198, 538, 8, 8, 39)
        end if
        if count = 0 then
        end if

        %Firing the bullets
        mousewhere (mx, my, b)
        if b = 1 then
            drawline (player (1), player (2), mx, my, 40)
        end if

        %Enemy collision with shockwave
        %Enemy 1
        if round (sqrt (((player (1) - enemy1 (1)) ** 2) + (player (2) - enemy1 (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy1 (3) = 1 and round (sqrt (((enemy1 (1) - player (1)) ** 2) + (enemy1 (2) - player (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy1 (3) = 1 and score <= 99999 then
            enemy1 (3) := 0
            score := score + 5
        end if
        %Enemy 2
        if round (sqrt (((player (1) - enemy2 (1)) ** 2) + (player (2) - enemy2 (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy2 (3) = 1 and round (sqrt (((enemy2 (1) - player (1)) ** 2) + (enemy2 (2) - player (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy2 (3) = 1 and score <= 99999 then
            enemy2 (3) := 0
            score := score + 5
        end if
        %Enemy 3
        if round (sqrt (((player (1) - enemy3 (1)) ** 2) + (player (2) - enemy3 (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy3 (3) = 1 and round (sqrt (((enemy3 (1) - player (1)) ** 2) + (enemy3 (2) - player (2)) ** 2)) <= shockwave (3) and shockwave (4) = 1 and enemy3 (3) = 1 and score <= 99999 then
            enemy3 (3) := 0
            score := score + 5
        end if
       
        %Enemy collision with bullet
        %Enemy 1
        if mx <= (enemy1 (1) + 7) and mx >= (enemy1 (1) - 7) and b = 1 and my <= (enemy1 (2) + 7) and my >= (enemy1 (2) - 7) and b = 1 and score <= 99999 then
            enemy1 (3) := 0
            score := score + 10
        end if
        %Enemy 2
        if mx <= (enemy2 (1) + 7) and mx >= (enemy2 (1) - 7) and b = 1 and my <= (enemy2 (2) + 7) and my >= (enemy2 (2) - 7) and b = 1 and score <= 99999 then
            enemy2 (3) := 0
            score := score + 10
        end if
        %Enemy 3
        if mx <= (enemy3 (1) + 7) and mx >= (enemy3 (1) - 7) and b = 1 and my <= (enemy3 (2) + 7) and my >= (enemy3 (2) - 7) and b = 1 and score <= 99999 then
            enemy3 (3) := 0
            score := score + 10
        end if
       
        %Enemy collision with player and player health
        %Enemy 1
        drawfillbox (395, 528, 394 + health, 542, 46)
        if enemy1 (3) = 1 and enemy1 (1) - 7 <= (player (1) + 12) and enemy1 (1) + 7 >= (player (1) - 12) and enemy1 (2) - 7 <= (player (2) + 12) and enemy1 (2) + 7 >= (player (2) - 12) and health >= 1 then
            health := health - 1
            score := score - 2
        end if
        %Enemy 2
        if enemy2 (3) = 1 and enemy2 (1) - 7 <= (player (1) + 12) and enemy2 (1) + 7 >= (player (1) - 12) and enemy2 (2) - 7 <= (player (2) + 12) and enemy2 (2) + 7 >= (player (2) - 12) and health >= 1 then
            health := health - 1
            score := score - 2
        end if
        %Enemy 3
        if enemy3 (3) = 1 and enemy3 (1) - 7 <= (player (1) + 12) and enemy3 (1) + 7 >= (player (1) - 12) and enemy3 (2) - 7 <= (player (2) + 12) and enemy3 (2) + 7 >= (player (2) - 12) and health >= 1 then
            health := health - 1
            score := score - 2
        end if
        if health = 0 then
            player (3) := 0
        end if

        %Draw the shockwaves
        if shockwave (4) = 1 then
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 41)
            shockwave (3) := shockwave (3) + 3
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 40)
            shockwave (3) := shockwave (3) + 3
            drawoval (shockwave (1), shockwave (2), shockwave (3), shockwave (3), 39)
            shockwave (3) := shockwave (3) + 3
            if shockwave (3) >= 1000 + 5 then
                shockwave (4) := 0
            end if
        end if
       
        %Anti-flicker command
        View.Update
       
        %Slow program down
        Time.Delay (8)
       
        %Clear screen for the next loop
        cls
        exit when player (3) = 0
    end loop
   
    %THE END
    loop
        s:=intstr(score)
        Pic.Draw (End, 0, 0, picMerge)
        Font.Draw (s, 481, 355, font, white)
        View.Update
        mousewhere (mx, my, b)
       
        %Restart the game if 'TRY AGAIN' is clicked
        if mx > 216 and mx < 389 and my > 183 and my < 271 and b = 1 then
            %Set the variables
            %Enemy 1
            enemy1 (1) := 15
            enemy1 (2) := 15
            enemy1 (3) := 1
            %Enemy 2
            enemy2 (1) := 15
            enemy2 (2) := 15
            enemy2 (3) := 1
            %Enemy 3
            enemy3 (1) := 15
            enemy3 (2) := 15
            enemy3 (3) := 1
            %Player
            player (1) := 450
            player (2) := 275
            player (3) := 1
            %Shocwave count
            count := 3
            %Score
            score := 0
            %Health
            health := 215
            exit
        end if
       
        %Close the game if 'EXIT' is clicked
        if mx > 522 and mx < 692 and my > 200 and my < 257 and b = 1 then
            Window.Close (defWinID)
        end if
    end loop
end loop
Author:  mirhagk [ Mon Feb 13, 2012 6:23 pm ]
Post subject:  RE:How do you get multiple enemies?
See this:
Turing:

  %Make the enemy follow the player's position
        %Enemy 1
        if player (1) > enemy1 (1) then
            enemy1 (1) := enemy1 (1) + 1
        end if
        if player (1) < enemy1 (1) then
            enemy1 (1) := enemy1 (1) - 1
        end if
        if player (2) > enemy1 (2) then
            enemy1 (2) := enemy1 (2) + 1
        end if
        if player (2) < enemy1 (2) then
            enemy1 (2) := enemy1 (2) - 1
        end if
        %Enemy 2
        if player (1) > enemy2 (1) then
            enemy2 (1) := enemy2 (1) + 1
        end if
        if player (1) < enemy2 (1) then
            enemy2 (1) := enemy2 (1) - 1
        end if
        if player (2) > enemy2 (2) then
            enemy2 (2) := enemy2 (2) + 1
        end if
        if player (2) < enemy2 (2) then
            enemy2 (2) := enemy2 (2) - 1
        end if
        %Enemy 3
        if player (1) > enemy3 (1) then
            enemy3 (1) := enemy3 (1) + 1
        end if
        if player (1) < enemy3 (1) then
            enemy3 (1) := enemy3 (1) - 1
        end if
        if player (2) > enemy3 (2) then
            enemy3 (2) := enemy3 (2) + 1
        end if
        if player (2) < enemy3 (2) then
            enemy3 (2) := enemy3 (2) - 1
        end if

Don't do that. For loops and arrays would turn this into like 4 lines.
Author:  Raknarg [ Mon Feb 13, 2012 6:40 pm ]
Post subject:  RE:How do you get multiple enemies?
See, the problem is that you're using separate arrays for each enemy. At least if you are going to do that, you should save your time by putting them all in one array:

var enemy1 : array 1 .. 3 of int
var enemy2 : array 1 .. 3 of int
var enemy3 : array 1 .. 3 of int

can be shortened into

var enemy : arrat 1 .. 3, 1.. 3 of int
Author:  mobin12 [ Wed Feb 15, 2012 5:47 pm ]
Post subject:  RE:How do you get multiple enemies?
is anyone familiar with 'realstr'?
Author:  Raknarg [ Thu Feb 16, 2012 11:33 am ]
Post subject:  RE:How do you get multiple enemies?
lol I tried figuring it out a while ago, but gave up.
Author:  mobin12 [ Thu Feb 16, 2012 3:52 pm ]
Post subject:  RE:How do you get multiple enemies?
what i dont understand is what you have to put after the comma.
in the help section it says something about width?...
Author:  Dreadnought [ Thu Feb 16, 2012 4:16 pm ]
Post subject:  Re: How do you get multiple enemies?
realstr basically converts a real number to a string with at least the length (width) specified (the length is increased if the number is larger). You should perhaps know that real numbers (sometimes called floating point numbers) hold 16 digits along with an exponent (in scientific notation form [digits]e[exponent] where e is 10 to the power of exponent). The largest value for the exponent seems to be 309 (from my tests). Note that around 1e308 you might get infinity (yes Turing can sometimes return infinity).

It should be noted that realstr will round to 6 digits after the decimal point. If you want more you'll have to use frealstr or erealstr.

as an example:
Turing:
put realstr(3.141593, 2) %-> "3.141593" (width was increased to 8)
put realstr(3.141593, 8) %-> "3.141593" (width of 8)
put realstr(3.14159265358, 12) %-> "    3.141593" (padded with 4 spaces to get a width of 12)

% With exponents we get a slightly longer string
put realstr (6.626069e-34, 2) % -> "6.626069e-34" (width was increased to 11)
put realstr (6.626069e-34, 11) % -> "6.626069e-34" (width of 11)
put realstr (6.62606957e-34, 12) % -> " 6.626069e-34"  (padded with 1 space to get a width of 12)

Basically, the width controls the minimum length of the string that is created (it will be increased if the number contains more digits).

If you really want more control over the conversion I suggest looking into erealstr and frealstr.

Hope this helps.
Author:  mobin12 [ Fri Feb 17, 2012 9:29 am ]
Post subject:  RE:How do you get multiple enemies?
what would the length be if i only wanted the digits before the decimal
example:
realstr (38.567549, '?')
Author:  Zren [ Fri Feb 17, 2012 12:41 pm ]
Post subject:  RE:How do you get multiple enemies?
If your only interest is the whole digits. Floor the number. It will round down to the nearest integer.

intstr(floor(38.234))
Author:  Dreadnought [ Fri Feb 17, 2012 1:00 pm ]
Post subject:  Re: How do you get multiple enemies?
In this case, realstr cannot help you. You must turn to other options erealstr and frealstr. In the special case you mentioned where you want the whole part you can use 'round(num)' to round or 'num div 1' to avoid rounding (I use div in case of negative numbers).

frealstr can be used in this case since it deals with the fractional part. To avoid leading spaces in the string we choose a width of zero and the function will increase it to the correct value. For the fraction width we choose 0, this width will not be increased, so we effectively remove the decimal part of the number. Note that frealstr will still produce a decimal point in the string, but will round to the nearest integer.

Example :
Turing:
var pi1000 :string := frealstr(3141.59265359,0,0)
put pi1000 % prints "3142."
put pi1000(1..length(pi1000)-1) % removing the last character (the decimal point) we obtain "3142"

% If now you want to keep two digits after the decimal point, we ask for a fractional width of 2.
put frealstr (3141.59653589,0,2) % will print "3141.59" rounding to two digits after the decimal point.

% Note that in the special case that you want to round to an integer
put intstr(round(3141.59653589)) % I don't need intstr for put, but this way I am still getting a string
% Or if you don't want any rounding at all
put intstr(3141.59653589 div 1) % Since div rounds toward zero


You can also use erealstr, but then it will display in scientific notation and make things more complicated.
Turing:
put erealstr (3141.59265359,0,0,0) % prints 3e+3 which is not what you want.
put erealstr (3141.59265359,0,3,0) % "3.142e+3" is still in scientific notation, which you don't want (I assume)


So if all you want is the integer part, I sugget using instr (round( )) or intstr ( () div 1), and if you want some form of fraction, you can use frealstr. However, you can also multiply but some power of 10, round to an integer, divide by the same power of 10 and then take the realstr of that.

Example:
Turing:
% If I want two digits after the decimal point
put realstr (round(3141.592653589 * 100) / 100,0)
% Is equivalent to
put frealstr (3141.592653589,0,2)


Hope this helps.
Author:  mobin12 [ Fri Feb 17, 2012 4:34 pm ]
Post subject:  RE:How do you get multiple enemies?
ok so i want to use a variable that gets percentage out of 100 and it is a real.
But i want to use realstr to change it to a string so i can use it in a Font.Draw.
Something i have tried is: (This is part of my game to show how much health you have.)
Turing:

var h : string := ""
var healthpercentage : real
healthpercentage := (health/215) * 100
h:=realstr(healthpercentage,0)
Font.Draw (h, 481, 530, font2, white)
Font.Draw ("%", 518, 527, font1, white)
Author:  Raknarg [ Fri Feb 17, 2012 4:50 pm ]
Post subject:  RE:How do you get multiple enemies?
ok, so do you only want to show the integer portion or two decimal points after or something?
Author:  mobin12 [ Fri Feb 17, 2012 5:53 pm ]
Post subject:  RE:How do you get multiple enemies?
only the integer and no decimal points and also no
decimal (if possible)
Author:  Dreadnought [ Sat Feb 18, 2012 3:34 am ]
Post subject:  Re: How do you get multiple enemies?
So basically, what you want (I think) is to display only the whole value of a percentage. The easiest way in my opinion is to simply multiply the decimal value by 100, round then convert the integer to a string.
Turing:

Font.Draw(intstr(round(0.7852*100)) + "%", 200, 200, defFontId, black)
% This will draw "79%"


Alternately, you can use frealstr(realNumber, 0, 2) and remove the first two digits using (3..*).
Author:  mobin12 [ Sat Feb 18, 2012 7:28 pm ]
Post subject:  Re: How do you get multiple enemies?
yes thank you very much
This fixed my problem

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy