16 ответов в теме

[Neutralizer]

Program: DaFunkyTown

0 CLS: PRINT "KONAMI": BEEP: RUN
10 LET SEARCH_TOILET
20 IF NO_TOILET_IN_THIS_AREA THEN GOTO 10
30 LET FIND_SOMEBODY_WHO_WILL_RUN_AWAY_FROM_YOU
40 IF TIMEOUT THEN GOSUB 60 ELSE IF SOMEONE_HAVE_RUN_AWAY_FROM_YOU THEN GOTO 110
50 GOTO 40
60 IF RANDOM(1) THEN FIGHT_ZOMBIE
70 PLAY_MUSIC "AKIRA_YAMAOKA_"+STR$(RANDOM(8)+2)
80 LET HEALTH_DRINK_AT_CURRENT_PLACE
90 IF RANDOM(2)=2 THEN LET GUN_AMMO
100 RETURN SUB
110 LET COLLAPSE_OF_ALL_ROADS
120 LET CLOSE_ALL_DOORS_AND_GATES
130 LET HIDE_ALL_KEYS
140 LET FOG = FOG*2
150 PLAY_MUSIC "AKIRA_YAMAOKA_HEAR_NOTHING"

TO BE CONTINUED...

Если все же найдутся такие люди поглумиться тут, то милости прошу, присоединяйтесь
Пожалуйста, не повторяйте уже прописанных функций. GOSUB'ом их, GOSUB'ом.

[sammer]

ну ты Neutralizer поиздевался.
нормально

[Wialenove]

Прикольно, а давай на ассемблере

[Neutralizer]

155 LET JOIN_TO_GAME = "sammer," + "Z@G"
156 LET NARRATOR = "Neutralizer"
160 GOSUB 60
170 PRINT "Z@G: Крутая игра, я могу на ассемблере сделать"
171 PRINT "sammer: Z@G, придержи пожарный шланг. Я пока скручу"
172 PRINT "Z@G: А где мой плюс?"
174 RINT "sammer: ???"
175 PRINT "Z@G: "
176 PRINT "Narrator: off topic"
180 PLAY_MUSIC "AKIRA_YAMAOKA_THEME_OF_LAURA"
190 PRINT "Narrator: WTF? Кто включил это здесь? "
200 GOSUB 60
210 PRINT "sammer: Стой Z@G, тяни!!! Тяни обратно! Я завожу компрессор"
220 PRINT "Z@G: Я не успеваю, sammer. Оно уже близко! ААААА!"
230 PRINT "Narrator: Сложно вам описать это, но Z@G летает на конце пожарного шланга "
240 PRINT "Z@G: Ну-ну-ну-ну, па-па-па-па-га-га-га-ди-ди-ди! "
250 PRINT "Narrator: off topic BASIC рулит и тормозит! "
260 PRINT "sammer: Потехе время, а делу час! "
270 LET OPEN_HOSPITAL_DOOR

Изменено: Neutralizer, 22 Февраль 2004 - 23:58

[aUruM]

Убийственно! А меня можно?

[Neutralizer]

280 LET JOIN_TO_GAME = "aUruM"
285 LET ENTER_HOSPITAL
286 LET CLOSE_HOSPITAL_DOOR
290 PRINT "Narrator: Ну все п.ц, счас флудотерапия начнется "

[sammer]

230 PRINT "Narrator:  Сложно вам описать это, но Z@G летает на конце пожарного шланга

210 PRINT "sammer: Стой Z@G, тяни!!! Тяни обратно! Я завожу компрессор

Neutralizer насос я завожу.
ай молодца!!! давай еще вдоволь посмеялся

[aUruM]

300 LET NARRATOR = "aUruM"
310 PRINT "Narrator: Нейтр, не буди спящего дракона"
320 LET NARRATOR = "Neutralizer"

[Neutralizer]

330 GOSUB 60
340 GOSUB 60
350 GOSUB 60
360 PRINT "Narrator: Ну что? К флудотерапевту пожаловали? Кто первый флудер? Ах! Sammer. Цыц. У меня не пофлудишь! Видишь пирамида рядом стоит. Не выйдет."
370 PRINT "Neutralizer: aUruM, а вот бужу и все разбудить не могу"

Изменено: Neutralizer, 23 Февраль 2004 - 00:14

[Alex-X]

Надо потом эту прогу выпустить на CD и продавать в интернете под лейблом "Silent Hill - Exclusive Edition"
Ну а прибыль мона и поровну разделить!
ЗЫ
А почему меня в проге нет?

[Neutralizer]

А почему меня в проге нет?

Так подключайся. Basic - Foreva!

[aUruM]

350 PRINT "aUruM: Так ты всех распугал своей Пирамидой . Вот мы ее..."
355 ON ERROR GOTO 360
360 LET KILL_PYRAMIDHEAD
370 PRINT "aUruM: I killed a... non-human being..."
380 PRINT "aUruM: Нейтралайзер, жду комментсов"

[Neutralizer]

390 PRINT "PYRAMIDHEAD_STATUS: Health = +Infinity, Target = aUruM"
400 PRINT "Narrator: И они сидели сложа руки..."

[aUruM]

410 PRINT "aUruM: [вырезано цензурой]"
420 PRINT "c:\program files\mIRC\mirc.exe /mode #rusbrookheaven kick pyramidhead"
430 PRINT "aUruM: Опы рулят!"
440 PRINT "|x|m|a|x| sets -o mode for aUruM>"
450 PRINT "aUruM: ***** ***** ****** *****"

[Neutralizer]

460 REBOOT_PYRAMIDHEAD
470 PRINT "Status_PyramidHead: Priority Target = aUruM, Secondary Target = Z@G, Stage Charge = 33%"
480 PRINT "Narrator: Постядерный коллапс и они воцарили... Терминаторы-пирамидХеды"
490 PRINT "Status_PyramidHead_Charge: 57%"
500 PRINT "Narrator: Проход из потустороннего мира закрыт. Пирамида анализирует обстановку"
510 PRINT "Status_PyramidHead_Charge: 89%"
520 PRINT "Narrator: Рука киборга ТХ трансформируется в большой кухонный нож"
530 PRINT "Status_PyramidHead_Charge: Find a small problem. 30 Days OS-TX Period Expired. Please buy license or format C:"