Erdnuss le 26/03/2012 à 19:10
Un super rpg pas graphique (qui s'en soucie ? ^^) crée et tapé par moi (on m a surement oublié...).
En plusieurs programme, pour jouer, lancer Aktuivem :
Code
Aktuivem
:prgmFUN7
:Output(1,5,"AKTUIVEM
:Output(4,13,"NO
:Pause
:ClrHome
:Lbl 2
:Menu("HERO ?","ANTIGONE",3,"ARAGON",4,"ARCHIMEDE",5,"AURORA",6,"AARON",7,"CREER",8,"SAUVER PARTIE",9
:Lbl 9
:E->L6(9
:V->L6(10
:If [théta]=1:L6->[petit L des listes]PERS1
:If [théta]=2:L6->[petit L des listes]PERS2
:If [théta]=3:L6->[petit L des listes]PERS3
:If [théta]=4:L6->[petit L des listes]PERS4
:If [théta]=5:L6->[petit L des listes]PERS5
:Goto 2
:Lbl 3
:1->[théta]
:[petit L des listes]PERS1->L6
:Goto 1
:Lbl 4
:2->[théta]
:[petit L des listes]PERS2->L6
:Goto 1
:Lbl 5
:3->[théta]
:[petit L des listes]PERS3->L6
:Goto 1
:Lbl 6
:4->[théta]
:[petit L des listes]PERS4->L6
:Goto 1
:Lbl 7
:2->W
:prgmFONCTION
:If Str1=/="CAL:Stop
:5->[théta]
:[petit L des listes]PERS5->L6
:Goto 1
:Lbl 8
:1->W
:prgmPERSO
:Goto 2
:Lbl 1
:randInt(1,8->A
:randInt(1,16->B
:randInt(1,3->C
:randInt(1,3->D
:ClrHome
:L6(10->V
:3->W
:prgmFONCTION
:If 2=max((L1=A)+(L2=B:Goto 1
:Output(A,B,"A
:FnOff
:AxesOff
:ClrDraw
:L6(9->E
:While 1
:V->L6(10
:E->L6(9
:Repeat K
:getKey->K
:End
:If V<1:Then:DelVar E:L6(6->V:0->L6(8:End
:If K=11:prgmFONCTION
:If K=13
:Then
:Text(1,25,"AARON
:If [théta]=1:Text(1,25,"ANTIGONE
:If [théta]=2:Text(1,25,"ARAGON
:If [théta]=3:Text(1,25,"ARCHIMEDE
:If [théta]=4:Text(1,25,"AURORA
:Text(7,1,"VIE :
:Text(7,60,V
:Text(7,44,L6(6
:Text(13,1,"EXPERIENCE :
:Text(13,60,L6(8
:Text(19,1,"GOLD :
:Text(19,60,E
:Text(25,1,"NIVEAU :
:Text(25,60,L6(7
:Text(25,44,L6(14
:Text(31,1,"ATTAQUE :
:Text(31,44,L6(11
:Text(31,60,L6(1
:Text(37,1,"DEGATS :
:Text(37,44,L6(12
:Text(37,60,L6(2
:Text(43,1,"DEFENSE :
:Text(43,44,L6(13
:Text(43,60,L6(3
:Text(49,1,"ARMURE :
:Text(49,60,L6(4
:Text(55,1,"INTELLIGENCE :
:Text(55,60,L6(5
:Pause
:ClrDraw
:End
:If K=14
:Then
:4->W
:prgmFONCTION
:ClrDraw
:End
:If K=12 and not(max(L1
:Then
:E+100dim(L1->E
:3->W
:prgmFONCTION
:End
:If K=15:Then:ClrDraw:DispGraph:Pause :End
:Output(A,B,"
:B+(K=26 and (D<3 or B<16))-(K=24 and (D>1 or B>1->B
:A+(K=34 and (C<3 or A<8))-(K=25 and (C>1 or A>1->A
:If A=0 or A=9 or B=17 or not(B
:Then
:If not(A
:Then
:8->A
:C-1->C
:3->W
:prgmFONCTION
:End
:If A=9
:Then
:1->A
:C+1->C
:3->W
:prgmFONCTION
:End
:If not(B
:Then
:16->B
:D-1->D
:3->W
:prgmFONCTION
:End
:If B=17
:Then
:1->B
:D+1->D
:3->W
:prgmFONCTION
:End
:End
:If C=2 and D=2
:Then
:Output(4,8,"??
:Output(5,8,"??
:If (A=4 or A=5) and K=105 and (B=8 or B=9
:Then
:prgmDONGEON
:End
:End
:Output(A,B,"A
:If 2=max((A=L1)+(B=L2
:Then
:For(H,1,dim(L1
:If A=L1(H) and B=L2(H
:Then
:5->W
:prgmPERSO
:0->L1(H
:0->L2(H
:0->L3(H
:End
:End
:End
:If 100>=L6(8
:Then
:0->L6(8
:1+L6(7->L6(7
:1->L6(14
:End
:End
:End
Le deuxieme :
Code
Combat
:Lbl 0
:If V<1
:Then
:ClrHome
:Output(2,1,"VOUS ETES MORT !
:Output(4,1,"VOUS PERDEZ TOUT
:Output(5,1,"L'XP ET LE GOLD
:Output(6,1,"ACCUMULE DEPUIS
:Output(7,1,"LA DERNIERE MONT
:Output(8,1,"EE DE NIVEAU !!!
:Pause
:ClrHome
:Return
:End
:If R<1
:Then
:If W-1/3
:Then
:ClrHome
:DelVar S
:L6(8)+4+randInt(1,L3(H->L6(8
:E+randInt(1,100L3(H->E
:End
:Return
:End
:ClrHome
:Output(2,2,"MODE COMBAT !
:Output(4,1,"ENTER : ATTAQUER
:Output(6,1,"FENETRE : ENNEMI
:Output(8,1,"ZOOM : ATTRIBUT
:Lbl A
:Repeat K=12 or K=13 or K=105 or K=11
:getKey->K
:End
:If K=11:Then
:V->L6(10
:E->L6(9
:If [théta]=1:L6->[petit L des listes]PERS1
:If [théta]=2:L6->[petit L des listes]PERS2
:If [théta]=3:L6->[petit L des listes]PERS3
:If [théta]=4:L6->[petit L des listes]PERS4
:If [théta]=5:L6->[petit L des listes]PERS5
:prgmEFFACE
:End
:ClrHome
:If K=12 or K=13:Then
:Output(3,1,"ATT :
:Output(4,1,"DEG :
:Output(5,1,"DEF :
:Output(6,1,"ARM :
:Output(7,1,"VIE :
:If K=12
:Then
:Output(3,7,N
:Output(4,7,O
:Output(5,7,P
:Output(6,7,Q
:Output(7,7,R
:Output(1,7,"RAT
:If W-1/3:Then:L3(H->G:Else:L6(7->G:End
:If G=1:Output(1,6,"POULET
:If G=3:Output(1,6,"SERPENT
:If G=4:Output(1,6,"CHIEN
:If G=5:Output(1,7,"LOUP
:If G=6:Output(1,6,"VIPERE
:If G=8:Output(1,6,"TIGRE
:If G=7:Output(1,6,"HUMAIN
:If G=9:Output(1,6,"ELEPHANT
:If G=10:Output(1,6,"BOURREAU
:If G=11:Output(1,6,"FAUCON
:If G=12:Output(1,6,"IGUANE
:If G=13:Output(1,6,"JAGUAR
:If G=14:Output(1,6,"GRIFFON
:If G=15:Output(1,6,"KANGOUROU
:If G=16:Output(1,7,"OURS
:If G=17:Output(1,6,"WAPITI
:If G=18:Output(1,7,"ZEBU
:If G=19:Output(1,7,"YAK
:If G=20:Output(1,6,"DRAGON
:If W=1/3:Output(1,1,"BOSS
:Else
:Output(1,6,"AARON
:If [théta]=1:Output(1,5,"ANTIGONE
:If [théta]=2:Output(1,6,"ARAGON
:If [théta]=3:Output(1,6,"ARCHIMED
:If [théta]=4:Output(1,6,"AURORA
:Output(3,7,L6(1
:Output(4,7,L6(2
:Output(5,7,L6(3
:Output(6,7,L6(4
:Output(7,7,V
:End
:End
:If K=/=105:Goto A
:DelVar SDelVar Z
:Lbl 4
:Menu("COMBAT !","ATTAQUER",1,"MULTATTAQUE",2,"VOIR",0
:Lbl 2
:Input "NOMBRE D ATTAQUE",Z
:Lbl 1
:If 12>=L6(7:Menu("ATTAQUER","NORMAL",11,"PILON",12,"PRECISE",13,"BOURRIN",14,"PARADE",15,"RETOUR",4
:If 9>=L6(7:Menu("ATTAQUER","NORMAL",11,"PILON",12,"PRECISE",13,"BOURRIN",14,"RETOUR",4
:If 6>=L6(7:Menu("ATTAQUER","NORMAL",11,"PILON",12,"PRECISE",13,"RETOUR",4
:If 3>=L6(7:Menu("ATTAQUER","NORMAL",11,"PILE [théta] FACE",13,"RETOUR",4
:Menu("ATTAQUER","NORMAL",11,"RETOUR",4
:Lbl 11
:If randInt(0,P)<randInt(0,int(L6(1
:Then
:randInt(0,int(L6(2->X
:randInt(0,Q->Y
:If X>Y:R-X+Y->R
:End
:If S=1
:Then
:.5L6(1->L6(1
:2L6(2->L6(2
:End
:If S=3 or S=4:2L6(1->L6(1
:If S=3:.5L6(2->L6(2
:If randInt(0,N)>randInt(0,L6(3:Then
:randInt(0,O->X
:randInt(0,L6(4->Y
:If X>Y:V-X+Y->V
:End
:If S=4:.5L6(3->L6(3
:DelVar S
:Z-1->Z
:If Z>=0:Goto 0
:Goto 11
:Lbl 13
:2L6(1->L6(1
:.5L6(2->L6(2
:1->S
:Goto 11
:Lbl 12
:ClrHome
:DelVar U
:For(T,1,25+L6(7
:getKey->K
:U+(K=103->U
:Output(1,1,T
:Output(5,5,U
:End
:int(.5U+L6(2->U
:randInt(0,L6(4->I
:randInt(0,O->J
:randInt(0,Q->M
:If randInt(0,P)<randInt(0,L6(1)) and U>M:R-U+M->R
:If randInt(0,N)>randInt(0,L6(3)) and J>I:V-J+I->V
:Z-1->Z
:If Z>=0:Goto 0
:Goto 12
:Lbl 14
:3->S
:.5L6(1->L6(1
:2L6(2->L6(2
:Goto 11
:Lbl 15
:.5L6(1->L6(1
:4->S
:2L6(3->L6(3
:Goto 11
Puis :
Code
Dongeon :
:DelVar IDelVar JDelVar LDelVar WClrHome
:L6(14->H
:L6(5->M
:If H=1:Goto 1
:If H=2:Goto 2
:If H=3:Goto 3
:If H=4:Goto 4
:If H=5:Goto 5
:If H=6:Goto 6
:If H=7:Goto 7
:Return
:Lbl 0
:If W:Output(5,6,"FAILED
:If W:Pause
:ClrHome
:4->W
:prgmPERSO
:Output(A,B,"A
:Return
:Lbl 7
:1/3->W
:L6(7->I
:prgmPERSO
:If V>0
:Then
:E+1000L6(7->E
:8->L6(14
:50+L6(8->L6(8
:ClrHome
:Output(1,3,"BOSS TUE !!!
:Output(3,3,"VOUS GAGNEZ :
:Output(4,1,1000L6(7
:Output(4,7,"GOLD !
:Output(5,1,"50 XP !
:1->W
:If 19<L6
:Then
:Output(7,1,"AKTUIVEM REMPORT
:Output(8,1,"JEU TERMINE !
:End
:Pause
:If 19<L6(7:Menu(" AKTUIVEM ","CONTINUER",B,"EFFACER PERSO",C,"PASSER LVL 1",D
:End
:Lbl B
:DelVar W
:Goto 0
:Lbl C
:If [théta]=1:ClrList [petit L des listes]PERS1
:If [théta]=2:ClrList [petit L des listes]PERS2
:If [théta]=3:ClrList [petit L des listes]PERS3
:If [théta]=4:ClrList [petit L des listes]PERS4
:If [théta]=5:ClrList [petit L des listes]PERS5
:ClrList L6
:ClrHome
:Stop
:Lbl D
:1->L6(7
:1->L6(14
:DelVar W
:Goto 0
:Lbl 1
:50+L6(7->H
:Output(1,1,"BUT AVOIR min(
:Output(1,13,H
:Pause
:ClrHome
:For(I,0,300
:getKey->K
:J+(K=103->J
:Output(1,1,I
:Output(4,8,J
:End
:If H>J+M
:Then
:1->W
:Else
:Output(4,1,"CONGRATULATIONS!
:Output(5,1,"YOU WON :
:Output(5,11,10(J+M
:Pause
:E+10(J+M->E
:2->L6(14
:End
:Goto 0
:Lbl 2
:Output(1,1,"V[théta]S DEVEZ GAGNER
:Output(2,1,"EN MOINS DE
:15+int(.2M)-int(L6(7)/3->H
:Output(2,13,H
:Pause
:ClrHome
:randInt(1,4^5->I
:DelVar L
:While J-I
:L+1->L
:Input "WHAT NUMBER ?",J
:ClrHome
:If I<J
:Then
:Output(2,1,"ITS LESS !
:Else:Output(2,1,"ITS MORE !
:End
:End
:ClrHome
:If L>H
:Then
:1->W
:Else
:Output(4,1,"YOU WON :
:Output(4,11,500+100(H-L
:Pause
:500+E+100(H-L->E
:3->L6(14
:End
:Goto 0
:Lbl 3
:Output(1,1,"SURVIVRE min(
:20-.2M+2L6(7->H
:Output(1,14,iPart(H
:Pause
:1/3->W
:prgmESQUIVE1
:DelVar W
:If S<H
:Then
:1->W
:Else
:Output(4,1,"YOU WON :
:Output(4,11,100S
:Pause
:4->L6(14
:E+100S->E
:End
:Goto 0
:Lbl 4
:Output(1,1,"MANGER min(
:10-.2M+L6(7->H
:Output(1,13,H
:Pause
:1/3->W
:prgmSNAKEV3
:If T<H
:Then
:1->W
:Else
:DelVar W
:Output(4,1,"YOU WON :
:Output(4,11,500T+10M
:Pause
:500T+10M+E->E
:5->L6(14
:End
:Goto 0
:Lbl 5
:30-M+2L6(7->H
:Output(1,1,"SURVIVRE min(
:Output(1,14,H
:Pause
:ClrHome
:{A,B,C,D,E,H,[théta]->L4
:1/3->W
:prgmESQUIVE2
:L4(1->A
:L4(2->B
:L4(3->C
:L4(4->D
:L4(5->E
:L4(6->H
:L4(7->[théta]
:DelVar WClrHome
:If H>T
:Then
:1->W
:Else
:Output(3,4,"YOU WON :
:Output(4,5,100T+M
:Pause
:100T+E+M->E
:6->L6(14
:End
:Goto 0
:Lbl 6
:ClrHome
:Output(1,1,"DONJON TERMINE !
:Output(2,2,"VOUS GAGNEZ :
:Output(4,1,"+ ATT + DEG
:Output(5,1,"+ DEF + ARM
:Output(6,1,"+ VIEM + VIE
:Output(7,1,"+ GOLD + EXP
:L6(7->H
:For(K,4,7
:Output(K,2,H
:Output(K,11,H
:End
:Output(5,12,"
:Output(5,11,int(.5H
:Output(6,2,2H
:Pause
:For(K,1,3
:H+L6(K->L6(K
:End
:int(.5H+L6(4->L6(4
:2H+L6(6->L6(6
:H+L6(8->L6(8
:7->L6(14
:V+H->V
:E+10H->E
:Goto 0
Puis :
Code
Perso :
:If W=1/3:Goto A
:If W=5:Goto 5
:If W=4:Goto 4
:Lbl 1
:2->W
:prgmFONCTION
:If Str1=/="123
:Stop
:DelVar W
:ClrHome
:Menu("CREER","ANTIGONE",11,"ARAGORN",12,"ARCHIMEDE",13,"AURORA",14,"AARON",15
:Lbl 11
:{10,5,20,5,15,100,1,0,0,100,0,0,0,1->[petit L des listes]PERS1
:Return
:Lbl 12
:{20,20,15,5,0,50,1,0,0,50,0,0,0,1->[petit L des listes]PERS2
:Return
:Lbl 13
:{10,5,15,0,30,100,1,0,0,100,0,0,0,1->[petit L des listes]PERS3
:Return
:Lbl 14
:{15,5,15,5,15,100,1,0,0,100,0,0,0,1->[petit L des listes]PERS4
:Return
:Lbl 15
:2->W
:prgmFONCTION
:If Str1=/="CAL:Stop
:{50,50,50,10,50,1000,1,0,0,1000,0,0,0,1->[petit L des listes]PERS5
:Return
:Lbl 5
:L3(H->I
:Lbl A
:DelVar Q
:If I=1
:Then
:5->N
:1->O
:5->P
:10->R
:End
:If I=2
:Then
:7->N
:2->O
:5->P
:15->R
:End
:If I=3
:Then
:10->N
:5->O
:5->P
:1->Q
:20->R
:End
:If I=4
:Then
:10->N
:5->O
:N->P
:2->Q
:20->R
:End
:If I=5
:Then
:10->N
:N->O
:N->P
:3->Q
:25->R
:End
:If I=6
:Then
:15->N
:N->O
:5->P
:5->Q
:20->R
:End
:If I=7
:Then
:20->N
:N->O
:N->P
:50->R
:End
:If I=8
:Then
:20->N
:30->O
:N->P
:5->Q
:50->R
:End
:If I=9
:Then
:30->N
:10->O
:15->P
:O->Q
:100->R
:End
:If I=10
:Then
:50->N
:N->O
:DelVar P
:2N->R
:End
:If I=11
:Then
:30->N
:10->O
:50->P
:P->R
:End
:If I=12
:Then
:50->N
:10->O
:N->P
:O->Q
:2P->R
:End
:If I=13
:Then
:50->N
:N->O
:30->P
:5->Q
:2N->R
:End
:If I=14
:Then
:50->N
:N->O
:O->P
:10->Q
:N->R
:End
:If I=15
:Then
:55->N
:N->O
:N->P
:5->Q
:100->R
:End
:If I=16
:Then
:50->N
:N->O
:O->P
:10->Q
:250->R
:End
:If I=17
:Then
:50->N
:N->O
:2O->P
:P->R
:End
:If I=18
:Then
:50->N
:N->O
:2N->P
:20->Q
:500->R
:End
:If I=19
:Then
:75->N
:N->O
:100->P
:25->Q
:500->R
:End
:If I=20
:Then
:50->Q
:2Q->N
:N->O
:O->P
:10N->R
:End
:If W=1/3
:Then
:5N->N
:5O->O
:5P->P
:5Q->Q
:5R->R
:End
:prgmCOMBAT
:Lbl 4
:For(W,1,dim(L1
:L3(W->K
:L1(W->I
:L2(W->J
:If K
:Then
:If K=1:Output(I,J,"P
:If K=2:Output(I,J,"R
:If K=3:Output(I,J,"S
:If K=4:Output(I,J,"C
:If K=5:Output(I,J,"L
:If K=6:Output(I,J,"V
:If K=7:Output(I,J,"H
:If K=8:Output(I,J,"T
:If K=9:Output(I,J,"E
:If K=10:Output(I,J,"B
:If K=11:Output(I,J,"F
:If K=12:Output(I,J,"I
:If K=13:Output(I,J,"J
:If K=14:Output(I,J,"G
:If K=15:Output(I,J,"K
:If K=16:Output(I,J,"O
:If K=17:Output(I,J,"W
:If K=18:Output(I,J,"Z
:If K=19:Output(I,J,"Y
:If K=20:Output(I,J,"D
:End
:End
Code
Fonction :
:If K=11:Goto 1
:If W=2:Goto 2
:If W=3:Goto 3
:If W=4:Goto 4
:Return
:Lbl 1
:V->L6(10
:E->L6(9
:If 1=[théta]:L6->[petit L des listes]PERS1
:If 2=[théta]:L6->[petit L des listes]PERS2
:If 3=[théta]:L6->[petit L des listes]PERS3
:If 4=[théta]:L6->[petit L des listes]PERS4
:If 5=[théta]:L6->[petit L des listes]PERS5
:prgmEFFACE
:Lbl 2
:Input Str1
:Return
:Lbl 3
:ClrHome
:randInt(1,5->W
:W->dim(L1
:W->dim(L2
:W->dim(L3
:For(S,1,W
:randInt(1,8->L1(S
:randInt(1,16->L2(S
:randInt(1,L6(7->L3(S
:End
:4->W
:prgmPERSO
:Return
:Lbl 4
:ClrHome
:If L6(11)=9 and L6(12)=9 and 9=L6(13:Menu("------SHOP------","ACHETER",10,"VENDRE",11,"S'ENTRAINER",A,"QUITTER",12
:Menu("------SHOP------","ACHETER",10,"VENDRE",11,"QUITTER",12
:Lbl 12
:ClrDraw
:ClrHome
:4->W
:prgmPERSO
:Return
:Lbl A
:Menu("S ENTAINER","ATT",B,"DEG",C,"DEF",D,"ARM",E,"INT",F,"RETOUR",4
:Lbl B
:1->W
:Goto G
:Lbl C
:2->W
:Goto G
:Lbl D
:3->W
:Goto G
:Lbl E
:4->W
:Lbl G
:1000->J
:Output(3,1,"1000 PO=1 POINT
:Lbl H
:Prompt I
:If JI>E:DelVar I
:E-JI->E
:I+L6(W->L6(W
:Goto 4
:Lbl F
:10000->J
:5->W
:Output(3,1,"10000 PO=1 POINT
:Goto H
:Lbl 10
:Menu("ACHETER","MAIN GAUCHE",20,"MAIN DROITE",21,"ARMURE",22,"VIE",23,"RETOUR",4
:Lbl 21
:1->X
:1->Z
:12->H
:Goto 30
:Lbl 20
:1->X
:1->Z
:11->H
:Lbl 30
:ClrDraw
:Text(1,1,"1: +5ATT 1000 GOLD
:Text(7,1,"2: +5ATT +5DEG 2500 GOLD
:Text(13,1,"3: +10ATT 2500 GOLD
:Text(19,1,"4: +10ATT +5DEG 5000 GOLD
:Text(25,1,"5: +10ATT +10DEG 10000 GOLD
:Text(31,1,"6: +5ATT +15DEG 10000 GOLD
:Text(37,1,"7: +5ATT +20DEG 25000 GOLD
:Text(43,1,"8: +15ATT +10DEG 25000 GOLD
:Text(49,1,"9: +50ATT +50DEG 100000 GOLD
:Pause
:If L6(H:Goto 4
:Input "ARME ?",K
:If (K=1 and E<10³) or ((K=2 or K=3) and E<2500) or (K=4 and E<5000) or ((K=5 or K=6) and E<10^4) or ((K=7 or K=8) and E<25000) or (K=9 and E<10^5:DelVar K
:Lbl 60
:If K=1
:Then
:X5+L6(1->L6(1
:E-Z10³->E
:End
:If K=2
:Then
:E-Z2500->E
:X5+L6(1->L6(1
:X5+L6(2->L6(2
:End
:If K=3
:Then
:X10+L6(1->L6(1
:E-Z2500->E
:End
:If K=4
:Then
:E-Z5000->E
:X10+L6(1->L6(1
:X5+L6(2->L6(2
:End
:If K=5
:Then
:E-Z100²->E
:X10+L6(1->L6(1
:X10+L6(2->L6(2
:End
:If K=6
:Then
:E-Z100²->E
:X5+L6(1->L6(1
:X15+L6(2->L6(2
:End
:If K=7
:Then
:E-Z25000->E
:X5+L6(1->L6(1
:X20+L6(2->L6(2
:End
:If K=8
:Then
:E-Z25000->E
:X15+L6(1->L6(1
:X10+L6(2->L6(2
:End
:If K=9
:Then
:E-Z10^5->E
:X50+L6(1->L6(1
:X50+L6(2->L6(2
:End
:K->L6(H
:If X=[le petit -]1:0->L6(H
:Goto 4
:Lbl 22
:1->X
:X->Y
:If L6(13:Goto 4
:Text(1,1,"1: +5DEF 1000 GOLD
:Text(7,1,"2: +10DEF 2500 GOLD
:Text(13,1,"3: +15 DEF 5000 GOLD
:Text(19,1,"4: +10DEF +5ARM 5000 GOLD
:Text(25,1,"5: +15DEF +10ARM 10000 GOLD
:Text(31,1,"6: +20DEF +10ARM 25000 GOLD
:Text(37,1,"7: +25DEF +10ARM 50000 GOLD
:Text(43,1,"8: +20DEF +15ARM 50000 GOLD
:Text(49,1,"9: +50DEF +50ARM 100000 GOLD
:Pause
:Input "QUELLE ARMURE ? ",K
:If (K=1 and E<10³) or (K=2 and E<2500) or ((K=3 or K=4) and E<5000) or (K=5 and E<100²) or (K=6 and E<25000) or ((K=7 or K=8) and E<50000) or (K=9 and E<10^5):DelVar K
:Lbl 61
:If K=1
:Then
:X5+L6(3->L6(3
:E-Y10³->E
:End
:If K=2
:Then
:X10+L6(3->L6(3
:E-Y2500->E
:End
:If K=3:X15+L6(3->L6(3
:If K=3 or K=4:E-Y5000->E
:If K=4
:Then
:X10+L6(3->L6(3
:X5+L6(4->L6(4
:End
:If K=5
:Then
:X15+L6(3->L6(3
:X10+L6(4->L6(4
:E-Y100²->E
:End
:If K=6
:Then
:X20+L6(3->L6(3
:X10+L6(4->L6(4
:E-Y25000->E
:End
:If K=7
:Then
:X25+L6(3->L6(3
:X10+L6(4->L6(4
:End
:If K=7 or K=8:E-Y50000->E
:If K=8
:Then
:X20+L6(3->L6(3
:X15+L6(4->L6(4
:End
:If K=9
:Then
:X50+L6(3->L6(3
:X50+L6(4->L6(4
:E-Y10^5->E
:End
:K->L6(13
:If X=[le petit -]1:0->L6(13
:Goto 4
:Lbl 23
:ClrHome
:Output(7,1,"50 GOLD/VIE
:Output(8,1,"VIE MAX :
:Output(8,11,L6(6
:Input "COMBIEN DE VIE ?",K
:V+K->V
:E-50K->E
:If E<0
:Then
:[le petit -]E->H
:H+50-50fPart(H/50->H
:V-int(H/50->V
:H+E->E
:End
:If V>L6(6
:Then
:V-L6(6->K
:50K+E->E
:V-K->V
:End
:Goto 4
:Lbl 11
:Menu("-----VENDRE-----","ARME GAUCHE",50,"ARME DROITE",51,"ARMURE",52,"RETOUR",4
:Lbl 50
:[le petit -]1->X
:.5X->Z
:11->H
:Goto 55
:Lbl 51
:12->H
:[le petit -]1->X
:.5X->Z
:Lbl 55
:L6(H->K
:Goto 60
:Lbl 52
:[le petit -]1->X
:.5X->Y
:L6(13->K
:Goto 61
Et pour finir :
Code
Fun 7
:ClrHome
:For(A,1,16
:Output(2,A,"-
:Output(3,A,"-
:Output(5,A,"-
:Output(6,A,"-
:End
:Output(4,1,"HIGHSCORE :
:Output(7,2,"PROGRAMMED BY
:Output(8,2,"CAL THE HACKER
Erdnuss le 26/03/2012 à 19:31
En plus pour le dongeon, vous avez besoin de ces programmes. Cependant, vous pouvez y jouer sans avoir besoin de lancer le rpg.
Code
Esquive 1 :
:prgmFUN7
:Output(1,1,"ESQUIVE VERSION1
:Output(4,13,[petit L des listes]SCORE(1
:Pause
:ClrList L4,L5
:ClrHome
:8->I
:1->J
:Output(4,2,"CHARGEMENT ...
:For(K,1,15
:randInt(1,16->L5(K
:randInt(1,3->L4(K
:End
:DelVar TDelVar S
:While 1
:getKey->K
:I+(K=26)-(K=24->I
:If J=2:I+(K=26)-(K=24->I
:If K=11 and W-1/3:prgmEFFACE
:If K=11:prgmFONCTION
:If K=15:Then:DispGraph:Pause :End
:If K=25:1->J
:If K=34:2->J
:L4+1->L4
:If J=1:Then
:If not(I:1->I
:If I=17:16->I
:End
:If J=2:Then
:If I<1:2->I
:If I>16:15->I
:End
:ClrHome
:For(K,1,15
:If 9=L4(K:Then:randInt(1,4->L4(K:S+1->S:randInt(1,16->L5(K:End
:If (L4(K)>6 and J=1 and L5(K)=I) or (L4(K)=8 and J=2 and (L5(K)>I-1 and I+1>L5(K:Then:ClrHome
:Output(4,3,"YOU LOOSE !!!
:Output(5,2,S:Output(6,2,"EN
:Output(6,5,T:Pause :If S>[petit L des listes]SCORE(1:S->[petit L des listes]SCORE(1
:If W-1/3
:prgmEFFACE
:{0->L4
:15->K
:End
:If L4(1:Output(L4(K),L5(K),"V
:End
:If J=1
:Then
:Output(8,I,"H
:Output(7,I,"X
:Output(6,I,"O
:End
:If J=2:Output(8,I-1,"OXH
:For(K,1,200:End
:T+1->T
:If L4(1:End
:ClrHome
Plus :
Code
Esquive 2 (le meilleur :D)
:ClrHome
:Output(1,4,"ESQUIVE V2
:Output(2,1,"----------------
:Output(3,4,"HIGHSCORE
:Output(4,1,"EASY :
:Output(5,1,"NORMAL :
:Output(4,14,[petit L des listes]SCORE(3
:Output(5,14,[petit L des listes]SCORE(4
:Output(6,1,"----------------
:Output(7,2,"PROGRAMME PAR
:Output(8,2,"MARTIN STONNER
:Pause
:ClrHome
:DelVar T
:4->A
:8->B
:1->C
:1->D
:8->E
:16->F
:1->G
:F->H
:8->I
:1->J
:Menu("DIFFICULTY","EASY",8,"NORMAL",9
:Lbl 8
:1->L
:Goto 4
:Lbl 9
:2->L
:Goto 4
:Lbl 5
:getKey->K
:min(16,max(1,B+(K=26)-(K=24->B
:min(8,max(1,A+(K=34)-(K=25->A
:If K=11 and W-1/3:prgmEFFACE
:If K=11:Then:L4(5->E:prgmFONCTION:End
:If K=105
:Then
:Output(4,5,"PAUSE
:Pause
:Goto 5
:End
:Goto 6
:Lbl 4
:T+1->T
:D-(C=A and D>B)+(C=A and D<B->D
:C-(C>A)+(C<A->C
:E+(F=B and A>E)-(B=F and A<E->E
:F+(B>F)-(B<F->F
:H-(G=A and H>B)+(G=A and H<B->H
:G-(G>A)+(G<A->G
:I-(B=J and I>A)+(B=J and I<A->I
:J-(J>B)+(J<B->J
:Goto 5
:Lbl 98
:If (A=C and B=D) or (A=E and B=F) or (A=G and B=H) or (L=2 and A=I and B=J:Goto 2
:If C=E and D=F
:Then
:1->C
:1->D
:8->E
:16->F
:End
:If C=G and D=H
:Then
:1->C
:1->D
:1->G
:16->H
:End
:If L=2 and C=I and D=J
:Then
:1->C
:1->D
:8->I
:1->J
:End
:If E=G and F=H
:Then
:8->E
:16->F
:1->G
:F->H
:End
:If L=2 and E=I and F=J
:Then
:8->E
:16->F
:8->I
:1->J
:End
:If L=2 and G=I and H=J
:Then
:1->G
:16->H
:8->I
:1->J
:End
:Goto 4
:Lbl 6
:ClrHome
:Output(A,B,"X
:Output(C,D,"O
:Output(E,F,"O
:Output(G,H,"O
:If L=2:Output(I,J,"O
:Output(1,1,T
:Goto 98
:Lbl 2
:If L=1 and T>[petit L des listes]SCORE(3:T->[petit L des listes]SCORE(3
:If L=2 and T>[petit L des listes]SCORE(4:T->[petit L des listes]SCORE(4
:ClrHome
:Output(1,3,"GAME OVER !
:Output(3,1,"SCORE :
:Output(3,9,T
:Pause
:If W=/=1/3:prgmEFFACE
Et enfin, mon snake personnel :
Code
Snake vesion 3 :
:prgmFUN7
:Output(1,2,"SNAKE VERSION 3
:Output(4,13,[petit L des listes]SCORE(15
:Pause
:ClrHome
:2->T
:Repeat not(I=4 and J<16 and J>14
:randInt(1,8->I
:randInt(1,16->J
:End
:4->X
:14->Y
:{4,4->L4
:{15,16->L5
:24->Z
:Output(I,J,"*
:DelVar KFnOff :PlotsOff
:While 1
:If K
:Then
:If K=105:Pause
:If K=11 and W=1/3:prgmFONCTION
:If K=11:prgmEFFACE
:If K=15:Then:DispGraph:Pause :End
:If ((K=24 and Z-26) or (K=26 and Z-24) or (K=25 and Z-34) or (K=34 and Z-25)) and K-15 and K-105:K->Z
:End
:For(K,T-1,1,[petit moins]1
:L4(K->L4(K+1
:L5(K->L5(K+1
:End
:X->L4(1
:Y->L5(1
:L4(1)-(Z=25)+(Z=34->X
:L5(1)-(Z=24)+(Z=26->Y
:If max((L4=X)+(L5=Y))=2 and (L4(T)-X or Y-L5(T:Goto 9
:If XY and X-9 and Y-17
:Output(X,Y,"O
:If I=X and J=Y:Then
:Repeat not(U
:randInt(1,8->I
:randInt(1,16->J
:DelVar U
:If 2=max((I=L4)+(J=L5:1->U
:If I=X and J=Y:1->U
:End
:Output(I,J,"*
:T+1->T
:T->dim(L4
:T->dim(L5
:Else
:Output(L4(T),L5(T),"
:End
:getKey->K
:If XY and X-9 and Y-17:End
:Lbl 9
:ClrHome
:Output(3,4,"LOOSER !!!
:Output(4,5,"SCORE :
:Output(5,8,T
:Pause
:If T>[petit L des listes]SCORE(15:T->[petit L des listes]SCORE(15
:If W-1/3:prgmEFFACE
:ClrHome
Voila !!!
Je precise que tout les programmes sont de moi, sauf esquive 2 que je dois en partie a Romain Hirt
Erdnuss le 28/03/2012 à 17:36
Il manque aussi Efface :
http://www.mediafire.com/?8qxvx2xn9ai4nog
Il faut lancer le jeu
Ensuite selectionner creer
Taper 123 (ce code empeche des petits malins d effacer vos parties. Vous pouvez le changer a partir du code)
Puis un des 4 du haut, le 5 eme etant protege par un code (les plus attentifs le trouveront ^^)
Ensuite prendre celui que vous avez choisi.
Les listes PERS1 PERS2 PERS3 PERs4 et PERS5 ne doivent JAMAIS etre effacée, sauf si vous avez terminé le jeu avec un perso (dans l ordre du menu).
Il charge max 5 secondes.
Vous etes le A et les P sont vos ennemis actuels (poulets) : au fur et a mesure que vous montez de niveaux, il y a plus d ennemis (20 differents avec des caracteristiques differentes).
Ces une map carre de 3*3 zones, une zone etant representees par un ecran.
Dans la zone du milieu, il y a 4 ? Ils simbolisent le dongeon : appuyer sur enter quand vous etes dessus pour demarer le dongeon.
Les commandes :
f( x ) : quitter et sauvegarder
fenetre : en mode combat : regader caracteristiques ennemies; en mode normal : recharger la zone (nouveaux ennemis, du gold en plus)
zoom : voir ses caracteristiques
trace : shop
graphe : affiche un ecran vide pour ne pas se faire voir par un prof, on le quitte avec enter
les fleches : se deplacer
enter : en combat : acceder aux attaques; en mode normal : activer le dongeon si vous vous y trouvez.
Dongeon :
1. appuyer beaucoup de fois sur . Avant la fin des 300
2. deviner le bon chiffre ente1 et 1024
3. esquiver les v; se coucher permet d avancer de 2
4. manger les etoiles
5. esquiver les O qui se rapprochent de vous; si il y en a 2 au meme endroit, ils retournent a leurs positions de depart
6. amelioration de vos caracteristiques
7. Boss (assez fort)
