PyroTFD´s Webpage

Welcome to the Homepage of

PYRO THE FIREDEVIL

This page has been visited

times.

Nur um alle Mißverständnisse auszuräumen, ich bin

nicht so böse wie es auf den ersten Blick aussieht.

Würde ich sonst die Drahtzahn veröffentlichen?

Tja, nun sollte ich auch vielleicht

erwähnen, wer ich bin!

Ich bin-

-ein ganz normaler Abnormaler.

-EDV-Spezialist in Ausbildung.

-ein nicht bösartiger Pyromane.

-etc. etc. etc.

Nebstbei: Der Link von LuckyTGX

Und der Link zur Drahtzahn Page

[email protected]

Für alle die einen TI82 von Texas Instruments haben

und denen öfters fad ist ein kleines Spiel.

(Allerdings nicht zum programmieren klein *g*)

-> ....... gilt als Speicherpfeilchen!

=< ...... gilt als KleinerGleich Symbol

_ ........ gilt als Abstand

Initialisieren

:Float

:ClrHome

:4 -> A

:1 -> Y

:5 -> C

:0 -> W

:4 -> I

:5 -> H

:0 -> P

:0 -> O

:Output(2,I,"Y")

:Output(6,A,"A")

:Output(2,10,"SHIELD")

:Output(5,10,"POINTS")

:Output(6,12,"0")

:For(Z,8,"I")

:Output(Z,8,"I")

:End

Der wichtigste Teil:

Hauptprog., Movement, Schuß

:Lbl 0

:Output(Y,7,"_")

:Output(Y,1,"_")

:Y+1 -> Y

:If Y=8:1 -> Y

:Output(Y,7,":")

:Output(Y,1,":")

:If W=1:A -> B

:If W=1:2 -> W

:If W=2:Output(C,B,"_")

:If W=2:C-1 -> C

:If C=0:0 -> W

:If C=0:5 -> C

:If W=2:Output(C,B,"!")

:Output(3,11,"____")

:Output(3,11,H)

:getKey -> X

:If X=24:Goto 1

:If X=26:Goto 2

:If X=11:Goto A

:If X=25 and W=<0:Goto 5

:If I=B and C=2:Goto T

:Goto C

Abbruch Obtion (no pain,

jetzt wirds leichter!)

:Lbl A

:333 -> P

:Goto 3

Treffer Sektion

:Lbl T

:1+P -> P

:Output(6,12,P)

:H-1 -> H

:Goto 0

Steuerungs Sektion:

Schiff nach links

:Lbl 1

:Output(6,A,"_")

:A-1 -> A

:If A=1:2 -> A

:Output(6,A,"A")

:Goto 0

:Lbl 2

:Output(6,A,"_")

:A+1 -> A

:If A=7:6 -> A

:Output(6,A,"A")

:Goto 0

Schuß Sektion

:Lbl S

:1 -> W

:Goto 0

Schild & Position des Computers

:Lbl C

:H+0,01 -> H

:If H=5,01:5 -> H

:Output(2,I,"_")

:(int (rand*5)-2) -> J

:I+J -> I

:If I=1:6 -> I

:If I=0:6 -> I

:If I=7:2 -> I

:If I=8:2 -> I

:Output(2,I,"Y")

:Goto 0

Bewertung

:ClrHome

:Output(3,6,"SCORE!")

:Output(1,4,"POINTS")

:Output(1,12,P)

:Output(5,1,"6_____ELITE")

:Output(6,1,"7_____ROOKIE")

:Output(7,1,"8-X___WIMP")

Für Alle die einen TI85 haben: Man muß zwar ein

paar Teile ändern, aber es funktioniert auch dort.

Leider sogar besser!!!

Jeder der will kann mir auch ein

paar neue TI82 (bzw. TI85) Programme

schicken. Vielleicht kommen die

Programme auch auf diese Seite!

Bitte noch warten, diese Seite ist

noch in der Konstruktionsphase!!

[email protected]