Jump to content



Photo
- - - - -

Tetris Source code

tetris Samuels hacked codes

  • Please log in to reply
1 reply to this topic

#1 samuelJohnson

samuelJohnson

    Newbie

  • Members
  • Pip
  • 25 posts

  • Calculators:
    casio fx-9750GII

Posted 21 October 2019 - 03:32 PM

%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2159
File Name:TETRIS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\CoordOff
\LabelOff
\FuncOff
\S-WindMan
\BG-None
\ViewWindow 0,41.66667,0,0,20.6666667,0
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\S-Gph2 \DrawOff,\xyLine,\List1,\List2,1,\Dot
\Cls
\Text 28,17,"PLANETE-CASIO PRESENTS"
{1,2,3,3,3,3,3,4,5,7,7,7,7,7,8,8,8,9,9,9,11,12,13,13,13,13,13,14,15,17,17,17,17,17,18,18,18,19,19,19,21,21,22,22,22,22,22,23,23,25,25,25,25,26,26,26,27,27,27,27}\->\List 1
{20,20,20,19,18,17,16,20,20,20,19,18,17,16,20,18,16,20,18,16,20,20,20,19,18,17,16,20,20,20,19,18,17,16,20,18,20,19,17,16,20,16,20,19,18,17,16,20,16,20,19,18,16,20,18,16,20,18,17,16}\->\List 2
\Cls
\DrawStat
\Text 20,70,"BY NEURONIX"
\Text 58,18,"WWW.PLANETE\(-)CASIO.FR"
\Do
\Text 35,38,"PRESS [EXE]"
\Text 35,38,"           "
\Getkey
\LpWhile \Ans=0
\Cls
\Do
\Do
\Do
\ClrText
\Locate 1,1,"TETRIS V1.0--NEURONIX"
\Locate 1,2,"====================="
\Locate 6,3,"\->PLAY"
\Locate 7,4,"SCORES"
\Locate 7,5,"READ ME"
\Locate 1,6,"====================="
\Locate 1,7,"RESET"
\Locate 17,7,"QUIT"
1\->X
\Do
\Do
\Getkey
\LpWhile (\Ans=28\ Or \Ans=37\ Or \Ans=31\ Or \Ans=79\ Or \Ans=29)=0
\Ans\<>31\=>\Locate 6,2+X," "
\Ans=28\=>X>1\=>\Dsz X
\Ans=37\=>X<3\=>\Isz X
\Locate 6,2+X,"\->"
\LpWhile (\Ans=31\ Or \Ans=79\ Or \Ans=29)=0
\If \Ans=79
\Then 0\->X
{5,1}\->\Dim \Mat E
\Locate 6,7,":OK"
\IfEnd
\Ans=29\=>4\->X
\ClrText
\If X=1
\Then \Locate 1,1,"NEW GAME"
\Locate 1,2,"====================="
\Locate 6,3,"\->BIG (12*21)"
\Locate 7,4,"MEDIUM (10*18)"
\Locate 7,5,"SMALL (8*16)"
\Locate 7,6,"MANUAL"
\Locate 1,7,"====================="
1\->Y
\Do
\Do
\Getkey
\LpWhile (\Ans=28\ Or \Ans=37\ Or \Ans=31\ Or \Ans=48\ Or \Ans=47)=0
\Ans=28\ Or \Ans=37\=>\Locate 6,2+Y," "
\Ans=28\=>Y>1\=>\Dsz Y
\Ans=37\=>Y<4\=>\Isz Y
\Locate 6,2+Y,"\->"
\LpWhile \Ans=28\ Or \Ans=37
\If \Ans=31
\Then \If Y=1
\Then 12\->M
21\->N
\IfEnd
\If Y=2
\Then 10\->M
18\->N
\IfEnd
\If Y=3
\Then 8\->M
16\->N
\IfEnd
\If Y=4
\Then \Do
\ClrText
"WIDTH(6~21)"?\->M
"HEIGHT(10~21)"?\->N
\Abs \Int M\->M
\Abs \Int N\->N
\LpWhile M>21\ Or M<6\ Or N<10\ Or N>21\ Or M*N>255
\IfEnd
\IfEnd
\LpWhile \Ans=28\ Or \Ans=37
\Ans\<>31\=>0\->X
\IfEnd
\If X=2
\Then " "
\Locate 1,1,"HIGHEST SCORES"
\For 1\->Z \To 5
\Locate 3,2+Z,Z
\Locate 4,2+Z,"."
\Locate 6,2+Z,\Mat E[Z,1]
\Next 
\Locate 1,2,""\Disp\IfEnd
\If X=3
\Then " "
\Locate 1,1,"READ ME"
\Locate 4,3,"4:MOVE LEFT"
\Locate 4,4,"5:ROTATE"
\Locate 4,5,"6:MOVE RIGHT"
\Locate 4,6,"MENU:QUIT"\Disp\ClrText
" "
\Locate 1,1,"MORE INFO"
\Locate 1,3,"WWW.PLANETE-CASIO.FR"
\Locate 2,4,"\->JEUX\slashGAMES"
\Locate 3,5,"\->GRAPH 30~100"
\Locate 4,6,"\->DIVERS"\Disp\IfEnd
\If X=4
\Then \File2
\ClrList
\File1
\ClrList
{1,1}\->\Dim \Mat A
{1,1}\->\Dim \Mat B
{1,1}\->\Dim \Mat C
{1,1}\->\Dim \Mat D
\ClrGraph
0
\Stop
\IfEnd
\LpWhile X\<>1
\Int (M/2)\->A
N\->B
\Int 7\Ran#+1\->C
1\->D
\File1
\ClrList
{N,M}\->\Dim \Mat A
{N,M}\->\Dim \Mat B
\File2
\ClrList
{0,0,M+1,M+1,M+.7,M+.7,0.3,0.3}\->\List 1
{N-.6,0,0,N-.6,N-.6,0.3,0.3,N-.6}\->\List 2
\S-Gph1 \DrawOff
\S-Gph2 \DrawOn
\BG-None
\Cls
\DrawStat
\StoPict 1
\BG-Pict 1
\S-Gph1 \DrawOn
\S-Gph2 \DrawOff
\File1
0\->O
\Prog "TTMAIN"
\For 1\->Z \To 5
\If O>\Mat E[Z,1]
\Then \If Z<5
\Then \For 4\->X \To Z \Step \(-)1
\Swap(E,X,X+1
\Next 
O\->\Mat E[Z,1]
\Else O\->\Mat E[5,1]
\IfEnd
\ClrText
\Locate 4,4,"NEW HIGH SCORE!"
\Locate 10-\Int (\log O/2),5,O\Disp\Break
\IfEnd
\Next 
\LpWhile 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:518
File Name:TTMAIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\Prog "TTPARTS"
\Do
\Getkey\->K
\If K
\Then K=48\ Or K=47\=>\Return
\If K=73\ And \Min(\List 3)+A>1
\Then 1
\For 1\->F \To 4
\List 3[F]\->X
\List 4[F]\->Y
\Mat A[B+Y,A+X-1]\=>0
\Next 
\Ans\=>\Dsz A
\IfEnd
\If K=53\ And \Max(\List 3)+A<M
\Then 1
\For 1\->F \To 4
\List 3[F]\->X
\List 4[F]\->Y
\Mat A[B+Y,A+X+1]\=>0
\Next 
\Ans\=>\Isz A
\IfEnd
\If K=63\ And B>2
\Then \Isz D
D=5\=>1\->D
\Prog "TTPARTS"
\IfEnd
\IfEnd
\Min(\List 4)+B-1
\Ans<1\=>\Break
0\->E
\If \Mat B[\Ans,1]>0
\Then \For 1\->X \To 4
\List 4[X]+B-1\->G
\List 3[X]+A\->H
\Mat A[G,H]=1\=>\Isz E
E\=>\Break
\Next 
\IfEnd
E=0\=>\Dsz B
\List 3+A\->\List 1
\List 4+B\->\List 2
\Cls
\DrawStat
\LpWhile E=0
\StoPict 1
0\->I
\For 1\->X \To 4
\List 3[X]\->G
\List 4[X]\->H
H+B=N\=>\Return
1\->\Mat A[H+B,G+A]
\Mat B[H+B,1]+1\->\Mat B[H+B,1]
\Mat B[H+B,1]\>=M\=>\Isz I
\Next 
I\=>\Prog "TTDEL"
\Int (M/2)\->A
N\->B
\Int 7\Ran#+1\->C
1\->D
\LpWhile 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1919
File Name:TTPARTS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If C=1
\Then \If D=1
\Then \If A>M-2
\Then 4\->D
\Return
\Else \If \Mat A[B,A+1]
\Then 4\->D
\Return
\IfEnd
\IfEnd
{\(-)1,0,1,0}\->\List 3
{0,0,0,\(-)1}\->\List 4
\IfEnd
\If D=2
\Then \If B=N
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B+1,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{\(-)1,0,1,0}\->\List 4
\IfEnd
\If D=3
\Then \If A<2
\Then 2\->D
\Return
\Else \If \Mat A[B,A-1]
\Then 2\->D
\Return
\IfEnd
\IfEnd
{\(-)1,0,1,0}\->\List 3
{0,0,0,1}\->\List 4
\IfEnd
\If D=4
\Then \If \Mat A[B-1,A]
\Then 3\->D
\Return
\IfEnd
{0,0,0,\(-)1}\->\List 3
{\(-)1,0,1,0}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=2
\Then {0,0,1,1}\->\List 3
{0,\(-)1,\(-)1,0}\->\List 4
\Return
\IfEnd
\If C=3
\Then \If D=1\ Or D=3
\Then \If A=M\ Or A<3
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A+1]
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B,A-2]
\Then 4\->D
\Return
\IfEnd
{\(-)2,-1,0,1}\->\List 3
{0,0,0,0}\->\List 4
\IfEnd
\If D=2\ Or D=4
\Then \If B<3
\Then 1\->D
\Return
\IfEnd
\If B>2
\Then \If \Mat A[B-1,A]\ Or \Mat A[B-2,A]
\Then 1\->D
\Return
\IfEnd
\IfEnd
{0,0,0,0}\->\List 3
{\(-)2,-1,0,1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=4
\Then \If D=1\ Or D=3
\Then \If A=1\ Or \Mat A[B-1,A+1]
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B-1,A]\ Or \Mat A[B-1,A-1]
\Then 2\->D
\Return
\IfEnd
{\(-)1,0,0,1}\->\List 3
{\(-)1,\(-)1,0,0}\->\List 4
\IfEnd
\If D=2\ Or D=4
\Then \If \Mat A[B-1,A-1]\ Or \Mat A[B-1,A]
\Then 1\->D
\Return
\IfEnd
{0,0,1,1}\->\List 3
{1,0,0,\(-)1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=5
\Then \If D=2\ Or D=4
\Then \If B=N
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B,A+1]\ Or \Mat A[B+1,A+1]
\Then 1\->D
\Return
\IfEnd
{0,0,1,1}\->\List 3
{\(-)1,0,0,1}\->\List 4
\IfEnd
\If D=1\ Or D=3
\Then \If A=M
\Then 2\->D
\Return
\IfEnd
\If A=1\ Or \Mat A[B-1,A]\ Or \Mat A[B-1,A+1]
\Then 2\->D
\Return
\IfEnd
{\(-)1,0,0,1}\->\List 3
{0,0,\(-)1,\(-)1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=6
\Then \If D=1
\Then \If A<3\ Or B=1
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A-2]\ Or \Mat A[B-1,A]
\Then 4\->D
\Return
\IfEnd
{\(-)2,\(-)1,0,0}\->\List 3
{0,0,0,\(-)1}\->\List 4
\IfEnd
\If D=2
\Then \If B<3\ Or A=12
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B-2,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{\(-)2,\(-)1,0,0}\->\List 4
\IfEnd
\If D=3
\Then \If A>M-2\ Or B=N
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B+1,A]\ Or \Mat A[B,A+2]
\Then 2\->D
\Return
\IfEnd
{0,0,1,2}\->\List 3
{1,0,0,0}\->\List 4
\IfEnd
\If D=4
\Then \If A=1\ Or B>N-2
\Then 3\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B+1,A]\ Or \Mat A[B+2,A]
\Then 3\->D
\Return
\IfEnd
{\(-)1,0,0,0}\->\List 3
{0,0,1,2}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=7
\Then \If D=1
\Then \If A>M-2
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A+1]\ Or \Mat A[B,A+2]
\Then 4\->D
\Return
\IfEnd
{0,0,1,2}\->\List 3
{\(-)1,0,0,0}\->\List 4
\IfEnd
\If D=2
\Then \If B>N-2
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B+1,A]\ Or \Mat A[B+2,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{2,1,0,0}\->\List 4
\IfEnd
\If D=3
\Then \If A<3
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B,A-2]
\Then 2\->D
\Return
\IfEnd
{\(-)2,\(-)1,0,0}\->\List 3
{0,0,0,1}\->\List 4
\IfEnd
\If D=4
\Then \If A=1\ Or B<3
\Then 3\->D
\Return
\IfEnd
\If \Mat A[B-1,A]\ Or \Mat A[B-2,A]
\Then 3\->D
\Return
\IfEnd
{\(-)1,0,0,0}\->\List 3
{0,0,\(-)1,\(-)2}\->\List 4
\IfEnd
\Return
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:445
File Name:TTDEL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 58,75,"CALCUL.."
0\->J
\For 1\->Y \To N
\Mat B[Y,1]\>=M\=>\Isz J
\Next 
\Do
J-1\->J
0\->Y
\Do
Y+1\->Y
\Mat B[Y,1]
\Ans\>=M\=>\Break
\LpWhile 1
0\->\Mat B[Y,1]
O+\Int (8000/(M*N))\->O
Y\->G
\Do
G=N\=>\Break
\Isz G
\LpWhile \Mat B[G,1]
\For 1\->X \To M
0\->\Mat A[Y,X]
\Next 
\For Y\->H \To G-1
\Swap(A,H,H+1
\Swap(B,H,H+1
\Next 
\LpWhile J
\Seq(X,X,1,M,1)\->\List 1
M\->\Dim \List 2
\Trn \Mat A\->\Mat A
\For 1\->Y \To N
\Mat->List\Mat A,Y)\->\List 3
\Fill(Y,2)
\List 3*\List 1\->\List 4
\List 3*\List 2\->\List 2
\List->Mat(4,2)\->\Mat C
\If Y=1
\Then \Trn \Mat C\->\Mat D
\Else \Augment(\Mat D,\Trn \Mat C)\->\Mat D
\IfEnd
\Next 
\Trn \Mat A\->\Mat A
\Trn \Mat D\->\Mat D
\Mat->List\Mat D,1)\->\List 1
\Mat->List\Mat D,2)\->\List 2
\BG-None
\Cls
\File2
\S-Gph1 \DrawOff
\S-Gph2 \DrawOn
\DrawStat
\File1
\S-Gph1 \DrawOn
\S-Gph2 \DrawOff
\DrawStat
\StoPict 1
\BG-Pict 1

%End

please give me a 5 stars and follow me 



#2 samuelJohnson

samuelJohnson

    Newbie

  • Members
  • Pip
  • 25 posts

  • Calculators:
    casio fx-9750GII

Posted 25 October 2019 - 12:11 PM

%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:711
File Name:CRAZYRAC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl S
0\->A~Z
\ClrText
\Locate 1,1,"=====CRAZY RACE======"
\Locate 7,3,"F1 START!"
\Locate 6,5,"F2 CREDITS"
\Locate 6,7,"AC QUITTER"
\Do
\Getkey=79\=>\Goto0
\LpWhile \Getkey\<>69
\ClrText
\Locate 1,1,"=======CREDITS======="
\Locate 3,3,"RE-PROGRAMME PAR"
\Locate 5,4,"BENOIT GROSS"
\Do:\LpWhile \Getkey\<>31
\GotoS
\Lbl 0
\ClrText
"         # #"
"        #   #"
"       #     #"
"      #       #"
"     #         #"
"    #           #"
"####             ####"
11\->A
\Do
\Isz E
\Locate 1,7,"#"
\Locate 21,7,"#"
" "
\Locate A,1,"I"
\Int (19\Ran#+2)\->M
\Locate M,7,"O"
R\->S
Q\->R
P\->Q
O\->P
N\->O
M\->N
\Getkey\->C
C=38\=>A-1\->A
C=27\=>A+1\->A
A>20\=>A-1\->A
A<2\=>A+1\->A
\Locate A,1," "
\LpWhile A\<>S
\ClrText
E>\theta\=>E\->\theta
\Locate 1,1,"======RESULTATS======"
E<500\=>\Locate 1,2,"DANGER PUBLIQUE N\Deg>1!"
E\>=500\=>\Locate 1,2,"CHAMPION!"
E\>=\theta\=>\Locate 1,2,"T'EXPLOSE LE SCORE!"
\Locate 1,3,"VOTRE SCORE:"
\Locate 1,4,E
\Locate 1,6,"MEILLEUR SCORE:"
\Locate 1,7,\theta
\Do:\LpWhile \Getkey\<>31
\GotoS






Also tagged with one or more of these keywords: tetris, Samuels hacked codes

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users