All pastes #281410 Raw Edit

Oneka

public text v1 · immutable
·published 2006-12-16 19:53 UTC
rendered paste body
MAKE_TEXT_SYSTEM(2,50)
DO
	TEXT_SYSTEM()
LOOP

FUNCTION MAKE_TEXT_SYSTEM(NUMBER,MAXSIZE)
	IF TEXT_SYSTEM_TABLE_CREATED = 0
		TEXT_SYSTEM_TABLE_CREATED = 1
		DREAMENGINE_CONSOLE_INPUTSCROLL("MADE TEXT SYSTEM ARRAYS")
	ENDIF
ENDFUNCTION

FUNCTION TEXT_SYSTEM()
	IF TEXT_SYSTEM_TABLE_CREATED = 1
		DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 0")
		FOR T = 1 TO ARRAY COUNT(TEXTSYSTEM(0))
			DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 1")
			IF TEXTSYSTEM(T).EXISTS = 1 AND TEXTSYSTEM(T).HIDDEN = 0
				DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 2")
			ENDIF
		NEXT T
	ENDIF
ENDFUNCTION