Ok donc je met avec ce qui suit:
For k,1,4
vertel("drw_recv",25,19+14*k,134,31+14*k,1)
EndFor
Lbl c
vertel("drw_recv",25,19+14*o,134,31+14*o,2)
getKey()»k
If k=338 or k=344 Then
vertel("drw_recv",25,19+14*o,134,31+14*o,1)
If k=338 and o>1: o-1»o
If k=344 and o<4: o+1»o
vertel("drw_recp",0,93,159,99,1,"/","txt_draw",{"Commencer une partie","Mode de jeu, normal / mine / wall","Nombre de pommes avant une mutation","Voulez-vous vraiment quitter ?"}[o],999,94)
ElseIf k=340 or k=337 Then
If o=2 Then
If k=337 and m>1:m-1»m
If k=340 and m<3:m+1»m
vertel("txt_draw"," Mode : "&{"Normal","Mine","Wall"}[m]&" ",999,50,1,1)
ElseIf o=3 Then
If k=337 and t>5:t-5»t
If k=340 and t<150:t+5»t
vertel("set_brek")
vertel("txt_draw"," Mutation : "&string(t)&" ",999,64,1,1,"/","set_brek")
EndIf
ElseIf k=13 Then
If o=1:Goto i
If o=4:Goto q
EndIf
Goto c
Voila tout le Lbl.
Moi le trouve bien le snake de bob.
