#include "ptoc.h"
/*uses QDIntf,GSIntf,MiscTools,ConsoleIO; */
const integer xmin = 10;
const integer ymin = 5;
const integer xmax = 314;
const integer ymax = 165;
const integer prof_niv1 = 1;
const integer prof_niv2 = 2;
const integer prof_niv3 = 3;
const integer prof_niv4 = 4;
const integer mode_agressif = 1;
const integer mode_normal = 2;
const integer mode_defensif = 4;
const integer coef_coup = 10;
const integer stattext = 15;
const integer applemenu = 300;
const integer aboutitem = 301;
const integer filemenu = 400;
const integer newitem = 401;
const integer loaditem = 402;
const integer saveitem = 403;
const integer quititem = 404;
const integer editmenu = 500;
const integer undoitem = 505;
const integer cutitem = 501;
const integer copyitem = 502;
const integer pastitem = 503;
const integer clearitem = 504;
const integer optionsmenu = 600;
const integer reflexionitem = 601;
const integer joueuritem = 602;
enum etat {noir,blanc,rien, last_etat};
typedef matrix<0,9,0,9,etat> tableau;
struct coup_file {
point position;
etat couleur;
};
typedef array<1,60,coup_file> partie;
matrix<1,8,1,8,longint> val;
etat ordi,joueur;
integer prof;
array<0,2,integer> pion;
etat joueur_actif;
tableau table;
partie jeu;
integer coup;
boolean beep, redessine, demo, possible;
integer mode, njoueur;
integer mymemoryid;
handle toolszeropage;
boolean done;
str255 applemenustr;
str255 filemenustr;
str255 editmenustr;
str255 optionsmenustr;
newwindowparamblk mywind;
windowptr mywindptr;
void startupgstools()
{
tooltable toolrec;
integer svtoolerrornum;
integer btn;
tlstartup;
mymemoryid = mmstartup;
mtstartup;
toolszeropage =
newhandle(8 * 256,mymemoryid,fixedbank+pagealigned+fixedblk+locked,ptr(0));
qdstartup(loword(toolszeropage),$80,160,mymemoryid);
emstartup(loword(toolszeropage)+$300,20,0,640,0,200,mymemoryid);
setbackcolor(0);
setforecolor(15);
moveto(40,40);
drawstring("Un instant, svp...");
toolrec.numtools = 10;
toolrec.tools[1].tsnum = 4;
toolrec.tools[1].minversion = 1;
toolrec.tools[2].tsnum = 5;
toolrec.tools[2].minversion = 1;
toolrec.tools[3].tsnum = 6;
toolrec.tools[3].minversion = 1;
toolrec.tools[4].tsnum = 14;
toolrec.tools[4].minversion = 0;
toolrec.tools[5].tsnum = 15;
toolrec.tools[5].minversion = 1;
toolrec.tools[6].tsnum = 16;
toolrec.tools[6].minversion = 1;
toolrec.tools[7].tsnum = 21;
toolrec.tools[7].minversion = 0;
toolrec.tools[8].tsnum = 20;
toolrec.tools[8].minversion = 0;
toolrec.tools[9].tsnum = 22;
toolrec.tools[9].minversion = 0;
toolrec.tools[10].tsnum = 23;
toolrec.tools[10].minversion = 0;
do {
loadtools(toolrec);
svtoolerrornum = toolerrornum;
if (svtoolerrornum != 0) {
btn = tlmountvolume
(100,40,"Erreur chargement outils","Inserer le disque systeme","Ok","Annuler");
if (btn != 1) sysfailmgr(svtoolerrornum,"Unable to load tools");
}
} while (!(svtoolerrornum == 0));
windstartup(mymemoryid);
refreshdesktop(nil);
ctlstartup(mymemoryid,loword(toolszeropage)+$400);
menustartup(mymemoryid,loword(toolszeropage)+$500);
scrapstartup;
lestartup(mymemoryid,loword(toolszeropage)+$600);
dialogstartup(mymemoryid);
sfstartup(mymemoryid,loword(toolszeropage)+$700);
deskstartup;
}
void shutdowngstools()
{
grafoff;
deskshutdown;
sfshutdown;
dialogshutdown;
leshutdown;
scrapshutdown;
menushutdown;
windshutdown;
ctlshutdown;
emshutdown;
qdshutdown;
mtshutdown;
mmshutdown(mymemoryid);
tlshutdown;
}
void setupmenus()
{
integer height;
applemenustr = concat(">>@\\XN300\\0",
"==About REVERSI...\\N301\\0",
"==-\\N302D\\0..");
filemenustr = concat(">> File \\N400\\0",
"==New Game\\N401*Nn\\0",
"==Load Game\\N402*Ll\\0",
"==Save Game\\N403*Ss\\0",
"==Quit\\N404*Qq\\0.");
editmenustr = concat(">> Edit \\N500\\0",
"==Undo\\N505D*ZzV\\0",
"==Cut\\N501D*Xx\\0",
"==Copy\\N502D*Cc\\0",
"==Paste\\N503D*Vv\\0",
"==Clear\\N504D\\0.");
optionsmenustr = concat (">> Options \\N600\\0",
"==Reflexion\\N601*Rr\\0",
"==Joueur\\N602*Jj\\0.");
setmtitlestart(10);
/*InsertMenu(NewMenu(@OptionsMenuStr[1]),0);
InsertMenu(NewMenu(@EditMenuStr[1]),0);
InsertMenu(NewMenu(@FileMenuStr[1]),0);
InsertMenu(NewMenu(@AppleMenuStr[1]),0);
FixAppleMenu(AppleMenu); */
height = fixmenubar;
drawmenubar;
prof =prof_niv1;
ordi = blanc;
joueur = noir;
mode = mode_normal;
demo = false;
njoueur = 1;
}
void joueur_suivant(etat& joueur1)
{
if (joueur1==noir) joueur1=blanc; else joueur1=noir;
}
void init_table()
{
integer i,j;
longint v;
set bord,bord_moins,milieu;
bord =set::of(1,8, eos);
bord_moins =set::of(2,7, eos);
milieu =set::of(4,5, eos);
for( i=0; i <= 9; i ++) for( j=0; j <= 9; j ++) table[i][j] = rien;
table[4][4]=blanc; table[5][5]=blanc;
table[4][5]=noir; table[5][4]=noir;
coup = 0;
for( i=1; i <= 8; i ++) for( j=1; j <= 8; j ++) {
v=1;
if (bord.has(i)) v=v+199; /* bords verticaux et horizontaux */
if (bord.has(j)) v=v+199;
if (v==399) v=5000; /* coins */
if ((bord_moins.has(i)) && (bord.has(j))) v=-100; /* cases proches des coins */
if ((bord_moins.has(j)) && (bord.has(i))) v=-100;
if ((bord_moins.has(j)) && (bord_moins.has(i))) v=-500;
if ((milieu.has(i)) && (milieu.has(j))) v=5; /* cases du milieu */
val[i][j] = v;
}
joueur_actif = noir;
pion[1] =2; /* pion blanc */
pion[0] =2; /* pion noir */
pion[2] = 60; /* pion restant */
redessine = true;
} /* Init_Table */
void enregistre (integer nombre,integer i,integer j)
{
integer n_joueur_actif,n_autre_joueur;
coup = coup+1;
{
coup_file& with = jeu[coup];
with.position.v=j;
with.position.h=i;
with.couleur = joueur_actif;
}
table[i][j] = joueur_actif;
n_joueur_actif = ord(joueur_actif);
pion[n_joueur_actif]=pion[n_joueur_actif]+nombre+1;
pion[2]=pion[2]-1;
joueur_suivant(joueur_actif);
n_autre_joueur=ord(joueur_actif);
pion[n_autre_joueur]=pion[n_autre_joueur]-nombre;
} /* enregistre */
void retourne (integer i,integer j, boolean genre,longint& nombre,boolean coef)
/* genre = true : retourne le coup joue */
/* genre = false : cherche les possible */
{
integer a,b,u,v,k,l;
boolean flag;
nombre=0;
possible=false;
if (table[i][j]==rien)
for( u=-1; u <= 1; u ++) for( v=-1; v <= 1; v ++)
if ((table[i+u][j+v]!=rien) && (table[i+u][j+v]!=joueur_actif)) {
switch (v) {
case -1 : a=j-1; break;
case 0 : a=8; break;
case 1 : a =8-j; break;
} /* case u */;
switch (u) {
case -1 : b=i-1; break;
case 0 : b=8; break;
case 1 : b=8-i; break;
} /* case v */
k=2;
flag=true;
while (flag && (k<=a) && (k<=b)) {
if (table [i+u*k][j+v*k]==joueur_actif) {
possible=true;
flag =false;
}
if (genre && ! flag)
for( l=1; l <= k-1; l ++) {
table[i+u*l][j+v*l]=joueur_actif;
if (! coef) nombre=nombre+1;
else nombre =nombre + val[i+u*l][j+v*l];
}
if (table [i+u*k][j+v*k]==rien) flag=false;
k=k+1;
} /* while */
}
} /* retourne */
void cherche_possible()
/* teste si le joueur actif peut jouer */
{
integer i,j;
longint n;
i=1; j=1;
do {
retourne (i,j,false,n,false);
i=i+1;
if (i==9) {
i=1;
j=j+1;
}
} while (!((j==9) || possible));
}
void couleur (etat etat1)
{
void couleur_result;
if (etat1==noir) couleur_result="noir"; else couleur_result="blanc";
return couleur_result;
}
/*$LongGlobals+*/
void actualise()
{
const integer vert = 10;
const integer noiro = 0;
rect r;
integer i,j;
integer pasx, pasy;
dialogptr dlog;
integer itemhit;
string message,coo,coul;
startdrawing (mywindptr);
setrect(r,xmin,ymin,xmax,ymax);
pasx =(xmax-xmin) / 8;
pasy =(ymax-ymin) / 8;
if (redessine) { /* dessine plateau */
redessine = false;
setsolidpenpat(vert);
paintrect(r);
setpensize (3,2);
setforecolor(noiro);
setsolidpenpat(noiro);
for( i=0; i <= 8; i ++) {
moveto (xmin,ymin+i*pasy);
lineto (xmax,ymin+i*pasy);
moveto (xmin+i*pasx,ymin);
lineto (xmin+i*pasx,ymax);
}
} /* if */
setpensize(1,1);
for( i=1; i <= 8; i ++) for( j=1; j <= 8; j ++) {
if (table[i][j]!=rien) {
setrect (r,xmin+(i-1)*pasx+3,ymin+(j-1)*pasy+2,xmin+i*pasx,ymin+j*pasy);
setsolidpenpat(3*ord(table[i][j]));
paintoval(r);
}
}
moveto (xmax+30,ymin+10);
drawstring (concat("Blanc : ",inttostring(pion[ord(blanc)])," "));
moveto (xmax+30,ymin+40);
drawstring (concat("Noir : ",inttostring(pion[ord(noir)])," "));
moveto (xmax+20,ymin+120);
if (! (coup==0)) {
coo = concat(chr(64+jeu[coup].position.h),inttostring(jeu[coup].position.v)," ");
coul = couleur (jeu[coup].couleur);
drawstring (concat(coul," a joue : ",coo));
}
cherche_possible();
if (! possible) {
joueur_suivant (joueur_actif);
cherche_possible();
}
if (possible) {
moveto (xmax+20,ymin+140);
coul = couleur (joueur_actif);
drawstring (concat (coul," joue "));
}
else { /* fin */
if (pion[ord(blanc)]>pion[ord(noir)]) {
pion[ord(blanc)]=pion[ord(blanc)]+pion[ord(rien)];
message="Les blancs gagnent";
}
else if (pion[ord(blanc)]==pion[ord(noir)]) message ="Egalite";
else {
pion[ord(noir)]=pion[ord(noir)]+pion[ord(rien)];
message="les noirs gagnent";
}
moveto (xmax+30,ymin+10);
drawstring (concat("Blanc : ",inttostring(pion[ord(blanc)])," "));
moveto (xmax+30,ymin+40);
drawstring (concat("Noir : ",inttostring(pion[ord(noir)])," "));
setrect(r,xmax+80,ymin+130,xmax+240,ymin+170);
dlog = newmodaldialog(r,true,0);
setport(dlog);
setforecolor(0);
setbackcolor(15);
moveto(10,10);
drawstring(message);
setrect(r,40,20,90,35);
/*NewDItem(Dlog,1,r,10,@'Ok',0,0,nil);*/
itemhit = modaldialog(nil);
closedialog(dlog);
init_table();
actualise();
}
} /* actualise */
/*$LongGlobals-*/
boolean certain (str255 message)
{
dialogptr dlog;
rect r;
integer item;
boolean certain_result;
setrect(r,xmax+30,ymin+130,xmax+310,ymin+170);
dlog = newmodaldialog(r,true,0);
setport(dlog);
setforecolor(0);
setbackcolor(15);
moveto(10,10);
drawstring(message);
setrect(r,50,20,100,35);
/*NewDItem(Dlog,2,r,10,@'Ok',0,0,nil);*/
setrect(r,150,20,200,35);
/*NewDItem(Dlog,1,r,10,@'Non',0,0,nil);*/
item = modaldialog(nil);
closedialog(dlog);
certain_result = (item==2);
redessine = true;
return certain_result;
}
void save_game()
{
integer i;
file<coup_file> donnees;
coup_file donnee0;
string fichier;
replyrecord reponse;
sfputfile (30,25,"Entrez le nom","Untitled.Rev",15,reponse);
if (reponse.good) {
donnee0.position.v = coup;
donnee0.position.h = 0;
donnee0.couleur = rien;
fichier = concat ("0/",reponse.filename);
if ((pos(".Rev",fichier)==0) && (length(fichier)<14)) fichier =concat (fichier, ".Rev");
rewrite (donnees,fichier);
donnees << donnee0;
for( i = 1; i <= coup; i ++) donnees << jeu[i];
close (donnees);
}
redessine=true;
}
void load_game()
{
integer i;
file<coup_file> donnees;
coup_file donnee0;
longint nombre;
replyrecord reponse;
string fichier;
typelistrec listedetype;
listedetype.numentries = 1;
listedetype.filetype1 =0;
/*SFGetFile (30,45,'Quelle partie ?',nil,@ListeDeType,reponse);*/
if ((reponse.good) & (pos(".Rev",reponse.filename)!=0)) {
fichier = concat("0/",reponse.filename);
reset (donnees,fichier);
donnees >> donnee0;
init_table();
for( i=1; i <= donnee0.position.v; i ++) {
donnees >> jeu[i];
retourne (jeu[i].position.h,jeu[i].position.v,true,nombre,false);
enregistre (nombre,jeu[i].position.h,jeu[i].position.v);
}
actualise();
close (donnees);
}
redessine = true;
}
void eval_coup (integer prof,integer& iok,integer& jok)
{
integer save_prof;
etat joueur_save;
tableau table_save;
integer i,i2,j,j2;
longint ncoup,ncoup2,n,n2,nmax;
void eval_coup_result;
ncoup =0; /* sauvegarde de l'etat */
ncoup2 =0;
nmax = -maxlongint;
joueur_save = joueur_actif;
save_prof = prof;
table_save = table;
for( i=1; i <= 8; i ++) for( j =1; j <= 8; j ++) {
n = 0;
retourne (i,j,true,n,true); /* joue si poss en (i,j) et calcul n avec coefs */
if (possible) {
ncoup = ncoup+1;
table [i][j] = joueur_actif;
n = n+val[i][j];
if (! (joueur_actif==ordi)) n=mode*n; else n=n*mode_normal;
if (prof!=0) {
joueur_suivant (joueur_actif);
n = n-eval_coup(prof-1,i2,j2);
}
if (n>nmax) {
nmax =n;
iok = i;
jok = j;
}
else if ((n==nmax) && (random>=0)) {
nmax =n;
iok = i;
jok = j;
}
}
table = table_save;
joueur_actif=joueur_save;
prof = save_prof;
}
if (ncoup==0) {
nmax =-maxlongint / 10; /* passe son tour */
if (! (joueur_actif==ordi)) nmax=mode*nmax; else nmax=mode_normal*nmax;
if (! (prof==0)) {
joueur_suivant(joueur_actif);
nmax = nmax+eval_coup(prof-1,i2,j2);
}
}
joueur_actif=joueur_save;
eval_coup_result = nmax+coef_coup*ncoup;
return eval_coup_result;
} /* eval_coup */
void ordinateur()
{
integer i,j;
longint n;
longint addr;
struct {
integer cursorheight;
integer cursorwidth;
matrix<1,8,1,3,integer> data;
matrix<1,8,1,3,integer> mask;
point hotspot;
} cursor;
{
/*addr := Ord4(@data);
StuffHex(addr, '0000FF000000');
StuffHex(addr+6, '0000FF000000');
StuffHex(addr+12, '0000FF000000');
StuffHex(addr+18, 'FFFFFFFFFF00');
StuffHex(addr+24, 'FFFFFFFFFF00');
StuffHex(addr+30, '0000FF000000');
StuffHex(addr+36, '0000FF000000');
StuffHex(addr+42, '0000FF000000');
StuffHex(addr+48, '000000000000');
StuffHex(addr+54, '000000000000');
StuffHex(addr+60, '000000000000');
StuffHex(addr+66, '000000000000');
StuffHex(addr+72, '000000000000');
StuffHex(addr+78, '000000000000');
StuffHex(addr+84, '000000000000');
StuffHex(addr+90, '000000000000');*/
cursor.hotspot.h = 5;
cursor.hotspot.v = 4;
cursor.cursorheight = 8;
cursor.cursorwidth = 3;
}
/*SetCursor(@Cursor);*/
cherche_possible();
if (possible) {
n=eval_coup(prof,i,j);
retourne (i,j,true,n,false);
enregistre(n,i,j);
actualise();
}
else {
joueur_suivant(joueur_actif);
actualise();
}
initcursor;
if (beep) sysbeep;
}
void setupwindows()
{
{
param_length = sizeof_(newwindowparamblk);
wframe = $2020;
wtitle = nil;
wrefcon = 0;
wzoom.top = 0;
wzoom.left = 0;
wzoom.bottom = 0;
wzoom.right = 0;
wcolor = nil;
wyorigin = 0;
wxorigin = 0;
wdatah = 0;
wdataw = 0;
wmaxh = 0;
wmaxw = 0;
wscrollver = 0;
wscrollhor = 0;
wpagever = 0;
wpagehor = 0;
winforefcon = 0;
winfoheight = 0;
wframedefproc= nil;
winfodefproc = nil;
/*wContDefProc := @actualise;*/
wposition.top = 20;
wposition.left = 95;
wposition.bottom = 190;
wposition.right = 555;
wplane = 0;
wstorage = nil;
}
mywindptr = newwindow(mywind);
}
void doabout()
{
dialogptr aboutdlog;
rect r;
integer itemhit;
setrect(r,112,30,542,180);
aboutdlog = newmodaldialog(r,true,0);
setport(aboutdlog);
setrect(r,180,125,230,140);
/*NewDItem(aboutDlog,1,r,10,@'Ok',0,0,nil);*/
setforecolor(0);
setbackcolor(15);
moveto(10,10);
drawstring("REVERSI v 7.0");
moveto(10,30);
drawstring("Ce logiciel est en Shareware, si vous decidez de le garder");
moveto(10,40);
drawstring("veuillez m'envoyer 100F.");
moveto(20,55);
drawstring("M. GUYOT Emmanuel");
moveto(20,65);
drawstring("547 Rue de Latingy");
moveto(20,75);
drawstring("45430 MARDIE");
moveto(20,85);
drawstring("FRANCE");
moveto(10,100);
drawstring("Copyright 1988 TML Systems,Inc. Certain parts of this");
moveto(10,110);
drawstring("software copyright by TML System,Inc.");
showwindow (aboutdlog);
selectwindow (aboutdlog);
itemhit = modaldialog(nil);
closedialog(aboutdlog);
redessine = true;
}
void joueurdialogue()
{
rect r;
dialogptr dlg;
integer item,m;
setrect (r,160,50,410,150);
dlg = newmodaldialog (r,false,0);
setrect (r,10,10,110,20);
if (njoueur==1) m=1; else m=0;
/*NewDitem (dlg,3,r,RadioItem,@'Un Joueur',m,1,nil);*/
offsetrect (r,0,20);
if (njoueur==2) m=1; else m=0;
/*NewDitem (dlg,4,r,RadioItem,@'Deux Joueurs',m,1,nil);*/
offsetrect (r,0,20);
if (njoueur==0) m=1; else m=0;
/*NewDitem (dlg,5,r,RadioItem,@'Demo',m,1,nil);*/
setrect (r,10,80,110,95);
/*NewDitem (dlg,2,r,ButtonItem,@'Annuler',0,0,nil);*/
setrect (r,140,10,240,20);
/*NewDitem (dlg,99,r,StatText+ItemDisable,@'Votre couleur',0,0,nil);*/
setrect (r,150,30,230,40);
if (joueur==blanc) m=1; else m=0;
/*NewDitem (dlg,6,r,RadioItem,@'Blanc',m,2,nil);*/
offsetrect (r,0,20);
if (joueur==noir) m=1; else m=0;
/*NewDitem (dlg,7,r,RadioItem,@'Noir',m,2,nil);*/
setrect (r,150,80,230,95);
/*NewDitem (dlg,1,r,ButtonItem,@'Ok',0,0,nil);*/
showwindow (dlg);
selectwindow (dlg);
do {
if (getditemvalue (dlg,5)==1) m=255; else m=0;
hilitecontrol (m,getcontrolditem(dlg,6));
hilitecontrol (m,getcontrolditem(dlg,7));
item = modaldialog (nil);
if (item>2) setditemvalue (1,dlg,item);
} while (!(item<=2));
if (item==1) {
if (getditemvalue(dlg,3)==1) {
demo = false;
njoueur = 1;
if (getditemvalue (dlg,6)==1) {
ordi=noir;
joueur = blanc;
}
else {
ordi=blanc;
joueur=noir;
}
}
if (getditemvalue(dlg,4)==1) {
demo=false;
njoueur=2;
ordi = rien;
}
if (getditemvalue (dlg,5)==1) {
demo=true;
njoueur=0;
ordi=joueur_actif;
}
}
closedialog (dlg);
redessine=true;
}
void reflexiondialogue()
{
rect r;
dialogptr dlg;
integer niv,m,item;
setrect (r,160,50,410,170);
dlg = newmodaldialog (r,false,0);
setrect (r,10,10,110,20);
if (prof==prof_niv1) niv=1; else niv=0;
/*NewDitem (dlg,3,r,RadioItem,@'Niveau 1',niv,1,nil);*/
offsetrect (r,0,20);
if (prof==prof_niv2) niv=1; else niv=0;
/* NewDitem (dlg,4,r,RadioItem,@'Niveau 2',niv,1,nil);*/
offsetrect (r,0,20);
if (prof==prof_niv3) niv=1; else niv=0;
/* NewDitem (dlg,5,r,RadioItem,@'Niveau 3',niv,1,nil);*/
offsetrect (r,0,20);
if (prof==prof_niv4) niv=1; else niv=0;
/* NewDitem (dlg,6,r,RadioItem,@'Niveau 4',niv,1,nil);*/
setrect (r,10,100,110,115);
/* NewDitem (dlg,2,r,ButtonItem,@'Annuler',0,0,nil);*/
setrect (r,140,10,230,20);
if (mode==mode_agressif) m=1; else m=0;
/* NewDItem (dlg,7,r,RadioItem,@'Agressif',m,2,nil);*/
offsetrect (r,0,20);
if (mode==mode_normal) m=1; else m=0;
/* NewDItem (dlg,8,r,RadioItem,@'Normal',m,2,nil);*/
offsetrect (r,0,20);
if (mode==mode_defensif) m=1; else m=0;
/* NewDItem (dlg,9,r,RadioItem,@'Defensif',m,2,nil);*/
offsetrect (r,0,20);
if (beep) m=1; else m=0;
/* NewDItem (dlg,10,r,CheckItem,@'Bip',m,0,nil);*/
setrect (r,140,100,230,115);
/* NewDitem (dlg,1,r,ButtonItem,@'Ok',0,0,nil);*/
showwindow (dlg);
selectwindow (dlg);
do {
item = modaldialog (nil);
if (item==10)
if (getditemvalue (dlg,item)==0)
setditemvalue(1,dlg,item);
else setditemvalue (0,dlg,item);
else
if (item>2)
setditemvalue (1,dlg,item);
} while (!(item<=2));
if (item==1) {
beep = (getditemvalue(dlg,10)==1);
if (getditemvalue (dlg,3)==1) prof=prof_niv1;
if (getditemvalue (dlg,4)==1) prof=prof_niv2;
if (getditemvalue (dlg,5)==1) prof=prof_niv3;
if (getditemvalue (dlg,6)==1) prof=prof_niv4;
if (getditemvalue (dlg,7)==1) mode=mode_agressif;
if (getditemvalue (dlg,8)==1) mode=mode_normal;
if (getditemvalue (dlg,9)==1) mode=mode_defensif;
}
closedialog (dlg);
redessine = true;
}
void processmenu(longint codeword)
{
integer itemnum;
longint addr;
integer save_coup,i;
longint nombre;
itemnum = loword(codeword);
switch (itemnum) {
case undoitem : {
save_coup=coup-1;
init_table();
for( i=1; i <= save_coup; i ++) {
coup_file& with = jeu[i];
joueur_actif = with.couleur;
retourne (with.position.h,with.position.v,true,nombre,false);
enregistre (nombre,with.position.h,with.position.v);
}
actualise();
}
break;
case aboutitem:
doabout();
break;
case quititem:
done = certain ("Voulez-vous vraiment quitter ?");
break;
case newitem : if (certain ("Voulez-vous vraiment recommencer ?")) {
init_table();
actualise();
}
break;
case reflexionitem : reflexiondialogue(); break;
case joueuritem : joueurdialogue(); break;
case saveitem : save_game(); break;
case loaditem : load_game(); break;
}
hilitemenu(false,hiword (codeword));
}
void checkmenus()
{
if (bitand(getwkind(frontwindow),$8000) != 0) {
enablemitem(cutitem);
enablemitem(copyitem);
enablemitem(pastitem);
enablemitem(clearitem);
redessine=true;
}
else {
disablemitem(cutitem);
disablemitem(copyitem);
disablemitem(pastitem);
disablemitem(clearitem);
}
}
void valide()
{
integer i,j;
longint nombre;
point pt;
startdrawing (mywindptr);
getmouse (pt);
if ((pt.v>ymin) && (pt.v<ymax) && (pt.h<xmax) && (pt.h>xmin)) {
i=1+(pt.h-xmin) / ((xmax-xmin) / 8);
j=1+(pt.v-ymin) / ((ymax-ymin) / 8);
if (table[i][j]==rien) {
retourne (i,j,true,nombre,false);
if (possible) {
enregistre(nombre,i,j);
actualise();
}
else sysbeep;
}
else sysbeep;
}
}
void maineventloop()
{
eventrecord event;
integer code;
event.taskmask = $1fff;
done = false;
do {
if (ordi==joueur_actif) ordinateur();
if (demo) {
actualise();
joueur_suivant (ordi);
}
checkmenus();
if (coup==0) disablemitem(undoitem); else enablemitem (undoitem);
code = taskmaster(-1, event);
switch (code) {
case winmenubar: processmenu(event.taskdata); break;
case wincontent: valide(); break;
}
} while (!done);
}
int main(int argc, const char* argv[])
{
pio_initialize(argc, argv);
startupgstools();
init_table();
showcursor;
setupmenus();
setupwindows();
maineventloop();
shutdowngstools();
return EXIT_SUCCESS;
}
