CAFARDORAMIC - l'anti-cafard martien

rem ' Anti-cafard martien par jjn4
  dim a$ , a , i
  dim iac : rem Indice d`Absence de Cafards
  dim nse : rem Nature du Système d`Exploitation
  dim t : rem Temps passé à chercher (en dixièmes de secondes)
  dim t$ : rem Titre du programme
  dim x , y : rem Coordonnées de la bestiole verte
  t$="Carfardoramic - l'anti-cafard martien -- par jjn4"
  label body , go , help , kill , scan
 
rem form0
  width 0,910
  height 0,550
  caption 0,t$
  i=text_width(t$,0)
  if i>350 then nse=1
 
button 10
  left 10,50
  top 10,20
  width 10,800
  height 10,90
  font_size 10,12
  caption 10,"Explications au sujet des cafards martiens et de leur mode de contamination"
  on_click 10,help
 
button 12
  inactive 12
  left 12,50
  top 12,120
  width 12,800
  height 12,90
  font_size 12,12
  caption 12,"Scanning de votre ordinateur pour savoir s'il est infecté par des cafards martiens"
  on_click 12,scan
 
button 14
  inactive 14
  left 14,50
  top 14,220
  width 14,800
  height 14,90
  font_size 14,12
  caption 14,"Destruction de tous les cafards martiens détectés sur votre ordinateur"
  on_click 14,kill
 
button 16
  inactive 16
  left 16,50
  top 16,320
  width 16,800
  height 16,90
  font_size 16,12
  caption 16,"Pour savoir si votre propre organisme est aussi contaminé par les cafards martiens"
  on_click 16,body

alpha 18
  left 18,100
  top 18,430

image 20
 
picture 22
  hide 22
  width 22,screen_x-8-nse*20
  height 22,screen_y-34-nse*20
 
progress_bar 30
  hide 30
  left 30,200
  top 30,195
  width 30,500
  height 30,40
  min 30,0
  max 30,100
 
alpha 32
  hide 32
  left 32,330
  top 32,465
  font_bold 32
  font_size 32,16

timer 50
  timer_interval 50,100
  on_timer 50,go
  timer_off 50
 
end

body:
  caption 18,""
  caption 32,""
  a$="  En vérité, le moyen de savoir si vous avez vous-même été infecté par des"+chr$(13)
  a$=a$+"cafards martiens est très simple. Il vous suffit d'aller voir votre médecin"+chr$(13)
  a$=a$+"habituel qui vous le diagnostiquera sans difficulté et vous en débarrassera"+chr$(13)
  a$=a$+"facilement. Probablement ne manquera-t-il pas de vous demander aussi d'essayer"+chr$(13)
  a$=a$+"une chemise un peu particulière qui a été inventée spécialement pour lutter contre"+chr$(13)
  a$=a$+"les cafards martiens. Dans ce cas, donnez-lui satisfaction. C'est pour votre bien."+chr$(13)
  a$=a$+chr$(13)+"  (NOTA : pour les aficionados des détails tout à fait secondaires,"+chr$(13)
  a$=a$+"    précisons que le nom exact de cette chemise est « Camisole de force »)"+chr$(13)
  a$=a$+"    Bon séjour..."
  application_title "Votre corps est-il également contaminé ?"
  message a$
return

go:
  x=x+(int(rnd(3))-1)*12
  if x<1 then x=500
  if x>1020 then x=500
  y=y+(int(rnd(3))-1)*12
  if y<1 then y=350
  if y>700 then y=350
  2d_circle x,y,10
  t=t+1
  if scancode=100 or key_down_code=52
      timer_off 50
      hide 22
      for i=10 to 16 step 2
        show i
      next i
      show 32
      top 0,0
      width 0,910
      height 0,550
      beep
      active 14
      inactive 10
      inactive 12
      caption 18,"Vous avez mis "+str$(int(t/10)+2)+" secondes pour trouver. Peut mieux faire..."
  end_if
return

help:
  caption 18,""
  caption 32,""
  a$="POURQUOI UN ANTI-CAFARD :"+chr$(13)
  a$=a$+"  En revenant de la planète Mars et en échangeant avec vous sur ce forum, je pourrais craindre de vous"+chr$(13)
  a$=a$+"transmettre quelques virus d'un genre nouveau, mais je sais que vous possédez tous de bons anti-virus,"+chr$(13)
  a$=a$+"alors je ne m'inquiète pas. Par contre, j'ai bien peur de ne pas pouvoir vous empêcher d'être"+chr$(13)
  a$=a$+"contaminés par les terribles cafards martiens. C'est pourquoi je mets aussitôt à votre disposition"+chr$(13)
  a$=a$+"cet anti-cafard. Utilisez-le. Ils sont très invasifs."+chr$(13)+chr$(13)
  a$=a$+"QU'EST-CE QU'UN CAFARD MARTIEN :"+chr$(13)
  a$=a$+"  C'est une toute petite bête qui infeste la surface de la planète Mars et qui a la particularité"+chr$(13)
  a$=a$+"de pouvoir infecter à la fois les systèmes informatiques et les organismes biologiques. Il peut donc"+chr$(13)
  a$=a$+"sauter d'un ordinateur à un autre ordinateur, et de votre ordinateur à votre corps, et inversement."+chr$(13)+chr$(13)
  a$=a$+"QUEL DANGER REPRÉSENTE UN CAFARD MARTIEN :"+chr$(13)
  a$=a$+"  Heureusement, les cafards martiens ne sont pas mortels et ne rendent même pas malade (enfin,"+chr$(13)
  a$=a$+"du moins, physiquement). Ils sont simplement un peu perturbants parce qu'ils laissent des traces de"+chr$(13)
  a$=a$+"bave verte partout où ils passent (c'est d'ailleurs pour ça que les martiens sont tous vert pomme)."+chr$(13)+chr$(13)
  a$=a$+"COMMENT ARRETER L'INVASION DES CAFARDS MARTIENS :"+chr$(13)
  a$=a$+"  Comme j'ai l'esprit joueur, vous ne croyez tout de même pas que je vais vous donner le moyen de"+chr$(13)
  a$=a$+"vous débarrasser aussi facilement de ces bestioles verdâtres !"+chr$(13)
  a$=a$+"Vous allez d'abord devoir trouver la réponse à une devinette : quel est mon symbole préféré ?"+chr$(13)+chr$(13)
  a$=a$+"  Ah, et puis, si vous ne trouvez pas et que vous deveniez tout vert, ce n'est pas si grave que ça,"+chr$(13)
  a$=a$+"après tout !  D'autant qu'il y a des avantages à cette transformation chrolophylienne, c'est que,"+chr$(13)
  a$=a$+"tout nu au soleil, vous deviendriez alors capable de photosynthèse. Cela vous permettrait de réaliser"+chr$(13)
  a$=a$+"des économies substantielles au niveau alimentaire, ce qui, en période de crise, n'est pas négligeable."
  application_title "Explications sur les cafards martiens"
  message a$
  active 12
return

kill:
  caption 18,""
  caption 32,""
  show 30
  position 30,0
  a=int(rnd(30))
  for i=1 to 100
      wait 100-iac*90
      position 30,i
      if i=40+a
        if iac=0
        wait 999
            beep
            wait 999
            beep
            wait 999
            beep
        end_if
      end_if
  next i
  hide 30
  show 32
  font_color 32,0,0,255
  if iac=0
      caption 32,"CAFARDS DÉTRUITS"
  else
      caption 32,"AUCUN CAFARD DÉTECTÉ"
  end_if
  iac=1
  active 10
  active 12
  active 16
return

scan:
  caption 18,""
  caption 32,""
  show 30
  if iac=0
      a=int(rnd(30))+40
  else
      a=100
  end_if
  position 30,0
  for i=1 to a
      wait 100
      position 30,i
  next i
  if iac=0
      beep
      font_color 32,255,0,0
      caption 32,"ORDINATEUR INFECTÉ"
      show 32
      a$="N'oubliez pas que seule la frappe de mon symbole préféré pourra vous permettre d'arrêter l'invasion de cette sale bestiole"
      caption 18,a$
      display
      2d_image_copy 20,0,-30-nse*6,screen_x-nse*20,screen_y-30-nse*20
      clipboard_copy 20
      display
      clipboard_paste 22
      top 0,-30
      width 0,screen_x
      height 0,screen_y
      for i=10 to 16 step 2
        hide i
      next i
      hide 30
      hide 32
      show 22
      t=0
      x=500 : y=350
      2d_target_is 22
      2d_pen_color 0,255,0
      2d_fill_color 0,255,0
      timer_on 50
  else
      font_color 32,0,0,255
      caption 32,"AUCUN CAFARD DÉTECTÉ"
      show 32
      hide 30
  end_if
return