100 % InformatiK

Voilà le tout nouveau programme, l'antivirus 2005 pour Ti, et oui les virus envahissent désormais non pauvre caltos, mais ne vous inquiétez pas, nous avons la solution, il vous suffit d'entrer ce programme et XXX paf, plus de virus...


Voilà le code :

ClrHome
Output(1,1,"****************"
output(8,1,"****************"
output(4,4,"Anti-virus"
output(5,7,'2005"
pause
lbl 1
clrhome
Menu("antivirus :","scan",2,"mise a jour",3,"les virus",4,"quitter",5)

lbl 5
CltHome
Stop

lbl 3
clrhome
output(1,1,"Waiting !"
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(3,1,"erreur"
output(4,1,"pour telecharger"
output(5,1,"les mises a jour"
output(6,1,"allez sur :"
output(7,1,"www.anti-v-ti.fr"
pause :Clrhome
stop

Lbl 4
CLrhome
Clrdraw
Text(1,1,"liste de virus"
text(8,1,"lapin"
text(16,1,"death"
text(24,1,"gamev"
text(32,1,"azigo"
text(40,1,"13-g8
pause :goto 1


lbl 2
clrhome
disp " scan en cours"
output(2,1,"["
output(2,8,"]"
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,2,"."
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,3,"."
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,4,"."
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,5,"."
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,6,"."
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69! ( 30 fois )
output(2,7,"."
69!
69!
69!
69!
69!
69!
randInt(1,100)->A
if A=1
Then:Clrhome
output(1,1,"trouve lapin"
pause :goto 6
end
if A=2
Then:Clrhome
output(1,1,"trouve death"
pause :goto 6
end
if A=3
Then:Clrhome
output(1,1,"trouve gamev"
pause :goto 6
end
if A=4
Then:Clrhome
output(1,1,"trouve azigo"
pause :goto 6
end
if A=5
Then:Clrhome
output(1,1,"trouve 13-g8"
pause :goto 6
end
if A>5
then:Clrhome
output(1,1,"ti non infecte"
pause :goto 1
end

lbl 6
Clrhome
Menu("danger virus","suprimer",7

lbl 7
Clrhome
disp " virus suprimer"
pause :goto 1

-> c'est la touche Sto
Les 69! (très chiant à mettre je l'admet) servent a faire ralentir, donc plus vous en mettez, plus votre caltos prendra du temps et inversement.

P.S : Pour ce qui ne l'avait pas remarqué, ceci est un faux antivirus ^^,

Age of history






clrdraw
clrhome
output(1,1,"****************"
output(8,1,"****************"
output(4,2,"age of history"
output(6,5,"by scale"
pause

lbl 1
Menu("-age of history-","jouer",2,"aide",3,"quitter",4,"reset",99

lbl 99
clrhome
0->K
0->G
0->P
0->M
0->O
0->F
500->H
0->A
0->B
0->C
0->D
0->I
0->J
0->L
pause
output(1,1,"sauvegarde"
output(2,1,"effacer"
pause :goto 1

lbl 3
clrdraw
clrhome
Menu("menu aide","armurie",26,"caserne",27,"bataille",28)

lbl 28
output(1,1,"plus tu as de pv"
output(2,1,"et plus tu as de"
output(3,1,"chance de gagner"
pause :goto 1

lbl 27
clrdraw
clrhome
output(1,1,"pour faire
output(2,1,"un soldat
output(3,1,"il faut :"
output(5,1,"1 homme
output(6,1,"1 epee
output(7,1,"1 bouclier
output(8,1,"1 armure
pause :goto 1

lbl 26
clrdraw
clrhome
output(1,1,"pour construire
output(3,1,"1 epee :10 fer
output(4,1,"bouclier :10 bois
output(5,1,"armure :5 fer et
output(6,1,"10 bois
pause :goto 1

lbl 4
clrhome
output(4,4,"a bientot
pause
stop

lbl 2
clrhome
clrdraw
menu("-age of history-","armurie",5,"montagne",6,"caserne",7,"entrepot",8,"bataille",9,"objectif",29,"quitter",1)

lbl 29
clrdraw
clrhome
output(1,1,"niveau 1 :
output(2,1,"50 victoire"
output(4,1,"tu a victoire"
output(4,6,G
if G >=50
then:goto 30
end
pause :goto 1

lbl 30
clrhome
clrdraw
output(1,1,"****************"
output(8,1,"****************"
output(4,1,"felicitation tu"
output(5,1,"a fini le niveau"
pause :goto 1

lbl 9
clrhome
clrdraw
if K <= 0
Then:goto 2
end
1+K->P
1+M->O
output(1,1,K
output(1,5,"soldats
output(2,1,M
output(2,5,"pv
output(3,1,"----------------"
output(4,1,P
output(4,5,"ennemis
output(5,1,O
output(5,5,"pv
pause
clrhome
output(1,1,"tu attaques
pause
randint(1,10)->F
clrhome
output(1,1,"- pv"
output(1,3,F
pause
O-F->O
if O>0
then:goto 25
end

lbl 25
clrhome
output(1,1,"ils attaquent
pause
randint(1,10)->F
clrhome
output(1,3,F
output(1,1,"- pv
pause
M-F->M
if M<=0
then:goto 24
end
if M>0
then:goto 9
end

lbl 23
clrhome
H+500->H
K-2->K
1+A->A
G+1->G
output(4,2,"tu as gagner"
pasue :goto 2

lbl 24
clrhome
output(4,1,"tu as perdu!
K-K->K
pause :goto 2

lbl 7
clrhome
clrdraw
Menu("caserne","armer",16,"entrainer",17,"retour",2)

lbl 17
clrhome
clrdraw
if K<0
then:0->K
end
if M<0
then:0->M
end
output(1,1,K
output(1,5,"soldats
output(2,1,M
output(2,8,"pv
output(4,1,A
output(4,4,"hommes
pause
Menu("choix :","combat",22,"retour",2)

lbl 22
clrdraw
clrhome
If M<=0
then:0->M
end
if K<=0
then:goto 2
end
H-50->H
randint(1,2)->F
if F=1
then:M+0.5->M
clrhome
output(1,1,"+ 0.5 pv
end
if F=2
then:M+1->M
clrhome
output(1,1,"+ 1 pv
end
pause :goto 2

lbl 16
input "homme :",F
if F>A
then:goto 2
end
if F=1
then:L+1->L
goto 18
end
if L=/=1
then: goto 19
end

lbl 18
clrhome
clrdraw
input "armure :",F
if F>B
then:goto 2
end
if F=1
then:L+1->L
goto 20
end
if F=/=1
then: goto 19
end

lbl 20
clrdraw
clrhome
input "epee :",F
if F>C
then:goto 2
end
if F=1
then:L+1->L
goto 21
end
if F=/=1
then:goto 19
end

lbl 21
clrhome
clrdraw
input "bouclier",F
if F>D
then:goto 2
end
if F=1
then:clrhome
output(1,1,"+ 1 soldat
1+K->K
A-1->A
B-1->B
C-1->C
D-1->D
pause :goto 2
end
if F=/=1
then:goto 19
end

lbl 19
Clrhome
output(1,2,"une erreur est
output(2,5,"survenue"
pause :goto 2

lbl 6
clrhome
Menu("chercher","bois",10,"fer",11

lbl 10
if H<20
then:goto 2
end
H-20->H
randint(1,10)->F
output(1,1,F
output(1,4,"Bois en plus"
F+J->J
pause :goto 2

lbl 11
if H<20
then:goto 2
end
H-20->H
randint(1,10)->F
output(1,1,F
output(1,4,"fer en plus"
F+I->I
pause :goto 2

lbl 8
clrdraw
clrhome
text(1,1,"ton entrepot :"
text(8,1,B
text(8,30,"armures"
text(16,1,C
text(16,30,"epees"
text(24,1,D
text(24,30,"boucliers"
text(32,1,I
text(32,30,"unites de fer"
text(40,1,J
text(40,30,"unites de bois"
text(48,1,H
text(48,30,"F"
pause :goto 2

lbl 5
clrhome
menu("construire :","epee",12,"bouclier",13,"armure",14,"retour",2)

lbl 14
cldraw
clrhome
intput "fer :",F
if F>I
then:goto 2
end
if F=5
then:goto 15
end
if F=/=5
then:goto 2
end

lbl 15
cldraw
clrhome
intput "bois :",F
if F>J
then:goto 2
end
if F=10
then:output(3,1,"+ 1 armure"
I-5->I
J-10->J
1+B->B
pause :goto 2
end

if F=/=10
then:goto 2
end


lbl 13
clrhome
input "bois :",F
if F>J
then:output(3,1,"+ 1 bouclier"
J-10->J
1+D->D
pause :goto 2
end
if F=/=10
then:goto 2
end

lbl 12
clrhome
clrdraw
input "fer :",F
if F>I
then:goto 2
end
if F=10
then:output(3,1,"1 epee fabrique"
I-10->I
C+1->C
pause :goto 2
end
if F=/=10
then:goto 2
end

Voila pour vous un liens vers le telachargement d'un émulateur de Ti de son propre nom :Virtual TI v2.5 beta 5



Nom : Virtual TI v2.5 beta 5
Taille : 1,2 Mo
Créateur : Rusty Wagner

__+++++++++++++++++++++++
__+++++++++++++++++++++++
__+++++++++++++++++++++++
__++++++_++Sondage__+|+++++
__+++++++++++++++++++++++
__+++++++++++++++++++++++
__+++++++++++++++++++++++



Ti 82 vote : 8

Ti 83 vote : 3

Ti 84 vote : 4

Autre vote : 0

Voilà, c'est la fin de la partie sur les Ti alors sur cette article vous pouvez me dire tout ce qui vous a plus, ce que vous voudriez voir en plus, ce qui ne va pas etc... alors je conte sur VOUS !!

Il faut bien finir en beauté, alors voici un site !!


Reponses :

- Pour Ti 84 silver edition : quand tu crées ton programme, tu fait [prgm] tu vas dans I/O avec la fleche droite et input est le 1er et output est le 6eme.