HIVE
/
TriOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

IRC-Client: last functional changes for first release

This commit is contained in:
Jörg Deckert 2014-01-26 19:53:50 +01:00
parent a76f4cdd98
commit aebd98e497
3 changed files with 313 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
lib/led-engine.spin Normal file
View File

@ -0,0 +1,100 @@
{{
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// E555 Light Emitting Diode Engine
//
// Author: Kwabena W. Agyeman
// Updated: 7/27/2010
// Designed For: P8X32A
// Version: 1.1
//
// Copyright (c) 2010 Kwabena W. Agyeman
// See end of file for terms of use.
//
// Update History:
//
// v1.0 - Original release - 1/26/2010.
// v1.1 - Added support for variable pin assignments - 7/27/2010.
//
// For each included copy of this object only one spin interpreter should access it at a time.
//
// Nyamekye,
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// LED Circuit:
//
// LEDPinNumber --- LED Driver (Active High).
//
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}}
PUB LEDFrequency(newFrequency, LEDPinNumber) '' 11 Stack Longs
'' ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'' // Changes the light emitting diode frequency using the SPIN interpreter's counters. Brightness will be set to zero.
'' //
'' // NewFrequency - The new frequency. Between 0 Hz and 80MHz @ 80MHz. -1 to reset the pin and counter modules.
'' // LEDPinNumber - Pin to use to drive the LED circuit. Between 0 and 31.
'' ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
LEDSetup((newFrequency <> -1), LEDPinNumber, true)
newFrequency := ((newFrequency <# clkfreq) #> 0)
result := 1
repeat 32
newFrequency <<= 1
result <-= 1
if(newFrequency => clkfreq)
newFrequency -= clkfreq
result += 1
frqa := result~
PUB LEDBrightness(newBrightness, LEDPinNumber) '' 11 Stack Longs
'' ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'' // Changes the light emitting diode brightness using the SPIN interpreter's counters. Frequency will be set to zero.
'' //
'' // NewBrightness - The new brightness. Between 0% and 100%. -1 to reset the pin and counter modules.
'' // LEDPinNumber - Pin to use to drive the LED circuit. Between 0 and 31.
'' ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
LEDSetup((newBrightness <> -1), LEDPinNumber, false)
frqb := (((newBrightness <# 100) #> 0) * constant(posx / 50))
PRI LEDSetup(activeOrInactive, LEDPinNumber, frequencyOrBrightness) ' 6 Stack Longs
LEDPinNumber := ((LEDPinNumber <# 31) #> 0)
dira[LEDPinNumber] := activeOrInactive
outa[LEDPinNumber] := false
ctra := (((constant(%0_0100 << 26) + LEDPinNumber) & activeOrInactive) & frequencyOrBrightness)
ctrb := (((constant(%0_0110 << 26) + LEDPinNumber) & activeOrInactive) & (not(frequencyOrBrightness)))
spr[2 - frequencyOrBrightness] := 0
spr[10 - frequencyOrBrightness] := 0
spr[12 - frequencyOrBrightness] := 0
{{
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// TERMS OF USE: MIT License
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation
// files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy,
// modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the
// Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
// WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
// COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
// ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}}

1
system/administra/admnet/admnet.spin
View File

@ -1197,6 +1197,7 @@ PRI lan_connect | ipaddr, remoteport, handle, handleidx, i
i++
ifnot (handle := sock.connect(ipaddr, remoteport, @bufrx[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
sock.resetBuffers(handle)
handleidx := handle.byte[0] 'extract the handle index from the lower 8 bits
sockhandle[handleidx] := handle 'komplettes handle zu handle index speichern
bufidx[i] :=handleidx

258
system/regnatix/irc.spin
View File

@ -35,6 +35,7 @@ OBJ
str: "glob-string"
num: "glob-numbers" 'Number Engine
gc : "glob-con"
led: "led-engine"
CON
@ -66,6 +67,7 @@ LEN_NICK = 32
LEN_USER = 32
LEN_CHAN = 32
LEN_IRCLINE = 512
LEN_IRCSRV = 64
MAX_LINES_WIN1 = 1000 ' maximale Zeilenanzahl im Puffer für Fenster 1 (Chat)
MAX_LINES_WIN2 = 1000 ' maximale Zeilenanzahl im Puffer für Fenster 2 (Status)
@ -85,7 +87,9 @@ VAR
long t1char 'Empfangs-Zeitpunkt des 1. Zeichen einer Zeile
long ip_addr
long hiveid
long ledcog
long bufstart[4]
long ledstack[30] 'Stack für LED-Cog
word buflinenr[4]
word scrolllinenr[4]
word ip_port
@ -93,14 +97,16 @@ VAR
word sendpos
byte handleidx 'Handle-Nummer IRC Verbindung
byte rows,cols,vidmod
byte joined
byte x0[4], y0[4], xn[4], yn[4], hy[4], buflinelen, focus
byte password[LEN_PASS+1],nickname[LEN_NICK+1],username[LEN_USER+1],channel[LEN_CHAN+1]
byte password[LEN_PASS+1],nickname[LEN_NICK+1],username[LEN_USER+1],channel[LEN_CHAN+1],ircsrv[LEN_IRCSRV+1]
byte input_str[64]
byte temp_str[256]
byte print_str[256]
byte print_str_ptr
byte send_str[LEN_IRCLINE]
byte receive_str[LEN_IRCLINE]
byte brightness
PUB main | key
@ -108,6 +114,7 @@ PUB main | key
repeat
if ios.keystat > 0
ledStop
key := ios.key
case key
gc#KEY_TAB: f_focus
@ -129,13 +136,16 @@ PRI init
ip_port := 0
readpos := 0
sendpos := 0
ledcog := 0
handleidx := $FF
password[0] := 0
nickname[0] := 0
username[0] := 0
channel[0] := 0
send_str[0] := 0
ircsrv[0] := 0
focus := 3
joined := FALSE
ios.start 'ios initialisieren
ifnot (ios.admgetspec & LANMASK)
@ -373,6 +383,8 @@ PRI conf_load | i
PRI ircConnect | t
joined := FALSE
handleStatusStr(string("Verbinde mit IRC-Server..."), 2, TRUE)
ios.lanstart
if (handleidx := ios.lan_connect(ip_addr, ip_port)) == $FF
@ -395,6 +407,8 @@ PRI ircClose
handleidx := $FF
handleStatusStr(string("Verbindung mit IRC-Server getrennt..."), 2, TRUE)
title_draw
PRI ircPass
handleStatusStr(string("Sende Paßwort..."), 2, TRUE)
@ -402,17 +416,18 @@ PRI ircPass
handleStatusStr(string("Fehler beim Senden des Paßwortes"), 2, TRUE)
return(-1)
PRI ircReg
if strsize(@channel) == 0
handleStatusStr(string("Sende Nickname und Benutzerinformationen..."), 2, TRUE)
else
handleStatusStr(string("Sende Nickname und Benutzer, verbinde mit Channel..."), 2, TRUE)
PRI ircNick
if sendStr(string("NICK ")) or sendStr(@nickname) or sendStr(string(13,10))
handleStatusStr(string("Fehler beim Senden des Nicknamens"), 2, TRUE)
return(-1)
PRI ircReg
handleStatusStr(string("Sende Nickname und Benutzerinformationen..."), 2, TRUE)
ircNick
if sendStr(string("USER ")) or sendStr(@username) or sendStr(string(" 8 * :Hive #")) or sendStr(str.trimCharacters(num.ToStr(hiveid, num#DEC))) or sendStr(string(13,10))
handleStatusStr(string("Fehler beim Senden der Benutzerinformationen"), 2, TRUE)
return(-1)
@ -426,6 +441,22 @@ PRI ircJoin
handleStatusStr(string("Fehler beim Verbinden mit Channel"), 2, TRUE)
return(-1)
joined := TRUE
title_draw
PRI ircPart
sendStr(string("PART "))
sendStr(@channel)
if send_str[5] == " "
sendStr(@send_str[5])
sendStr(string(13,10))
channel[0] := 0
handleChatStr(@channel, @nickname, @send_str, 1)
joined := FALSE
title_draw
PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
if readLine(2000) 'vollständige Zeile empfangen
@ -438,7 +469,7 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
prefixstr := 0
commandstr := @receive_str 'es geht gleich mit dem Kommando los
if str.findCharacters(commandstr, string("PRIVMSG ")) == commandstr 'Chat Message
if str.startsWithCharacters(commandstr, string("PRIVMSG ")) 'Chat Message
chanstr := commandstr + 8
if (msgstr := str.replaceCharacter(chanstr, " ", 0))
msgstr++
@ -456,16 +487,17 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
sendStr(nickstr)
sendStr(string(" :VERSION HiveIRC 1.0.0 [P8X32A/80MHz] <http://hive-project.de/>",13,10))
else
ledStart
if byte[chanstr] == "#" 'Message an Channel
handleChatStr(chanstr, nickstr, msgstr, 0)
else 'Message an mich
handleChatStr(string("<priv>"), nickstr, msgstr, 2)
elseif str.findCharacters(commandstr, string("PING :")) == commandstr 'PING
elseif str.startsWithCharacters(commandstr, string("PING :")) 'PING
handleStatusStr(string("PING erhalten, sende PONG"), 2, TRUE)
byte[commandstr][1] := "O"
sendStr(commandstr)
sendStr(string(13,10))
elseif str.findCharacters(commandstr, string("JOIN :")) == commandstr 'JOIN
elseif str.startsWithCharacters(commandstr, string("JOIN ")) 'JOIN
if (str.replaceCharacter(prefixstr, "!", 0))
repeat x from 0 to strsize(prefixstr) - 1
temp_str[x] := byte[prefixstr][x]
@ -474,7 +506,7 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
temp_str[x++] := byte[msgstr][i]
temp_str[x] := 0
handleStatusStr(@temp_str, 2, TRUE)
elseif str.findCharacters(commandstr, string("QUIT :")) == commandstr 'QUIT
elseif str.startsWithCharacters(commandstr, string("PART ")) 'PART
if (str.replaceCharacter(prefixstr, "!", 0))
repeat x from 0 to strsize(prefixstr) - 1
temp_str[x] := byte[prefixstr][x]
@ -483,11 +515,48 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
temp_str[x++] := byte[msgstr][i]
temp_str[x] := 0
handleStatusStr(@temp_str, 2, TRUE)
elseif str.startsWithCharacters(commandstr, string("QUIT :")) 'QUIT
if (str.replaceCharacter(prefixstr, "!", 0))
repeat x from 0 to strsize(prefixstr) - 1
temp_str[x] := byte[prefixstr][x]
msgstr := string(" hat den Server verlassen")
repeat i from 0 to strsize(msgstr) - 1
temp_str[x++] := byte[msgstr][i]
temp_str[x] := 0
handleStatusStr(@temp_str, 2, TRUE)
elseif str.startsWithCharacters(commandstr, string("NOTICE ")) 'Notiz
elseif str.startsWithCharacters(commandstr, string("MODE ")) 'Mode
elseif str.startsWithCharacters(commandstr, string("NICK ")) 'Nick
if (str.replaceCharacter(prefixstr, "!", 0))
repeat x from 0 to strsize(prefixstr) - 1
temp_str[x] := byte[prefixstr][x]
msgstr := string(" hat seinen Nicknamen geändert in ")
repeat i from 0 to strsize(msgstr) - 1
temp_str[x++] := byte[msgstr][i]
msgstr := commandstr + 5
if byte[msgstr] == ":"
msgstr++
repeat i from 0 to strsize(msgstr) - 1
temp_str[x++] := byte[msgstr][i]
temp_str[x] := 0
handleStatusStr(@temp_str, 2, TRUE)
elseif byte[commandstr][3] == " " 'Kommando 3 Zeichen lang -> 3stelliger Returncode
byte[commandstr][3] := 0
nickstr := commandstr + 4
msgstr := str.replaceCharacter(nickstr, " ", 0)
case num.FromStr(commandstr, num#DEC)
1: if prefixstr
msgstr := string("Verbunden mit ")
repeat x from 0 to strsize(msgstr) - 1
temp_str[x] := byte[msgstr][x]
repeat i from 0 to LEN_IRCSRV
ircsrv[i] := byte[prefixstr][i]
temp_str[x++] := byte[prefixstr][i]
if byte[prefixstr][i] == 0
quit
ircsrv[LEN_IRCSRV] := 0
handleStatusStr(@temp_str, 2, TRUE)
title_draw
372: handleStatusStr(msgstr + 3, 1, FALSE) 'MOTD
375..376:
other: repeat x from 0 to strsize(commandstr) - 1 'unbehandelter Return-Code
@ -502,6 +571,8 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
handleStatusStr(@temp_str, 2, TRUE)
else 'unbekanntes Kommando
handleStatusStr(commandstr, 2, FALSE)
ios.winset(3)
ios.curon
PRI ircPutLine | i
@ -510,37 +581,57 @@ PRI ircPutLine | i
elseif str.startsWithCharacters(@send_str, string("/save")) 'Konfiguration speichern
confSave
elseif str.startsWithCharacters(@send_str, string("/srv")) 'mit Server verbinden
if confServer 'wenn Eingabe IP und Port korrekt
if send_str[4] == " " and send_str[5] <> " " and send_str[5] <> 0 'Nick als Parameter angegeben
ifnot strToIpPort(@send_str[5], @ip_addr, @ip_port)
handleStatusStr(string("Fehlerhafte Eingabe von IP-Adresse und Port des IRC-Servers."), 2, TRUE)
return (FALSE)
else
ifnot confServer 'Eingabefenster
win_contentRefresh
return(FALSE)
else
win_contentRefresh
ircClose 'bei bestehender Verbindung diese beenden
ircConnect
ircPass
ircReg
else
win_contentRefresh
elseif str.startsWithCharacters(@send_str, string("/quit")) 'Verbindung mit Server trennen
ircClose
elseif str.startsWithCharacters(@send_str, string("/pass")) 'Paßwort ändern
confPass
win_contentRefresh
handleStatusStr(string("Paßwort geändert, zum Anwenden neu verbinden"), 2, FALSE)
elseif str.startsWithCharacters(@send_str, string("/nick")) 'Nickname ändern
if send_str[5] == " " and send_str[6] <> " " and send_str[6] <> 0 'Nick als Parameter angegeben
repeat i from 0 to LEN_NICK
nickname[i] := send_str[6+i]
if send_str[6+i] == 0
quit
channel[LEN_NICK] := 0
else
confNick
win_contentRefresh
ircNick
elseif str.startsWithCharacters(@send_str, string("/user")) 'User ändern
confUser
win_contentRefresh
handleStatusStr(string("User geändert, zum Anwenden neu verbinden"), 2, FALSE)
elseif str.startsWithCharacters(@send_str, string("/join")) 'mit Channel verbinden
if joined
handleStatusStr(string("Kanal bereits betreten, vorher mit /part verlassen"), 2, FALSE)
else
if send_str[5] == " " and send_str[6] == "#" 'Channel als Parameter angegeben
repeat i from 0 to LEN_CHAN
channel[i] := send_str[6+i]
if send_str[6+i] == 0
quit
channel[LEN_IRCSRV] := 0
else
confChannel
win_contentRefresh
ircJoin
elseif str.startsWithCharacters(@send_str, string("/part")) 'Channel verlassen
sendStr(string("PART "))
sendStr(@channel)
if send_str[5] == " "
sendStr(@send_str[5])
sendStr(string(13,10))
channel[0] := 0
handleChatStr(@channel, @nickname, @send_str, 1)
ircPart
elseif str.startsWithCharacters(@send_str, string("/msg")) 'Message an Nickname
sendStr(string("PRIVMSG "))
if (i := str.replaceCharacter(@send_str[5], " ", 0))
@ -561,16 +652,33 @@ PRI ircPutLine | i
sendStr(string(13,10))
handleChatStr(@channel, @nickname, @send_str, 1)
PRI frame_draw
PRI title_draw | spaces, i
ios.winset(0)
ios.curoff
ios.printcls
ios.cursetx(W0X_MENU)
ios.cursety(W0Y_MENU)
ios.setcolor(COL_HEAD)
spaces := cols-W0X_MENU
ios.print(string(" IRC Client"))
repeat cols-W0X_MENU-11
spaces -= 11
ifnot handleidx == $FF 'wenn verbunden
ios.print(string(" ("))
spaces -= 2
if joined
ios.print(@channel)
ios.printchar("@")
spaces -= strsize(@channel)+1
i := 0
repeat spaces - 1
if ircsrv[i] == 0 'Ende Servername erreicht
ios.printchar(" ")
else
ios.printchar(ircsrv[i])
if ircsrv[++i] == 0 'Ende Servername folgt
ios.printchar(")")
else
repeat spaces
ios.printchar(" ")
ios.printlogo(0,0)
@ -701,7 +809,9 @@ PRI setscreen | buflen[4], i
repeat i from 0 to MAX_LINES_WIN3 - 1 'Fensterpuffer leeren
printStrBuf(3)
frame_draw
ios.winset(0)
ios.printcls
title_draw
win_draw
'Eingabe-Fenster (Nr. 4)
@ -722,7 +832,7 @@ PRI printTime | timeStr, i
print_str[print_str_ptr++] := byte[timeStr][i]
print_str[print_str_ptr++] := "]"
PRI handleChatStr(chanstr, nickstr, msgstr, me) | i, channicklen, msglineend, ch, space
PRI handleChatStr(chanstr, nickstr, msgstr, me) | i, timenicklen, msglineend, ch, space, lastline
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
'' │ Chat-Zeile erstellen, anzeigen und in Puffer schreiben │
'' | |
@ -734,6 +844,7 @@ PRI handleChatStr(chanstr, nickstr, msgstr, me) | i, channicklen, msglineend, ch
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
ios.winset(1)
lastline := FALSE 'letzte der erstellten Zeilen?
print_str_ptr := 0 'String neu beginnen
'1. Teilstring: Zeit
@ -741,74 +852,49 @@ PRI handleChatStr(chanstr, nickstr, msgstr, me) | i, channicklen, msglineend, ch
printTime
print_str[print_str_ptr++] := 0
'2. Teilstring: Channel
if me == 2
print_str[print_str_ptr++] := COL_MYNICK 'Farbbyte
else
print_str[print_str_ptr++] := COL_CHAN 'Farbbyte
repeat i from 0 to strsize(chanstr) 'Länge Channel inkl. Abschluß-Null
print_str[print_str_ptr++] := byte[chanstr][i]
'3. Teilstring: Nickname
'2. Teilstring: Nickname
if me == 1
print_str[print_str_ptr++] := COL_MYNICK 'Farbbyte
else
print_str[print_str_ptr++] := COL_NICK 'Farbbyte
print_str[print_str_ptr++] := ">"
repeat i from 0 to strsize(nickstr) 'Länge Nickname inkl. Abschluß-Null
repeat i from 0 to strsize(nickstr) - 1 'Länge Nickname ohne Abschluß-Null
print_str[print_str_ptr++] := byte[nickstr][i]
print_str[print_str_ptr++] := ":"
print_str[print_str_ptr++] := " "
print_str[print_str_ptr++] := 0
'4. Teilstring: 1. Teil der Mitteilung
'3. Teilstring: 1. Teil der Mitteilung
if me == 1
print_str[print_str_ptr++] := COL_MYMSG 'Farbbyte
else
print_str[print_str_ptr++] := COL_MSG 'Farbbyte
print_str[print_str_ptr++] := ":"
print_str[print_str_ptr++] := " "
channicklen := strsize(chanstr) + strsize(nickstr) + 10
msglineend := cols - channicklen -2
repeat
timenicklen := strsize(nickstr) + 10
msglineend := cols - timenicklen -2
repeat until lastline
if strsize(msgstr) =< msglineend 'msgline paßt auf Zeile
repeat i from 0 to strsize(msgstr) 'Länge Mitteilung inkl. Abschluß-Null
print_str[print_str_ptr++] := byte[msgstr][i]
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[1] == 0 'Chat-Fenster nicht gescrollt
ios.printnl
printStrWin(@print_str)
printStrBuf(1)
quit
lastline := TRUE
else 'msgline muß umgebrochen werden
ch := byte[msgstr][msglineend] 'Zeichen am Zeilenende sichern
byte[msgstr][msglineend] := 0 'Messagestring am Zeilenende abschließen
if (space := findCharacterBack(msgstr, " ")) 'wenn letztes Leerzeichen in msgstr gefunden
byte[msgstr][msglineend] := ch 'Zeichen am Zeilenende wieder einfügen
byte[space] := 0 'msgstr am letzten Leerzeichen abschließen
repeat i from 0 to strsize(msgstr) 'und in print_str schreiben
repeat i from 0 to strsize(msgstr) 'Länge Mitteilung inkl. Abschluß-Null
print_str[print_str_ptr++] := byte[msgstr][i]
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig, weitere folgt
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[1] == 0
if scrolllinenr[1] == 0 'Chatfenster nicht gescrollt
ios.printnl
printStrWin(@print_str)
printStrBuf(1)
else 'kein einziges Leerzeichen
repeat i from 0 to strsize(msgstr) 'in print_str schreiben
print_str[print_str_ptr++] := byte[msgstr][i]
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig, weitere folgt
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[1] == 0
ios.printnl
printStrWin(@print_str)
printStrBuf(1)
printStrWin(@print_str) 'im Chatfenster anzeigen
printStrBuf(1) 'in Fensterpuffer schreiben
ifnot lastline 'wenn noch eine zeile folgt, diese bereits beginnen
if me == 1
print_str[print_str_ptr++] := COL_MYMSG 'nach Zeilenumbruch beginnt neue Zeile wieder mit Farbbyte
else
print_str[print_str_ptr++] := COL_MSG
repeat channicklen '"Tab" bis Ende Anzeige Channel + Nickname
repeat timenicklen '"Tab" bis Ende Anzeige Channel + Nickname
print_str[print_str_ptr++] := " "
if space
msgstr := space + 1
@ -866,12 +952,12 @@ PRI handleStatusStr(statusstr, win, showtime) | i, statlineend
if showtime
print_str[print_str_ptr++] := COL_STTIME 'Farbbyte
printTime
print_str[print_str_ptr++] := " "
print_str[print_str_ptr++] := 0
'2. Teilstring: Status
print_str[print_str_ptr++] := COL_STDEFAULT 'Farbbyte
if showtime
print_str[print_str_ptr++] := " "
statlineend := cols - 10
else
statlineend := cols - 2
@ -1011,17 +1097,18 @@ PUB input(strdesc, strdef, input_len) | i,n
ios.curon
repeat 'entspricht ab hier ios.input
n := ios.keywait 'auf taste warten
if n == $0d
quit
if (n == ios#CHAR_BS)&(i>0) 'backspace
case n
$0d: quit 'Enter, Eingabe beenden
ios#CHAR_BS: if i > 0 'Zurück
ios.printbs
i--
byte[@input_str][i] := 0
elseif i < input_len 'normales zeichen
9 .. 13, 32 .. 255: if i < input_len 'normales zeichen
ios.printchar(n)
byte[@input_str][i] := n
i++
byte[@input_str][i] := 0
ios.curoff
PRI readLine(timeout) : ch
@ -1039,6 +1126,10 @@ PRI readLine(timeout) : ch
readpos := 0
return(TRUE)
ifnot ios.lan_isConnected(handleidx) 'Verbindung unterbrochen
ircClose
return(FALSE)
if (readpos <> 0) and ((cnt - t1char) / (clkfreq / 1000) > timeout) 'Timeout seit Empfang 1. Zeichen
receive_str[readpos] := 0
readpos := 0
@ -1071,7 +1162,28 @@ PUB findCharacterBack(charactersToSearch, characterToFind) | i
return charactersToSearch + i
return 0
PRI ledStart
ifnot ledcog
ledcog := cognew(ledTwinkle(clkfreq/150), @ledstack)
PRI ledStop
if ledcog
cogstop(ledcog)
ledcog := 0
PRI ledTwinkle(rate)
repeat
repeat brightness from 0 to 100
led.LEDBrightness(brightness, gc#HBEAT) 'Adjust LED brightness
waitcnt(rate + cnt) 'Wait a moment
repeat brightness from 100 to 0
led.LEDBrightness(brightness,gc#HBEAT) 'Adjust LED brightness
waitcnt(rate + cnt) 'Wait a moment
DAT
strWin1 byte "Chat",0