Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > FAQ

FAQ Туториалы и часто задаваемые вопросы

Ответ
 
Опции темы
Старый 07.11.2007, 06:25   #1
Антихрист
Разработчик
 
Регистрация: 20.01.2007
Сообщений: 485
Написано 182 полезных сообщений
(для 412 пользователей)
Плохо Про чат и Интернет Подключение

Основа Чата отсюда! 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

(Offline)
 
Ответить с цитированием
Старый 07.11.2007, 17:58   #2
IGR
Blitz's Shame !!
 
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений
(для 2,013 пользователей)
Re: Про чат и Интернет Подключение

клева !!
только это все в журнале есть !!
(Offline)
 
Ответить с цитированием
Старый 08.11.2007, 05:00   #3
Антихрист
Разработчик
 
Регистрация: 20.01.2007
Сообщений: 485
Написано 182 полезных сообщений
(для 412 пользователей)
Re: Про чат и Интернет Подключение

Там только основа! Я же написал как его разнообразить что бы было баще!
(Offline)
 
Ответить с цитированием
Старый 08.11.2007, 20:16   #4
Tadeus
Троллота
 
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений
(для 1,772 пользователей)
Re: Про чат и Интернет Подключение

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


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подключение к данным GDB ? LIDERSERVIS MidletPascal 10 23.10.2009 11:30
Подключение нескольких библиотек cHeRsAnYa Основной форум 15 20.03.2009 20:16
Подключение эмулятора Siemens к NetBeans 5.5 ARV Программирование 16 04.02.2009 14:42
Подключение нескольких библиотек Seregakz Основной форум 6 18.08.2008 08:23
Подключение к серверу, не зная IP darkand 2D-программирование 6 29.06.2007 19:13


Часовой пояс GMT +4, время: 19:17.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com