PureBoard

Verfasst: **13.03.2005 14:19**

Ahoi aus dem schönen Hessen!!

Ich habe mal einen Chat geproggt. Es gibt zwar schon genug aber ich denke ich habe mal was neues eingbaut

Habe mich besonder darauf konzentriert des jeder User eine eigene Schriftart & Farbe haben kann. Räume sind zwar schon möglich aber noch recht fehlerhaft!

Deswegen hab ich erstmal nur einen Raum eingestellt.
Achso es gibt noch ein paar befehle:

Server

Code: Alles auswählen

/kick Username
/exit

Client

Code: Alles auswählen

/kiss Username (ich geb ja zu hab ich von knuddels geklaut :-D )
/status Nachricht 
/exit

Screenshot:

DOWNLOAD
Freue mich auf Fragen und Feedback

Verfasst: **14.03.2005 20:57**

Hallo

Ich habs ausprobiert. Sieht schon recht
proffesionel aus.

Ist dieser Chat nur für Lan gedacht?
Oder könnte man denn auch übers Internet benutzen?

Ich hab schon seit langem einen Wunsch
ein Projekt-Chat für Purebasic zu entwickeln.
Ich meine ein Chat in dem die Räume als Projekte angelegt werden
und die Clients sich mit Resourcen(Bilder,Musicdateien,Includes usw)
an Projekten beteiliegen können.

Kennst du vieleicht den jaPBE.
Man könnte diesen Projekt-Chat als needed Toll einbinden.

Vieleicht hast eine Idee oder Tipps wie man sowas entwickeln kann.

Danke

Verfasst: **15.03.2005 13:30**

btw:

der /me befehl (general emote) ist inzwischen sehr gebräuchlich...

Verfasst: **15.03.2005 14:25**

@TSE
Der Chat geht übers Internet habs schon probiert
Zu dem Projekt-Chat für Purebasic schreib mir mal ne PM wie du dir das vorstellst ich mache gerne mit!

@Kaeru Gaman
vom befehl /me (general emote) hab ich noch nichts gehört kannst du mich mal aufklären?

Thx 4 Feedback

MJP

Verfasst: **15.03.2005 14:32**

im Irc siehts so aus:
Ich tipp /me trinkt ne Tasse Kaffee
und dann kommt:
* 125 trinkt eine Tasse Kaffee

Verfasst: **15.03.2005 15:26**

** MJP hat fertig **

Cool

sofort eingebaut! noch wünsche?

Selber Link:DOWNLOAD

Verfasst: **15.03.2005 15:58**

@MJP
Haste auch den Code zum " Schlaumachen " der Anfänger ?
MfG[/quote]

Verfasst: **15.03.2005 16:35**

Was willste denn wissen Helmut?

Verfasst: **15.03.2005 16:53**

alles

naturlemang den Code vom Server und Client. Ich denke, nicht nur ich bin neugierig wie man es so programmiert.
Ich werde bestimmt nichts kritisieren, daß finde ich ziemlich Oberlehrerhaft. Kannst es ansonsten auch über PM machen. Ansonsten finde ich Falko's Devise gut , so ungefähr:" Ich lerne gern, erzähle es aber auch gern weiter...".
Vielen Dank im Voraus
Helmut

Verfasst: **15.03.2005 17:04**

Kein Problem können wir auch hier machen:

Also den Server & Client habe ich mit der PB Hilfe gemacht
Jetzt zur Färbung und zu den Fonts Da habe ich folgende Proceduren benutzt:

Code: Alles auswählen

Procedure Editor_FontSize(Gadget, FontSize.l) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_SIZE 
  format\yHeight = FontSize * 20 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure 

Procedure Editor_Font(Gadget, FontName.s) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_FACE 
  PokeS(@format\szFaceName, FontName) 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure 

Procedure Editor_FontColor(Gadget, Color.l) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_COLOR 
  format\crTextColor = Color 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure

So haben ich die Verschiedenen Fonts und Schriftarten in einer Zeile hinbekommen:

Code: Alles auswählen

   
            Editor_Font(#chat, sysfont)
            Editor_FontColor(#chat,RGB(sysred,sysgreen,sysblue))
            Editor_FontSize(#chat, sysfontsize)
            AddGadgetItem(#chat,-1,client+" : ")
            SendMessage_(GadgetID(#chat), #EM_LINESCROLL, #Null, #True)
            Editor_FontSize(#chat, Val(size))
            Editor_FontColor(#chat,RGB(Val(red),Val(green),Val(blue)))
            Editor_Font(#chat, font)
            SendMessage_(GadgetID(#chat), #EM_REPLACESEL  ,#False  ,Message)

Zudem habe ich auch noch folgendes Protokl entwickelt is fast Wie XML:

Code: Alles auswählen

{ROOM}Raumname{ROOM}{CLIENT}Username{/CLIENT{MESSAGE}Hallo Helmut{/MESSAGE}{FONT}Arial Black{/FONT}{RED}122{/RED}{GREEN}122{/GREEN}{BLUE}255{/BLUE}{SIZE}35{/SIZE}

Ich schicke dir gleich noch den Code des clients als PN

**Greeetzzz MJP**

PureBoard

PB Chat

PB Chat