Computer Science Canada :: View topic - trouble with moving mutiple "AI"

var fish, fishy, level, size, fishdirection, sprint,score : int
var buttons : array char of boolean
var maxX, maxY : int := 200
level :=1
score:=0
fishdirection := 0
sprint := 500
setscreen ("offscreenonly")
%var fishPic := Pic.FileNew ("fish.jpg")
%var fishPic2 := Pic.FileNew ("fish2.jpg")
Pic.Draw (fishPic, maxX, maxY, picMerge)

proc fishSpawn
randint (fish, level, 50)
if (fish = 50) then
randint (fishy, 50, maxy)
randint (size, 10, 30)
Draw.FillOval (maxx, fishy, size, size, 2)
end if
end fishSpawn

proc scoreBoard
score:=score+10
delay (0)
locate (1,1)
if score >=10000 then
score:=0
level:=level+1
end if
put "LEVEL ",level, " ":23, "SWIM POWER: ",sprint," ":13, "NEXT LEVEL(10k): ",score
end scoreBoard

fishSpawn
loop
scoreBoard
Input.KeyDown (buttons)
drawline (550, 0, 550, maxy, 2)

%fishMove
Draw.FillOval (maxX, maxY, 20, 20, 5)

% if fishdirection = 0 then
% Pic.Draw (fishPic, maxX, maxY, picMerge)
% else
% Pic.Draw (fishPic2, maxX, maxY, picMerge)
% end if
View.Update
%FISH MOVEMENT RESTRICTIONS
if (maxX <= -20) then %if you go to far left
maxX := -20 %restrict you from moving further
elsif (maxX >= 440) then %if you try to pass the line
maxX := 440 %restrict you from moving further
end if

if (maxY <= -20) then %if you go to far down
maxY := -20 %restrict you from moving further
elsif (maxY >= 350) then %if you go to far up
maxY := 350 %restrict you from moving further
end if

%FISH MOVEMENT
%NORMAL MOVEMENT
if buttons (KEY_UP_ARROW) then %if the up arrow is pressed
maxY := maxY + 6 %move up
elsif buttons (KEY_DOWN_ARROW) then %if the down arrow is pressed
maxY := maxY - 6 %move down
elsif buttons (KEY_LEFT_ARROW) then %if the left arrow is pressed
maxX := maxX - 6 %move left
fishdirection := 0 %face fish left
elsif buttons (KEY_RIGHT_ARROW) then %if the right arrow is pressed
maxX := maxX + 6 %move right
fishdirection := 1 %face fish right
end if

%SWIM POWER USAGE
if buttons (KEY_SHIFT) and sprint not= 0 then %if they hold shift down
sprint:=sprint-1 %lower their Swim Power
delay (0)
end if

%SWIM POWER MOVEMENT
if buttons (KEY_UP_ARROW) and buttons (KEY_SHIFT) and sprint not= 0 then %if the up arrow +shift key is pressed
maxY := maxY + 9 %move up fast
elsif buttons (KEY_DOWN_ARROW) and buttons (KEY_SHIFT) and sprint not= 0 then %if the down arrow +shift key is pressed
maxY := maxY - 9 %move down fast
elsif buttons (KEY_LEFT_ARROW) and buttons (KEY_SHIFT) and sprint not= 0 then %if the left arrow +shift keyis pressed
maxX := maxX - 9 %move left fast
fishdirection := 0 % face fish left
elsif buttons (KEY_RIGHT_ARROW) and buttons (KEY_SHIFT) and sprint not= 0 then %if the right arrow +shift keyis pressed
maxX := maxX + 9 %move right fast
fishdirection := 1 %face fish right
end if

colorback (11) %backround colour
delay (30)
cls
end loop

Author:	zylum [ Wed Jan 18, 2006 8:57 pm ]
Post subject:
uh huh... looks like you dont have any of the basics down. id recommend reading up on arrays, records and procedures. as for the flickering, you need to set your screen to offscreenonly at the beginning of the program. the syntax would be: setscreen("offscreenonly") or if you prefer View.Set ("offscreenonly")

Author:	sylvester-27 [ Thu Jan 19, 2006 1:10 pm ]
Post subject:
i agree. also your fishy's aren't actually ai's. Or atleast you don't have to go to the trouble of making them ai's. All you have to do is have them move across the screen (-1) +1 if your going the other way. Then just have your "fish" (suggestion: actually draw some fish use a drawoval and a drawpolygon) move across the screen and recognize when they have hit u.

Author:	codemage [ Thu Jan 19, 2006 2:09 pm ]
Post subject:
You only want to spawn your fish once per round. Otherwise, you want them to move left once every time in the loop. Once they get to a certain spot (x < 0 or somesuch), then respawn them again.