Про чат и Интернет Подключение
 

Основа Чата отсюда! http://blitzetcetera.org/
Если кто не знает(а вдруг я расскажу пару штучек которые могут разнообразить ваш чат только основу (код мона найти тут http://blitzetcetera.org/ )
Вот есть у нас код. ВВодишь имя и переписываешься есть сообщения от том кто появился и кто ушел. Так ну во первых Очень не удобный шрифт сделаем в начале так:
Font = LoadFont("Courier New Cyr", 26)
SetFont Font
Color 255,0,0
Нет названия твоей программы(кстати я недавно об этом узнал)То есть в диспетчере и так далее названия у твоей проги нет пишем это
AppTitle ("Название твоей проги")
Потом ну очень тухлый чат как даун переписываться на черном фоне. Вставим Картинку
gfxPlayer=LoadImage("666.jpg")
DrawImage gfxPlayer,0,0
Вам не охото что бы кто то мог ввести ваше имя и чатиться наводить сплетни и разводить делаем так
If name$="Твое имя" Then
pwd$=Input$( "Вы используете ник Админа.Введите пароль для потдверждения Личности? " )
If pwd$=("Твой пароль") Then Goto label2
If pwd$<>("Твой пароль") Then End
Вроде все надеюсь вам это помогло вот полный код кому надо:
AppTitle ("Chat_version_0.4")
Global chat$=""
Global name$="noname"
Graphics 1024,768,32,2
Font = LoadFont("Courier New Cyr", 26)
SetFont Font
Color 255,0,0
Global gfxPlayer
SetBuffer BackBuffer()



Type Player
Field name$,net_id
End Type

Type Info
Field txt$
End Type


newGame = StartNetGame()
If newGame = 0 Then
End
EndIf

.label1:Cls
gfxPlayer=LoadImage("666.jpg")
DrawImage gfxPlayer,0,0
name$=Input$( "Как тебя звать? " )
If name$="" Then Goto label1
If name$="Чебурашка" Then
pwd$=Input$( "Это ник Админа!ВВедите пароль для потдверждения личности? " )
If pwd$=("гена-лох") Then Goto label2
If pwd$<>("гена-лох") Then End
EndIf
.label2:Cls
Global player.Player=New Player
player\name=name$
player\net_id=CreateNetPlayer( name$ )
myid=player\net_id


Cls
While Not KeyHit(1)
Cls
DrawImage gfxPlayer,0,0
UpdateNetwork()
UpdatePlayers()

RenderAll()

Flip
Wend

Function UpdateNetwork()
While RecvNetMsg()
Select NetMsgType()
Case 2:

info( NetPlayerName$( NetMsgFrom() )+": "+NetMsgData$() )
Case 100:

p.Player=New Player
p\net_id=NetMsgFrom()
p\name=NetPlayerName$( NetMsgFrom() )
info ( "К нам зашел: "+p\name )
Case 101:

p.Player=FindPlayer( NetMsgFrom() )
If p<>Null
info( "От нас ушел: "+p\name )
Delete p
EndIf
Case 102:

info( "Теперь я сервак!" )
Case 200:

EndGraphics
Print "Дисконект"
WaitKey
End
End Select
Wend
End Function

Function UpdatePlayers()
For p.Player=Each Player
If NetPlayerLocal( p\net_id )

key=GetKey()
If key
If key=13


If chat$<>"" Then SendNetMsg 2,chat$,p\net_id,0,0:info(name$+": "+chat$)
chat$=""
Else If key=8

If Len(chat$)>0 Then chat$=Left$(chat$,Len(chat$)-1)
Else If key>=32

chat$=chat$+Chr$(key)
EndIf
EndIf
EndIf
Next
End Function

Function info(t$)
i.Info=New Info
i\txt$=t$
Insert i Before First Info
End Function

Function RenderAll()
Cls
DrawImage gfxPlayer,0,0
Text 10,10,chat$
y=FontHeight()*2
r=0
For i.Info=Each Info
If r<15
Text 8,y,i\txt$
y=y+FontHeight()
r=r+1
Else
Delete i
EndIf
Next
End Function

Function FindPlayer.Player( id )
For p.Player=Each Player
If p\net_id=id Then Return p
Next
End Function

>>:( :wild:

Re: Про чат и Интернет Подключение
 

клева !! :)
только это все в журнале есть !!

Re: Про чат и Интернет Подключение
 

Там только основа! Я же написал как его разнообразить что бы было баще!

Re: Про чат и Интернет Подключение
 

Люди, неужели вы думаете писать чат на ДиректПлэй? :-) А новичкам хватит и той статьи что в журнале. По крайней мере, я учился по ней ;) В итоге написал собственную статейку :-)