Про чат и Интернет Подключение
Основа Чата отсюда! 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: Про чат и Интернет Подключение
Люди, неужели вы думаете писать чат на ДиректПлэй? :-) А новичкам хватит и той статьи что в журнале. По крайней мере, я учился по ней ;) В итоге написал собственную статейку :-)
|
Часовой пояс GMT +4, время: 13:48. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot