Alerte incendie

rem ' Alerte-Incendie
dim f , g , h , i , j , k , m , n , a$ , c$ , b$(1) , t(24) , l(4,4) , cp
label clic , boum , bravo , feu , new , quit , win , re , dec
caption 0,"Vous êtes le gardien de l'immeuble"
width 0,1000 : height 0,580 : b$(0)="arrêter" : b$(1)="féliciter"
picture 1 : width 1,440 : height 1,500 : c$="autographe"
gosub win

container_option 2 : left 2,480 : top 2,20 : width 2,480 : height 2,300
caption 2,"Tableau de commande électrique"
for i=0 to 4
 for j=1 to 5
  button i*5+j+2
  left i*5+j+2,(i+1)*90+410
  top i*5+j+2,j*50+10
  width i*5+j+2,75
  caption i*5+j+2,"Bureau "+str$(int(rnd(25))+1)
  on_click i*5+j+2,clic
 next j
next i

alpha 28 : left 28,480 : top 28,350 : font_bold 28 : font_size 28,14
gosub re
progress_bar 29 : left 29,20 : top 29,515 : width 29,940
max 29,50
button 30 : left 30,480 : top 30,450 : width 30,200
caption 30,"Recommencer une nouvelle partie" : on_click 30,new : hide 30
button 31 : left 31,700 : top 31,450 : width 31,200
caption 31,"Quitter à regret ce jeu délicieux" : on_click 31,quit : hide 31
gosub dec

end

clic:
k=0 : n=0 : f=0
for i=3 to 27
 if clicked(i)=1 then k=i : t(i-3)=1
 if t(i-3)=0 then n=n+1
next i : 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0
i=int(rnd(5)) : j=int(rnd(5)) : l(i,j)=1 : i=i*90-10 : j=j*100-10
2d_rectangle i,j,i+100,j+100
inactive k
if n=0 then for i=3 to 27 : active i : t(i-3)=0 : next i
if position(29)<26+cp*25 then position 29,position(29)+1
for i=0 to 4
 for j=0 to 4
  if l(i,j)=0 then f=f+1
 next j
next i
if f=0 then goto bravo
if position(29)=25+cp*25 then goto boum
return

boum:
for i=3 to 27 : inactive i : t(i-3)=0 : next i
h=int(rnd(140))+140 : beep
a$="L'immeuble a pris feu, il y a "+str$(h)+" morts par votre faute"
a$=a$+chr$(13)+chr$(13)+"Le G.I.G.N est venu vous "+b$(0)
caption 28,a$
for g=1 to 6
 gosub feu
 display
next g
a$="Vous êtes condamné à "+str$(h)+" années de prison"+chr$(13)+chr$(13)+"Fin"
caption 28,a$ : beep : show 30 : show 31
return

bravo:
beep : for i=3 to 27 : inactive i : t(i-3)=0 : next i
a$="L'incendie a pu être évité grâce à vous."+chr$(13)+chr$(13)
a$=a$+"Le G.I.G.N. est venu vous "+b$(1)
caption 28,a$ : wait 6000 : beep
a$="En récompense, le président de la république"
a$=a$+chr$(13)+chr$(13)+"vous offre un "+c$+string$(25," ")+"Fin"
caption 28,a$ : show 30 : show 31 : cp=0
return

feu:
2d_target_is 1
for j=1 to 10
 m=int(rnd(440)) : k=int(rnd(99))
 for i=1 to 480
  2d_pen_color 255,255-int(i/2),0
  2d_line m-int(i/5+int(rnd(3))),i+int(k),m+int(i/5+int(rnd(3))),i+int(k)
 next i
next j
return

win:
color 1,0,0,0
2d_target_is 1 : 2d_pen_color 255,255,0 : 2d_fill_color 255,255,255
for i=0 to 9
 for j=0 to 14
  2d_rectangle i*20+int(i/2)*50+20,j*20+int(j/3)*40+10,i*20+int(i/2)*50+36,j*20+int(j/3)*40+26
 next j
next i
return

re:
a$="Il y a un risque d'incendie dans l'immeuble"+chr$(13)+chr$(13)
a$=a$+"Dépêchez-vous d'éteindre tous les éclairages"
caption 28,a$
for i=3 to 27 : active i : t(i-3)=0 : next i
return

new:
gosub win : gosub re : gosub dec
return

dec:
hide 30 : hide 31 : cp=cp+1 : max 29,25+cp*25 : position 29,0
beep : for i=3 to 27 : t(i-3)=0 : next i
for i=0 to 4 : for j=0 to 4 : l(i,j)=0 : next j :next i
return

quit:
terminate