Печать

Пожалуйста, войдите или зарегистрируйтесь.
1 час 1 день 1 неделя 1 месяц Навсегда
Войти

[Katarsis]

У меня на оф. сервере пинг куда выше ниже, чем к кому-либо в хамачи...

[Simens s]

По поводу "срача" на форуме - флуд присущ обсолютно любому форуму. И не только новички с флудом приходят.

[unseen]

Флуд - это нарушение правил общения, у нас достаточно тем, которые можно обсуждать, не фонтанируя бессмысленными постами.

У меня на оф. сервере пинг куда выше, чем к кому-либо в хамачи...

По-моему, когда в последний раз тебя видел на сервере, пинг у тебя был сносный, порядка 80.

[Katarsis]

OH LOL. Вот так всегда, чуть задумаешься, напишешь не то слово, а потом... Я хотел сказать "лучше" или "ниже", исправьте пожалуйста...

[Simens s]

unseen, я прекрасно знаю, что такое флуд и не хотел обидеть форум. Я хотел сказать, что флуд ВСЕГДА будет (в умеренных кол-вах) и флудить могут не только новички, как написал охотник.

[Perfect]

Woah-woah-woah, okay, okay, calm down.

На самом деле, у нас такая традиция - так встречать активных новичков.

[Squall]

Последнее обновление данных: 0 секунд(ы) назад

На сервере 10 игроков.

Мне кажется, или раньше не писали кол-во игроков?

[Evengard]

Всегда писали.

[Lаrboss]

На старом харде нашел древнюю мои разработку на Blitz3D - игру для двоих на одном компе.

Судя по дате в исходнике - 2003-2004 год.

Выложу, пусть прогеры посмеются 

Spoiler: Код (click to show/hide)

Код: [Выделить]

;Made in Russia
;Autor Larionov Andre(Lar Group)
;Copyright 2003-2004.

Global title$="VertiTen ver 0.99"
AppTitle title$

;Include"Path.ini"

Const h=640
Const w=480

Global cfgvt$="vt.cfg"

Global inp$

Global score01,score02,shots0,pos_plat_x0,pos_plat_y0,pos_plat2_x0,pos_plat2_y0,pos_ball_x0,pos_ball_y0

Global pos_plat_x=25
Global pos_plat_y=0

Global pos_plat2_X=640 ;640
Global pos_plat2_y=0

Global pos_ball_x=h/2
Global pos_ball_y=0
Global pos_ball_x_mov=5,pos_ball_y_mov=5

contr_keyb=1
contr_joy=0
contr_mouse=0

Global tag#,tag_speed#=0.5

Global score1=0,score2=0,shots=0

Global cfgfile=ReadFile(cfgvt)

ReadString(cfgfile)
move_speed0=ReadInt(cfgfile)

Global move_speed=move_speed0

Function save_game(Namesave$)

savefile=WriteFile("save\"+namesave+".sav")

WriteString(savefile,title$)
WriteInt(savefile,score1)
WriteInt(savefile,score2)
WriteInt(savefile,shots)
WriteInt(savefile,pos_plat_y)
WriteInt(savefile,pos_plat2_y)
WriteInt(savefile,pos_ball_x)
WriteInt(savefile,pos_ball_y)

CloseFile(savefile)

End Function

Function fast_load_game(loadname$)

loadfile=ReadFile("Save\"+loadname+".sav")

title0$=ReadString(loadfile)
score01=ReadInt(loadfile)
score02=ReadInt(loadfile)
shots0=ReadInt(loadfile)
pos_plat_y0=ReadInt(loadfile)
pos_plat2_y0=ReadInt(loadfile)
pos_ball_x0=ReadInt(loadfile)
pos_ball_y0=ReadInt(loadfile)

score1=score01
score2=score02
shots=shots0
pos_plat_y=pos_plat_y0
pos_plat2_y=pos_plat2_y0
pos_ball_x=pos_ball_x0
pos_ball_y=pos_ball_y0

If title0=title
okl=1
Else
RuntimeError"Этот фаил поврежден или другой версии(игры)!"
End If

CloseFile(loadfile)

End Function

Graphics h,w,16,1

Goto def

.Menu
SetBuffer BackBuffer()

code("Data\m_back_t.vtg","BM")
code("data\m_name_t.vtg","BM")
code("data\m_arrow_t.vtg","BM")
code("data\m_b1.vtg","BM")

;Menu gfx
logo_back=LoadImage("data\m_back_t.vtg")
logo_name=LoadImage("data\m_name_t.vtg")
arrow=LoadImage("data\m_arrow_t.vtg")
butt=LoadImage("data\m_b1.vtg")

code("Data\m_back_t.vtg","VT")
code("data\m_name_t.vtg","VT")
code("data\m_arrow_t.vtg","VT")
code("data\m_b1.vtg","VT")


font=LoadFont("Arial",30)

c#=0
c_speed#=-0.5

While Not KeyDown(88)

Color 255,255,255
ClsColor c,c,c

c=c+c_speed

If c<200
c_speed=-c_speed 
ElseIf c>=255
c_speed=-c_speed
End If

Select ma
Case 0 : mova=w/2-ImageWidth(butt)/2
Case 1 : mova=w/2-ImageWidth(butt)/2+100
Case 2 : mova=w/2-ImageWidth(butt)/2+200
Case 3 : mova=w/2-ImageWidth(butt)/2+300
End Select


TileImage logo_back,0,0
DrawImage logo_name,h/2-ImageHeight(logo_name)/2-100,30

DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2;game
DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+100;loadgame
DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+200;options
DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+300;quit

If KeyHit(208) Then ma=ma+1
If KeyHit(200) Then ma=ma-1

If ma>3 Then ma=0
If ma<0 Then ma=3

If KeyHit(28)
If ma=1 Then Goto Loadgame
End If
 
If KeyDown(28)
If ma=0 Then Goto game
End If

If KeyDown(28)
If ma=3 Then End 
End If

If KeyDown(28)
If ma=2 Then Goto options
End If

tag#=tag#+tag_speed#

If tag>15
tag_speed=-tag_speed
ElseIf tag<=0
tag_speed=-tag_speed
End If

DrawImage arrow,h/2-ImageHeight(butt)/2-50-50-15+tag,mova

SetFont font
Text h/2-ImageHeight(butt)/2-50+25,w/2-ImageWidth(butt)/2,"New Game"
Text h/2-ImageHeight(butt)/2-50+25,w/2-ImageWidth(butt)/2+100,"Load Game"
Text h/2-ImageHeight(butt)/2-50+45,w/2-ImageWidth(butt)/2+200,"Options"
Text h/2-ImageHeight(butt)/2-50+65,w/2-ImageWidth(butt)/2+300,"Quit"

Flip
Cls
Wend
End

.options
SetBuffer BackBuffer()

code("Data\m_back_t.vtg","BM")
code("data\m_name_t.vtg","BM")
code("data\m_arrow_t.vtg","BM")
code("data\m_b1.vtg","BM")

butt=LoadImage("data\m_b1.vtg")
arrow=LoadImage("data\m_arrow_t.vtg")
bk=LoadImage("data\m_back_t.vtg")
bkl=LoadImage("data\m_name_t.vtg")

code("Data\m_back_t.vtg","VT")
code("data\m_name_t.vtg","VT")
code("data\m_arrow_t.vtg","VT")
code("data\m_b1.vtg","VT")


mvo=0

While Not KeyDown(88)

Select mvo
Case 0 : my=w/2-ImageWidth(butt)/2+100
Case 1 : my=w/2-ImageWidth(butt)/2+300
End Select

If KeyHit(208) Then mvo=mvo-1
If KeyHit(200) Then mvo=mvo+1

If mvo>1 Then mvo=0
If mvo<0 Then mvo=1

If KeyDown(28)
If mvo=1 Then Gosub menu : End
End If

If KeyHit(28)
If mvo=0 Then move_speed=move_speed+1
End If

If move_speed>6 Then move_speed=4
If move_speed<4 Then move_speed=6


TileImage bk,0,0

DrawImage bkl,h/2-ImageHeight(bkl)/2-100,30

tag#=tag#+tag_speed#

If tag>15
tag_speed=-tag_speed
ElseIf tag<=0
tag_speed=-tag_speed
End If

DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+100
DrawImage arrow,h/2-ImageHeight(butt)/2-50-50-15+tag,my
DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+300 ;back m

Text h/2-ImageHeight(butt)/2-50+15,w/2-ImageWidth(butt)/2+100,"Move Speed "+move_speed
Text h/2-ImageHeight(butt)/2-50+65,w/2-ImageWidth(butt)/2+300,"Back"

Flip
Cls
Wend
End

.def
SetBuffer BackBuffer()

Text 0,0,"Loading..."

code("Data\small_logo_2.vtg","BM")
code("data\back3.vtg","BM")
code("data\panel_cent.vtg","BM")

im=LoadImage("data\small_logo_2.vtg")
back3=LoadImage("data\back3.vtg")
pan=LoadImage("Data\panel_cent.vtg")

code("Data\small_logo_2.vtg","VT")
code("data\back3.vtg","VT")
code("data\panel_cent.vtg","VT")


d=64*3
f=48*4


MaskImage im,255,0,0

ResizeImage im,ImageWidth(im)-8,ImageHeight(im)-8

While Not KeyDown(88)

If KeyDown(57) Or KeyDown(1) Or KeyDown(58) Then Goto menu : End

TileImage back3,0,0

DrawImage pan,640/2-ImageWidth(pan)/2,480/2-ImageHeight(pan)/2

DrawImage im,640/2-ImageWidth(pan)/2+4,480/2-ImageHeight(pan)/2+4

Flip
Cls
Wend
End


.Loadgame
SetBuffer BackBuffer()

code("Data\m_back_t.vtg","BM")
code("data\m_name_t.vtg","BM")
code("data\m_arrow_t.vtg","BM")
code("data\m_b1.vtg","BM")

logo_back=LoadImage("data\m_back_t.vtg")
logo_name=LoadImage("data\m_name_t.vtg")
arrow=LoadImage("data\m_arrow_t.vtg")
butt=LoadImage("data\m_b1.vtg")

code("Data\m_back_t.vtg","VT")
code("data\m_name_t.vtg","VT")
code("data\m_arrow_t.vtg","VT")
code("data\m_b1.vtg","VT")


font=LoadFont("Arial",25)

mvo0=0

While Not KeyDown(88)

Select mvo0
Case 0 : my=w/2-ImageWidth(butt)/2+100
Case 1 : my=w/2-ImageWidth(butt)/2+300
End Select

SetFont font

If KeyHit(208) Then mvo0=mvo0-1
If KeyHit(200) Then mvo0=mvo0+1

If mvo0>1 Then mvo0=0
If mvo0<0 Then mvo0=1

If KeyHit(28)
If mvo0=1 Then Gosub menu : End
End If

If KeyDown(28)
If mvo0=0 Then fast_load_game(ns$) : Gosub game : End
End If

TileImage Logo_back,0,0

DrawImage Logo_name,h/2-ImageHeight(logo_name)/2-100,30

tag#=tag#+tag_speed#

If tag>15
tag_speed=-tag_speed
ElseIf tag<=0
tag_speed=-tag_speed
End If

savedir$="C:\"

Mydir=ReadDir(savedir$)

nameofsave$=NextFile$(mydir)

NS$="Not Working!!!"

names$=ns$+".sav"

DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+100
DrawImage arrow,h/2-ImageHeight(butt)/2-50-50-15+tag,my
DrawImage butt,h/2-ImageHeight(butt)/2-50,w/2-ImageWidth(butt)/2+300

Text h/2-ImageHeight(butt)/2-50+15,w/2-ImageWidth(butt)/2+100,Names
Text h/2-ImageHeight(butt)/2-50+65,w/2-ImageWidth(butt)/2+300,"Back"

If nameofsave$="" Then Text h/2-ImageHeight(butt)/2-50+65,w/2-ImageWidth(butt)/2+200,"Saves Not found."

Flip
Cls
Wend
End

.Game
SetBuffer BackBuffer()

;Configuration

code("Data\back1_t.vtg","BM")
code("data\ball2_t.vtg","BM")
code("data\plat_t.vtg","BM")
code("data\back2.vtg","BM")
code("Data\ball.vtg","BM")
code("data\ball3.vtg","BM")

;gfx
Global back=LoadImage("data\back1_t.vtg")
Global back2=LoadImage("data\back2.vtg")

Global ball0=LoadImage("data\ball.vtg")
Global ball=LoadImage("data\ball.vtg")
Global ball2=LoadImage("data\ball2_t.vtg")
Global ball3=LoadImage("data\ball3.vtg")

Global plat=LoadImage("data\plat_t.vtg")
Global plat2=plat

code("Data\back1_t.vtg","VT")
code("data\ball2_t.vtg","VT")
code("data\plat_t.vtg","VT")
code("data\back2.vtg","VT")
code("Data\ball.vtg","VT")
code("data\ball3.vtg","VT")

;fonts
font=LoadFont("Arial",30)
;setup
RotateImage plat,90

TFormFilter 0

;ints
;pos_Object_coordinate
;other


pos_mode=Rnd(1)

While Not KeyDown(88)

If KeyHit(1) Then Gosub menu : End

ClsColor a,b0,c

If KeyHit(55)
inp3$=Input$("Enter cheat :")
End If

If inp3$="speed" Then move_speed=175
If inp3$="nospeed" Then move_speed=4

If inp3$="light"
oncl=1
End If

If inp3$="nolight"
oncl=0
End If

If oncl=0
a=0
b0=0
c=0
End If

If oncl=1
a=Rnd(50,255)
b0=Rnd(50,255)
c=Rnd(50,255)
End If

TileImage back,0,0

Select gfx_balls
Case 0 : ball=ball2
Case 1 : ball=ball3
Case 2 : ball=ball0
End Select


Select pos_mode
Case 0 : pos_ball_x=pos_ball_X+pos_ball_x_mov : pos_ball_y=pos_ball_y+pos_ball_y_mov
Case 1 : pos_ball_x=pos_ball_X-pos_ball_x_mov : pos_ball_y=pos_ball_y-pos_ball_y_mov
End Select


b=Rnd(150,255)
Color 0,0,b
SetFont font
Text 30,0,score1
Text 592,0,score2
Text h/2,440,shots

If KeyHit(59) Then newgame()

If KeyHit(60)
inp$=Input$("Name of save? :")
save_game(inp$)
End If

If KeyHit(61)
inp2$=Input$("Name of load? :")
fast_load_game(inp2$)
score1=score01
score2=score02
shots=shots0
pos_plat_y=pos_plat_y0
pos_plat2_y=pos_plat2_y0
pos_ball_x=pos_ball_x0
pos_ball_y=pos_ball_y0
End If

If contr_keyb=1 Then keyb2()

collide_ball()
collide_plat()
add_effect()

DrawImage ball3,h/2-ImageHeight(ball)/2,w/2-ImageWidth(ball)/2
DrawImage plat,pos_plat_x,pos_plat_y
DrawImage plat2,pos_plat2_x,pos_plat2_y
DrawImage ball,pos_ball_x,pos_ball_y

Flip
Cls
Wend
End

Function NewGame()

pos_plat_x=25
pos_plat_y=0

pos_plat2_X=640 ;640
pos_plat2_y=0

pos_ball_x=h/2
pos_ball_y=0
pos_ball_x_mov=5
pos_ball_y_mov=5

score1=0
score2=0
shots=0

End Function

Function keyb2()

;P1
If KeyDown(30) Then pos_plat_y=pos_plat_y-move_speed
If KeyDown(44) Then pos_plat_y=pos_plat_y+move_speed
;P2
If KeyDown(200) Then pos_plat2_y=pos_plat2_y-move_speed
If KeyDown(208) Then pos_plat2_y=pos_plat2_y+move_speed

End Function

Function collide_plat()

If pos_plat_y<0 Then pos_plat_y=0

If pos_plat_y>355 Then pos_plat_y=355

If pos_plat2_y<0 Then pos_plat2_y=0

If pos_plat2_y>355 Then pos_plat2_y=355

End Function

Function collide_ball()

If pos_ball_y=<0 Then pos_ball_y_mov=Rnd(0,8)*-1
If pos_ball_y=>365 Then pos_ball_y_mov=Rnd(0,8)

If ImagesOverlap(ball,pos_ball_X,pos_ball_y,plat,pos_plat_x,pos_plat_y) Then pos_ball_x_mov=Rnd(0,8)*-1 :gfx_balls=Rnd(0,2):shots=shots+1 :pos_ball_y_mov=Rnd(0,8)

If ImagesOverlap(ball,pos_ball_X,pos_ball_y,plat2,pos_plat2_x,pos_plat2_y) Then pos_ball_x_mov=Rnd(0,8) :gfx_balls=Rnd(0,2):shots=shots+1 : pos_ball_y_mov=Rnd(0,8)

If pos_ball_x=<0 Then pos_ball_x=h/2 : pos_ball_y=0 : score2=score2+1
If pos_ball_x=>640 Then pos_ball_x=h/2 : pos_ball_y=0 : score1=score1+1

End Function

Function add_effect()

;right
Line pos_plat_x,pos_plat_y,pos_plat_x,pos_plat_y+ImageWidth(plat)*4+20

;right2
Line pos_plat2_x-ImageWidth(plat2)-1,pos_plat2_y,pos_plat2_x-ImageWidth(plat2)-1,pos_plat2_y+ImageWidth(plat2)*4+20

End Function

Function code(Namef$,Cod$)

f=OpenFile(namef$)

WriteLine(f,cod$)

CloseFile(f)
End Function


PS. На современно железе будет работать как угорелая.

[Simens s]

Да ну, хорошая штука.... Этак 2 года назад примерно такие-же игры выпускали невософт и алавар (миниигры). Так что нормально, только хотелось бы уточнить управление))))))) А то в настройках его нет))))

[Evengard]

Хоть бы скрины сначала выложил. И предупредил, что запуск в полноэкранном режиме.

[Lаrboss]

Да управление простое - AZ и стрелочки верх-вниз для первого и второго игрока соответственно.

Игра идет быстро, ибо в ней не учитывается производительность ПК, на котором запущена. Писалась на машине К6 - 450 мгц, 64 мб памяти, 4 мб видеокарта с отдельным ускорителем Monster 3D =)

[Dio]

А сейчас уже с графикой не работаешь?

[Perfect]

Хочу плюс в карму D:

[unseen]

Хочу плюс в карму D:

Заслужи, попрошайка позорный. Дать тебе задание?)

[Squall]

Дать тебе задание?)

Уберите, пожалуйста, у него изумруды над аватарой и повесьте там мерцающий восклицательный знак)

[Lаrboss]

А сейчас уже с графикой не работаешь?

Когда пытался делать игры на Blitz3D, то занимался и 3D-графикой. Где-то даже есть пару 3D-проектов. Вроде сокобан и тетрис в большом трехмерном пространстве. В общем, свое-то увлечение программированием начинал с игродева. Сейчас пока им не увлекаюсь... так как осознал на сколько это сложное занятие, и одному тяжело.

[TheSim]

А я вот наоборот - вернулся в игродел как раз сейчас. Ибо собрал два вагона граблей по всяким проектам. В основном художника-аниматора и озвучки будет нехватать в феврале.

[Lаrboss]

А я вот наоборот - вернулся в игродел как раз сейчас. Ибо собрал два вагона граблей по всяким проектам. В основном художника-аниматора и озвучки будет нехватать в феврале.

Жанр разрабатываемой игр(ы)?

Хочу плюс в карму D:

Да на...

[Perfect]

Кул, комп окончательно сломался. Никто не встречал такую бяку, как nodqq.exe?

[Lаrboss]

Сломался в каком смысле: физическом или программном?

[KirConjurer]

Кул, комп окончательно сломался. Никто не встречал такую бяку, как nodqq.exe?

погуглил. видимо это простенький троян, ворующий пароли от акков онлайн игр и создающий авторан на флэшках.
http://www.bleepingcomputer.com/forums/topic316263.html

[Perfect]

2Larboss - В программном, но вчера его вроде как "отпустило".

2AngryKirC - Спасибо за инфу!

[Katarsis]

Кто поместит кусочек Варзика во всеобщие анналы?

Кто поместит, того на костре сожжем

[Nekon]

Иногда вы бываете такими противными и вредными.