Chat-Queue

[trucidare]

ok Update:

Code (glbasic) Select Expand

SPLITSTR(ausgabe$, feld$[], "\r\n")
FOREACH a$ IN feld$[]
nick_position = INSTR(a$, "!")
nick_text$ = MID$(a$, 1, nick_position-1)
text_position = INSTR(a$, "PRIVMSG #Hiro :")
text_Length = LEN(a$)
text_text$ = MID$(a$,text_position+15, (text_length-text_position))

SPLITSTR(zeit$, time$[], " ")
IF text_position > -1
los$[0+c] = "|"+time$[1]+"| "+nick_text$+": "+text_text$
c = c+1
ENDIF
NEXT
ausgabe$ = ""
PRINT c,0,0

FOR g = 0 TO 40-1
PRINT los$[g],0,540-(g*ty)
NEXT
FOR h = 40 TO 1
los$[h] = los$[h-1]
NEXTdamit kann ich zwar eine queue aufbauen jedoch fehlt jetzt der text der geschrieben wurde
nickname und zeit sind da und werden angezeigt

und nach 42 zeilen kackt das ganze ab... ich hab heute irgendwie mal wieder ne blockade *heul*

[Kitty Hello]

und nach 42 zeilen kackt das ganze ab...

Schalt' den Debugger ein und lass' laufen. Dann siehst Du wo's abstürzt.

[trucidare]

problem das der text nicht angezeigt wird gefixt!

das programm schmiert ab weil ich keine felder mehr nach oben hin habe. dim los$[41]
ich arbeite gerade an einer lösung das nach 40 zeilen der kram gelöscht wird

[Kitty Hello]

dimdel los$[], 0