Voila g reussi a choper le code source d un jeu mais il y a un petit probleme : c un jeu basic pour Casio !!! (au debut g voulu refaire entierement le jeu mais y a rien a faire, je suis trop une kiche, pourtant je me deboullais avec Qbasic, mais la je galere avec TI Basic).Donc voila le code source de ce jeu (c le jeu ou il fo pisser dans un pot ! lol) Si kelkun pouvait le transformer en kelke chose de lisible pour une TI 89 sa serait super sympa :
ClrText
Locate 2,1,"Le pisseur"
Locate 7,3,"version 1.0"
Locate 8,5,"Press EXE"
Do:LpWhile Getkey31
ClrGraph
ClrText
"La gourde est pleine?"
Deg
0A-Z
Lbl 0
Lbl 7
ClrText
ViewWindow -5,95,0,-3,62,0
F-Line 93,0,93,16
F-Line 93,16,90,16
F-Line 90,16,90,0
F-Line 87,0,82,6
F-Line 80,7,90,7
F-Line 95,35,85,35
F-Line 85,35,85,40
F-Line 85,40,95,40
F-Line 87,35,87,26
F-Line 85,26,90,26
F-Line 90,26,90,23
F-Line 90,23,85,23
F-Line 85,23,85,26
Vertical 95
Horizontal 62
Int 71Ran#S
12T
F-Line S-3,T-12,S-1,T-6
F-Line S-1,T-6,S-3,T-1
F-Line S-3,T-1,S-3,T+7
F-Line S-3,T+7,S-5,T+2
F-Line S-5,T+2,S-3,T-1
F-Line S-3,T-1,S,T
F-Line S-5,T+7,S-1,T+7
F-Line S-1,T+7,S-1,T+11
F-Line S-1,T+11,S-5,T+11
F-Line S-5,T+11,S-5,T+7
Plot S-2,T+10
Plot S-2,T+8
Plot S-3,T+8
Line
ClrText
"Angle (deg)"?A
"For ce"?U
U10U
Ucos AV
Usin AW
Lbl 1
W-0.1W
S+VS
T+WT
Plot S,T
T6T0S82S89Goto 3
S89S<91T6T<15-VV
S>95Goto 6
S<1Goto Y
T>62Goto Z
T<0Goto 2
Goto 1
Lbl Z
ClrText
"Tu prends une douche?"
Goto 9
Lbl 2
ClrText
"Amateur arrete de salir le carrelage"
Goto 9
Lbl 6
ClrText
"Qui c'est qui lave hein? incapable"
Goto 9
Lbl Y
ClrText
"Tu pisse par derriere t'es pas normal toi!"
Goto 9
Lbl 3
W<0Goto 4
Goto 5
Lbl 4
ClrText
"Et maintenant il faut tirer la chasse"
Isz G
Lbl 5
ClrText
"Score"
G
Goto 7
Lbl 9
ClrText
"Score final"
G
G=10 Or G=9Goto Q
G=8 Or G=7 Or G=6Goto R
G=2 Or G=1 Or G=0Goto S
ClrText
"Ca soulage"
ClrGraph
Stop
Lbl Q
ClrText
"C'est bien,tu sais pisser"
ClrGraph
Stop
Lbl R
ClrText
"Tu peux faire mieux"
ClrGraph
Stop
Lbl S
ClrText
"T'es nul prends des cours!"
)
