DECLARE FUNCTION detech$ (tmp3 AS STRING) DECLARE SUB display (x AS STRING) ''Innit debugger CLS 'ON ERROR GOTO 98 display "Connecting..." ''Calculate and allocate space needed for intros f = FREEFILE OPEN "7c\intros.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, trash$ c = c + 1 LOOP CLOSE #f MaxIntros = c - 1: c = 0 DIM intros$(MaxIntros) ''Calculate and allocate space needed for tech expressions f = FREEFILE OPEN "7c\tech.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, trash$ c = c + 1 LOOP CLOSE #f DIM SHARED MaxTech MaxTech = c - 1: c = 0 DIM SHARED tech$(MaxTech) ''Calculate and allocate space needed for bullshit (right after command) f = FREEFILE OPEN "7c\bullshit.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, trash$ c = c + 1 LOOP CLOSE #f MaxBullShit = c - 1: c = 0 DIM bullshit$(MaxBullShit) ''Load intros f = FREEFILE OPEN "7c\intros.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, intros$(c) c = c + 1 LOOP CLOSE #f ''Load tech expressions f = FREEFILE: c = 0 OPEN "7c\tech.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, tech$(c) c = c + 1 LOOP CLOSE #f ''Load bullshit f = FREEFILE: c = 0 OPEN "7c\bullshit.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, bullshit$(c) c = c + 1 LOOP CLOSE #f ''Display a random intro RANDOMIZE TIMER c = INT(RND * MaxIntros) + 1 display "Connected." PRINT "" display detech(intros$(c)) ''Command prompt (exit on logout) 5 INPUT "[root@localhost]# ", tmp$ IF tmp$ = "logout" THEN GOTO 99 ''Reset scrambler code IF INT(RND * 2) = 0 THEN RANDOMIZE TIMER + ASC(LEFT$(tmp$, 1)) ''Self explainatiory 6 c = INT(RND * MaxBullShit) + 1 IF bullshit$(c) = "" THEN GOTO 6 display detech(bullshit$(c)) ''Load and proccess command file tmp2$ = LEFT$(tmp$, INSTR(tmp$, " ")) IF tmp2$ = "" THEN tmp2$ = tmp$ f = FREEFILE: xAnswer$ = "" tmp2$ = LEFT$(tmp2$, 8) OPEN "7c\" + tmp2$ + ".txt" FOR RANDOM AS #f IF LOF(f) = 0 THEN CLOSE #f KILL "7c\" + tmp2$ + ".txt" GOTO 9 END IF CLOSE #f f = FREEFILE OPEN "7c\" + tmp2$ + ".txt" FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, tmp3$ xAnswer$ = xAnswer$ + detech$(tmp3$) + CHR$(13) LOOP CLOSE #f display xAnswer$ GOTO 5 9 c = INT(RND * MaxBullShit) + 1 display detech(bullshit$(c)) display detech("(tech)(tech) (tech) (hex)(hex) (tech)") c = INT(RND * MaxBullShit) + 1 display detech(bullshit$(c)) GOTO 5 GOTO 99 98 display "OMG! H4X! (there's been an error). 0xDEAD" 99 display "Disconnected." END FUNCTION detech$ (tmp3 AS STRING) 7 FOR c = 0 TO RND * 1000 a = (INT(RND * 10000) + 1) MOD MaxTech NEXT c IF INSTR(tmp3$, "(tech)") THEN tmp3a$ = LEFT$(tmp3$, INSTR(tmp3$, "(tech)") - 1) tmp3b$ = MID$(tmp3$, INSTR(tmp3$, "(tech)") + 6) tmp3$ = tmp3a$ + tech$(a) + tmp3b$ END IF IF INSTR(tmp3$, "(tech)") THEN GOTO 7 8 FOR c = 0 TO RND * 1000 a = ((RND * 20000) / 20) MOD 16 b = ((RND * 20000) / 20) MOD 16 NEXT c IF INSTR(tmp3$, "(hex)") THEN tmp3a$ = LEFT$(tmp3$, INSTR(tmp3$, "(hex)") - 1) tmp3b$ = MID$(tmp3$, INSTR(tmp3$, "(hex)") + 5) tmp3$ = tmp3a$ + HEX$(a) + HEX$(b) + tmp3b$ END IF IF INSTR(tmp3$, "(hex)") THEN GOTO 8 detech$ = tmp3$ END FUNCTION SUB display (x AS STRING) CONST z = 2.5 DIM e AS STRING * 1 COLOR 10 FOR c = 1 TO LEN(x) e = MID$(x, c, 1) IF e = "|" THEN PRINT "" DO: LOOP UNTIL ABS(old - TIMER) > .5 / z old = TIMER ELSE PRINT e; END IF IF e <> " " THEN DO: LOOP UNTIL ABS(old - TIMER) > .1 / z old = TIMER BEEP IF e = "," THEN DO: LOOP UNTIL ABS(old - TIMER) > .3 / z old = TIMER END IF IF e = "!" OR e = "?" OR e = "." THEN DO: LOOP UNTIL ABS(old - TIMER) > 1 / z old = TIMER END IF ELSE DO: LOOP UNTIL ABS(old - TIMER) > .2 / z old = TIMER END IF NEXT c PRINT "" END SUB