СтЕб и Ж.Д.А.Л.К.Е.Р, всякие лолы и лолки :-o) Опции

[selector]

До меня дошли слухи что вы отлично реализовали водку.

Да, действительно мы торговали водкой до того как занялись «игроделом.»

сильно... ну а как еще играми заниматься... ))))))

[Zer0]

Если кто программировал на 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

[$w@mp]

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

цикл повторить 3 раза

[LLlMeJl]

ну чего програмисты поясните нам обывателям?!

[Lord DR]

Если рак на горе свистнул значит игра выходит в срок, если нет то к объявленной дате прибавлеется еденичка

[iPlay]

Кстати в некоторых языках использования оператора goto плохой тон програмирования

[Zer0]

Я знаю. Там где if-then там можно опустить ГОТО. Я-то писал, чтобы все поняли, а не чтобы красивая программа была.

[Bloodthrist]

Мне сказали что сейчас очень актуально.

[$w@mp]

Гы, прикольно!

[Dawg]

[MyCOPOK], умелец!

[Zer0]

Молодца

[[empr]]

Эх вы.. На бейсике надо писать, на обычном!
Во, зацените.
(поймут не все)

Код

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

[M i k e]

,Mar 13 2007, 22:57] Мне сказали что сейчас очень актуально.

пацтулом

[MetZger]

Снорки=)

]]>]]>

[fen1x]

Будем считать, что с состоявшимся релизом игры стеб закончился.