Télépathie

rem ============================================================================
rem        Télépathie
' Panoramic_Editor V 0.9.27i5
rem ============================================================================

label clic
dim i,j,n,w,s,c$,t$
width 0,900 : height 0,700
w = 50 : s = 20
font_size 0,s : font_name 0,"arial black"
print_locate 100,100 : print "Veuillez patienter, je m'installe confortablement !"
create_hide
rem ============================================================================
for j = 1 to 9
    for i = 1 to 11
        n = i+(j-1)*11
        alpha n : top n,50*j-25 : left n,w*i : width n,w : height n,w : font_name n,"arial"
        font_size n,s : font_bold n : font_color n,0,0,255 : caption n,str$(n)
    next i
next j
rem ============================================================================
for j = 1 to 9
    for i = 1 to 11
        n = i +(j-1)*11+100
        alpha n : top n,50*j : left n,w*i : width n,w : height n,w : font_name n,"Wingdings"
        font_size n,s : font_bold n : font_color n,255,0,0
    next i
next j
cls
rem ============================================================================
button 995 : font_bold 995 : font_name 995,"tahoma" : top 995,500 : left 995,600
width 995,200 : font_size 995,18 : caption 995,"Quitter"
on_click 995,clic
rem ============================================================================
button 996 : font_bold 996 : font_name 996,"tahoma" : top 996,600 : left 996,600
width 996,200 : font_size 996,18 : caption 996,"Recommencer" : inactive 996
on_click 996,clic
rem ============================================================================
alpha 997 : font_bold 997 : font_name 997,"Wingdings" : top 997,300 : left 997,600
font_color 997,255,0,0
rem ============================================================================
alpha 999 : font_bold 999 : font_name 999,"arial" : top 999,500 : left 999,100
font_size 999,12
t$ = "Choisis un nombre de deux chiffres puis" +chr$(13)
t$ = t$ + "soustrais la somme de ses chiffres à ce nombre"+chr$(13)
t$ = t$ + "Par exemple : avec 49 on obtiens : 49-(4+9) = 36" + chr$(13)
t$ = t$ + "Alors note bien le symbole correspondant" + chr$(13)
t$ = t$ + "et concentre-toi très très fort." + chr$(13)
t$ = t$ + "JE TROUVERAI CE SYMBOLE ! PAROLE DE PAPYDALL !" + chr$(13)
t$ = t$ + "Quand tu es prêt clique sur la boule."
caption 999,t$
rem ============================================================================
picture 998 : width 998,100 : height 998,100 : 2d_target_is 998
top 998,100 : left 998, 700 : color 998,240,240,240 : 2d_pen_width 2
on_click 998,clic
For n = 1 to  200
    2d_pen_color 200-n,250-n,abs(n-250) : 2d_circle 50,50,50-n/4
next n
rem ============================================================================
show_all
nouveau()
end
rem ============================================================================
Clic:
   select number_click
       case 995 : Quitter()
       case 996 : caption 997,"" : Nouveau()
       case 998 : Telepathie()
   end_select
return
rem ============================================================================
SUB Telepathie()
    for i = 12 to 100
        font_size 997,i : caption 997,caption$(109) : pause 20
    next i
    active 996
END_SUB
rem ============================================================================
SUB Nouveau()
    dim_local i
    for i = 101 to 199
        caption i,chr$(int(rnd(26)+65))
    next i
    c$ = chr$(int(rnd(26)+65)) : for i = 9 to 81 step 9 : caption 100+i,c$ : next i
END_SUB
rem ============================================================================
SUB Quitter()
    dim_local gw,gh,i
    gw = Width(0) : gh = Height(0)
    font_size 0,30 : font_name 0,"arial black" : font_color 0,255,0,0
    color 0,0,0,0 : print_target_is 0 : 2d_target_is 0 : hide_all
    repeat
        For i = 1 To 100
           2d_pen_color rnd(255),rnd(255),rnd(255) :2d_point rnd(gw),rnd(gh)
        next i
        print_locate 150,20 : print " C'est fini. "
        print_locate 20,100 : print " <ESC> pour QUITTER "
    until scancode = 27
    for i = gh to 10 step -10 : height 0,i : pause 100 : next i
    terminate
END_SUB
rem ============================================================================