Input to disgusto

EDGARDO RIZZOTTI

Grzegorz Domaradzki, Suicidio

cansancio = 0
seguidores = 0

INPUT TO disgusto

IF disgusto > 0

DO WHILE cansancio <= 500

INPUT TO rabia

IF rabia > 0 AND rabia <>

DO hablar
cansancio = cansancio + 1

ENDIF

IF rabia >= 4 AND rabia <>

DO gritar
cansancio = cansancio + 2

ENDIF

IF cansancio >= 100

INPUT TO seguidores

IF seguidores > 0

cansancio = cansancio - seguidores

IF rabia >= 7 AND rabia <>

DO destruir
cansancio = cansancio + 4

ENDIF

IF rabia >=10

DO asesinar
cansancio = cansancio + 8

ENDIF

ELSE

INPUT to depresión

IF depresión > 1000

DO suicidio

ENDIF

ENDIF

ENDIF

ENDDO

OPEN I/O amigos.prg
PRINT “Y ahora qué”
INPUT TO consejos
OPEN I/O yo.prg
RUN qedit.exe
EXIT

ELSE

PRINT “Qué mundo maravilloso”

ENDIF
RETURN

PROCEDURE hablar

SET VOICE_VOLUME = 3
OPEN I/O amigos.prg, conocidos.prg
PRINT humildes_sugerencias.txt

PROCEDURE gritar

SET VOICE_VOLUME = 10
OPEN I/O barrio.prg, ciudad.prg
PRINT discurso_imperativo.txt

PROCEDURE destruir

VIOLENT_MODE = ON
LOAD piedras.dat, garrotes.dat, molotov.dat
OPEN I/O municipalidades.prg
PRINT quejas.txt
INPUT TO respuestas

IF cansancio >= 250 and respuestas = “blabla”

OPEN I/O casa_rosada.prg
PRINT amenazas.txt
INPUT TO respuestas

IF respuestas = “blabla”

DELETE casa_rosada.prg

ENDIF

ENDIF

PROCEDURE asesinar

VIOLENT_MODE = ON
LOAD revólveres.dat, escopetas.dat, ametralladoras.dat
SEEK presidente.exe, legisladores.exe, jueces.exe, fuerzas_armadas.exe, policías.exe, empresarios.exe
DELETE presidente.exe, legisladores.exe, jueces.exe, fuerzas_armadas.exe, policías.exe, empresarios.exe

PROCEDURE suicidio

SEEK yo.exe
DELETE yo.exe

última revisión: 7 feb 09