aboutsummaryrefslogtreecommitdiff
path: root/engines/mortevielle/mor.h
diff options
context:
space:
mode:
Diffstat (limited to 'engines/mortevielle/mor.h')
-rw-r--r--engines/mortevielle/mor.h1457
1 files changed, 1457 insertions, 0 deletions
diff --git a/engines/mortevielle/mor.h b/engines/mortevielle/mor.h
new file mode 100644
index 0000000000..a4fe1e1b6b
--- /dev/null
+++ b/engines/mortevielle/mor.h
@@ -0,0 +1,1457 @@
+/* Niveau 14 suite */
+const char m1[] = "quelqu'un entre, parait ‚tonn‚ mais ne dit rien";
+
+
+void testfi()
+ {
+ if (ioresult!= 0)
+ {
+ caff= do_alert(err_mess,1);
+ exit(0);
+ }
+ }
+
+
+integer readclock()
+{
+ registres r;
+ integer s, m, h;
+
+/* debug('readclock');*/
+ integer readclock_result;
+ r.ax = 0x2c00;
+ intr(0x21,r);
+ {
+ h=(cardinal)r.cx >> 8;
+ m=r.cx % 256;
+ s=(cardinal)r.dx >> 8;
+ }
+ m= m * 60;
+ h= h* 3600;
+ readclock_result= h+ m+ s;
+ return readclock_result;
+}
+
+void modif(integer& nu)
+{
+ /* debug('modif'); */
+ if (nu== 26) nu= 25;
+ if ((nu> 29) && (nu< 36)) nu= nu- 4;
+ if ((nu> 69) && (nu< 78)) nu= nu- 37;
+ if ((nu> 99) && (nu< 194)) nu= nu- 59;
+ if ((nu> 996) && (nu< 1000)) nu= nu- 862;
+ if ((nu> 1500) && (nu< 1507)) nu= nu- 1363;
+ if ((nu> 1507) && (nu< 1513)) nu= nu- 1364;
+ if ((nu> 1999) && (nu< 2002)) nu= nu- 1851;
+ if (nu== 2010) nu= 151;
+ if ((nu> 2011) && (nu< 2025)) nu= nu- 1860;
+ if (nu== 2026) nu= 165;
+ if ((nu> 2029) && (nu< 2037)) nu= nu- 1864;
+ if ((nu> 3000) && (nu< 3005)) nu= nu- 2828;
+ if (nu== 4100) nu= 177;
+ if (nu== 4150) nu= 178;
+ if ((nu> 4151) && (nu< 4156)) nu= nu- 3973;
+ if (nu== 4157) nu= 183;
+ if ((nu== 4160) || (nu== 4161)) nu= nu- 3976;
+}
+
+
+void dessine(integer ad, integer x, integer y)
+{
+ /* debug('dessine'); */
+ hide_mouse();
+ writepal(numpal);
+ pictout(ad,0,x,y);
+ show_mouse();
+}
+
+void dessine_rouleau()
+{
+ /* debug('dessine_rouleau'); */
+ writepal(89);
+ if (gd==her)
+ {
+ mem[0x7000+14]=15;
+ }
+ hide_mouse();
+ pictout(0x73a2,0,0,0);
+ show_mouse();
+}
+
+
+void text_color(integer c)
+{
+ color_txt= c;
+}
+
+/* NIVEAU 13 */
+
+
+void text1(integer x,integer y,integer nb,integer m)
+{
+ phrase st;
+ integer tay;
+ integer co;
+
+
+ /* debug('text'); */
+ if (res==1) co=10; else co=6;
+ deline(m,st,tay);
+ if ((y==182) && (tay*co>nb*6)) y=176;
+ afftex(st,x,y,nb,20,color_txt);
+}
+
+void initouv()
+ {
+ integer cx;
+
+ /* debug('initouv'); */
+ for( cx= 1; cx <= 7; cx ++) touv[cx]= chr(0);
+ }
+
+void ecrf1()
+{
+ boite(0, 11, 512, 163, 15); /* grand dessin */
+}
+
+void clsf1()
+{
+ integer i,j;
+
+ /* debug('clsf1'); */
+ hide_mouse();
+ box(0,gd, 0,11, 514,175, 255);
+/* if Gd=ams then port[$3DD]:=15;
+ case Gd of
+ ams,
+ cga : begin
+ for j:=0 to 63 do
+ begin
+ for i:=6 to 86 do
+ begin
+ mem[$B800:i*80+j]:=0;
+ mem[$Ba00:i*80+j]:=0;
+ end;
+ mem[$b800:6960+j]:=0;
+ mem[$ba00:400+j]:=0;
+ end;
+ end;
+ ega : begin
+ port[$3C4]:= 2;
+ port[$3C5]:= 15;
+ port[$3CE]:= 8;
+ port[$3CF]:= 255;
+ for j:=0 to 63 do
+ for i:=11 to 174 do
+ mem[$A000:i*80+j]:=0;
+ end;
+ tan : begin
+ for j:=0 to 128 do
+ begin
+ for i:=3 to 43 do
+ begin
+ mem[$B800:i*160+j]:=0;
+ mem[$Ba00:i*160+j]:=0;
+ mem[$bc00:i*160+j]:=0;
+ if i<>43 then mem[$be00:i*160+j]:=0;
+ end;
+ mem[$be00:320+j]:=0;
+ end;
+ end;
+ end;
+ droite(256*res,11,256*res,175,0);*/
+ show_mouse();
+}
+
+void clsf2()
+{
+ integer i,j;
+
+ /* debug('clsf2'); */
+ hide_mouse();
+ if (f2_all)
+ {
+ box(0,gd,1,176,633,199,255);
+ boite(0,175,634,24,15);
+ f2_all=false;
+ }
+ else
+ {
+ box(0,gd,1,176,633,190,255);
+ boite(0,175,634,15,15);
+ }
+ show_mouse();
+}
+
+void ecrf2()
+{
+ /* debug('ecrf2'); */
+ text_color(5);
+ /*boite(0,175,630,15,15);*/
+}
+
+void ecr2(str255 str_)
+{
+ integer tab;
+ integer tlig;
+
+ /* debug('ecr2 : '+str_);*/
+ if (res==1) tab=10; else tab=6;
+ putxy(8,177);
+ tlig=59+pred(integer,res)*36;
+ if (length(str_)<tlig) writeg(str_,5);
+ else if (length(str_)<(tlig << 1))
+ {
+ putxy(8,176);
+ writeg(copy(str_,1,pred(integer,tlig)),5);
+ putxy(8,182);
+ writeg(copy(str_,tlig,tlig << 1),5);
+ }
+ else {
+ f2_all=true;
+ clsf2();
+ putxy(8,176);
+ writeg(copy(str_,1,pred(integer,tlig)),5);
+ putxy(8,182);
+ writeg(copy(str_,tlig,pred(integer,tlig << 1)),5);
+ putxy(8,190);
+ writeg(copy(str_,tlig << 1,tlig*3),5);
+ }
+}
+
+void clsf3()
+{
+ integer i,j;
+
+ /* debug('clsf3'); */
+ hide_mouse();
+ box(0,gd,1,192,633,199,255);
+ boite(0,191,634,8,15);
+ show_mouse();
+}
+
+void ecr3(str255 text)
+{
+ /* debug('ecr3 : '+text);*/
+ clsf3();
+ putxy(8,192);
+ writeg(text,5);
+}
+
+void ecrf6()
+{
+ /* debug('ecrf6'); */
+ text_color(5);
+ boite(62, 33, 363, 80, 15);
+}
+
+void ecrf7()
+{
+ text_color(4);
+/* draw_mode(2);
+ text_height(4*res);
+ text_style(normal);*/
+}
+
+void clsf10()
+{
+ integer co,cod;
+ varying_string<8> st;
+
+ /* debug('clsf10'); */
+ hide_mouse();
+ if (res==1)
+ {
+ co=634;
+ cod=534;
+ }
+ else
+ {
+ co=600;
+ cod=544;
+ }
+ box(15,gd, cod, 93, co, 98, 255);
+ if (s.conf< 33) st="Cool";
+ else
+ if (s.conf< 66) st=" Lourde ";
+ else
+ if (s.conf> 65) st="Malsaine";
+ if (res==1) co=10; else co=6;
+ co= 574-((cardinal)co*length(st) >> 1);
+ putxy(co,92);
+ writeg(st,4);
+ if (res==1) co=620; else co=584;
+ box(15,gd, 560, 24, co, 86, 255);
+/* rempli(69,12,32,5,255);*/
+ show_mouse();
+}
+
+ void stop()
+ {
+ clrscr;
+ hirs();
+ gd=ams;
+ hirs();
+ exit(0);
+ }
+
+void paint_rect(integer x, integer y, integer dx, integer dy)
+ {
+ integer co;
+
+ /* debug('paint_rect'); */
+ if (gd==cga) co= 3;
+ else co=11;
+ box(co,gd,x,y,x+dx,y+dy,255);
+ }
+
+integer hazard(integer min,integer max)
+ {
+ integer ha1;
+ real ha2;
+
+ /* debug('hazard'); */
+ integer hazard_result;
+ ha2= Random();
+ ha1= trunc(ha2*(max-min));
+ hazard_result= min+ ha1;
+ return hazard_result;
+ }
+
+void calch(integer& j,integer& h,integer& m)
+{
+ integer th,nh;
+
+/* debug('calch');*/
+ nh= readclock();
+ th= jh+ ((nh- mh) / t);
+ m= ((th % 2)+ vm)* 30;
+ h= ((cardinal)th >> 1)+ vh;
+ if (m== 60)
+ {
+ m= 0;
+ h= h+ 1;
+ }
+ j= (h / 24)+ vj;
+ h= h- ((j- vj)* 24);
+}
+
+void conv(integer x, integer& y)
+{
+ integer cx;
+
+ /* debug('conv'); */
+ cx= 1;
+ y= 128;
+ while (cx< x)
+ {
+ y= (cardinal)y >> 1;
+ cx= succ(integer,cx);
+ }
+}
+
+/* NIVEAU 12 */
+void okpas()
+{
+ tesok=true;
+}
+
+void modobj(integer m)
+{
+ phrase str_;
+ str30 strp;
+ integer i,tay;
+
+ /* debug('modobj'); */
+ strp=' ';
+ if (m!= 500)
+ {
+ deline(m- 501+ c_st41,str_,tay);
+ strp= delig;
+ }
+ menut( invt[8], strp);
+ menu_disable( invt[8]);
+}
+
+void modobj2(integer m,boolean t1,boolean t2)
+{
+ phrase str_;
+ str30 strp;
+ integer i,tay;
+
+ /* debug('modobj'); */
+ strp=' ';
+ if (t1 || t2) okpas();
+ else tesok=false;;
+ if (m!= 500)
+ {
+ deline(m- 501+ c_st41,str_,tay);
+ strp= delig;
+ }
+ menut( invt[8], strp);
+ menu_disable( invt[8]);
+}
+
+
+void repon(integer f,integer m)
+{
+ str255 str_;
+ varying_string<40> str1;
+ phrase st;
+ text1 fic;
+ integer i, xco, dx, caspe, tay;
+
+ /* debug('repon fenetre nø'+chr(f+48));*/
+ if ((m> 499) && (m< 563))
+ {
+ deline( m-501+c_st41,st,tay);
+ if (tay>((58+pred(integer,res)*37) << 1)) f2_all= true;
+ else f2_all= false;
+ clsf2();
+ afftex(st,8,176,85,3,5);
+ }
+ else
+ {
+ modif(m);
+ if (f== 8) f= 2;
+ if (f== 1) f= 6;
+ if (f== 2)
+ {
+ clsf2();
+ ecrf2();
+ text1(8, 182, 103, m);
+ if ((m== 68) || (m== 69)) s.teauto[40]= '*';
+ if ((m== 104) && (caff== 14))
+ {
+ s.teauto[36]= '*';
+ if (s.teauto[39]== '*')
+ {
+ s.pourc[3]= '*';
+ s.teauto[38]= '*';
+ }
+ }
+ }
+ if (set::of(6,9, eos).has(f))
+ {
+ deline(m,st,tay);
+ if (f==6) i=4;
+ else i=5;
+ afftex(st,80,40,60,25,i);
+ if (m== 180) s.pourc[6]= '*';
+ if (m== 179) s.pourc[10]= '*';
+ }
+ if (f== 7) /* messint */
+ {
+ ecrf7();
+ deline(m,st,tay);
+ if (res==1)
+ {
+ xco=252-tay*5;
+ caspe= 100;
+ dx= 80;
+ }
+ else
+ {
+ xco=252-tay*3;
+ caspe= 144;
+ dx=50;
+ }
+ if (tay<40) afftex(st,xco,86,dx,3,5);
+ else afftex(st,caspe,86,dx,3,5);
+ }
+ }
+}
+
+void f3f8()
+{
+ integer co;
+
+ if (res==1) co=107; else co=64;
+ putxy(3,44);
+ writeg(f3,5);
+ ywhere= 51;
+ writeg(f8,5);
+ boite(0,42,co,16,7);
+}
+
+void t5(integer cx)
+{
+ /* debug('t5'); */
+ if (cx== 10) blo= false;
+ if (cx!= 1)
+ {
+ bh1= false;
+ bf1= false;
+ }
+ if (cx!= 2) bh2= false;
+ if (cx!= 4)
+ {
+ bh4= false;
+ bf4= false;
+ }
+ if (cx!= 5) bh5= false;
+ if (cx!= 6) bh6= false;
+ if (cx!= 8) bh8= false;
+ if (cx!= 3) bt3= false;
+ if (cx!= 7) bt7= false;
+ if (cx!= 9) bh9= false;
+}
+
+void affper(integer per)
+{
+ integer cx;
+
+ /* debug('affper'); */
+ for( cx= 1; cx <= 8; cx ++) menu_disable( disc[cx]);
+ clsf10();
+ if ((per & 128)== 128)
+ {
+ putxy(560,24);
+ writeg("LEO",4);
+ menu_enable( disc[1]);
+ }
+ if ((per & 64)== 64)
+ {
+ putxy(560, 32);
+ writeg("PAT",4);
+ menu_enable( disc[2]);
+ }
+ if ((per & 32)== 32)
+ {
+ putxy(560, 40);
+ writeg("GUY",4);
+ menu_enable( disc[3]);
+ }
+ if ((per & 16)== 16)
+ {
+ putxy(560,48);
+ writeg("EVA",4);
+ menu_enable( disc[4]);
+ }
+ if ((per & 8)== 8)
+ {
+ putxy(560,56);
+ writeg("BOB",4);
+ menu_enable( disc[5]);
+ }
+ if ((per & 4)== 4)
+ {
+ putxy(560, 64);
+ writeg("LUC",4);
+ menu_enable( disc[6]);
+ }
+ if ((per & 2)== 2)
+ {
+ putxy(560, 72);
+ writeg("IDA",4);
+ menu_enable( disc[7]);
+ }
+ if ((per & 1)== 1)
+ {
+ putxy(560, 80);
+ writeg("MAX",4);
+ menu_enable( disc[8]);
+ }
+ ipers= per;
+}
+
+/* overlay */ void choix(integer min,integer max, integer& per)
+{
+ boolean i;
+ integer haz,cx,cy,cz;
+ long_integer per2,cz2;
+
+ /* debug('o0 choix'); */
+ haz= hazard(min,max);
+ if (haz> 4)
+ {
+ haz= 8- haz;
+ i= true;
+ }
+ else i= false;
+ cx= 0;
+ per= 0;
+ while (cx< haz)
+ {
+ cy= hazard(1,8);
+ conv(cy,cz);
+ if ((per & cz)!= cz)
+ {
+ cx= cx+ 1;
+ per= (per | cz);
+ }
+ }
+ if (i) per= 255- per;
+ i= false;
+}
+
+/* overlay */ void cpl1(integer& p)
+{
+ integer j,h,m;
+
+ /* debug('o0 cpl1'); */
+ calch(j,h,m);
+ if ((h> 7) || (h< 11)) p= 25;
+ if ((h> 10) && (h< 14)) p= 35;
+ if ((h> 13) && (h< 16)) p= 50;
+ if ((h> 15) && (h< 18)) p= 5;
+ if ((h> 17) && (h< 22)) p= 35;
+ if ((h> 21) && (h< 24)) p= 50;
+ if ((h>= 0) && (h< 8)) p= 70;
+ mdn();
+}
+
+/* overlay */ void cpl2(integer& p)
+{
+ integer j,h,m;
+
+ /* debug('o0 cpl2'); */
+ calch(j,h,m);
+ if ((h> 7) && (h< 11)) p= -2;
+ if (h== 11) p= 100;
+ if ((h> 11) && (h< 23)) p= 10;
+ if (h== 23) p= 20;
+ if ((h>= 0) && (h< 8)) p= 50;
+}
+
+/* overlay */ void cpl3(integer& p)
+{
+ integer j,h,m;
+
+ /* debug('o0 cpl3'); */
+ calch(j,h,m);
+ if (((h> 8) && (h< 10)) || ((h> 19) && (h< 24))) p= 34;
+ if (((h> 9) && (h< 20)) || ((h>= 0) && (h< 9))) p= 0;
+}
+
+/* overlay */ void cpl5(integer& p)
+{
+ integer j,h,m;
+
+ /* debug('o0 cpl5'); */
+ calch(j,h,m);
+ if ((h> 6) && (h< 10)) p= 0;
+ if (h== 10) p= 100;
+ if ((h> 10) && (h< 24)) p= 15;
+ if ((h>= 0) && (h< 7)) p= 50;
+}
+
+/* overlay */ void cpl6(integer& p)
+{
+ integer j,h,m;
+
+ /* debug('o0 cpl6'); */
+ calch(j,h,m);
+ if (((h> 7) && (h< 13)) || ((h> 17) && (h< 20))) p= -2;
+ if (((h> 12) && (h< 17)) || ((h> 19) && (h< 24))) p= 35;
+ if (h== 17) p= 100;
+ if ((h>= 0) && (h< 8)) p= 60;
+}
+
+void person()
+{
+ const char m1[] = "Vous";
+ const char m2[] = "ˆtes";
+ const char m3[] = "SEUL";
+ integer cf;
+ str255 str_;
+
+ /* debug('person'); */
+ for( cf= 1; cf <= 8; cf ++) menu_disable( disc[cf]);
+ clsf10();
+ putxy(560, 30);
+ writeg(m1,4);
+ putxy(560, 50);
+ writeg(m2,4);
+ putxy(560, 70);
+ writeg(m3,4);
+ ipers= 0;
+}
+
+void chlm(integer& per)
+{
+ /* debug('chlm'); */
+ per= hazard(1,2);
+ if (per== 2) per= 128;
+}
+
+void pendule()
+{
+ const matrix<1,2,1,12,integer> cv
+ = {{{{ 5, 8, 10, 8, 5, 0, -5, -8, -10, -8, -5, 0}},
+ {{-5, -3, 0, 3, 5, 6, 5, 3, 0, -3, -5, -6}} }};
+ const integer x = 580;
+ const integer y = 123;
+ const integer rg = 9;
+ integer h,co;
+
+
+ /* debug('pendule'); */
+ hide_mouse();
+ /*paint_rect(572,114,18,20);
+ paint_rect(577,114,6,20);*/
+ paint_rect(570,118,20,10);
+ paint_rect(578,114,6,18);
+ if (set::of(cga,her, eos).has(gd)) co=0; else co=1;
+ if (min== 0) droite(((cardinal)x >> 1)*res, y, ((cardinal)x >> 1)*res, (y- rg), co);
+ else droite(((cardinal)x >> 1)*res, y, ((cardinal)x >> 1)*res, (y+ rg), co);
+ h= heu;
+ if (h> 12) h= h- 12;
+ if (h== 0) h= 12;
+ droite(((cardinal)x >> 1)*res, y, ((cardinal)(x+ cv[1][h]) >> 1)*res, y+ cv[2][h], co);
+ show_mouse();
+ putxy( 568, 154);
+ if (heu> 11) writeg( "PM ",1);
+ else writeg( "AM ",1);
+ putxy( 550, 160);
+ if (set::of(range(0,8), eos).has(jou)) writeg(string(chr(jou+49))+"& jour",1);
+}
+
+/*************
+ * NIVEAU 11 *
+ *************/
+
+void debloc(integer l)
+{
+/* debug('debloc'); */
+ num= 0;
+ x= 0;
+ y= 0;
+ if ((l!= 26) && (l!= 15)) t5(l);
+ mpers= ipers;
+}
+
+/* overlay */ void cpl10(integer& p,integer& h)
+{
+ integer j,m;
+
+/* debug('o1 cpl10'); */
+ calch(j,h,m);
+ if (((h> 7) && (h< 11)) || ((h> 11) && (h< 14))
+ || ((h> 18) && (h< 21))) p= 100;
+ if ((h== 11) || ((h> 20) && (h< 24))) p= 45;
+ if (((h> 13) && (h< 17)) || (h== 18)) p= 35;
+ if (h== 17) p= 60;
+ if ((h>= 0) && (h< 8)) p= 5;
+}
+
+/* overlay */ void cpl11(integer& p,integer& h)
+{
+ integer j,m;
+
+/* debug('o1 cpl11'); */
+ calch(j,h,m);
+ if (((h> 8) && (h< 12)) || ((h> 20) && (h< 24))) p= 25;
+ if (((h> 11) && (h< 14)) || ((h> 18) && (h< 21))) p= 5;
+ if ((h> 13) && (h< 17)) p= 55;
+ if ((h> 16) && (h< 19)) p= 45;
+ if ((h>= 0) && (h< 9)) p= 0;
+}
+
+/* overlay */ void cpl12(integer& p)
+{
+ integer j,h,m;
+
+/* debug('o1 cpl12'); */
+ calch(j,h,m);
+ if (((h> 8) && (h< 15)) || ((h> 16) && (h< 22))) p= 55;
+ if (((h> 14) && (h< 17)) || ((h> 21) && (h< 24))) p= 25;
+ if ((h>= 0) && (h< 5)) p= 0;
+ if ((h> 4) && (h< 9)) p= 15;
+}
+
+/* overlay */ void cpl13(integer& p)
+{
+/* debug('o1 cpl13'); */
+ p= 0;
+}
+
+/* overlay */ void cpl15(integer& p)
+{
+ integer j,h,m;
+
+/* debug('o1 cpl15'); */
+ calch(j,h,m);
+ if ((h> 7) && (h< 12)) p= 25;
+ if ((h> 11) && (h< 14)) p= 0;
+ if ((h> 13) && (h< 18)) p= 10;
+ if ((h> 17) && (h< 20)) p= 55;
+ if ((h> 19) && (h< 22)) p= 5;
+ if ((h> 21) && (h< 24)) p= 15;
+ if ((h>= 0) && (h< 8)) p= -15;
+}
+
+/* overlay */ void cpl20(integer& p,integer& h)
+{
+ integer j,m;
+
+/* debug('o1 cpl20'); */
+ calch(j,h,m);
+ if (h== 10) p= 65;
+ if ((h> 10) && (h< 21)) p= 5;
+ if ((h> 20) && (h< 24)) p= -15;
+ if ((h>= 0) && (h< 5)) p= -300;
+ if ((h> 4) && (h< 10)) p= -5;
+}
+
+/* overlay */ void quelq1(integer l)
+{
+ integer per;
+
+/* debug('o1 quelq1'); */
+ per= hazard(1,2);
+ if (l== 1)
+ if (per== 1) bh1= true; else bf1= true;
+ if (l== 4)
+ if (per== 1) bh4= true; else bf4= true;
+ ipers= 10;
+}
+
+/* overlay */ void quelq2()
+{
+/* debug('o1 quelq2'); */
+ if (li== 2) bh2= true; else bh9= true;
+ ipers= 10;
+}
+
+/* overlay */ void quelq5()
+{
+/* debug('o1 quelq5'); */
+ bh5= true;
+ ipers= 10;
+}
+
+/* overlay */ void quelq6(integer l)
+{
+ integer per;
+
+/* debug('o1 quelq6'); */
+ if (l== 6) bh6= true;
+ if (l== 8) bh8= true;
+ ipers= 10;
+}
+
+/* overlay */ void quelq10(integer h, integer& per)
+{
+ integer min,max;
+
+/* debug('o1 quelq10'); */
+ if ((h>= 0) && (h< 8)) chlm(per); else
+ {
+ if ((h> 7) && (h< 10))
+ {
+ min= 5;
+ max= 7;
+ }
+ if ((h> 9) && (h< 12))
+ {
+ min= 1;
+ max= 4;
+ }
+ if (((h> 11) && (h< 15)) || ((h> 18) && (h< 21)))
+ {
+ min= 6;
+ max= 8;
+ }
+ if (((h> 14) && (h< 19)) || ((h> 20) && (h< 24)))
+ {
+ min= 1;
+ max= 5;
+ }
+ choix(min,max,per);
+ }
+ affper(per);
+}
+
+/* overlay */ void quelq11(integer h, integer& per)
+{
+ integer min,max;
+
+/* debug('o1 quelq11'); */
+ if ((h>= 0) && (h< 8)) chlm(per); else
+ {
+ if (((h> 7) && (h< 10)) || ((h>20) && (h< 24)))
+ {
+ min= 1;
+ max= 3;
+ }
+ if (((h> 9) && (h< 12)) || ((h> 13) && (h< 19)))
+ {
+ min= 1;
+ max= 4;
+ }
+ if (((h> 11) && (h< 14)) || ((h> 18) && (h< 21)))
+ {
+ min= 1;
+ max= 2;
+ }
+ choix(min,max,per);
+ }
+ affper(per);
+}
+
+/* overlay */ void quelq12(integer& per)
+{
+/* debug('o1 quelq12'); */
+ chlm(per);
+ affper(per);
+}
+
+/* overlay */ void quelq15(integer& per)
+{
+ integer cx;
+ boolean test;
+
+
+/* debug('o1 quelq15'); */
+ per= 0;
+ if (per== 0)
+ {
+ do {
+ cx= hazard(1,8);
+ test =(((cx== 1) && (bh2 || bh9)) ||
+ ((cx== 2) && bh8) ||
+ ((cx== 3) && bh4) ||
+ ((cx== 4) && bf4) ||
+ ((cx== 5) && bh6) ||
+ ((cx== 6) && bh1) ||
+ ((cx== 7) && bf1) ||
+ ((cx== 8) && bh5));
+ } while (!(! test));
+ conv(cx,per);
+ affper(per);
+ }
+}
+
+/* overlay */ void quelq20(integer h, integer& per)
+{
+ integer min,max;
+
+/* debug('o1 quelq20'); */
+ if (((h>= 0) && (h< 10)) || ((h> 18) && (h< 24))) chlm(per);
+ else
+ {
+ if ((h> 9) && (h< 12))
+ {
+ min= 3;
+ max= 7;
+ }
+ if ((h> 11) && (h< 18))
+ {
+ min= 1;
+ max= 2;
+ }
+ if (h== 18)
+ {
+ min= 2;
+ max= 4;
+ }
+ choix(min,max,per);
+ }
+ affper(per);
+}
+
+
+/* overlay */void frap()
+{
+ integer j,h,m,haz;
+
+/* debug('o1 frap'); */
+ calch(j,h,m);
+ if ((h>= 0) && (h< 8)) crep= 190; else
+ {
+ haz= hazard(1,100);
+ if (haz> 70) crep= 190; else crep= 147;
+ }
+}
+
+/* overlay */ void nouvp(integer l, integer& p)
+{
+/* debug('o1 nouvp'); */
+ p= 0;
+ if (l== 1)
+ {
+ if (bh1) p= 4;
+ if (bf1) p= 2;
+ }
+ if (((l== 2) && (bh2)) || ((l== 9) && (bh9))) p= 128;
+ if (l== 4)
+ {
+ if (bh4) p= 32;
+ if (bf4) p= 16;
+ }
+ if ((l== 5) && (bh5)) p= 1;
+ if ((l== 6) && (bh6)) p= 8;
+ if ((l== 8) && (bh8)) p= 64;
+ if (((l== 3) && (bt3)) || ((l== 7) && (bt7))) p= 9;
+ if (p!= 9) affper(p);
+}
+
+
+
+/* overlay */ void tip(integer ip, integer& cx)
+{
+/* debug('o1 tip'); */
+ if (ip== 128) cx= 1; else
+ if (ip== 64) cx= 2; else
+ if (ip== 32) cx= 3; else
+ if (ip== 16) cx= 4; else
+ if (ip== 8) cx= 5; else
+ if (ip== 4) cx= 6; else
+ if (ip== 2) cx= 7; else
+ if (ip== 1) cx= 8;
+}
+
+
+/* overlay */ void ecfren(integer& p,integer& haz, integer cf,integer l)
+{
+/* debug('o1 ecfren'); */
+ if (l== 0) person();
+ p= -500;
+ haz= 0;
+ if (((l== 1) && (! bh1) && (! bf1))
+ || ((l== 4) && (! bh4) && (! bf4))) cpl1(p);
+ if ((l== 2) && (! bh2) && (! bh9)) cpl2(p);
+ if (((l== 3) && (! bt3)) || ((l== 7) && (! bt7))) cpl3(p);
+ if ((l== 5) && (! bh5)) cpl5(p);
+ if (((l== 6) && (! bh6)) || ((l== 8) && (! bh8))) cpl6(p);
+ if ((l== 9) && (! bh9) && (! bh2)) p= 10;
+ if (((l== 2) && (bh9)) || ((l== 9) && (bh2))) p= -400;
+ if (p!= -500)
+ {
+ p= p+ cf;
+ haz= hazard(1,100);
+ }
+}
+
+/* overlay */ void becfren(integer l)
+{
+ integer haz;
+
+/* debug('o1 becfren'); */
+ if ((l== 1) || (l== 4))
+ {
+ haz= hazard(1,2);
+ if (l== 1)
+ if (haz== 1) bh1= true; else bf1= true;
+ if (l== 4)
+ if (haz== 1) bh4= true; else bf4= true;
+ }
+ if (l== 2) bh2= true; else
+ if (l== 3) bt3= true; else
+ if (l== 5) bh5= true; else
+ if (l== 6) bh6= true; else
+ if (l== 7) bt7= true; else
+ if (l== 8) bh8= true; else
+ if (l== 9) bh9= true;
+}
+
+/* NIVEAU 10 */
+void init_nbrepm()
+{
+ const array<1,8,byte> ipm
+ = {{4,5,6,7,5,6,5,8}};
+ integer i;
+
+/* debug('init_nbrepm'); */
+ i= 0;
+ do {
+ i= succ(integer,i);
+ nbrepm[i]= ipm[i];
+ } while (!(i==8));
+}
+
+void phaz(integer& haz,integer& p, integer cf)
+{
+/* debug('phaz'); */
+ p= p+ cf;
+ haz= hazard(1,100);
+}
+
+/* overlay */ void inzon()
+{
+ integer cx;
+
+/* debug('o2 inzon'); */
+ copcha();
+ {
+ s.ipre = false;
+ s.derobj= 0;
+ s.icave = 0;
+ s.iboul = 0;
+ s.ibag = 0;
+ s.ipuit = 0;
+ s.ivier = 0;
+ s.iloic = 136;
+ s.icryp = 141;
+ s.conf = hazard(4,10);
+ s.mlieu = 21;
+ for( cx= 2; cx <= 6; cx ++) s.sjer[cx]= chr(0);
+ s.sjer[1]= chr(113);
+ s.heure= chr(20);
+ for( cx= 1; cx <= 10; cx ++) s.pourc[cx]= ' ';
+ for( cx= 1; cx <= 6; cx ++) s.teauto[cx]= '*';
+ for( cx= 7; cx <= 9; cx ++) s.teauto[cx]= ' ';
+ for( cx= 10; cx <= 28; cx ++) s.teauto[cx]= '*';
+ for( cx= 29; cx <= 42; cx ++) s.teauto[cx]= ' ';
+ s.teauto[33]= '*';
+ }
+ for( cx= 1; cx <= 8; cx ++) nbrep[cx]= 0;
+ init_nbrepm();
+}
+
+/* overlay */ void dprog()
+{
+/* debug('o2 dprog'); */
+ li= 21;
+ /* jh:= t_settime(0);*/
+ jh= 0;
+ if (! s.ipre) blo= true;
+ t= ti1;
+ mh= readclock();
+}
+
+/* overlay */ void pl1(integer cf)
+{
+ integer p, haz;
+
+/* debug('o2 pl1'); */
+ if (((li== 1) && (! bh1) && (! bf1))
+ || ((li== 4) && (! bh4) && (! bf4)))
+ {
+ cpl1(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq1(li);
+ }
+}
+
+/* overlay */ void pl2(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl2'); */
+ if (! bh2)
+ {
+ cpl2(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq2();
+ }
+}
+
+/* overlay */ void pl5(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl5'); */
+ if (! bh5)
+ {
+ cpl5(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq5();
+ }
+}
+
+/* overlay */ void pl6(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl6'); */
+ if (((li== 6) && (! bh6)) || ((li== 8) && (! bh8)))
+ {
+ cpl6(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq6(li);
+ }
+}
+
+/* overlayi */ void pl9(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl9'); */
+ if (! bh9)
+ {
+ cf= -10;
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq2();
+ }
+}
+
+/* overlayi */ void pl10(integer cf)
+{
+ integer p,h,haz;
+
+/* debug('o2 pl10'); */
+ cpl10(p,h);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq10(h,p);
+}
+
+/* overlay */ void pl11(integer cf)
+{
+ integer p,h,haz;
+
+/* debug('o2 pl11'); */
+ cpl11(p,h);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq11(h,p);
+}
+
+/* overlay */ void pl12(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl12'); */
+ cpl12(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq12(p);
+}
+
+/* overlay */ void pl13(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl13'); */
+ cpl13(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq12(p);
+}
+
+/* overlay */ void pl15(integer cf)
+{
+ integer p,haz;
+
+/* debug('o2 pl15'); */
+ cpl15(p);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq15(p);
+}
+
+/* overlay */ void pl20(integer cf)
+{
+ integer p,h,haz;
+
+/* debug('o2 pl20'); */
+ cpl20(p,h);
+ phaz(haz,p,cf);
+ if (haz> p) person(); else quelq20(h,p);
+}
+
+/* overlay */ void t11(integer l11, integer& a)
+{
+ integer p,haz,h;
+
+/* debug('o2 t11'); */
+ ecfren(p,haz,s.conf,l11);
+ li= l11;
+ if ((l11> 0) && (l11< 10))
+ if (p!= -500)
+ {
+ if (haz> p)
+ {
+ person();
+ a= 0;
+ }
+ else
+ {
+ becfren(li);
+ nouvp(li,a);
+ }
+ }
+ else nouvp(li,a);
+ if (l11> 9)
+ if ((l11> 15) && (l11!= 20) && (l11!= 26)) person(); else
+ {
+ if (l11== 10) cpl10(p,h);
+ if (l11== 11) cpl11(p,h);
+ if (l11== 12) cpl12(p);
+ if ((l11== 13) || (l11== 14)) cpl13(p);
+ if ((l11== 15) || (l11== 26)) cpl15(p);
+ if (l11== 20) cpl20(p,h);
+ p= p+ s.conf;
+ haz= hazard(1,100);
+ if (haz> p)
+ {
+ person();
+ a= 0;
+ }
+ else
+ {
+ if (l11== 10) quelq10(h,p);
+ if (l11== 11) quelq11(h,p);
+ if ((l11== 12) || (l11== 13) || (l11== 14)) quelq12(p);
+ if ((l11== 15) || (l11== 26)) quelq15(p);
+ if (l11== 20) quelq20(h,p);
+ a= p;
+ }
+ }
+}
+
+/* overlay */ void cavegre()
+
+{
+ integer haz;
+
+/* debug('cavegre'); */
+ s.conf= s.conf+ 2;
+ if (s.conf> 69) s.conf= s.conf+ (s.conf / 10);
+ clsf3();
+ ecrf2();
+ ecr3(m1);
+ haz= (hazard(0, 4))- 2;
+ parole(2, haz, 1);
+ for( haz=0; haz <= 3000; haz ++);
+ clsf3();
+ person();
+}
+
+void writetp(str255 s,integer t)
+{
+ if (res==2) writeg(s,t);
+ else writeg(copy(s,1,25),t);
+}
+
+void messint(integer nu)
+{
+/* debug('messint'); */
+ clsf1();
+ clsf2();
+ clsf3();
+ decomp( 0x73a2, 1008);
+ memw[0x7413+12]= 80;
+ memw[0x7413+14]= 40;
+ writepal(90);
+ afff(gd,0x73a2, 1008,0,0);
+ afff(gd,0x73a2, 1008,0,70);
+ repon(7,nu);
+}
+
+void aniof(integer ouf,integer num)
+ {
+ integer ad, offset;
+ char c;
+
+ /* debug('aniof'); */
+ if ((caff== 7) && ((num== 4) || (num== 5))) return;
+ if ((caff== 10) && (num== 7)) num= 6;
+ if (caff== 12) if (num== 3) num= 4;
+ else if (num== 4) num= 3;
+ ad= adani;
+ offset= animof(ouf,num);
+ decomp(ad,offset);
+ hide_mouse();
+ afff(gd,ad,offset,0,12);
+ ecrf1();
+ show_mouse();
+ }
+
+void musique(integer so)
+{
+ boolean i;
+ integer haz;
+/* dep: array[1..5] of long_integer;*/
+
+/* debug('musique'); */
+ if (so== 0) /*musik(0)*/ {; }
+ else
+ if ((prebru== 0) && (! s.ipre))
+ {
+ parole(10, 1, 1);
+ prebru= prebru+ 1;
+ }
+ else
+ {
+ i= false;
+ if ((s.mlieu== 19) || (s.mlieu== 21) || (s.mlieu== 22))
+ {
+ haz= hazard(1,3);
+ if (haz== 2)
+ {
+ haz= hazard(2,4);
+ parole(9,haz,1);
+ i= true;
+ }
+ }
+ if (s.mlieu== 20)
+ {
+ haz= hazard(1,2);
+ if (haz== 1)
+ {
+ parole(8,1,1);
+ i= true;
+ }
+ }
+ if (s.mlieu== 24)
+ {
+ haz= hazard(1,2);
+ if (haz== 2)
+ {
+ parole(12,1,1);
+ i= true;
+ }
+ }
+ if (s.mlieu== 23)
+ {
+ parole(13,1,1);
+ i= true;
+ }
+ if (! i)
+ {
+ /* dep[1]:= 1416;
+ dep[2]:= 1512;
+ dep[3]:= 1692;
+ dep[4]:= 1884;
+ dep[5]:= 2046;
+ haz:= hazard(1,5);
+ musik(dep[haz]);*/
+ haz= hazard(1,17);
+ parole(haz,1,2);
+ }
+ }
+}
+
+/* NIVEAU 9 */
+void dessin(integer ad)
+{
+ integer cx;
+
+/* debug('dessin'); */
+ if (ad!= 0) dessine(ades,((ad % 160)* 2),(ad / 160));
+ else
+ {
+ clsf1();
+ if (caff> 99)
+ {
+ dessine(ades,60,33);
+ boite(118, 32, 291, 121, 15); /* cadre moyen */
+ }
+ else
+ if (caff> 69)
+ {
+ dessine(ades,112,48); /* tˆtes */
+ boite(222, 47, 155, 91, 15);
+ }
+ else
+ {
+ dessine(ades,0,12);
+ ecrf1();
+ if ((caff< 30) || (caff> 32))
+ {
+ for( cx= 1; cx <= 6; cx ++)
+ if (ord(touv[cx])!= 0) aniof(1,ord(touv[cx]));
+ if (caff== 13)
+ {
+ if (s.iboul== 141) aniof(1,7);
+ if (s.ibag== 159) aniof(1,6);
+ }
+ if ((caff== 14) && (s.icave== 151)) aniof(1,2);
+ if ((caff== 17) && (s.ivier== 143)) aniof(1,1);
+ if ((caff== 24) && (s.ipuit!= 0)) aniof(1,1);
+ }
+ if (caff< 26) musique(1);
+ }
+ }
+}
+
+
+
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-12 08:33:08 +0000