СтЕб и Ж.Д.А.Л.К.Е.Р, всякие лолы и лолки :-o) |
Здравствуйте, гость ( Авторизация | Регистрация )
СтЕб и Ж.Д.А.Л.К.Е.Р, всякие лолы и лолки :-o) |
06.03.2007, 22:50
Сообщение
#161
|
|
Игрок Репутация: 13 Группа: Только зарегистрировался Сообщений: 47 Регистрация: 13.02.2007 |
Цитата(Avoid @ Mar 6 2007, 19:19) До меня дошли слухи что вы отлично реализовали водку. Да, действительно мы торговали водкой до того как занялись «игроделом.» сильно... ну а как еще играми заниматься... )))))) |
 
|
|
|
|
08.03.2007, 15:57
Сообщение
#162
|
|
Продвинутый геймер Репутация: 80 Группа: Участник Сообщений: 238 Награды: 3 Регистрация: 13.02.2007 |
Если кто программировал на QBASIC, тот все поймет.
Алгоритм программы "Выход S.T.A.L.K.E.R." версия 1.0 для QBASIC 5 year=3 7 dirx=7 10 print "ФАНАТЫ РАДУЙТЕСЬ! ГСК ОБЪЯВИЛА ЧТО СТАЛКЕР ВЫЙДЕТ В 200"; year; " ГОДУ!!" 15 print "ИГРА БУДЕТ ИСПОЛЬЗОВАТЬ САМЫЕ ПЕРЕДОВЫЕ НА 200"; "year" "-Й ГОД ТЕХНОЛОГИИ. ДВИЖОК X-RAY ИСПОЛЬЗУЕТ DirextX"; dirx 20 print "С ВЫСТАВКИ Е3"; year ;"БЫЛА УКРАДЕНА СВЕЖАЯ ВЕРСИЯ ИГРЫ. ВСЕ КАЧАЕМ!!!" 30 cls 40 year=year+1 50 dirx=dirx+1 60 if RАК_НА_GОRЕ_SVISТNUL$=1 тнеn goto 80 65 if RАК_НА_GОRЕ_SVISТNUL$=0 then goto 70 70 print "S.T.A.L.K.E.R. ВЫЙДЕТ ТОЛЬКО В "; year" ;ГОДУ. ГСК ПРОСИТ ПРОЩЕНИЯ." 75 goto 10 80 print "НЕВОЗМОЖНОЕ СВЕРШИЛОСЬ! СТАЛКЕР ВЫХОДИТ!!!" 90 end -------------------- MAN MADE HELL GAME
S. T. A. L. K. E. R. |
 
|
|
08.03.2007, 16:03
Сообщение
#163
|
|
Я слежу за тобой O_O Репутация: 840 Группа: Участник Сообщений: 3048 Награды: 5 Регистрация: 14.01.2006 |
Цитата(Zer0 @ Mar 8 2007, 14:57) 60 if RАК_НА_GОRЕ_SVISТNUL$=1 тнеn goto 80 65 if RАК_НА_GОRЕ_SVISТNUL$=0 then goto 70 Вот это смешно! |
 
|
|
08.03.2007, 16:56
Сообщение
#164
|
|
Источник Излучения Репутация: 508 Группа: Участник Сообщений: 2295 Награды: 3 Регистрация: 22.11.2005 |
Цитата 70 print "S.T.A.L.K.E.R. ВЫЙДЕТ ТОЛЬКО В "; year" ;ГОДУ. ГСК ПРОСИТ ПРОЩЕНИЯ." 75 goto 10 цикл повторить 3 раза |
 
|
|
09.03.2007, 23:52
Сообщение
#165
|
|
Продвинутый геймер Репутация: 18 Группа: Только зарегистрировался Сообщений: 225 Регистрация: 22.02.2007 |
ну чего програмисты поясните нам обывателям?!
|
 
|
|
10.03.2007, 00:17
Сообщение
#166
|
|
Ветеран Репутация: 10 Группа: Забанен Сообщений: 78 Регистрация: 02.03.2007 |
Если рак на горе свистнул значит игра выходит в срок, если нет то к объявленной дате прибавлеется еденичка
-------------------- S.T.A.L.K.E.R. - Выходи подлый трус!!!
**-==ОСТАЛОСЬ 11 ДНЕЙ==--** |
 
|
|
10.03.2007, 16:38
Сообщение
#167
|
|
Продвинутый геймер Репутация: 24 Группа: Только зарегистрировался Сообщений: 318 Регистрация: 18.02.2007 |
Кстати в некоторых языках использования оператора goto плохой тон програмирования
-------------------- Apple - think different, Microsoft - think like Apple!
|
 
|
|
10.03.2007, 22:43
Сообщение
#168
|
|
Продвинутый геймер Репутация: 80 Группа: Участник Сообщений: 238 Награды: 3 Регистрация: 13.02.2007 |
Я знаю. Там где if-then там можно опустить ГОТО. Я-то писал, чтобы все поняли, а не чтобы красивая программа была.
-------------------- MAN MADE HELL GAME
S. T. A. L. K. E. R. |
 
|
|
13.03.2007, 22:57
Сообщение
#169
|
|
Игроман Репутация: 286 Группа: Участник Сообщений: 762 Награды: 2 Регистрация: 24.12.2005 |
Мне сказали что сейчас очень актуально.
-------------------- |
 
|
|
14.03.2007, 10:14
Сообщение
#170
|
|
Я слежу за тобой O_O Репутация: 840 Группа: Участник Сообщений: 3048 Награды: 5 Регистрация: 14.01.2006 |
Гы, прикольно!
|
 
|
|
14.03.2007, 10:18
Сообщение
#171
|
|
Почти Игроман Репутация: 104 Группа: Участник Сообщений: 527 Награды: 1 Регистрация: 30.11.2006 |
[MyCOPOK], умелец!
-------------------- Beware of the Dawg! |
 
|
|
14.03.2007, 23:55
Сообщение
#172
|
|
Продвинутый геймер Репутация: 80 Группа: Участник Сообщений: 238 Награды: 3 Регистрация: 13.02.2007 |
Молодца
-------------------- MAN MADE HELL GAME
S. T. A. L. K. E. R. |
 
|
|
17.03.2007, 13:50
Сообщение
#173
|
|
Кандидат Игровых Наук Репутация: 695 Группа: Забанен Сообщений: 3414 Награды: 4 Регистрация: 05.02.2007 |
Эх вы.. На бейсике надо писать, на обычном!
Во, зацените. (поймут не все) Код Dim Reliz
Dim DXversion Dim Stalker Sub Perenos If Reliz.DaysLeft < 10 Then MsgBox "Простите, релиз перенесён на " & Reliz.Date + 365 & _ "приносим извининения, товарищи!", vbInformation, "вот такая вот фигня" Else Stalker.MakeScreenShots (10) Stalker.MakeVideo (2, "0:05:24") End if If Stalker.Fans.Kipenie >= 90% Then MsgBox "Сталкер выйдет через " & Reliz.DaysLeft - 30 & " дней!", _ vbInformation, "официальное известие от GSC" Stalker.MakeScreenShots (30) Stalker.MakeVideo (5, "0:10:00", FinOts4et) Else MsgBox "Сталкер уже близок к релизу" End if If Year - 2005 = 1 Then DXversion = DXversion + 1 Else End if If Year - 2005 = 2 Then DXversion = DXversion + 2 Else End if If DXversion >= 10 Then MsgBox "Релиз переносится, так как разрабатывается новый движок", _ vbInformation, "Слухи" Reliz.DaysLeft = Reliz.DaysLeft + 365 End if End Sub |
 
|
|
17.03.2007, 14:04
Сообщение
#174
|
|
Like it. Репутация: 861 Группа: Участник Сообщений: 2802 Награды: 4 Регистрация: 15.08.2005 |
Цитата([MyCOPOK) ,Mar 13 2007, 22:57] Мне сказали что сейчас очень актуально. пацтулом -------------------- |
 
|
|
17.03.2007, 14:58
Сообщение
#175
|
|
Почти Игрок Репутация: 6 Группа: Только зарегистрировался Сообщений: 20 Регистрация: 20.01.2007 |
-------------------- Каждому своё
|
 
|
|
23.03.2007, 21:54
Сообщение
#176
|
|
И никаких няш-мяш! Репутация: 5029 Группа: Участник Сообщений: 28157 Награды: 1 Регистрация: 04.02.2003 |
Будем считать, что с состоявшимся релизом игры стеб закончился.
-------------------- И точка лазерного прицела на твоем лбу - тоже чья-то точка зрения :)
|
 
|
|
Текстовая версия | Сейчас: 24.04.2024, 22:06 |