Binärzählthread

[Rapti]

0101 1000 0011 0101

[Brontalo]

0101 1000 0011 0110

[Root]

0101 1000 0011 0111

[Mew]

0101 1000 0011 1000

Code:

document.body.innerHTML = document.body.innerHTML.replace(/~/gi, '≁');

[Root]

0101 1000 0011 1001

Code:

Mew.name = "Kitty"

[Mew]

0101 1000 0011 1010

Code:

document.body.innerHTML = document.body.innerHTML.replace(/root/gi, 'Sepp');

[Root]

0101 1000 0011 1011

[NewBrony]

0101 1000 0011 1100

So langsam verstehe ich, warum man kein Basic mehr benutzt...

Spoiler (Öffnen)

100:RANDOM : WAIT 0:AN=12
110IM LV(5,4)
120:FOR Y=0 TO 4
130:FOR X=0 TO 5
140:READ LV(X,Y)
150:NEXT X
160:NEXT Y
170:INPUT "Schwierigkeitsgrad (1-5)?",S:S=S-1
180:RI=0

190:FOR I=1 TO AN
200:A= RND 4
210A=100+(S+1)*(A+11)

220:IF A<>1 THEN 280
230:E1= RND (LV(1,S)-LV(0,S))+LV(0,S):E2= RND (LV(1,S)-LV(0,S))+LV(0,S)
240:ER=E1+E2
250:AU$= STR$ (E1)+"+"+STR$ (E2)+"=":AL= LEN (AU$)
260RINT AU$: GOSUB 700
270:GOTO 480

280:IF A<>2 THEN 350
290:E1= RND (LV(1,S)-LV(0,S))+LV(0,S):E2= RND (LV(1,S)-LV(0,S))+LV(0,S)
300:IF E1<E2 THEN LET H=E1:E1=E2:E2=H
310:ER=E1-E2
320:AU$= STR$ (E1)+"-"+STR$ (E2)+"=":AL= LEN (AU$)
330RINT AU$: GOSUB 700
340:GOTO 480

350:IF A<>3 THEN 410
360:E1= RND (LV(3,S)-LV(2,S))+LV(2,S):E2= RND (LV(5,S)-LV(4,S))+LV(4,S)
370:ER=E1*E2
380:AU$= STR$ (E1)+"*"+STR$ (E2)+"=":AL= LEN (AU$)
390RINT AU$: GOSUB 700
400:GOTO 480

410:IF A<>4 THEN 480
420:E1= RND (LV(3,S)-LV(2,S))+LV(2,S):E2= RND (LV(5,S)-LV(4,S))+LV(4,S)
430:H=E1:ER=E1:E1=H*E2
440:ER=E1/E2
450:AU$= STR$ (E1)+"/"+STR$ (E2)+"=":AL= LEN (AU$)
460RINT AU$: GOSUB 700
470:GOTO 480

480:WAIT 100
500:CURSOR AL+24: PRINT " ";ER;" "
510:CURSOR AL
520:IF ER<> VAL (ER$) THEN GOTO 560
530RINT " RICHTIG"
570:WAIT 0
580:NEXT I

590:WAIT 100
600RINT "Richtig sind ";RI;" von ";AN
610RINT "Note ";6- INT ((5/AN*RI)+0.5)
620:END

700:ER$=""
710:FOR J=1 TO DA
720:C$= INKEY$
730:IF C$="=" THEN LET J=DA
740:IF C$<>"-" THEN GOTO 780
750:ER$= MID$ (ER$,1,LEN ER$-1)
760:CURSOR AL: PRINT " "
770:GOTO 790
780:ER$=ER$+C$
790:USING "#####":CURSOR AL: PRINT VAL ER$
800:NEXT J
810:RETURN

900ATA 2,9,2,5,2,5
910ATA 9,50,3,9,3,9
920ATA 100,300,3,9,11,19
930ATA 300,1000,11,19,19,50
940ATA 1000,5000,19,50,19,50

[Brontalo]

0101 1000 0011 1101

[tofl]

0101 1000 0011 1110

[Rapti]

0101 1000 0011 1111

[Brontalo]

0101 1000 0100 0000

[Root]

0101 1000 0100 0001

[Brontalo]

0101 1000 0100 0010

[tofl]

0101 1000 0100 0011
D:

[Root]

0101 1000 0100 0100
Was ist denn so D:?

[Brontalo]

0101 1000 0100 0101

[Mew]

0101 1000 0100 0110

Das Bildchen ist schon ziemlich D:

[Root]

0101 1000 0100 0111

Du siehst es doch garnicht.

[Brontalo]

0101 1000 0100 1000

Welches Bildchen?