Computer Science Canada

WhatDotColour help
Author:  bgmrk [ Fri Jan 27, 2006 10:18 am ]
Post subject:  WhatDotColour help
ok i'm trying to make a tag game... only i can't seem to try to get the whatdotcolour to work to know when the two balls collide. I tried to come up with my own methode but it is rather glitchy as you will tell. can some please point me in the right direction. Whether my math is wrong or another method to do this thanx

code:
var gamewindow : int := Window.Open ("graphics:800;500,position:truemiddle;center,nobuttonbar")
View.Set ("offscreenonly")
var col1 : int := 2
var col2 := 4
var chars : array char of boolean
var x1, y1 : int
var x2, y2 : int
x1 := 50
y1 := 255
x2 := 750
y2 := 255
var it := true
var randit : int

%%game
%board
locate (1, 45)
put "GAME!"
locate (3, 10)
put "Player 1" : 55, "Player 2"

%%%%game
randint (randit, 1, 2)
loop
    %Draw characters
    Draw.FillOval (x1, y1, 10, 10, col1)
    Draw.FillOval (x2, y2, 10, 10, col2)
    %%%board redraw
    Draw.Line (1, 450, 799, 450, 3)
    Draw.Line (1, 1, 1, 450, 3)
    Draw.Line (1, 1, 799, 1, 3)
    Draw.Line (799, 1, 799, 450, 3)
    Draw.FillBox (350, 200, 400, 250, 3)
    Draw.FillBox (100, 300, 150, 350, 3)
    Draw.FillBox (700, 50, 750, 100, 3)
    Draw.FillBox (500, 240, 550, 290, 3)
    Draw.FillBox (150, 100, 200, 150, 3)
    Draw.FillBox (700, 375, 750, 425, 3)
    %%whos it
    % if randit = 1 then
    %        it := true
    %  elsif randit = 2 then
    %       it := false
    % end if
    if it = true then
        Draw.FillBox (558, 488, 533, 468, white)
        Font.Draw ("(IT)", 85, 470, defFontID, green)
    elsif it = false then
        Draw.FillBox (85, 465, 115, 485, white)
        Font.Draw ("(IT)", 530, 470, defFontID, green)
    end if

    %%Charcter Movement
    Input.KeyDown (chars)
    %player1
    if chars (KEY_UP_ARROW) then
        y1 := y1 + 1
    end if
    if chars (KEY_DOWN_ARROW) then
        y1 := y1 - 1
    end if
    if chars (KEY_LEFT_ARROW) then
        x1 := x1 - 1
    end if
    if chars (KEY_RIGHT_ARROW) then
        x1 := x1 + 1
    end if
    if whatdotcolour (x1 - 2, y1 - 2) = 3 then
        x1 := x1
        y1 := y1
    end if
    %%%Player 2
    if chars ('w') then
        y2 := y2 + 1
    end if
    if chars ('s') then
        y2 := y2 - 1
    end if
    if chars ('a') then
        x2 := x2 - 1
    end if
    if chars ('d') then
        x2 := x2 + 1
    end if
    View.Update
    Draw.FillBox (0, 450, 800, 0, white)
    %%tag
    %player one
    if it = true then
        if x1 >= x2 - 10 and y1 <= y2 - 10 then
            it := false

        elsif x1 >= x2 + 10 and y1 >= y2 + 10 then
            it := false

        elsif x1 >= x2 - 10 and y1 >= y2 + 10 then
            it := false
        elsif x1 >= x2 + 10 and y1 <= y2 - 10 then
            it := false
        end if
    end if
    %%player two
    %player one
    if it = false then
        if x2 >= x1 - 10 and y2 >= y1 - 10 then
            it := true

        elsif x2 >= x1 + 10 and y2 <= y1 + 10 then
            it := true

        elsif x2 >= x1- 10 and y2 <= y1 + 10 then
            it := true
        elsif x2 >= x1 + 10 and y2 >= y1 - 10 then
            it := true
        end if
    end if
    %%pause
    if chars ('p') then
        loop
            Input.KeyDown (chars)
            Font.Draw ("PAUSED", 400, 250, defFontID, red)
            exit when chars ('p')
        end loop
    end if
end loop
Author:  bgmrk [ Fri Jan 27, 2006 11:55 am ]
Post subject: 
oo and another problem i forgot to mention is that i can't seem to get the whatdotcolour to work probably with the borders and the box's on the game map... I've tried but i can't seem to get the object to stop moving. here's what i tried to do...
code:
View.Set ("offcreenonly")
var x,y : int :=100
loop
Draw.FillOval (x,y,10,10,black)
Draw.Box (300,50,400,100,green)
x := x + 1
if whatdotcolour (x,y) = green then
x := x - 1
y := y - 1
end if
cls
View.Update
end loop

i want it so the circle just stops moving. and dosen't go around it[/code]
Author:  Saad85 [ Fri Jan 27, 2006 2:15 pm ]
Post subject: 
code:
    if whatdotcolour (x1 - 2, y1 - 2) = 3 then
        x1 := x1
        y1 := y1


thats the only use of whatdotcolor i see, and it doesn't do anything, it just makes the variable equal to themselves.


in ur second post, why did you make y=y-1? that makes no sense if you dont want it to go around
Author:  iker [ Fri Jan 27, 2006 5:22 pm ]
Post subject: 
why not use something like
code:

if x1 - 10 < x and x1 + 10 > x then
    collide
..

and do this for both..
Author:  bgmrk [ Fri Jan 27, 2006 6:05 pm ]
Post subject: 
Saad85 wrote:
code:
    if whatdotcolour (x1 - 2, y1 - 2) = 3 then
        x1 := x1
        y1 := y1


thats the only use of whatdotcolor i see, and it doesn't do anything, it just makes the variable equal to themselves.


in ur second post, why did you make y=y-1? that makes no sense if you dont want it to go around


ok..that works but wat if i want the circle to be user controled... that x1 := x1 does nothing. it acts like it just ignores it. how would i make it so when it hits it it stops. even though it is user controled
Author:  RedRogueXIII [ Fri Jan 27, 2006 7:14 pm ]
Post subject: 
Use math.distance or if your turing doesnt have it make it. It'll help
code:

function distance(x1,y1,x2,y2:int):int
result sqrt((x2-x1)**2+(y2-y1)**2)
end distance

if distance between the two ovals is equal to the radius then you have a hit detection. Its also useful for when you have an irregular line boundary and know every point.
Author:  bgmrk [ Fri Jan 27, 2006 7:36 pm ]
Post subject: 
ok i fixed the whole circle colliding thing...however there is a new prob...when i want the circles to touch i want it to change the value of the varible "it" however when ever they collide it just goes back to being true intead of staying on false...how would i fix this here is the new code.
code:
var gamewindow : int := Window.Open ("graphics:800;500,position:truemiddle;center,nobuttonbar")
View.Set ("offscreenonly")
var col1 : int := 2
var col2 := 4
var chars : array char of boolean
var x1, y1 : int
var x2, y2 : int
x1 := 50
y1 := 255
x2 := 750
y2 := 255
var it: boolean
var randit : int
var distance : real
var radious1, radious2 : int := 10
%%game
%board
locate (1, 45)
put "GAME!"
locate (3, 10)
put "Player 1" : 55, "Player 2"

%%%%game
randint (randit, 1, 2)
loop
    %Draw characters
    Draw.FillOval (x1, y1, radious1, radious1, col1)
    Draw.FillOval (x2, y2, radious2, radious2, col2)
    %%%board redraw
    Draw.Line (1, 450, 799, 450, 3)
    Draw.Line (1, 1, 1, 450, 3)
    Draw.Line (1, 1, 799, 1, 3)
    Draw.Line (799, 1, 799, 450, 3)
    Draw.FillBox (350, 200, 400, 250, 3)
    Draw.FillBox (100, 300, 150, 350, 3)
    Draw.FillBox (700, 50, 750, 100, 3)
    Draw.FillBox (500, 240, 550, 290, 3)
    Draw.FillBox (150, 100, 200, 150, 3)
    Draw.FillBox (700, 375, 750, 425, 3)
    %%whos it
     if randit = 1 then
            it := true
      elsif randit = 2 then
           it := false
     end if
    if it = true then
        Draw.FillBox (558, 488, 533, 468, white)
        Font.Draw ("(IT)", 85, 470, defFontID, green)
    elsif it = false then
        Draw.FillBox (85, 465, 115, 485, white)
        Font.Draw ("(IT)", 530, 470, defFontID, green)
    end if

    %%Charcter Movement
    Input.KeyDown (chars)
    %player1
    if chars (KEY_UP_ARROW) then
        y1 := y1 + 1
    end if
    if chars (KEY_DOWN_ARROW) then
        y1 := y1 - 1
    end if
    if chars (KEY_LEFT_ARROW) then
        x1 := x1 - 1
    end if
    if chars (KEY_RIGHT_ARROW) then
        x1 := x1 + 1
    end if
    if whatdotcolour (x1 - 2, y1 - 2) = 3 then
        x1 := x1
        y1 := y1
    end if
    %%%Player 2
    if chars ('w') then
        y2 := y2 + 1
    end if
    if chars ('s') then
        y2 := y2 - 1
    end if
    if chars ('a') then
        x2 := x2 - 1
    end if
    if chars ('d') then
        x2 := x2 + 1
    end if
    View.Update
    Draw.FillBox (0, 450, 800, 0, white)
    %%tag
    distance := ((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)) ** 0.5
    %player 1
    if it = true then
        if distance < radious1 + radious2 then
            it := false
            x2 := 750
            y2 := 255
       delay (10)
             end if
%player 2
   
    elsif it = false then
        if distance < radious1 + radious2 then
            it := true
            x1 := 50
            y1 := 255
            delay (10)
        end if
    end if
    %%pause
    if chars ('p') then
        loop
            Input.KeyDown (chars)
            Font.Draw ("PAUSED", 400, 250, defFontID, red)
            exit when chars ('p')
        end loop
    end if
end loop

:


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

Terms of Use | Privacy Policy