EXPORT ANGRY_BIRDS()
BEGIN
//By Mickaël Nicotera
local touch;
LOCAL X,Y,A,B,C,S,T,E;
LOCAL W,G,H,J;
LOCAL L1,L2;
S:=0; E:=10; L1:={1,1,1}; L2:={#78FF37h,#303030h}; W:=1; G:=RANDOM(60,170); H:=RANDOM(60,170); J:=RANDOM(60,170);
WHILE E>0 DO
IF irem(S,30)==0 AND S>29 AND E<>10-W THEN W:=W+1; E:=10-W; L1:={1,1,1}; G:=RANDOM(60,170); H:=RANDOM(60,170); J:=RANDOM(60,170); END;
X:=0; Y:=190;
DIMGROB_P(G1,320,220); RECT_P(G1,RGB(73,194,255)); RECT_P(G1,20,200,60,240,RGB(127,70,0),RGB(127,70,0)); FOR I FROM 1 TO 6 DO ARC_P(G1,40,193,7-I,0,360,RGB(244,30,30)); END; FOR I FROM 0 TO 2 DO LINE_P(G1,43,189+I,51,189+I,RGB(255,161,1)); END;
RECT_P(G1,200,G,240,240,RGB(127,70,0),RGB(127,70,0)); FOR I FROM 1 TO 6 DO ARC_P(G1,220,G-6,7-I,0,360,L2(L1(1))); END; RECT_P(G1,240,H,280,240,RGB(127,70,0),RGB(127,70,0)); FOR I FROM 1 TO 6 DO ARC_P(G1,260,H-6,7-I,0,360,L2(L1(2))); END; RECT_P(G1,280,J,320,240,RGB(127,70,0),RGB(127,70,0)); FOR I FROM 1 TO 6 DO ARC_P(G1,300,J-6,7-I,0,360,L2(L1(3))); END;
TEXTOUT_P("Tries = "+E,G1,200,7,1,RGB(255,244,43)); TEXTOUT_P("Score = "+S,G1,250,7,1,RGB(255,244,43)); TEXTOUT_P("ANGRY BIRDS",G1,80,7,3,RGB(255,255,255)); TEXTOUT_P("Power ",G1,25,22,1,RGB(255,0,0)); TEXTOUT_P("By Mic ",G1,138,22,1,RGB(255,255,255));
TEXTOUT_P("Level "+W,G1,118,198,1,RGB(255,255,255));
WHILE ISKEYDOWN(30)<>1 do blit_p(G0,G1,0,0);
touch:=mouse();
LINE_P(52,190,72,Y-20); RECT_P(20,10,20+iquo(X,6),20,RGB(255,0,0),RGB(255,0,0)); WAIT(0.1);
if size(touch(1)) then
IF touch(1,5)==2 THEN
X:=B→R(touch(1,1)); Y:=B→R(touch(1,2));
LINE_P(52,190,72,Y-20);
RECT_P(20,10,20+iquo(X,6),20,RGB(255,0,0),RGB(255,0,0));
end; end;
END;
A:=0.008-(230-Y)/70000; B:=2.71+(40-Y)/500+(X-50)/500; C:=305-X/10; T:=0; E:=E-1; TEXTOUT_P("Score = "+S,G1,250,7,1,RGB(255,244,43));
IF (G-19<A*220^2-B*220+C<G+6) AND L1(1)<>2 THEN S:=S+10; L1(1):=2; END; IF (H-19<A*260^2-B*260+C<H+6) AND L1(2)<>2 THEN S:=S+10; L1(2):=2; END; IF (J-19<A*300^2-B*300+C<J+6) AND L1(3)<>2 THEN S:=S+10; L1(3):=2; END;
M:=51; N:=189; FOR I FROM 1 TO 30 DO TEXTOUT_P("o",M,N,1,RGB(255,41,38)); M:=M+10; N:=A*M^2-B*M+C; WAIT(0.2); END;
END;
MSGBOX("Score = "+S);
END;
A small Mastermind Program, by Tony Gallo. (Here is a link to the download with the manual:
FilledCircle();
ShowResult();
GuessComplete();
BoxSelectedColor();
ShowSolution();
EXPORT Mastermind()
//Mastermind v1.0
//Tony Gallo
//tgallo@tbaytel.com
BEGIN
local touch;
LOCAL X,Y;
local ColorX;
local Solution, Guess, SolFlag;
local SolColor, PegColor;
local G;
local B, W;
local I, J;
local choice;
local startcol;
local key;
local message;
CHOOSE(choice, "Allow Vacant Pegs?", "Yes", "No");
if choice==1 then
startcol:=0;
else
startcol:=1;
end;
//generate solution
Solution:={0,0,0,0};
FOR I FROM 1 to 4 DO
Solution(I) := RANDINT(startcol,6);
END;
//clear screen
RECT_P(0,0,319,239,0,RGB(142,142,142));
//credits
TEXTOUT_P("MASTERMIND",10,5,2,RGB(0,0,0));
TEXTOUT_P("v1.0 2013",10,16,1,RGB(0,0,0));
TEXTOUT_P("by Tony Gallo",10,26,1,RGB(0,0,0));
//top rectangle
RECT_P(95,5,220,35,0,RGB(185,135,105));
//game board
RECT_P(10,70,310,225,0,RGB(185,135,105));
LINE_P(10,195,310,195,RGB(0,0,0));
//lines and circles
FOR X:=1 to 10 DO
LINE_P(30*X+10,70,30*X+10,225,RGB(0,0,0));
FOR Y:= 1 to 4 DO
ARC_P(30*X-5,30*Y+60,10,RGB(0,0,0));
END;
ARC_P(30*X-10,205,3,RGB(0,0,0));
ARC_P(30*X,205,3,RGB(0,0,0));
ARC_P(30*X-10,215,3,RGB(0,0,0));
ARC_P(30*X,215,3,RGB(0,0,0));
END;
//position pointer
TEXTOUT_P("▲",20,222,5,RGB(207,3,124));
//selected colour
TEXTOUT_P("Selected Color:",12,50,2,RGB(0,0,0));
if choice==1 then
//unselected - brown - 0
FilledCircle(120,53,10,RGB(185,135,105));
ARC_P(120,53,10,RGB(0,0,0));
TEXTOUT_P("CLR",112,49,1,RGB(75,0,130));
end;
//red - 1
FilledCircle(150,53,10,RGB(255,0,0));
//green - 2
FilledCircle(180,53,10,RGB(0,255,0));
//blue - 3
FilledCircle(210,53,10,RGB(0,0,255));
//yellow - 4
FilledCircle(240,53,10,RGB(255,244,43));
//black - 5
FilledCircle(270,53,10,RGB(0,0,0));
//white - 6
FilledCircle(300,53,10,RGB(255,255,255));
//set default color
ColorX := 1;
//draw box
LINE_P(105+(ColorX*30),40,135+(ColorX*30),40,RGB(0,0,0));
LINE_P(105+(ColorX*30),66,135+(ColorX*30),66,RGB(0,0,0));
LINE_P(105+(ColorX*30),40,105+(ColorX*30),66,RGB(0,0,0));
LINE_P(135+(ColorX*30),40,135+(ColorX*30),66,RGB(0,0,0));
G:=1;
Guess:={0,0,0,0};
message:=0;
WHILE ISKEYDOWN(4)<>1 do
wait(.1);
touch:=mouse();
key:=-1;
key:=getkey;
if (key >=0 or size(touch(1))) and message==1 then
RECT_P(225,5,300,35,RGB(142,142,142),RGB(142,142,142));
message:=0;
end;
//color selecting using left and right
if key==7 and ((choice==1 and ColorX>=1) or (choice==2 and ColorX>=2)) then
ColorX:=ColorX-1;
BoxSelectedColor(ColorX);
continue;
end;
if key==8 and ColorX<=5 then
ColorX:=ColorX+1;
BoxSelectedColor(ColorX);
continue;
end;
//Guessing
if key==30 then
//if no vacant pegs alowed make sure none are vacant
if choice==2 and (Guess(1)==0 or Guess(2)==0 or Guess(3)==0 or Guess(4)==0) then
TEXTOUT_P("No vacant pegs",230,10,1,RGB(0,0,0));
TEXTOUT_P("allowed.",242,22,1,RGB(0,0,0));
message:=1;
continue;
end;
//analyse
B:=0;
W:=0;
SolFlag:={0,0,0,0};
//look for exact matches
FOR I FROM 1 TO 4 DO
if Guess(I)==Solution(I) then
B:=B+1;
Guess(I):=7; //flagged
SolFlag(I):=1; //flagged
end;
END;
//look for right colour wrong spot
FOR I FROM 1 TO 4 DO
if Guess(I)<>7 then
FOR J FROM 1 TO 4 DO
if SolFlag(J)==0 AND Guess(I)==Solution(J) then
W:=W+1;
Guess(I):=7;
SolFlag(J):=1;
end;
END;
end;
END;
Guess:={0,0,0,0};
//place black and white pegs
FOR I FROM 1 to B DO
ShowResult(I, RGB(0,0,0),G);
END;
FOR I FROM B+1 to B+W DO
ShowResult(I, RGB(255,255,255),G);
END;
if B==4 then
TEXTOUT_P("You win!",250,16,2,RGB(0,0,0));
ShowSolution(Solution);
break;
end;
if G==10 then
TEXTOUT_P("You lose!",250,16,2,RGB(0,0,0));
ShowSolution(Solution);
break;
end;
G:=G+1;
RECT_P(10,230,310,235,RGB(142,142,142));
TEXTOUT_P("▲",(30*(G-1))+20,222,5,RGB(207,3,124));
continue;
end;
if size(touch(1)) then
if touch(1,5)==0 then
X:=B→R(touch(1,1));
Y:=B→R(touch(1,2));
//color selector
if 110<=X<=310 and 43<=Y<=63 THEN
if 110<=X<=130 and choice==1 then ColorX := 0 END; //unselected - brown
if 140<=X<=160 then ColorX := 1 END; //red
if 170<=X<=190 then ColorX := 2 END; //green
if 200<=X<=220 then ColorX := 3 END; //blue
if 230<=X<=250 then ColorX := 4 END; //yellow
if 260<=X<=280 then ColorX := 5 END; //black
if 290<=X<=310 then ColorX := 6 END; //white
BoxSelectedColor(ColorX);
continue;
END;
//placing pegs
if (30*(G-1))+10<=X<=(30*(G-1))+40 and 80<=Y<=190 THEN
if ColorX == 0 then PegColor:=RGB(185,135,105) END;
if ColorX == 1 then PegColor:=RGB(255,0,0) END;
if ColorX == 2 then PegColor:=RGB(0,255,0) END;
if ColorX == 3 then PegColor:=RGB(0,0,255) END;
if ColorX == 4 then PegColor:=RGB(255,244,43) END;
if ColorX == 5 then PegColor:=RGB(0,0,0) END;
if ColorX == 6 then PegColor:=RGB(255,255,255) END;
if 80<=Y<=100 then
Guess(4):=ColorX;
FilledCircle((30*(G-1))+25,90,9,PegColor);
continue;
END;
if 110<=Y<=130 then
Guess(3):=ColorX;
FilledCircle((30*(G-1))+25,120,9,PegColor);
continue;
END;
if 140<=Y<=160 then
Guess(2):=ColorX;
FilledCircle((30*(G-1))+25,150,9,PegColor);
continue;
END;
if 170<=Y<=190 then
Guess(1):=ColorX;
FilledCircle((30*(G-1))+25,180,9,PegColor);
continue;
END;
END;
end;
end;
END;
wait();
END;
FilledCircle(X,Y,Radius,Color)
begin
local I;
FOR I FROM 0 TO Radius DO
ARC_P(X,Y,I,Color);
END;
end;
ShowResult(I, Color, G)
begin
if I==1 then FilledCircle(30*G-10,205,2,Color); end;
if I==2 then FilledCircle(30*G,205,2,Color); end;
if I==3 then FilledCircle(30*G-10,215,2,Color); end;
if I==4 then FilledCircle(30*G,215,2,Color); end;
end;
BoxSelectedColor(ColorX)
begin
//clear old box wherever it may be
LINE_P(105,40,315,40,RGB(142,142,142));
LINE_P(105,66,315,66,RGB(142,142,142));
FOR I FROM 0 to 8 DO
LINE_P(105+(I*30),40,105+(I*30),66,RGB(142,142,142));
END;
//draw box
LINE_P(105+(ColorX*30),40,135+(ColorX*30),40,RGB(0,0,0));
LINE_P(105+(ColorX*30),66,135+(ColorX*30),66,RGB(0,0,0));
LINE_P(105+(ColorX*30),40,105+(ColorX*30),66,RGB(0,0,0));
LINE_P(135+(ColorX*30),40,135+(ColorX*30),66,RGB(0,0,0));
end;
ShowSolution(Solution)
begin
local SolColor;
FOR I FROM 1 to 4 DO
if Solution(I) == 0 then SolColor:=RGB(185,135,105) END; //unselected - brown
if Solution(I) == 1 then SolColor:=RGB(255,0,0) END; //red
if Solution(I) == 2 then SolColor:=RGB(0,255,0) END; //green
if Solution(I) == 3 then SolColor:=RGB(0,0,255) END; //blue
if Solution(I) == 4 then SolColor:=RGB(255,244,43) END; //yellow
if Solution(I) == 5 then SolColor:=RGB(0,0,0) END; //black
if Solution(I) == 6 then SolColor:=RGB(255,255,255) END; //white
ARC_P(82+(I*30),20,10,RGB(0,0,0));
FilledCircle(82+(I*30),20,9,SolColor);
END;
end;
