Zum Spielen:
GRIPSW/ DECLRV
ENTITY/ obj
NUMBER/ subtyp
NUMBER/ objori(3)
STRING/ ostr(255)
MASK/ 25
INEXTE/ ALL
loopob:
obj = NEXTE/ IFEND, allobj:
subtyp = &SUBTYP(obj)
IFTHEN/ subtyp == 1
ostr = &DMTEXT(obj)
objori = &ORIGIN(obj)
PRINT/ USING, '#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #@@@@.@@ #@@@@.@@', $
ostr, objori(1), objori(2)
ENDIF
JUMP/ loopob:
allobj:
HALT
Und das nächste Mal bitte im Programmierforum ...
[Diese Nachricht wurde von älg am 08. Dez. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP