DECLARE SUB Final ()
DECLARE SUB Sons ()
DECLARE SUB Desenhos ()
DECLARE SUB Mapa ()
DECLARE SUB Combate ()
DECLARE SUB Firmwares ()
DECLARE SUB Mitsuhama ()
DECLARE SUB Ares ()
DECLARE SUB DenverNexus ()
DECLARE SUB Renraku ()
DECLARE SUB Fuchi ()
DECLARE SUB OrbitalZurich ()
DECLARE SUB Shiawase ()

COMMON SHARED nome$, rac, per, comp, xp, memor, memormax, veloc, inte, intemax, comb, defes, util1, util2, util3, util4, util5, util6, util7, util8, util9, util10, util11, util12, util13, util14, util15, din
COMMON SHARED nomed$, memord, memormaxd, velocd, inted, intemaxd, combd, defesd, util1d, util2d, util3d, util4d, util5d, util6d, util7d, util8d, util9d, util10d
COMMON SHARED memormaxv, velocv, intemaxv, combv, defesv, util1v, util2v, util3v, util4v, util5v, util6v, util7v, util8v, util9v, util10v, veneno
COMMON SHARED rastro, acaono$, vitor$, som, reg, arq1$, arq2$, arq3$, arq4$, arq5$, arq6$, arq7$, arq8$, arq9$, arq10$, ret, esc, esp, retd, escd, espd, valor1, valor2, valor3, valor4, valor5, valor6, valor7, valor8, valor9, valor10
COMMON SHARED no1$, no2$, no3$, no4$, no5$, no6$, no7$, no8$, no9$, no10$, no11$, no12$, no13$, no14$, no15$, no17$, no18$, no19$, no20$, no21$, no22$, no23$, no24$, no25$
COMMON SHARED cor1$, cor2$, cor3$, cor4$, cor5$, cor6$, cor7$, cor8$, cor9$, cor10$, cor11$, cor12$, cor13$, cor14$, cor15$, cor17$, cor18$, cor19$, cor20$, cor21$, cor22$, cor23$, cor24$, cor25$
COMMON SHARED nivel1, nivel2, nivel3, nivel4, nivel5, nivel6, nivel7, nivel8, nivel9, nivel10, nivel11, nivel12, nivel13, nivel14, nivel15, nivel17, nivel18, nivel19, nivel20, nivel21, nivel22, nivel23, nivel24, nivel25
COMMON SHARED no$, no, cor$, nivel, alert$, gelo$, tipogelo$, corgelo$, descor$, proxdes$, empresa$, atord, dano, proxarq$, valor, nuarq%, nuarqmem%, arqno1%, arqno2%, arqno3%, arqno4%, arqno5%, espec$, voltarconec$, somligado$
COMMON SHARED codmnna$, codmits$, codfuch$, codares$, codrenr$, codzuri$, codfirm$, codnexs$, codshia$, sistem$, sistemaes, zine$
COMMON SHARED missaomay$, missaolady$, missaotaiw$, missaoia$, missaoangela$, missaosharik$
COMMON SHARED var()
COMMON SHARED prot, vendetta

som = 1
Sons
som = 6
Sons
som = 1
Sons
reg = 0
alert$ = ""

IF sistem$ = "" THEN
ELSE
GOTO sistemaesp
END IF

RANDOMIZE TIMER
chance = INT(RND * 20) + 1
IF chance = 1 THEN
empresa$ = "GreenFall Resources"
END IF
IF chance = 2 THEN
empresa$ = "Wusken Agency"
END IF
IF chance = 3 THEN
empresa$ = "Mitsubishi Imports"
END IF
IF chance = 4 THEN
empresa$ = "Seiko"
END IF
IF chance = 5 THEN
empresa$ = "Havenge Turism"
END IF
IF chance = 6 THEN
empresa$ = "SensoRafle Games"
END IF
IF chance = 7 THEN
empresa$ = "GOD's Own Network"
END IF
IF chance = 8 THEN
empresa$ = "Galatronics Energy"
END IF
IF chance = 9 THEN
empresa$ = "Sony Tecnologies"
END IF
IF chance = 10 THEN
empresa$ = "Humanis Policlub"
END IF
IF chance = 11 THEN
empresa$ = "Blister Company"
END IF
IF chance = 12 THEN
empresa$ = "United Oil"
END IF
IF chance = 13 THEN
empresa$ = "Soundgrain Company"
END IF
IF chance = 14 THEN
empresa$ = "Ceres transgenics"
END IF
IF chance = 15 THEN
empresa$ = "IMMYMS Music"
END IF
IF chance = 16 THEN
empresa$ = "Urban Brawl Club"
END IF
IF chance = 17 THEN
empresa$ = "Chinakin Cybers"
END IF
IF chance = 18 THEN
empresa$ = "Tronics Salvage"
END IF
IF chance = 19 THEN
empresa$ = "Times Agency"
END IF
IF chance = 20 THEN
empresa$ = "Aiwa Microtronics"
END IF


proxsist:
IF sistem$ = "" THEN
ELSE
GOTO sistemaesp
END IF
no1$ = ""
no2$ = ""
no3$ = ""
no4$ = ""
no5$ = ""
no6$ = ""
no7$ = ""
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = ""
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = ""
cpu$ = ""
gelo$ = ""
tipogelo$ = ""
nomed$ = ""
arqno1 = 0
arqno2 = 0
arqno3 = 0
arqno4 = 0
arqno5 = 0

RANDOMIZE TIMER
SELECT CASE (INT(RND * 100) + 1) + comb + defes + veloc + (intemax \ 5) + (memormax \ 5)
CASE 1 TO 50
cor$ = "Azul"
nivel = (INT(RND * 3) + 1) + 1
CASE 51 TO 90
cor$ = "Verde"
nivel = (INT(RND * 4) + 1) + 2
CASE 91 TO 120
cor$ = "Laranja"
nivel = (INT(RND * 5) + 1) + 3
CASE 121 TO 140
cor$ = "Vermelho"
nivel = (INT(RND * 6) + 1) + 4
CASE 141 TO 150
cor$ = "Vermelho"
nivel = (INT(RND * 7) + 1) + 5
CASE IS > 150
cor$ = "Vermelho"
nivel = (INT(RND * 8) + 1) + 6

END SELECT

no = 1

proximo:
no = no + 1
tipodeno:
SELECT CASE INT(RND * 100) + 1
CASE 1 TO 30
GOTO proximo
CASE 31 TO 40
proxno$ = "Acesso"
CASE 41 TO 60
proxno$ = "Arquivo"
CASE 61 TO 90
proxno$ = "UAP"
CASE 91 TO 100
IF cpu$ = "s" THEN
GOTO tipodeno
END IF
proxno$ = "CPU"
cpu$ = "s"
END SELECT

SELECT CASE INT(RND * 100) + 1
CASE 1 TO 10
nivel = nivel + 1
proxnivel = nivel
CASE 11 TO 15
IF cor$ = "Azul" THEN
proxcor$ = "Verde"
proxnivel = nivel + 1
END IF
IF cor$ = "Verde" THEN
proxcor$ = "Laranja"
proxnivel = nivel + 1
END IF
IF cor$ = "Laranja" THEN
proxcor$ = "Vermelho"
proxnivel = nivel + 1
END IF
IF cor$ = "Vermelho" THEN
proxcor$ = "Vermelho"
proxnivel = nivel
END IF
CASE 16 TO 20
IF cor$ = "Azul" THEN
proxcor$ = "Azul"
proxnivel = nivel
END IF
IF cor$ = "Verde" THEN
proxcor$ = "Azul"
proxnivel = nivel - 1
END IF
IF cor$ = "Laranja" THEN
proxcor$ = "Verde"
proxnivel = nivel - 1
END IF
IF cor$ = "Vermelho" THEN
proxcor$ = "Laranja"
proxnivel = nivel - 1
END IF
CASE ELSE
proxcor$ = cor$
proxnivel = nivel
END SELECT

SELECT CASE no
CASE 2
no2$ = proxno$
nivel2 = proxnivel
cor2$ = proxcor$
CASE 3
no3$ = proxno$
nivel3 = proxnivel
cor3$ = proxcor$
CASE 4
no4$ = proxno$
nivel4 = proxnivel
cor4$ = proxcor$
CASE 5
no5$ = proxno$
nivel5 = proxnivel
cor5$ = proxcor$
CASE 6
no6$ = proxno$
nivel6 = proxnivel
cor6$ = proxcor$
CASE 7
no7$ = proxno$
nivel7 = proxnivel
cor7$ = proxcor$
CASE 8
no8$ = proxno$
nivel8 = proxnivel
cor8$ = proxcor$
CASE 9
no9$ = proxno$
nivel9 = proxnivel
cor9$ = proxcor$
CASE 10
no10$ = proxno$
nivel10 = proxnivel
cor10$ = proxcor$
CASE 11
no11$ = proxno$
nivel11 = proxnivel
cor11$ = proxcor$
CASE 12
no12$ = proxno$
nivel12 = proxnivel
cor12$ = proxcor$
CASE 13
no13$ = proxno$
nivel13 = proxnivel
cor13$ = proxcor$
CASE 14
no14$ = proxno$
nivel14 = proxnivel
cor14$ = proxcor$
CASE 15
no15$ = proxno$
nivel15 = proxnivel
cor15$ = proxcor$
CASE 16
no16$ = proxno$
nivel16 = proxnivel
cor16$ = proxcor$
CASE 17
no17$ = proxno$
nivel17 = proxnivel
cor17$ = proxcor$
CASE 18
no18$ = proxno$
nivel18 = proxnivel
cor18$ = proxcor$
CASE 19
no19$ = proxno$
nivel19 = proxnivel
cor19$ = proxcor$
CASE 20
no20$ = proxno$
nivel20 = proxnivel
cor20$ = proxcor$
CASE 21
no21$ = proxno$
nivel21 = proxnivel
cor21$ = proxcor$
CASE 22
no22$ = proxno$
nivel22 = proxnivel
cor22$ = proxcor$
CASE 23
no23$ = proxno$
nivel23 = proxnivel
cor23$ = proxcor$
CASE 24
no24$ = proxno$
nivel24 = proxnivel
cor24$ = proxcor$
CASE 25
no25$ = proxno$
nivel25 = proxnivel
cor25$ = proxcor$
END SELECT
IF no < 25 THEN
GOTO proximo
END IF



sistemaesp:
IF sistemaes = 1 THEN
espec$ = "sistema1"
END IF
IF sistemaes = 2 THEN
espec$ = "sistema2"
END IF
IF sistemaes = 3 THEN
espec$ = "sistema3"
END IF

IF sistem$ = "mits" THEN
Mitsuhama
END IF
IF sistem$ = "ares" THEN
Ares
END IF
IF sistem$ = "nexs" THEN
DenverNexus
END IF
IF sistem$ = "firm" THEN
Firmwares
END IF
IF sistem$ = "renr" THEN
Renraku
END IF
IF sistem$ = "fuch" THEN
Fuchi
END IF
IF sistem$ = "zuri" THEN
OrbitalZurich
END IF
IF sistem$ = "shia" THEN
Shiawase
END IF


nuarq = INT(RND * nivel) + 1
no1$ = "Acesso"
nivel1 = nivel
cor1$ = cor$
no = 1
no$ = no1$
cor$ = cor1$
nivel = nivel1


no:
IF no$ = "" THEN
INPUT "N¢ inv lido", press
som = 1
Sons
no$ = no1$
nivel = nivel1
cor$ = cor1$
no = 1
END IF

SELECT CASE no$
CASE "Acesso"
acaono$ = "Desconectar(de), Analizar n¢(an), Observar(ob),                                 Conectar ao pr¢ximo sistema(con)"
IF no = 1 THEN
acaono$ = "Desconectar(de), Analizar n¢(an), Observar(ob)"
END IF
CASE "UAP"
acaono$ = "Desconectar(de), Analizar n¢(an), Observar(ob)"
IF no = 25 AND sistem$ = "zuri" THEN
Final
END IF
CASE "Arquivo"
acaono$ = "Desconectar(de), Analizar n¢(an), Observar(ob), Copiar(co)"
CASE "CPU"
acaono$ = "Desconectar(de), Analizar n¢(an), Observar(ob), Cancelar alerta(ca),            Exibir mapa(ex), Desligar CPU(des)"
END SELECT
IF memor < memormax THEN
memor = memor + (memormax \ 10)
IF memor > memormax THEN
memor = memormax
END IF
END IF
CLS
Desenhos
PRINT "Vocˆ est  no n¢ de "; no$; " "; cor$
IF alert$ = "Passivo" THEN
LOCATE 1, 45
COLOR 14
PRINT "Alerta Passivo"
COLOR 10
END IF
IF alert$ = "Ativo" THEN
LOCATE 1, 45
COLOR 12
PRINT "Alerta Ativo"
COLOR 10
END IF
LOCATE 3, 1
PRINT "Velocidade:     "; veloc
PRINT "Mem¢ria:        "; memor; "/"; memormax
PRINT "Integridade:    "; inte; "/"; intemax
LOCATE 6, 1
PRINT "Combate(c):     "; comb
PRINT "Defesa:         "; defes
LOCATE 9, 1
IF util1 > 0 THEN PRINT "Retardamento(r):"; util1
IF util2 > 0 THEN PRINT "M‚dico(m):      "; util2
IF util3 > 0 THEN PRINT "Escudo(e):      "; util3
IF util4 > 0 THEN PRINT "An lise(a):     "; util4
IF util5 > 0 THEN PRINT "Fuga(f):        "; util5
IF util6 > 0 THEN LOCATE 9, 22: PRINT "Disrup‡Æo(d):   "; util6
IF util7 > 0 THEN LOCATE 10, 22: PRINT "IlusÆo(i):      "; util7
IF util8 > 0 THEN LOCATE 11, 22: PRINT "Espelho(es):    "; util8
IF util9 > 0 THEN LOCATE 12, 22: PRINT "Restaura‡Æo(re):"; util9
IF util10 > 0 THEN LOCATE 13, 22: PRINT "Veneno(v):      "; util10
IF util11 > 0 THEN LOCATE 9, 43: PRINT "Drenar(dr):     "; util11
IF util12 > 0 THEN LOCATE 10, 43: PRINT "Teleporte(t):   "; util12
IF util13 > 0 THEN LOCATE 11, 43: PRINT "Explosivo(ex):  "; util13
IF util14 > 0 THEN LOCATE 12, 43: PRINT "Vendetta(ven):  "; util14
IF util15 > 0 THEN LOCATE 13, 43: PRINT "Prote‡Æo(p):    "; util15

nuarqmem = 0
IF arq1$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq2$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq3$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq4$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq5$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq6$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq7$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq8$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq9$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
IF arq10$ = "" THEN
ELSE
nuarqmem = nuarqmem + 1
END IF
LOCATE 3, 30
PRINT "N£mero de arquivos na mem¢ria: "; nuarqmem

LOCATE 15, 1
IF atord > 0 THEN
PRINT "Vocˆ est  atordoado"
som = 1
Sons
atord = atord - 1
END IF
IF ret > 0 THEN
PRINT "Vocˆ est  sendo paralizado!"
som = 3
Sons
ret = ret - 1
END IF
IF veneno > 0 AND INT(RND * veneno) + 1 > INT(RND * defes) + 1 THEN
SELECT CASE INT(RND * 14) + 1
CASE 1
intemax = intemax - (INT(RND * veneno) + 1)
IF intemax < 1 THEN
intemax = 0
vitor$ = ""
GOTO desconect
END IF
IF inte > intemax THEN
inte = intemax
END IF
CASE 2
memormax = memormax - (INT(RND * veneno) + 1)
IF memormax < 1 THEN
memormax = 0
END IF
IF memor > memormax THEN
memor = memormax
END IF
CASE 3
veloc = veloc - 1
IF veloc < 1 THEN
veloc = 0
END IF
CASE 4
comb = comb - 1
IF comb < 1 THEN
comb = 0
END IF
CASE 5
defes = defes - 1
IF defes < 1 THEN
defes = 0
END IF
CASE 6
util1 = util1 - 1
IF util1 < 1 THEN
util1 = 0
END IF
CASE 7
util2 = util2 - 1
IF util2 < 1 THEN
util2 = 0
END IF
CASE 8
util3 = util3 - 1
IF util3 < 1 THEN
util3 = 0
END IF
CASE 9
util4 = util4 - 1
IF util4 < 1 THEN
util4 = 0
END IF
CASE 10
util5 = util5 - 1
IF util5 < 1 THEN
util5 = 0
END IF
CASE 11
util6 = util6 - 1
IF util6 < 1 THEN
util6 = 0
END IF
CASE 12
util7 = util7 - 1
IF util7 < 1 THEN
util7 = 0
END IF
CASE 13
util8 = util8 - 1
IF util8 < 1 THEN
util8 = 0
END IF
CASE 14
util9 = util9 - 1
IF util9 < 1 THEN
util9 = 0
END IF
END SELECT
som = 4
Sons
PRINT "V¡rus Veneno detectado"
END IF

PRINT ""
IF no = 1 THEN
IF no2$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no2$; "(n)"
END IF
IF no3$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no3$; "(l)"
END IF
IF no4$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no4$; "(s)"
END IF
END IF

IF no = 2 THEN
IF no5$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no5$; "(n)"
END IF
IF no6$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no6$; "(l)"
END IF
PRINT "Mover para n¢ de "; no1$; "(s)"
END IF

IF no = 3 THEN
IF no6$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no6$; "(n)"
END IF
IF no7$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no7$; "(l)"
END IF
IF no8$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no8$; "(s)"
END IF
PRINT "Mover para n¢ de "; no1$; "(o)"
END IF

IF no = 4 THEN
PRINT "Mover para n¢ de "; no1$; "(n)"
IF no8$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no8$; "(l)"
END IF
IF no9$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no9$; "(s)"
END IF
END IF

IF no = 5 THEN
IF no10$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no10$; "(n)"
END IF
IF no11$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no11$; "(l)"
END IF
IF no2$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no2$; "(s)"
END IF
END IF

IF no = 6 THEN
IF no11$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no11$; "(n)"
END IF
IF no12$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no12$; "(l)"
END IF
IF no3$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no3$; "(s)"
END IF
IF no2$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no2$; "(o)"
END IF
END IF

IF no = 7 THEN
IF no12$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no12$; "(n)"
END IF
IF no13$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no13$; "(l)"
END IF
IF no14$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no14$; "(s)"
END IF
IF no3$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no3$; "(o)"
END IF
END IF

IF no = 8 THEN
IF no3$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no3$; "(n)"
END IF
IF no14$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no14$; "(l)"
END IF
IF no15$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no15$; "(s)"
END IF
IF no4$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no4$; "(o)"
END IF
END IF

IF no = 9 THEN
IF no4$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no4$; "(n)"
END IF
IF no15$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no15$; "(l)"
END IF
IF no16$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no16$; "(s)"
END IF
END IF

IF no = 10 THEN
IF no17$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no17$; "(n)"
END IF
IF no18$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no18$; "(l)"
END IF
IF no5$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no5$; "(s)"
END IF
END IF

IF no = 11 THEN
IF no18$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no18$; "(n)"
END IF
IF no19$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no19$; "(l)"
END IF
IF no6$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no6$; "(s)"
END IF
IF no5$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no5$; "(o)"
END IF
END IF

IF no = 12 THEN
IF no19$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no19$; "(n)"
END IF
IF no20$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no20$; "(l)"
END IF
IF no7$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no7$; "(s)"
END IF
IF no6$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no6$; "(o)"
END IF
END IF

IF no = 13 THEN
IF no20$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no20$; "(n)"
END IF
IF no21$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no21$; "(l)"
END IF
IF no22$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no22$; "(s)"
END IF
IF no7$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no7$; "(o)"
END IF
END IF

IF no = 14 THEN
IF no7$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no7$; "(n)"
END IF
IF no22$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no22$; "(l)"
END IF
IF no23$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no23$; "(s)"
END IF
IF no8$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no8$; "(o)"
END IF
END IF

IF no = 15 THEN
IF no8$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no8$; "(n)"
END IF
IF no23$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no23$; "(l)"
END IF
IF no24$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no24$; "(s)"
END IF
IF no9$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no9$; "(o)"
END IF
END IF

IF no = 16 THEN
IF no9$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no9$; "(n)"
END IF
IF no24$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no24$; "(l)"
END IF
IF no25$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no25$; "(s)"
END IF
END IF

IF no = 17 THEN
IF no10$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no10$; "(s)"
END IF
END IF

IF no = 18 THEN
IF no10$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no10$; "(o)"
END IF
IF no11$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no11$; "(s)"
END IF
END IF

IF no = 19 THEN
IF no11$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no11$; "(o)"
END IF
IF no12$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no12$; "(s)"
END IF
END IF

IF no = 20 THEN
IF no12$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no12$; "(o)"
END IF
IF no13$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no13$; "(s)"
END IF
END IF

IF no = 21 THEN
IF no13$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no13$; "(o)"
END IF
END IF

IF no = 22 THEN
IF no13$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no13$; "(n)"
END IF
IF no14$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no14$; "(o)"
END IF
END IF

IF no = 23 THEN
IF no14$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no14$; "(n)"
END IF
IF no15$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no15$; "(o)"
END IF
END IF

IF no = 24 THEN
IF no15$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no15$; "(n)"
END IF
IF no16$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no16$; "(o)"
END IF
END IF

IF no = 25 THEN
IF no16$ = "" THEN
ELSE
PRINT "Mover para n¢ de "; no16$; "(n)"
END IF
END IF


SELECT CASE INT(RND * 100) + 1
CASE 1 TO 10
tecnome$ = "Raizer"
CASE 11 TO 20
tecnome$ = "Mortimer"
CASE 21 TO 30
tecnome$ = "Ghuirty"
CASE 31 TO 40
tecnome$ = "Moockrey"
CASE 41 TO 50
tecnome$ = "Lavander"
CASE 51 TO 60
tecnome$ = "Miss Sue Side"
CASE 61 TO 70
tecnome$ = "Jakill"
CASE 71 TO 80
tecnome$ = "Hiedr Piff"
CASE 81 TO 90
tecnome$ = "Horoyomatsu Yung"
CASE 91 TO 100
tecnome$ = "Blaster-master"
END SELECT


surpresa:

SELECT CASE reg
CASE 1
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO barreira
END IF
IF chance = 2 THEN
GOTO vigia
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 3
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO barreira
END IF
IF chance = 2 THEN
GOTO vigia
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 5
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO barreira
END IF
IF chance = 2 THEN
GOTO vigia
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 7
alert$ = "Passivo"
nivel = nivel + 1
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO vigia
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 9
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO vigia
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 11
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO veneno
END IF
IF chance = 3 THEN
GOTO areia
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 13
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO veneno
END IF
IF chance = 3 THEN
GOTO guardiao
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO assassino
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF


CASE 15
alert$ = "Ativo"
nivel = nivel + 2
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO veneno
END IF
IF chance = 3 THEN
GOTO guardiao
END IF
IF chance = 4 THEN
GOTO rastreador
END IF
IF chance = 5 THEN
GOTO faisca
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF



CASE 17
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO disruptor
END IF
IF chance = 2 THEN
GOTO veneno
END IF
IF chance = 3 THEN
GOTO guardiao
END IF
IF chance = 4 THEN
GOTO tecnauta
END IF
IF chance = 5 THEN
GOTO faisca
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF



CASE 19
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO letal
END IF
IF chance = 2 THEN
GOTO veneno
END IF
IF chance = 3 THEN
GOTO guardiao
END IF
IF chance = 4 THEN
GOTO tecnauta
END IF
IF chance = 5 THEN
GOTO faisca
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF



CASE 21
RANDOMIZE TIMER
chance = INT(RND * 8) + 1
IF chance = 1 THEN
GOTO letal
END IF
IF chance = 2 THEN
GOTO letal
END IF
IF chance = 3 THEN
GOTO tecnauta
END IF
IF chance = 4 THEN
GOTO tecnauta
END IF
IF chance = 5 THEN
GOTO faisca
END IF
IF chance = 6 THEN
GOTO gelono
END IF
IF chance > 6 THEN
GOTO geloes
END IF



CASE 23 TO 25
COLOR 12
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
COLOR 10
GOTO desconect

CASE ELSE
RANDOMIZE TIMER
chance = INT(RND * 6) + 1
IF chance = 1 THEN
reg = reg + 1
GOTO surpresa
ELSE
GOTO gelono
END IF
END SELECT



geloes:
IF sistem$ = "" THEN
GOTO surpresa
END IF
espec$ = "gelos"
IF sistem$ = "mits" THEN
Mitsuhama
END IF
IF sistem$ = "ares" THEN
Ares
END IF
IF sistem$ = "nexs" THEN
DenverNexus
END IF
IF sistem$ = "firm" THEN
Firmwares
END IF
IF sistem$ = "renr" THEN
Renraku
END IF
IF sistem$ = "fuch" THEN
Fuchi
END IF
IF sistem$ = "zuri" THEN
OrbitalZurich
END IF
IF sistem$ = "shia" THEN
Shiawase
END IF
GOTO gelono


barreira:
gelo$ = "Barreira"
velocd = (INT(RND * nivel) + 1)
memormaxd = 0
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
GOTO gelono

vigia:
gelo$ = "Vigia"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = nivel
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Passivo"
corgelo$ = "Branco"
GOTO gelono


assassino:
gelo$ = "Assassino"
velocd = (INT(RND * nivel) + 1)
memormaxd = 0
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 1) + 1)
defesd = (INT(RND * nivel + 1) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
GOTO gelono


areia:
gelo$ = "Areia Movedi‡a"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 1) + 1)
defesd = (INT(RND * nivel + 1) + 1)
util1d = nivel
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Passivo"
corgelo$ = "Branco"
GOTO gelono


rastreador:
gelo$ = "Rastreador"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = nivel
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
GOTO gelono


disruptor:
gelo$ = "Disruptor"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 1) + 1)
defesd = (INT(RND * nivel + 1) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = nivel
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Passivo"
corgelo$ = "Cinza"
GOTO gelono


veneno:
gelo$ = "Veneno"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = nivel
tipogelo$ = "Passivo"
corgelo$ = "Cinza"
GOTO gelono


guardiao:
gelo$ = "GuardiÆo"
velocd = (INT(RND * nivel) + 1)
memormaxd = 0
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 2) + 1)
defesd = (INT(RND * nivel + 2) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Cinza"
GOTO gelono


faisca:
gelo$ = "Fa¡sca"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 2) + 1)
dano = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel + 2) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = nivel
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Negro"
GOTO gelono


tecnauta:
gelo$ = "Tecnauta"
nomed$ = tecnome$
velocd = INT(RND * nivel * 2) + 1
memormaxd = (INT(RND * nivel * 2) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel * 2) + 1) * 5
inted = intemaxd
combd = INT(RND * nivel * 2) + 1
defesd = INT(RND * nivel * 2) + 1
util1d = INT(RND * nivel * 2) + 1
util2d = INT(RND * nivel * 2) + 1
util3d = INT(RND * nivel * 2) + 1
util4d = INT(RND * nivel * 2) + 1
util5d = INT(RND * nivel * 2) + 1
util6d = INT(RND * nivel * 2) + 1
util7d = INT(RND * nivel * 2) + 1
util8d = INT(RND * nivel * 2) + 1
util9d = INT(RND * nivel * 2) + 1
util10d = INT(RND * nivel * 2) + 1
tipogelo$ = "Tec"
corgelo$ = ""
GOTO gelono


letal:
gelo$ = "Letal"
velocd = INT(RND * nivel) + 1
memormaxd = 0
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 2) + 1)
dano = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel + 2) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Negro"
GOTO gelono


gelono:
IF tipogelo$ = "Passivo" THEN

gelopass:
SELECT CASE gelo$

CASE "Areia Movedi‡a"
IF util1d = 0 THEN
GOTO acao
END IF
IF memord - util1d < 0 THEN
GOTO acao
ELSE
memord = memord - util1d - (memormaxd \ 10)
END IF
IF INT(util1d * RND) + 1 > INT(veloc * RND) + 1 THEN
ret = ret + util1d
END IF
IF INT(util4 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "GELO detectado"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O ¡cone foi suprimido", press
reg = reg + 1
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF

CASE "Vigia"
IF util4d = 0 THEN
GOTO acao
END IF
IF memord - util4d < 0 THEN
GOTO acao
ELSE
memord = memord - util4d - (memormaxd \ 10)
END IF
IF INT(util4d * RND) + 1 > INT(veloc * RND) + 1 THEN
reg = reg + 1
END IF
IF INT(util4 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "GELO detectado"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O ¡cone foi suprimido", press
reg = reg + 1
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF


CASE "Veneno"
IF util10d = 0 THEN
GOTO acao
END IF
IF memord - util10d < 0 THEN
GOTO acao
ELSE
memord = memord - util10d - (memormaxd \ 10)
END IF
IF INT(util10d * RND) + 1 > INT(defes * RND) + 1 THEN
veneno = util10
END IF
IF INT(util4 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "GELO detectado"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O ¡cone foi suprimido", press
reg = reg + 1
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF


END SELECT
END IF

IF tipogelo$ = "Ativo" THEN
PRINT "Vocˆ foi atacado!"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O ¡cone foi suprimido", press
reg = reg + 1
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF

IF tipogelo$ = "Tec" THEN
PRINT "Vocˆ foi atacado!"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O tecnauta foi desconectado", press
reg = reg + 1
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF

IF empresa$ = "Shiawase/Labor-4" AND INT(RND * 12) > 10 THEN
PRINT ""
PRINT "Vocˆ vˆ o ¡cone de um menino negro de manto prateado nesse n¢"
SLEEP 1
PRINT "Squivo diz: "; nome$; "! Est  aqui pelos mesmos motivos que eu?"
SLEEP 1
PRINT "EntÆo busque os n¢s escondidos, exibido o mapa na CPU"
SLEEP 1
PRINT "O ¡cone se movimenta rapidamente para outro n¢"
END IF

acao:
PRINT ""
PRINT "A‡äes poss¡veis no host:"; acaono$
PRINT ""
INPUT "A‡Æo: ", acao$
som = 6
Sons

SELECT CASE acao$

CASE "con"
IF sistemaes = 1 THEN
sistemaes = 2
GOTO proxsist
END IF
IF sistemaes = 2 THEN
sistemaes = 3
END IF
GOTO proxsist


CASE "de"
PRINT "Desconectando..."
SLEEP 1
som = 1
Sons
som = 6
Sons
GOTO desconect


CASE "an"
IF util4 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO no
END IF

IF memor - util4 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util4 - memormax \ 10
END IF

IF (INT(comp * RND) - 1) + INT(util4 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "Analizando"
SLEEP 1
som = 5
Sons
PRINT "N¢ de "; no$; " "; cor$; "  N¡vel: "; nivel
PRINT "Empresa: "; empresa$
IF gelo$ = "" THEN
ELSE
PRINT "GELO "; gelo$; " detectado"
SLEEP 2
Combate
IF vitor$ = "s" THEN
INPUT "O ¡cone foi suprimido", press
reg = reg + 1
gelo$ = ""
tipogelo$ = ""
vitor$ = ""
GOTO no
ELSE
GOTO desconect
END IF
END IF
INPUT "Pressione enter", press
ELSE
PRINT "Falhou!"
reg = reg + 1
som = 1
Sons
SLEEP 1
END IF
GOTO no

CASE "ven"
IF util14 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO no
END IF

IF memor - util14 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util14 - memormax \ 10
END IF

IF (INT(comp * RND) - 1) + INT(util14 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "Vendetta acionado"
som = 4
Sons
som = 6
Sons
vendetta = util14
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "ob"
IF no$ = "Acesso" THEN
PRINT "Vocˆ vˆ uma grande porta de a‡o cromado e sem fechadura"
INPUT "Pressione enter", press
END IF
IF no$ = "UAP" THEN
PRINT "Vocˆ vˆ uma sala pulsante coberta de circuitos crepitantes de energia"
INPUT "Pressione enter", press
END IF
IF no$ = "Arquivo" THEN
PRINT "Vocˆ vˆ um labirinto de blocos de energia cheios de letras e n£meros rodopiantes em cores diversas"
INPUT "Pressione enter", press
END IF
IF no$ = "CPU" THEN
PRINT "Vocˆ vˆ uma enorme sala hexagonal feita a partir de placas de circuito que      pulsam com energia ofuscante. Telas exibem dados que fluem atrav‚s do sistema"
INPUT "Pressione enter", press
END IF
IF cor$ = "UV" THEN
PRINT "Vocˆ nota que as paredes do n¢ sÆo espelhadas e confusas. Vocˆ se sente muito   lento."
ret = ret + nivel
INPUT "Pressione enter", press
END IF
GOTO no

CASE "co"
reg = reg + 1
IF no$ = "Arquivo" THEN
ELSE
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
END IF
IF (INT(comp * RND) - 1) + INT(RND * util4 + 2) + 1 < nivel THEN
som = 1
Sons
PRINT "NÆo foi poss¡vel achar arquivos valiosos"
SLEEP 1
GOTO no
END IF
nuarq = nuarq - 1
IF no = arqno1 THEN
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
ELSE
IF nuarq < 1 THEN
arqno1 = no
nuarq = INT(RND * nivel) + 1
END IF
END IF
IF no = arqno2 THEN
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
ELSE
IF nuarq < 1 THEN
arqno2 = no
nuarq = INT(RND * nivel) + 1
END IF
END IF
IF no = arqno3 THEN
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
ELSE
IF nuarq < 1 THEN
arqno3 = no
nuarq = INT(RND * nivel) + 1
END IF
END IF
IF no = arqno4 THEN
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
ELSE
IF nuarq < 1 THEN
arqno4 = no
nuarq = INT(RND * nivel) + 1
END IF
END IF
IF no = arqno5 THEN
PRINT "NÆo h  arquivos aqui"
SLEEP 1
GOTO no
ELSE
IF nuarq < 1 THEN
arqno5 = no
nuarq = INT(RND * nivel) + 1
END IF
END IF

pegararq:
RANDOMIZE TIMER
chance = INT(RND * 30) + 1
IF chance = 1 THEN
proxarq$ = "Fichas de clientes da " + empresa$
valor = (INT(RND * nivel) + 1) * 34
END IF
IF chance = 2 THEN
proxarq$ = "Registros de seguran‡a da " + empresa$
valor = (INT(RND * nivel) + 1) * 48
END IF
IF chance = 3 THEN
proxarq$ = "Hist¢ricos da " + empresa$
valor = (INT(RND * nivel) + 1) * 16
END IF
IF chance = 4 THEN
proxarq$ = "Contabilidade da " + empresa$
valor = (INT(RND * nivel) + 1) * 28
END IF
IF chance = 5 THEN
proxarq$ = "Registro de sa¡da da " + empresa$
valor = (INT(RND * nivel) + 1) * 12
END IF
IF chance = 6 THEN
proxarq$ = "Projetos novos da " + empresa$
valor = (INT(RND * nivel) + 1) * 50
END IF
IF chance = 7 THEN
proxarq$ = "Estimativas de lucro da " + empresa$
valor = (INT(RND * nivel) + 1) * 38
END IF
IF chance = 8 THEN
proxarq$ = "µrea de pesquisa da " + empresa$
valor = (INT(RND * nivel) + 1) * 44
END IF
IF chance = 9 THEN
proxarq$ = "Dossiˆs da " + empresa$
valor = (INT(RND * nivel) + 1) * 30
END IF
IF chance = 10 THEN
proxarq$ = "Black-Ops da " + empresa$
valor = (INT(RND * nivel) + 1) * 42
END IF
IF chance = 11 THEN
proxarq$ = "Rela‡Æo de contatos de " + empresa$
valor = (INT(RND * nivel) + 1) * 40
END IF
IF chance = 12 THEN
proxarq$ = "Lista de pagamento da " + empresa$
valor = (INT(RND * nivel) + 1) * 20
END IF
IF chance = 13 THEN
proxarq$ = "Gastos com pessoal da " + empresa$
valor = (INT(RND * nivel) + 1) * 18
END IF
IF chance = 14 THEN
proxarq$ = "Prote‡Æo arcana da " + empresa$
valor = (INT(RND * nivel) + 1) * 36
END IF
IF chance = 15 THEN
proxarq$ = "Arquivos p£blicos da " + empresa$
valor = (INT(RND * nivel) + 1) * 14
END IF
IF chance = 16 THEN
proxarq$ = "Advocacia da " + empresa$
valor = (INT(RND * nivel) + 1) * 22
END IF
IF chance = 17 THEN
proxarq$ = "Monitoramento da " + empresa$
valor = (INT(RND * nivel) + 1) * 32
END IF
IF chance = 18 THEN
proxarq$ = "Arquivos pessoais da " + empresa$
valor = (INT(RND * nivel) + 1) * 24
END IF
IF chance = 19 THEN
proxarq$ = "Arquivos deletados da " + empresa$
valor = (INT(RND * nivel) + 1) * 28
END IF
IF chance = 20 THEN
proxarq$ = "Memorandos da " + empresa$
valor = (INT(RND * nivel) + 1) * 46
END IF
IF chance > 20 THEN
IF sistem$ = "" THEN
GOTO pegararq
END IF
espec$ = "arquivos"
IF sistem$ = "mits" THEN
Mitsuhama
END IF
IF sistem$ = "ares" THEN
Ares
END IF
IF sistem$ = "nexs" THEN
DenverNexus
END IF
IF sistem$ = "firm" THEN
Firmwares
END IF
IF sistem$ = "renr" THEN
Renraku
END IF
IF sistem$ = "fuch" THEN
Fuchi
END IF
IF sistem$ = "zuri" THEN
OrbitalZurich
END IF
IF sistem$ = "shia" THEN
Shiawase
END IF
END IF


PRINT "Procurando arquivo de dados valiosos..."
SLEEP 1
som = 6
Sons
PRINT "Arquivo "; proxarq$; " encontrado"
INPUT "Copiar?(s/n):", resp$
som = 6
Sons
IF resp$ = "s" THEN
IF arq1$ = "" THEN
arq1$ = proxarq$
valor1 = valor
ELSE
IF arq2$ = "" THEN
arq2$ = proxarq$
valor2 = valor
ELSE
IF arq3$ = "" THEN
arq3$ = proxarq$
valor3 = valor
ELSE
IF arq4$ = "" THEN
arq4$ = proxarq$
valor4 = valor
ELSE
IF arq5$ = "" THEN
arq5$ = proxarq$
valor5 = valor
ELSE
IF arq6$ = "" THEN
arq6$ = proxarq$
valor6 = valor
ELSE
IF arq7$ = "" THEN
arq7$ = proxarq$
valor7 = valor
ELSE
IF arq8$ = "" THEN
arq8$ = proxarq$
valor8 = valor
ELSE
IF arq9$ = "" THEN
arq9$ = proxarq$
valor9 = valor
ELSE
IF arq10$ = "" THEN
arq10$ = proxarq$
valor10 = valor
ELSE
som = 1
Sons
PRINT "Mem¢ria lotada"
SLEEP 1
GOTO no
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
ELSE
GOTO no
END IF

PRINT "Copiando arquivos de dados..."
SLEEP 1
PRINT "Arquivo "; proxarq$; " Copiado"
som = 6
Sons
INPUT "Pressione enter", press
GOTO no

CASE "p"
IF util15 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO no
END IF

IF memor - util15 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util15 - memormax \ 10
END IF

IF (INT(comp * RND) - 1) + INT(util15 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "Prote‡Æo ativa"
som = 6
Sons
prot = util15
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "m"
IF util2 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
END IF

IF memor - util2 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util2 - memormax \ 10
END IF

IF inte < intemax THEN
inte = inte + INT(RND * util2 * 2) + 1
PRINT "Restaurando integridade"
som = 11
Sons
SLEEP 1
IF inte > intemax THEN
inte = intemax
END IF
END IF
GOTO no


CASE "ca"
IF no$ = "CPU" THEN
ELSE
PRINT "Comando fora do CPU"
som = 1
Sons
SLEEP 1
GOTO no
END IF
PRINT "Cancelando alerta "; alert$
som = 6
Sons
SLEEP 1
IF (INT(comp * RND) - 1) + INT(RND * util7) + 1 > INT(RND * nivel) + 1 THEN
IF alert$ = "" THEN
PRINT "Alerta cancelado"
reg = 0
SLEEP 1
END IF
IF alert$ = "Passivo" THEN
alert$ = ""
PRINT "Alerta Passivo cancelado"
reg = 2
nivel = nivel - 1
SLEEP 1
END IF
IF alert$ = "Ativo" THEN
alert$ = "Passivo"
PRINT "Alerta Ativo cancelado"
reg = 8
nivel = nivel - 2
SLEEP 1
END IF
ELSE
som = 1
Sons
PRINT "NÆo foi poss¡vel cancelar o alerta"
SLEEP 1
reg = reg + 1
END IF
GOTO no

CASE "t"
IF util12 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO no
END IF

IF memor - util12 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util12 - memormax \ 10
END IF

IF (INT(comp * RND) - 1) + INT(util12 * RND) + 1 > INT(nivel * RND) + 1 THEN
GOTO mmapa
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "ex"
IF no$ = "CPU" THEN
ELSE
PRINT "Comando fora do CPU"
som = 1
Sons
SLEEP 1
GOTO no
END IF

mmapa:
reg = reg + 1
som = 6
Sons
CLS
COLOR 7
LOCATE 15, 1
PRINT "1"
LOCATE 13, 1
PRINT "2"
LOCATE 15, 5
PRINT "3"
LOCATE 17, 1
PRINT "4"
LOCATE 11, 1
PRINT "5"
LOCATE 13, 5
PRINT "6"
LOCATE 15, 9
PRINT "7"
LOCATE 17, 5
PRINT "8"
LOCATE 19, 1
PRINT "9"
LOCATE 9, 1
PRINT "10"
LOCATE 11, 5
PRINT "11"
LOCATE 13, 9
PRINT "12"
LOCATE 15, 13
PRINT "13"
LOCATE 17, 9
PRINT "14"
LOCATE 19, 5
PRINT "15"
LOCATE 21, 1
PRINT "16"
LOCATE 7, 1
PRINT "17"
LOCATE 9, 5
PRINT "18"
LOCATE 11, 9
PRINT "19"
LOCATE 13, 13
PRINT "20"
LOCATE 15, 17
PRINT "21"
LOCATE 17, 13
PRINT "22"
LOCATE 19, 9
PRINT "23"
LOCATE 21, 5
PRINT "24"
LOCATE 23, 1
PRINT "25"
COLOR 10

DRAW "BM10,220"
descor$ = cor1$
proxdes$ = no1$
Mapa

IF no2$ = "" THEN
ELSE
DRAW "BM10,190"
descor$ = cor2$
proxdes$ = no2$
Mapa
END IF

IF no3$ = "" THEN
ELSE
DRAW "BM40,220"
descor$ = cor3$
proxdes$ = no3$
Mapa
END IF

IF no4$ = "" THEN
ELSE
DRAW "BM10,250"
descor$ = cor4$
proxdes$ = no4$
Mapa
END IF

IF no5$ = "" THEN
ELSE
DRAW "BM10,160"
descor$ = cor5$
proxdes$ = no5$
Mapa
END IF

IF no6$ = "" THEN
ELSE
DRAW "BM40,190"
descor$ = cor6$
proxdes$ = no6$
Mapa
END IF

IF no7$ = "" THEN
ELSE
DRAW "BM70,220"
descor$ = cor7$
proxdes$ = no7$
Mapa
END IF

IF no8$ = "" THEN
ELSE
DRAW "BM40,250"
descor$ = cor8$
proxdes$ = no8$
Mapa
END IF

IF no9$ = "" THEN
ELSE
DRAW "BM10,280"
descor$ = cor9$
proxdes$ = no9$
Mapa
END IF

IF no10$ = "" THEN
ELSE
DRAW "BM10,130"
descor$ = cor10$
proxdes$ = no10$
Mapa
END IF

IF no11$ = "" THEN
ELSE
DRAW "BM40,160"
descor$ = cor11$
proxdes$ = no11$
Mapa
END IF

IF no12$ = "" THEN
ELSE
DRAW "BM70,190"
descor$ = cor12$
proxdes$ = no12$
Mapa
END IF

IF no13$ = "" THEN
ELSE
DRAW "BM100,220"
descor$ = cor13$
proxdes$ = no13$
Mapa
END IF

IF no14$ = "" THEN
ELSE
DRAW "BM70,250"
descor$ = cor14$
proxdes$ = no14$
Mapa
END IF

IF no15$ = "" THEN
ELSE
DRAW "BM40,280"
descor$ = cor15$
proxdes$ = no15$
Mapa
END IF

IF no16$ = "" THEN
ELSE
DRAW "BM10,310"
descor$ = cor16$
proxdes$ = no16$
Mapa
END IF

IF no17$ = "" THEN
ELSE
DRAW "BM10,100"
descor$ = cor17$
proxdes$ = no17$
Mapa
END IF

IF no18$ = "" THEN
ELSE
DRAW "BM40,130"
descor$ = cor18$
proxdes$ = no18$
Mapa
END IF

IF no19$ = "" THEN
ELSE
DRAW "BM70,160"
descor$ = cor19$
proxdes$ = no19$
Mapa
END IF

IF no20$ = "" THEN
ELSE
DRAW "BM100,190"
descor$ = cor20$
proxdes$ = no20$
Mapa
END IF

IF no21$ = "" THEN
ELSE
DRAW "BM130,220"
descor$ = cor21$
proxdes$ = no21$
Mapa
END IF

IF no22$ = "" THEN
ELSE
DRAW "BM100,250"
descor$ = cor22$
proxdes$ = no22$
Mapa
END IF

IF no23$ = "" THEN
ELSE
DRAW "BM70,280"
descor$ = cor23$
proxdes$ = no23$
Mapa
END IF

IF no24$ = "" THEN
ELSE
DRAW "BM40,310"
descor$ = cor24$
proxdes$ = no24$
Mapa
END IF

IF no25$ = "" THEN
ELSE
DRAW "BM10,340"
descor$ = cor25$
proxdes$ = no25$
Mapa
END IF

LOCATE 25, 1
INPUT "Mover para n¢(n£mero):", no
som = 6
Sons
IF no = 1 THEN
no$ = no1$
nivel = nivel1
cor$ = cor1$
GOTO no
END IF
IF no = 2 THEN
no$ = no2$
nivel = nivel2
cor$ = cor2$
GOTO no
END IF
IF no = 3 THEN
no$ = no3$
nivel = nivel3
cor$ = cor3$
GOTO no
END IF
IF no = 4 THEN
no$ = no4$
nivel = nivel4
cor$ = cor4$
GOTO no
END IF
IF no = 5 THEN
no$ = no5$
nivel = nivel5
cor$ = cor5$
GOTO no
END IF
IF no = 6 THEN
no$ = no6$
nivel = nivel6
cor$ = cor6$
GOTO no
END IF
IF no = 7 THEN
no$ = no7$
nivel = nivel7
cor$ = cor7$
GOTO no
END IF
IF no = 8 THEN
no$ = no8$
nivel = nivel8
cor$ = cor8$
GOTO no
END IF
IF no = 9 THEN
no$ = no9$
nivel = nivel9
cor$ = cor9$
GOTO no
END IF
IF no = 10 THEN
no$ = no10$
nivel = nivel10
cor$ = cor10$
GOTO no
END IF
IF no = 11 THEN
no$ = no11$
nivel = nivel11
cor$ = cor11$
GOTO no
END IF
IF no = 12 THEN
no$ = no12$
nivel = nivel12
cor$ = cor12$
GOTO no
END IF
IF no = 13 THEN
no$ = no13$
nivel = nivel13
cor$ = cor13$
GOTO no
END IF
IF no = 14 THEN
no$ = no14$
nivel = nivel14
cor$ = cor14$
GOTO no
END IF
IF no = 15 THEN
no$ = no15$
nivel = nivel15
cor$ = cor15$
GOTO no
END IF
IF no = 16 THEN
no$ = no16$
nivel = nivel16
cor$ = cor16$
GOTO no
END IF
IF no = 17 THEN
no$ = no17$
nivel = nivel17
cor$ = cor17$
GOTO no
END IF
IF no = 18 THEN
no$ = no18$
nivel = nivel18
cor$ = cor18$
GOTO no
END IF
IF no = 19 THEN
no$ = no19$
nivel = nivel19
cor$ = cor19$
GOTO no
END IF
IF no = 20 THEN
no$ = no20$
nivel = nivel20
cor$ = cor20$
GOTO no
END IF
IF no = 21 THEN
no$ = no21$
nivel = nivel21
cor$ = cor21$
GOTO no
END IF
IF no = 22 THEN
no$ = no22$
nivel = nivel22
cor$ = cor22$
GOTO no
END IF
IF no = 23 THEN
no$ = no23$
nivel = nivel23
cor$ = cor23$
GOTO no
END IF
IF no = 24 THEN
no$ = no24$
nivel = nivel24
cor$ = cor24$
GOTO no
END IF
IF no = 25 THEN
no$ = no25$
nivel = nivel25
cor$ = cor25$
GOTO no
END IF


CASE "des"
IF (INT(comp * RND) - 1) + INT(util6 * RND) + 1 > INT(RND * nivel) + 1 THEN
COLOR 12
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
PRINT "Shutdown"
som = 5
Sons
SLEEP 1
COLOR 10
IF empresa$ = "Firmwares International" THEN
PRINT "O sistema est  mudando..."
SLEEP 1
sistemaes = 2
GOTO proxsist
END IF
IF empresa$ = "Mitsuhama/BA-7" THEN
missaotaiw$ = "c"
END IF
GOTO desconect
ELSE
PRINT "Tentativa de desligar o sistema falhou!"
SLEEP 1
reg = reg + 1
GOTO no
END IF


CASE "n"
IF no = 1 THEN
no$ = no2$
nivel = nivel2
cor$ = cor2$
no = 2
GOTO no
END IF
IF no = 2 THEN
no$ = no5$
nivel = nivel5
cor$ = cor5$
no = 5
GOTO no
END IF
IF no = 3 THEN
no$ = no6$
nivel = nivel6
cor$ = cor6$
no = 6
GOTO no
END IF
IF no = 4 THEN
no$ = no1$
nivel = nivel1
cor$ = cor1$
no = 1
GOTO no
END IF
IF no = 5 THEN
no$ = no10$
nivel = nivel10
cor$ = cor10$
no = 10
GOTO no
END IF
IF no = 6 THEN
no$ = no11$
nivel = nivel11
cor$ = cor11$
no = 11
GOTO no
END IF
IF no = 7 THEN
no$ = no12$
nivel = nivel12
cor$ = cor12$
no = 12
GOTO no
END IF
IF no = 8 THEN
no$ = no3$
nivel = nivel3
cor$ = cor3$
no = 3
GOTO no
END IF
IF no = 9 THEN
no$ = no4$
nivel = nivel4
cor$ = cor4$
no = 4
GOTO no
END IF
IF no = 10 THEN
no$ = no17$
nivel = nivel17
cor$ = cor17$
no = 17
GOTO no
END IF
IF no = 11 THEN
no$ = no18$
nivel = nivel18
cor$ = cor18$
no = 18
GOTO no
END IF
IF no = 12 THEN
no$ = no19$
nivel = nivel19
cor$ = cor19$
no = 19
GOTO no
END IF
IF no = 13 THEN
no$ = no20$
nivel = nivel20
cor$ = cor20$
no = 20
GOTO no
END IF
IF no = 14 THEN
no$ = no7$
nivel = nivel7
cor$ = cor7$
no = 7
GOTO no
END IF
IF no = 15 THEN
no$ = no8$
nivel = nivel8
cor$ = cor8$
no = 8
GOTO no
END IF
IF no = 16 THEN
no$ = no9$
nivel = nivel9
cor$ = cor9$
no = 9
GOTO no
END IF
IF no > 16 AND no < 22 THEN
PRINT "Vocˆ nÆo pode ir por a¡"
SLEEP 1
GOTO no
END IF
IF no = 22 THEN
no$ = no13$
nivel = nivel13
cor$ = cor13$
no = 13
GOTO no
END IF
IF no = 23 THEN
no$ = no14$
nivel = nivel14
cor$ = cor14$
no = 14
GOTO no
END IF
IF no = 24 THEN
no$ = no15$
nivel = nivel15
cor$ = cor15$
no = 15
GOTO no
END IF
IF no = 25 THEN
no$ = no16$
nivel = nivel16
cor$ = cor16$
no = 16
GOTO no
END IF


CASE "l"
IF no = 1 THEN
no$ = no3$
nivel = nivel3
cor$ = cor3$
no = 3
GOTO no
END IF
IF no = 2 THEN
no$ = no6$
nivel = nivel6
cor$ = cor6$
no = 6
GOTO no
END IF
IF no = 3 THEN
no$ = no7$
nivel = nivel7
cor$ = cor7$
no = 7
GOTO no
END IF
IF no = 4 THEN
no$ = no8$
nivel = nivel8
cor$ = cor8$
no = 8
GOTO no
END IF
IF no = 5 THEN
no$ = no11$
nivel = nivel11
cor$ = cor11$
no = 11
GOTO no
END IF
IF no = 6 THEN
no$ = no12$
nivel = nivel12
cor$ = cor12$
no = 12
GOTO no
END IF
IF no = 7 THEN
no$ = no13$
nivel = nivel13
cor$ = cor13$
no = 13
GOTO no
END IF
IF no = 8 THEN
no$ = no14$
nivel = nivel14
cor$ = cor14$
no = 14
GOTO no
END IF
IF no = 9 THEN
no$ = no15$
nivel = nivel15
cor$ = cor15$
no = 15
GOTO no
END IF
IF no = 10 THEN
no$ = no18$
nivel = nivel18
cor$ = cor18$
no = 18
GOTO no
END IF
IF no = 11 THEN
no$ = no19$
nivel = nivel19
cor$ = cor19$
no = 19
GOTO no
END IF
IF no = 12 THEN
no$ = no20$
nivel = nivel20
cor$ = cor20$
no = 20
GOTO no
END IF
IF no = 13 THEN
no$ = no21$
nivel = nivel21
cor$ = cor21$
no = 21
GOTO no
END IF
IF no = 14 THEN
no$ = no22$
nivel = nivel22
cor$ = cor22$
no = 22
GOTO no
END IF
IF no = 15 THEN
no$ = no23$
nivel = nivel23
cor$ = cor23$
no = 23
GOTO no
END IF
IF no = 16 THEN
no$ = no24$
nivel = nivel24
cor$ = cor24$
no = 24
GOTO no
END IF
IF no > 16 THEN
PRINT "Vocˆ nÆo pode ir por a¡"
SLEEP 1
GOTO no
END IF


CASE "s"
IF no = 1 THEN
no$ = no4$
nivel = nivel4
cor$ = cor4$
no = 4
GOTO no
END IF
IF no = 2 THEN
no$ = no1$
nivel = nivel1
cor$ = cor1$
no = 1
GOTO no
END IF
IF no = 3 THEN
no$ = no8$
nivel = nivel8
cor$ = cor8$
no = 8
GOTO no
END IF
IF no = 4 THEN
no$ = no9$
nivel = nivel9
cor$ = cor9$
no = 9
GOTO no
END IF
IF no = 5 THEN
no$ = no2$
nivel = nivel2
cor$ = cor2$
no = 2
GOTO no
END IF
IF no = 6 THEN
no$ = no3$
nivel = nivel3
cor$ = cor3$
no = 3
GOTO no
END IF
IF no = 7 THEN
no$ = no14$
nivel = nivel14
cor$ = cor14$
no = 14
GOTO no
END IF
IF no = 8 THEN
no$ = no15$
nivel = nivel15
cor$ = cor15$
no = 15
GOTO no
END IF
IF no = 9 THEN
no$ = no16$
nivel = nivel16
cor$ = cor16$
no = 16
GOTO no
END IF
IF no = 10 THEN
no$ = no5$
nivel = nivel5
cor$ = cor5$
no = 5
GOTO no
END IF
IF no = 11 THEN
no$ = no6$
nivel = nivel6
cor$ = cor6$
no = 6
GOTO no
END IF
IF no = 12 THEN
no$ = no7$
nivel = nivel7
cor$ = cor7$
no = 7
GOTO no
END IF
IF no = 13 THEN
no$ = no22$
nivel = nivel22
cor$ = cor22$
no = 22
GOTO no
END IF
IF no = 14 THEN
no$ = no23$
nivel = nivel23
cor$ = cor23$
no = 23
GOTO no
END IF
IF no = 15 THEN
no$ = no24$
nivel = nivel24
cor$ = cor24$
no = 24
GOTO no
END IF
IF no = 16 THEN
no$ = no25$
nivel = nivel25
cor$ = cor25$
no = 25
GOTO no
END IF
IF no = 17 THEN
no$ = no10$
nivel = nivel10
cor$ = cor10$
no = 10
GOTO no
END IF
IF no = 18 THEN
no$ = no11$
nivel = nivel11
cor$ = cor11$
no = 11
GOTO no
END IF
IF no = 19 THEN
no$ = no12$
nivel = nivel12
cor$ = cor12$
no = 12
GOTO no
END IF
IF no = 20 THEN
no$ = no13$
nivel = nivel13
cor$ = cor13$
no = 13
GOTO no
END IF
IF no > 20 THEN
PRINT "Vocˆ nÆo pode ir por a¡"
SLEEP 1
GOTO no
END IF


CASE "o"
IF no = 3 THEN
no$ = no1$
nivel = nivel1
cor$ = cor1$
no = 1
GOTO no
END IF
IF no = 6 THEN
no$ = no2$
nivel = nivel2
cor$ = cor2$
no = 2
GOTO no
END IF
IF no = 7 THEN
no$ = no3$
nivel = nivel3
cor$ = cor3$
no = 3
GOTO no
END IF
IF no = 8 THEN
no$ = no4$
nivel = nivel4
cor$ = cor4$
no = 4
GOTO no
END IF
IF no = 11 THEN
no$ = no5$
nivel = nivel5
cor$ = cor5$
no = 5
GOTO no
END IF
IF no = 12 THEN
no$ = no6$
nivel = nivel6
cor$ = cor6$
no = 6
GOTO no
END IF
IF no = 13 THEN
no$ = no7$
nivel = nivel7
cor$ = cor7$
no = 7
GOTO no
END IF
IF no = 14 THEN
no$ = no8$
nivel = nivel8
cor$ = cor8$
no = 8
GOTO no
END IF
IF no = 15 THEN
no$ = no9$
nivel = nivel9
cor$ = cor9$
no = 9
GOTO no
END IF
IF no = 18 THEN
no$ = no10$
nivel = nivel10
cor$ = cor10$
no = 10
GOTO no
END IF
IF no = 19 THEN
no$ = no11$
nivel = nivel11
cor$ = cor11$
no = 11
GOTO no
END IF
IF no = 20 THEN
no$ = no12$
nivel = nivel12
cor$ = cor12$
no = 12
GOTO no
END IF
IF no = 21 THEN
no$ = no13$
nivel = nivel13
cor$ = cor13$
no = 13
GOTO no
END IF
IF no = 22 THEN
no$ = no14$
nivel = nivel14
cor$ = cor14$
no = 14
GOTO no
END IF
IF no = 23 THEN
no$ = no15$
nivel = nivel15
cor$ = cor15$
no = 15
GOTO no
END IF
IF no = 24 THEN
no$ = no16$
nivel = nivel16
cor$ = cor16$
no = 16
GOTO no
END IF

CASE "re"
IF util9 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
END IF

IF memor - util9 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO no
ELSE
memor = memor - util9 - memormax \ 10
END IF

IF (INT(comp * RND) - 1) + INT(util9 * RND) + 1 > INT(RND * nivel) + 1 THEN
INPUT "Programa a ser restaurado: ", respro$
IF respro$ = "r" THEN
util1 = util1v
END IF
IF respro$ = "m" THEN
util2 = util2v
END IF
IF respro$ = "e" THEN
util3 = util3v
END IF
IF respro$ = "a" THEN
util4 = util4v
END IF
IF respro$ = "f" THEN
util5 = util5v
END IF
IF respro$ = "d" THEN
util6 = util6v
END IF
IF respro$ = "i" THEN
util7 = util7v
END IF
IF respro$ = "es" THEN
util8 = util8v
END IF
IF respro$ = "re" THEN
util9 = util9v
END IF
IF respro$ = "v" THEN
util10 = util10v
END IF
PRINT "Programa restaurado"
som = 14
Sons
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF
GOTO no

CASE ELSE
PRINT "Comando inv lido"
SLEEP 1
GOTO no

END SELECT

GOTO no

desconect:
voltarconec$ = "s"
CHAIN "C:\Blarg!\Overrun\Overrun.bas"

SUB Ares

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Ares Macrotecnologies"
cor$ = "Verde"
nivel = 4
no2$ = ""
no3$ = "UAP"
nivel3 = 4
cor3$ = "Verde"
no4$ = ""
no5$ = "Arquivo"
nivel5 = 6
cor5$ = "Laranja"
no6$ = "UAP"
nivel6 = 5
cor6$ = "Laranja"
no7$ = "UAP"
nivel7 = 5
cor7$ = "Laranja"
no8$ = "UAP"
nivel8 = 5
cor8$ = "Laranja"
no9$ = "Arquivo"
nivel9 = 6
cor9$ = "Laranja"
no10$ = ""
no11$ = "UAP"
nivel11 = 5
cor11$ = "Laranja"
no12$ = ""
no13$ = "UAP"
nivel13 = 6
cor13$ = "Laranja"
no14$ = ""
no15$ = "UAP"
nivel15 = 5
cor15$ = "Laranja"
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = "UAP"
nivel19 = 6
cor19$ = "Laranja"
no20$ = "CPU"
nivel20 = 7
cor20$ = "Vermelho"
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = "Acesso"
nivel25 = 8
cor25$ = "Fantasma"


CASE "sistema2"
empresa$ = "Ares/next war"
nivel = 7
cor$ = "Laranja"
no2$ = ""
no3$ = ""
no4$ = "UAP"
nivel4 = 7
cor4$ = "Laranja"
no5$ = ""
no6$ = ""
no7$ = ""
no8$ = "UAP"
nivel8 = 7
cor8$ = "Laranja"
no9$ = "UAP"
nivel9 = 8
cor9$ = "Vermelho"
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = ""
no14$ = ""
no15$ = "UAP"
nivel15 = 8
cor15$ = "Vermelho"
no16$ = "UAP"
nivel16 = 7
cor16$ = "Laranja"
no17$ = "Arquivo"
nivel17 = 8
cor17$ = "Vermelho"
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = "UAP"
nivel23 = 7
cor23$ = "Laranja"
no24$ = "UAP"
nivel24 = 7
cor24$ = "Laranja"
no25$ = ""


CASE "gelos"
IF reg < 15 THEN
gelo$ = "Cascata"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = nivel
util2d = nivel
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
END IF
IF reg > 15 THEN
nomed$ = "Piro"
velocd = 5
memormaxd = 50
memord = 50
intemaxd = 60
inted = 60
combd = 7
defesd = 7
util1d = 0
util2d = 5
util3d = 4
util4d = 0
util5d = 0
util6d = 8
util7d = 0
util8d = 0
util9d = 5
util10d = 0
tipogelo$ = "Tec"
corgelo$ = ""
END IF

CASE "arquivos"
IF no = 5 OR no = 9 THEN
proxarq$ = "Ares MP Laser III edi‡Æo(laser)"
valor = 150
END IF
IF no = 17 THEN
proxarq$ = "Acordos Governamentais(acordos)"
valor = 300
END IF

END SELECT

END SUB

SUB Combate
som = 6
Sons
som = 1
Sons
esp = 0
esc = 0
ret = 0
espd = 0
escd = 0
retd = 0
vitor$ = ""
IF nomed$ = "" THEN
nomed$ = "GELO"
END IF
util1dv = util1d
util2dv = util2d
util3dv = util3d
util4dv = util4d
util5dv = util5d
util6dv = util6d
util7dv = util7d
util8dv = util8d
util9dv = util9d
util10dv = util10d

CLS
iniciativa:
RANDOMIZE TIMER

ini = (INT((veloc + rac) \ 2) * RND) + 1 - (ret + vez + atord)
inid = (INT(velocd * RND) + 1) - (retd + vezd)
IF ini = inid THEN
GOTO iniciativa
END IF

IF ini > inid THEN
IF memor < memormax THEN
memor = memor + (memormax \ 10)
IF memor > memormax THEN
memor = memormax
END IF
END IF
IF ret > 0 THEN
ret = ret - 1
END IF
IF retd > 0 THEN
retd = retd - 1
vez = vez - 1
memor = memor - (memormax \ 10)
END IF
GOTO persona

ELSE
IF memord < memormaxd THEN
memord = memord + (memormaxd \ 10)
IF memord > memormaxd THEN
memord = memormaxd
END IF
END IF
IF retd > 0 THEN
retd = retd - 1
END IF
IF ret > 0 THEN
ret = ret - 1
vezd = vezd - 1
memord = memord - (memormaxd \ 10)
END IF
IF atord > 0 THEN
atord = atord - 1
vezd = vezd - 1
END IF
GOTO inimigo
END IF


persona:
som = 6
Sons
CLS
LOCATE 1, 34
COLOR 12
PRINT "COMBATE"
COLOR 10
vez = vez + 1
PRINT "Vez de "; nome$
LOCATE 3, 1
PRINT "Velocidade:     "; veloc
PRINT "Mem¢ria:        "; memor; "/"; memormax
PRINT "Integridade:    "; inte; "/"; intemax
LOCATE 6, 1
PRINT "Combate(c):     "; comb
PRINT "Defesa:         "; defes
LOCATE 9, 1
IF util1 > 0 THEN
PRINT "Retardamento(r):"; util1
END IF
IF util2 > 0 THEN
PRINT "M‚dico(m):      "; util2
END IF
IF util3 > 0 THEN
PRINT "Escudo(e):      "; util3
END IF
IF util4 > 0 THEN
PRINT "An lise(a):     "; util4
END IF
IF util5 > 0 THEN
PRINT "Fuga(f):        "; util5
END IF
IF util6 > 0 THEN
LOCATE 9, 22
PRINT "Disrup‡Æo(d):   "; util6
END IF
IF util7 > 0 THEN
LOCATE 10, 22
PRINT "IlusÆo(i):      "; util7
END IF
IF util8 > 0 THEN
LOCATE 11, 22
PRINT "Espelho(es):    "; util8
END IF
IF util9 > 0 THEN
LOCATE 12, 22
PRINT "Restaura‡Æo(re):"; util9
END IF
IF util10 > 0 THEN
LOCATE 13, 22
PRINT "Veneno(v):      "; util10
END IF
LOCATE 9, 43
IF util11 > 0 THEN
PRINT "Drenar(dr):     "; util11
END IF
IF util12 > 0 THEN
LOCATE 10, 43
PRINT "Teleporte(t):   "; util12
END IF
IF util13 > 0 THEN
LOCATE 11, 43
PRINT "Explosivo(ex):  "; util13
END IF
IF util14 > 0 THEN
LOCATE 12, 43
PRINT "Vendetta(ven):  "; util14
END IF
IF util15 > 0 THEN
LOCATE 13, 43
PRINT "Prote‡Æo(p):    "; util15
END IF


LOCATE 15, 1
IF atord > 0 THEN
PRINT "Vocˆ est  atordoado"
som = 1
Sons
atord = atord - 1
END IF
IF ret > 0 THEN
PRINT "Vocˆ est  sendo paralizado!"
som = 3
Sons
END IF
IF veneno > 0 AND INT(RND * veneno) + 1 > INT(RND * defes) + 1 THEN
SELECT CASE INT(RND * 14) + 1
CASE 1
intemax = intemax - INT(RND * veneno) + 1
IF intemax < 1 THEN
intemax = 0
vitor$ = ""
GOTO fim
END IF
IF inte > intemax THEN
inte = intemax
END IF
CASE 2
memormax = memormax - INT(RND * veneno) + 1
IF memormax < 1 THEN
memormax = 0
END IF
IF memor > memormax THEN
memor = memormax
END IF
CASE 3
veloc = veloc - 1
IF veloc < 1 THEN
veloc = 0
END IF
CASE 4
comb = comb - 1
IF comb < 1 THEN
comb = 0
END IF
CASE 5
defes = defes - 1
IF defes < 1 THEN
defes = 0
END IF
CASE 6 TO 60
util1 = util1 - 1
IF util1 < 1 THEN
util1 = 0
END IF
CASE 7
util2 = util2 - 1
IF util2 < 1 THEN
util2 = 0
END IF
CASE 8
util3 = util3 - 1
IF util3 < 1 THEN
util3 = 0
END IF
CASE 9
util4 = util4 - 1
IF util4 < 1 THEN
util4 = 0
END IF
CASE 10
util5 = util5 - 1
IF util5 < 1 THEN
util5 = 0
END IF
CASE 11
util6 = util6 - 1
IF util6 < 1 THEN
util6 = 0
END IF
CASE 12
util7 = util7 - 1
IF util7 < 1 THEN
util7 = 0
END IF
CASE 13
util8 = util8 - 1
IF util8 < 1 THEN
util8 = 0
END IF
CASE 14
util9 = util9 - 1
IF util9 < 1 THEN
util9 = 0
END IF
END SELECT
som = 4
Sons
PRINT "V¡rus Veneno detectado"
END IF

IF nomed$ = "May, a Tecnomante" THEN
PRINT ""
INPUT "Vocˆ diz para May: ", fala$
IF fala$ = "Lucas Sage" THEN
SLEEP 1
PRINT "May diz: O q? O q ele te disse?"
END IF
INPUT "Vocˆ diz para May: ", fala$
IF fala$ = "fuga" THEN
SLEEP 1
PRINT "May diz: Droga! Sei o q aconteceu, jah tinha planejado a fuga, mas foi "
PRINT "providencial q vc me avisasse isso, obrigada. diga isso ao Ahaizer: Lukage."
SLEEP 1
PRINT "Ele saber  que est  tudo bem agora."
SLEEP 1
PRINT "Agora saia daqui antes que desconfiem de mim denovo"
missaomay$ = "c"
END IF
END IF

IF gelo$ = "¶ngela" THEN
nomed$ = "¶ngela"
PRINT "¶ngela diz: Quem ‚ vocˆ?"
INPUT "Vocˆ diz para ¶ngela: ", fala$
IF fala$ = nome$ THEN
SLEEP 1
PRINT "¶ngela diz: Isso meus sistemas analizaram. O que vocˆ quer aqui?"
END IF
INPUT "Vocˆ diz para ¶ngela: ", fala$
IF fala$ = "subrotina" THEN
SLEEP 1
PRINT "¶ngela diz: Vocˆ pode me libertar? Vocˆ ‚ aquele que eu sonhei."
PRINT "NÆo acredito que est  acontecendo realmente! Vocˆ ‚ iluminado*!"
PRINT "Que a Ressonƒncia Profunda o atinja logo."
PRINT "¶ngela sai do sistema"
missaoangela$ = "c"
GOTO fim
ELSE
SLEEP 1
PRINT "¶ngela diz: Terei que impedi-lo pois est  violando as leis do sistema"
END IF
END IF

PRINT ""
PRINT "A‡äes poss¡veis no combate: Desconectar(de), Observar(ob)"
INPUT "A‡Æo: ", acao$


SELECT CASE acao$

CASE IS = "c"
atac = (INT(RND * comp) - 1) + (INT(RND * comb) + 1) - (INT(RND * defesd) + escd)
IF escd > 0 THEN
escd = escd - 1
IF escd < 1 THEN
PRINT "O escudo de "; nomed$; " se dissipou!"
som = 8
Sons
SLEEP 1
END IF
END IF
IF espd > 0 THEN
espd = espd - 1
IF espd < 1 THEN
PRINT "O espelho de "; nomed$; " quebrou"
som = 10
Sons
espd = 0
SLEEP 1
END IF
END IF
IF atac > 0 THEN
IF espd > 1 AND INT(RND * 2) + 1 = 2 THEN
PRINT "Vocˆ acertou um espelho!"
som = 2
Sons
SLEEP 1
espd = espd - 1
IF espd < 1 THEN
PRINT "Vocˆ quebra o espelho de "; nomed$
som = 10
Sons
espd = 0
SLEEP 1
END IF
GOTO iniciativa
END IF
inted = inted - atac
PRINT "Acertou!  "; atac; " de dano"
som = 2
Sons
SLEEP 1
ELSE
PRINT "Errou!"
som = 1
Sons
SLEEP 1
END IF
IF inted < 1 THEN
PRINT nomed$; " foi vencido."
som = 1
Sons
som = 2
Sons
som = 3
Sons
som = 6
Sons
SLEEP 1
vitor$ = "s"
nxp = (nivel - 2) \ 2
IF nxp > 0 THEN xp = xp + nxp
GOTO fim
END IF


CASE "r"
IF util1 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util1 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util1 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util1 * RND) + 1 > INT(velocd * RND) + 1 THEN
retd = retd + util1
PRINT "Retardamento ativo"
som = 3
Sons
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF


CASE "m"
IF util2 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util2 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
END IF

IF inte < intemax THEN
memor = memor - util2 - memormax \ 10
inte = inte + INT(RND * util2 * 2) + 1
PRINT "Restaurando integridade"
som = 11
Sons
SLEEP 1
IF inte > intemax THEN
inte = intemax
END IF
ELSE
PRINT "Integridade no m ximo"
SLEEP 1
END IF


CASE "e"
IF util3 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util3 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util3 - memormax \ 10
esc = util3
PRINT "Escudo ativo"
som = 7
Sons
SLEEP 1
END IF



CASE "a"
IF util4 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util4 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util4 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util4 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "Analizando"
SLEEP 1
som = 5
Sons
IF tipogelo$ = "Tec" THEN
PRINT "Nome: "; nomed$
PRINT "Velocidade: "; velocd; "  Mem¢ria: "; memord; "/"; memormaxd; "  Integridade: "; inted; "/"; intemaxd
PRINT "Combate: "; combd; "  Defesa: "; defesd; "  Tecnauta da "; empresa$
PRINT "Retardamento(r): "; util1d; "  M‚dico(m): "; util2d; "  Escudo(e): "; util3d; "  Apagar(ap): "; util4d; "  Rastrear(ra): "; util5d
PRINT "Disrup‡Æo(d): "; util6d; "  Revelar(rev): "; util7d; "  Espelho(es): "; util8d; "  Restaura‡Æo(re): "; util9d; "  Veneno(v): "; util10d
ELSE
nomed$ = gelo$
PRINT "GELO: "; nomed$
PRINT "Velocidade: "; velocd; "  Mem¢ria: "; memord; "/"; memormaxd; "  Integridade: "; inted; "/"; intemaxd
PRINT "Combate: "; combd; "  Defesa: "; defesd; "  Tipo: GELO "; tipogelo$; "  "; corgelo$; "  N¡vel: "; nivel
END IF
INPUT "Pressione enter", press
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF


CASE "f"
IF util5 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util5 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util5 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util5 * RND) + 1 > INT(util5d * RND) + 1 THEN
IF rastro > 0 THEN
PRINT "Fugindo..."
som = 12
Sons
rastro = rastro - util5
SLEEP 1
ELSE
PRINT "Vocˆ nÆo est  sendo rastreado": GOTO persona
SLEEP 1
END IF
IF rastro < 1 THEN
rastro = 0
PRINT "Fuga completa"
som = 12
Sons
SLEEP 1
IF gelo$ = "Rastreador" THEN
PRINT "O GELO Rastreador se perde"
SLEEP 1
vitor$ = "s"
GOTO fim
END IF
END IF
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "d"
IF util6 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util6 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util6 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util6 * RND) + 1 > INT(defesd * RND) + 1 THEN
IF tipogelo$ = "Tec" THEN
INPUT "Programa a ser apagado:(r,m,e,cr,ra,d,rev,es,re,v) ", dispro$
ELSE
dispro$ = "fun"
END IF
som = 6
Sons
GOTO disrup
voltadis:
PRINT "Programa apagado"
som = 11
Sons
som = 4
Sons
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "i"
IF util7 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util7 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util7 - memormax \ 10
END IF

IF gelo$ = "Barreira" THEN
GOTO ilusao
END IF
IF gelo$ = "Vigia" THEN
GOTO ilusao
END IF
IF gelo$ = "Areia Movedi‡a" THEN
GOTO ilusao
END IF
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
GOTO iniciativa

ilusao:
IF (INT(RND * comp) - 1) + INT(util7 * RND) + 1 > INT(nivel * RND) + 1 THEN
som = 13
Sons
PRINT "O GELO foi enganado"
SLEEP 1
vitor$ = "s"
GOTO fim
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF


CASE "es"
IF util8 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE

IF memor - util8 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util8 - memormax \ 10
END IF
esp = util8
PRINT "Espelho ativo"
som = 7
Sons
SLEEP 1
END IF

CASE "re"
IF util9 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util9 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util9 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util9 * RND) + 1 > INT(util6d * RND) + 1 THEN
INPUT "Programa a ser restaurado:(r,m,e,a,f,d,i,es,re,v) ", respro$
GOTO restaurar
voltares:
PRINT "Programa restaurado"
som = 14
Sons
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "v"
IF util10 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util10 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util10 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util10 * RND) + 1 > INT(defesd * RND) + 1 THEN
PRINT "V¡rus de veneno instalado em "; nomed$
som = 4
Sons
venenod = util10d
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "dr"
IF util11 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util11 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util11 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util11 * RND) + 1 > INT(velocd * RND) + 1 THEN
PRINT "Drenando de "; nomed$
som = 6
Sons
som = 6
Sons
dreno = INT(RND * util11) + 1
inted = inted - dreno \ 2
memord = memord - dreno \ 2
inte = inte + (dreno \ 2)
IF inte > intemax THEN
inte = intemax
END IF
IF inted < 1 THEN
vitor$ = "s"
PRINT nomed$; " foi drenado at‚ o fim"
SLEEP 1
GOTO fim
END IF
IF memord < 1 THEN
memord = 0
END IF
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "ex"
IF util13 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util13 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util13 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util13 * RND) + 1 > INT(defesd * RND) + 1 THEN
PRINT "Explodindo "; nomed$
som = 1
Sons
som = 6
Sons
som = 1
Sons
expl = INT(RND * util13) + 1
velocd = velocd - (expl \ 3)
combd = comb - (expl \ 3)
defesd = defesd - (expl \ 3)
IF velocd < 1 THEN
velocd = 0
END IF
IF combd < 1 THEN
combd = 0
END IF
IF velocd < 1 THEN
defesd = 0
END IF
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "ven"
IF util14 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util14 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util14 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util14 * RND) + 1 > INT(combd * RND) + 1 THEN
PRINT "Vendetta acionado"
som = 4
Sons
som = 6
Sons
vendetta = util14
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF

CASE "p"
IF util15 = 0 THEN
PRINT "Utilit rio nÆo dispon¡vel"
som = 1
Sons
SLEEP 1
GOTO persona
END IF

IF memor - util15 - memormax \ 10 < 0 THEN
PRINT "Mem¢ria insuficiente"
som = 1
Sons
SLEEP 1
GOTO persona
ELSE
memor = memor - util15 - memormax \ 10
END IF

IF (INT(RND * comp) - 1) + INT(util15 * RND) + 1 > INT(nivel * RND) + 1 THEN
PRINT "Prote‡Æo ativa"
som = 6
Sons
prot = util15
SLEEP 1
ELSE
PRINT "Falhou!"
som = 1
Sons
SLEEP 1
END IF


CASE "de"
IF tipogelo$ = "Negro" THEN
IF INT(RND * per) + 1 > INT(RND * nivel) + 1 THEN
PRINT "Desconectando..."
som = 6
Sons
som = 1
Sons
SLEEP 1
GOTO fim
ELSE
PRINT "Tentativa de desconectar falhou!"
SLEEP 1
GOTO iniciativa
END IF
END IF
PRINT "Desconectando..."
SLEEP 1
som = 6
Sons
som = 1
Sons
GOTO fim


CASE "ob"
IF no$ = "Acesso" THEN
PRINT "Vocˆ vˆ uma grande porta de a‡o cromado e sem fechadura"
END IF
IF no$ = "UAP" THEN
PRINT "Vocˆ vˆ uma sala pulsante coberta de circuitos crepitantes de energia"
END IF
IF no$ = "Arquivo" THEN
PRINT "Vocˆ vˆ um labirinto de blocos de energia cheios de letras e n£meros rodopiantesem cores diversas"
END IF
IF no$ = "CPU" THEN
PRINT "Vocˆ vˆ uma enorme sala hexagonal feita a partir de placas de circuito que      pulsam com energia ofuscante. Telas exibem dados que fluem atrav‚s do sistema"
END IF
IF cor$ = "UV" THEN
PRINT "Vocˆ nota que as paredes do n¢ sÆo espelhadas e confusas"
INPUT "Pressione enter", press
END IF
IF nomed$ = "GELO" THEN
PRINT "GELO nÆo identificado"
som = 1
Sons
INPUT "Pressione enter", press
GOTO persona
END IF
IF gelo$ = "Barreira" THEN
PRINT "Vocˆ vˆ um muro de raios pulsantes em sua frente"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Vigia" THEN
PRINT "Vocˆ vˆ um olho flutuante seguindo-o fixamente"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Areia Movedi‡a" THEN
PRINT "Vocˆ vˆ um tapete de dados criptografados que atrapalham seus movimentos"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Rastreador" THEN
PRINT "Vocˆ vˆ uma esfera flutuante examinado seus dados e comunicando-se com o n¢"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Assassino" THEN
PRINT "Vocˆ vˆ um samurai urbano com raios ao redor do corpo"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Disruptor" THEN
PRINT "Vocˆ vˆ um human¢ide cromado com uma espada de eletricidade"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Veneno" THEN
PRINT "Vocˆ vˆ uma human¢ide negra se aproximando sorrateiramente"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Fa¡sca" THEN
PRINT "Vocˆ vˆ uma nuvem de descargas el‚tricas enormes que parecem ter a forma de uma pessoa"
INPUT "Pressione enter", press
END IF
IF gelo$ = "GuardiÆo" THEN
PRINT "Vocˆ vˆ um grande guerreiro sem rosto de espada e armadura"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Letal" THEN
PRINT "Vocˆ vˆ um gigante negro com raios saindo de suas mÆos"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Cascata" THEN
PRINT "Vocˆ vˆ uma centop‚ia feita de triƒngulos de circuitos que seu move             tridimensionalmente"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Drake" THEN
PRINT "Vocˆ vˆ um lagarto vermelho que expele fogo das narinas"
INPUT "Pressione enter", press
END IF
IF gelo$ = "DragÆo de Sil¡cio" THEN
PRINT "Vocˆ vˆ um dragÆo de circuitos com energia pulsando de seus olhos e mand¡bula"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Arauto" THEN
PRINT "Vocˆ vˆ um human¢ide de luz flutuando pelo n¢"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Jack" THEN
PRINT "Vocˆ vˆ um homem com trajes do s‚culo XIX portando uma faca e com um sorriso    sanguin rio em seu rosto"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Samurai de Prata" THEN
PRINT "Vocˆ vˆ um grande samurai sem rosto com uma espada de energia pura"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Psiconoise" THEN
PRINT "Vocˆ vˆ um palha‡o com sangue em suas mÆos que ataca gritando muito alto"
INPUT "Pressione enter", press
END IF
IF gelo$ = "Zeo" THEN
PRINT "Vocˆ vˆ um monge encapuzado com olhos flamejantes"
INPUT "Pressione enter", press
END IF
IF gelo$ = "¶ngela" THEN
PRINT "Vocˆ vˆ uma garota careca, por‚m muito bela, usando um vestido longo e branco"
INPUT "Pressione enter", press
END IF
IF tipogelo$ = "Tec" THEN
PRINT "Vocˆ vˆ um ¡cone humano com o uniforme da "; empresa$
INPUT "Pressione enter", press
END IF
IF tipogelo$ = "Tec" AND nomed$ = "Piro" THEN
PRINT "Vocˆ vˆ um rob“ de guerra gigante, com canhäes no lugar dos bra‡os"
INPUT "Pressione enter", press
END IF

GOTO persona

CASE ELSE
PRINT "Isto nÆo pode ser feito em combate"
SLEEP 1
GOTO persona
END SELECT

GOTO iniciativa

inimigo:
som = 6
Sons
vezd = vezd + 1
CLS
COLOR 12
LOCATE 1, 34
PRINT "COMBATE"
COLOR 10
PRINT "Vez de "; nomed$
SLEEP 1

IF retd > 0 THEN
PRINT nomed$; " est  sendo paralizado!"
som = 3
Sons
END IF
IF rastro > 0 THEN
rastro = rastro + 1
PRINT "Vocˆ est  sendo rastreado"
som = 12
Sons
som = 4
Sons
SLEEP 1
IF rastro > veloc + util5 + 3 THEN
PRINT "Vocˆ foi rastreado"
SLEEP 1
PRINT "Vocˆ foi desconectado"
som = 6
Sons
som = 1
Sons
SLEEP 1
vitor$ = ""
GOTO fim
END IF
END IF
IF venenod > 0 AND INT(RND * venenod) + 1 > INT(RND * defesd) + 1 THEN
SELECT CASE INT(RND * 14) + 1
CASE 1
intemaxd = intemaxd - INT(RND * venenod) + 1
IF intemaxd < 1 THEN
intemaxd = 0
vitor$ = "s"
PRINT "O veneno destr¢i a integridade de "; nomed$
SLEEP 1
GOTO fim
END IF
IF inted > intemaxd THEN
inted = intemaxd
END IF
CASE 2
memormaxd = memormaxd - INT(RND * venenod) + 1
IF memormaxd < 1 THEN
memormaxd = 0
END IF
IF memord > memormaxd THEN
memord = memormaxd
END IF
CASE 3
velocd = velocd - 1
IF velocd < 1 THEN
velocd = 0
END IF
CASE 4
combd = combd - 1
IF comb < 1 THEN
combd = 0
END IF
CASE 5
defesd = defesd - 1
IF defesd < 1 THEN
defesd = 0
END IF
CASE 6 TO 60
util1d = util1d - 1
IF util1d < 1 THEN
util1d = 0
END IF
CASE 7
util2d = util2d - 1
IF util2d < 1 THEN
util2d = 0
END IF
CASE 8
util3d = util3d - 1
IF util3d < 1 THEN
util3d = 0
END IF
CASE 9
util4d = util4d - 1
IF util4d < 1 THEN
util4d = 0
END IF
CASE 10
util5d = util5d - 1
IF util5d < 1 THEN
util5d = 0
END IF
CASE 11
util6d = util6d - 1
IF util6d < 1 THEN
util6d = 0
END IF
CASE 12
util7d = util7d - 1
IF util7d < 1 THEN
util7d = 0
END IF
CASE 13
util8d = util8d - 1
IF util8d < 1 THEN
util8d = 0
END IF
CASE 14
util9d = util9d - 1
IF util9d < 1 THEN
util9d = 0
END IF
END SELECT
som = 4
Sons
PRINT "V¡rus Veneno age em "; nomed$
END IF

inimigoatac:
SELECT CASE INT(RND * 120) + 1

CASE 1 TO 60
atac = (INT(RND * combd) + 1) - (INT(RND * defes) + esc)
IF esc > 0 THEN
esc = esc - 1
IF esc < 1 THEN
PRINT "O escudo se dissipou!"
som = 8
Sons
SLEEP 1
END IF
END IF
IF atac > 0 THEN
IF esp > 0 AND INT(RND * 2) + 1 = 2 THEN
esp = esp - 1
PRINT nomed$; " acertou seu espelho!"
som = 2
Sons
SLEEP 1
esp = esp - 1
IF esp < 1 THEN
PRINT "Seu espelho foi quebrado"
som = 10
Sons
esp = 0
SLEEP 1
END IF
GOTO iniciativa
END IF
inte = inte - atac
PRINT nomed$; " te acertou!  "; atac; " de dano"
som = 2
Sons
IF vendetta > 0 THEN
vendetta = vendetta - 1
IF vendetta < 1 THEN
PRINT "Vendetta exaurido"
som = 1
Sons
SLEEP 1
END IF
inted = inted - (atac \ 2)
PRINT nomed$; " leva "; (atac \ 2); " de dano"
som = 2
Sons
END IF
IF corgelo$ = "Negro" THEN
PRINT "Vocˆ ‚ atordoado pelo ataque do GELO!"
som = 1
Sons
atord = atord + dano
IF atord > (per * 3) + prot THEN
PRINT "Vocˆ sente uma descarga de energia podeross¡sima em seu c‚rebro"
SLEEP 1
IF gelo$ = "Fa¡sca" THEN
vitor$ = ""
arq1$ = "": arq6$ = ""
arq2$ = "": arq7$ = ""
arq3$ = "": arq8$ = ""
arq4$ = "": arq9$ = ""
arq5$ = "": arq10$ = ""
PRINT "Seus arquivos foram apagados!"
SLEEP 1
GOTO fim
END IF
IF gelo$ = "Psiconoise" THEN
vitor$ = ""
arq1$ = "": arq6$ = ""
arq2$ = "": arq7$ = ""
arq3$ = "": arq8$ = ""
arq4$ = "": arq9$ = ""
arq5$ = "": arq10$ = ""
PRINT "Seus arquivos foram apagados!"
SLEEP 1
codnexs$ = ""
PRINT "Sua cabe‡a est  doendo muito! Algo foi alterado em suas mem¢rias!"
GOTO fim
END IF
save$ = "C:\Blarg!\Overrun\Saves\" + nome$ + ".sav"
KILL save$
PRINT "Vocˆ est  morto"
SLEEP 1
END
END IF
END IF
SLEEP 1
ELSE
PRINT nomed$; " errou!"
som = 1
Sons
SLEEP 1
END IF
IF gelo$ = "¶ngela" AND inte < 15 THEN
PRINT "¶ngela diz: NÆo quero lutar com vocˆ. Sinto uma energia diferente em sua        persona. V  embora, por favor."
SLEEP 1
GOTO persona
END IF
IF inte < 1 THEN
PRINT "Vocˆ foi vencido por "; nomed$
som = 1
Sons
som = 6
Sons
som = 3
Sons
som = 1
Sons
SLEEP 1
vitor$ = ""
GOTO fim
END IF

CASE 61 TO 65
IF util1d = 0 THEN
GOTO inimigoatac
END IF
IF memord - util1d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util1d - memormaxd \ 10
END IF
IF INT(util1d * RND) + 1 > INT(veloc * RND) + 1 THEN
ret = ret + util1d
PRINT nomed$; " ativa o retardamento"
som = 3
Sons
SLEEP 1
ELSE
PRINT nomed$; " falhou em te retardar!"
som = 1
Sons
SLEEP 1
IF gelo$ = "Cascata" THEN
PRINT "O GELO aumenta seu pr¢prio n¡vel!"
combd = combd + 1
defesd = defesd + 1
velocd = velocd + 1
SLEEP 1
END IF
END IF


CASE 66 TO 70
IF util2d = 0 THEN
GOTO inimigoatac
END IF

IF memord - util2d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util2d - memormaxd \ 10
END IF

IF inted < intemaxd THEN
inted = inted + INT(RND * util2d) + 1
PRINT "A integridade de "; nomed$; " foi restaurada"
som = 11
Sons
SLEEP 1
IF inted > intemaxd THEN
inted = intemaxd
END IF
END IF

CASE 71 TO 75
IF util3d = 0 THEN
GOTO inimigoatac
END IF
IF memord - util3d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util3d - memormaxd \ 10
escd = escd + util3d
PRINT nomed$; " ativa seu escudo"
som = 9
Sons
SLEEP 1
END IF


CASE 76 TO 80
IF util5d = 0 THEN
GOTO inimigoatac
END IF

IF memord - util5d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util5d - memormaxd \ 10
END IF

IF INT(util5d * RND) + 1 > INT(veloc * RND) + 1 THEN
rastro = rastro + INT(RND * util5d) + 1
ELSE
PRINT nomed$; " falhou em te rastrear"
som = 1
Sons
SLEEP 1
END IF
IF rastro > veloc + util5 + 3 THEN
PRINT "Vocˆ foi rastreado"
SLEEP 1
PRINT "Vocˆ foi desconectado"
som = 6
Sons
som = 1
Sons
SLEEP 1
vitor$ = ""
GOTO fim
END IF


CASE 81 TO 85
IF util6d = 0 THEN
GOTO inimigoatac
END IF

IF memord - util6d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util6d - memormaxd \ 10
END IF

IF INT(util6d * RND) - 1 > INT(defes * RND) + 2 THEN
GOTO disrupd
voltadisd:
PRINT "Um de seus programas foi apagado!"
som = 1
Sons
som = 4
Sons
SLEEP 1
ELSE
PRINT nomed$; " falhou em apagar seu programa"
som = 1
Sons
SLEEP 1
END IF


CASE 86 TO 90
IF util8d = 0 THEN
GOTO inimigoatac
ELSE
IF memord - util8d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util8d - memormaxd \ 10
END IF
espd = util8d
PRINT nomed$; " ativa seu espelho"
som = 7
Sons
SLEEP 1
END IF


CASE 95 TO 100
IF util9d = 0 THEN
GOTO inimigoatac
END IF

IF memord - util9d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util9d - memormaxd \ 10
END IF

IF INT(util9d * RND) + 1 > INT(util6 * RND) + 1 THEN
GOTO restaurard
voltaresd:
PRINT nomed$; " restaura um programa"
som = 14
Sons
SLEEP 1
ELSE
PRINT nomed$; " falha em restaurar um programa"
som = 1
Sons
SLEEP 1
END IF


CASE 105 TO 110
IF util10d = 0 THEN
GOTO inimigoatac
END IF

IF memord - util10d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util10d - memormaxd \ 10
END IF

IF INT(util10d * RND) + 1 > INT(defes * RND) + 1 THEN
veneno = util10
util10d = 0
ELSE
PRINT nomed$; " falhou em tentar te envenenar"
som = 1
Sons
SLEEP 1
END IF

CASE 111 TO 115
IF util7d = 0 THEN
GOTO inimigoatac
END IF
IF memord - util7d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util7d - memormaxd \ 10
END IF

IF INT(util7d * RND) + 1 > INT(util7 * RND) + 1 THEN
PRINT nomed$; " apagou um de seus arquivos"
SLEEP 1
som = 8
Sons
som = 10
Sons
IF arq1$ = "" THEN
ELSE
arq1$ = ""
valor1 = 0
GOTO iniciativa
END IF
IF arq2$ = "" THEN
ELSE
arq2$ = ""
valor2 = 0
GOTO iniciativa
END IF
IF arq3$ = "" THEN
ELSE
arq3$ = ""
valor3 = 0
GOTO iniciativa
END IF
IF arq4$ = "" THEN
ELSE
arq4$ = ""
valor4 = 0
GOTO iniciativa
END IF
IF arq5$ = "" THEN
ELSE
arq5$ = ""
valor5 = 0
GOTO iniciativa
END IF
IF arq6$ = "" THEN
ELSE
arq6$ = ""
valor6 = 0
GOTO iniciativa
END IF
IF arq7$ = "" THEN
ELSE
arq7$ = ""
valor7 = 0
GOTO iniciativa
END IF
IF arq8$ = "" THEN
ELSE
arq8$ = ""
valor8 = 0
GOTO iniciativa
END IF
IF arq9$ = "" THEN
ELSE
arq9$ = ""
valor9 = 0
GOTO iniciativa
END IF
IF arq10$ = "" THEN
ELSE
arq10$ = ""
valor10 = 0
GOTO iniciativa
END IF
ELSE
PRINT nomed$; " falhou em tentar apagar seus dados"
som = 1
Sons
SLEEP 1
END IF


CASE 116 TO 120
IF util4d = 0 THEN
GOTO inimigoatac
END IF
IF memord - util4d - memormaxd \ 10 < 0 THEN
GOTO inimigoatac
ELSE
memord = memord - util4d - memormaxd \ 10
END IF


IF INT(util4d * RND) + 1 > INT(veloc * RND) + 1 THEN
PRINT nomed$; " revelou sua intrusÆo"
reg = reg + 1
SLEEP 1
ELSE
PRINT nomed$; " falhou em tentar te revelar"
som = 1
Sons
SLEEP 1
END IF

END SELECT
GOTO iniciativa

disrup:
IF dispro$ = "r" THEN
util1d = 0
END IF
IF dispro$ = "m" THEN
util2d = 0
END IF
IF dispro$ = "e" THEN
util3d = 0
END IF
IF dispro$ = "ap" THEN
util4d = 0
END IF
IF dispro$ = "ra" THEN
util5d = 0
END IF
IF dispro$ = "d" THEN
util6d = 0
END IF
IF dispro$ = "rev" THEN
util7d = 0
END IF
IF dispro$ = "es" THEN
util8d = 0
END IF
IF dispro$ = "re" THEN
util9d = 0
END IF
IF dispro$ = "v" THEN
util10d = 0
END IF
IF dispro$ = "fun" THEN
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util10d = 0
PRINT "As fun‡äes do GELO foram apagadas"
SLEEP 1
GOTO iniciativa
END IF
GOTO voltadis


restaurar:
IF respro$ = "r" THEN
util1 = util1v
END IF
IF respro$ = "m" THEN
util2 = util2v
END IF
IF respro$ = "e" THEN
util3 = util3v
END IF
IF respro$ = "a" THEN
util4 = util4v
END IF
IF respro$ = "f" THEN
util5 = util5v
END IF
IF respro$ = "d" THEN
util6 = util6v
END IF
IF respro$ = "i" THEN
util7 = util7v
END IF
IF respro$ = "es" THEN
util8 = util8v
END IF
IF respro$ = "re" THEN
util9 = util9v
END IF
IF respro$ = "v" THEN
util10 = util10v
END IF
GOTO voltares


disrupd:
IF INT(RND * 10) + 1 = 1 THEN
util1 = 0
END IF
IF INT(RND * 10) + 1 = 2 THEN
util2 = 0
END IF
IF INT(RND * 10) + 1 = 3 THEN
util3 = 0
END IF
IF INT(RND * 10) + 1 = 4 THEN
util4 = 0
END IF
IF INT(RND * 10) + 1 = 5 THEN
util5 = 0
END IF
IF INT(RND * 10) + 1 = 6 THEN
util6 = 0
END IF
IF INT(RND * 10) + 1 = 6 THEN
util7 = 0
END IF
IF INT(RND * 10) + 1 = 7 THEN
util8 = 0
END IF
IF INT(RND * 10) + 1 = 8 THEN
util9 = 0
END IF
IF INT(RND * 10) + 1 = 9 THEN
util10 = 0
END IF
GOTO voltadisd



restaurard:
IF util1d - util1dv < 0 THEN
resprod = util1d
END IF
IF util2d - utild2v < 0 THEN
resprod = util2d
END IF
IF util3d - utild3v < 0 THEN
resprod = util3d
END IF
IF util4d - utild4v < 0 THEN
resprod = util4d
END IF
IF util5d - utild5v < 0 THEN
resprod = util5d
END IF
IF util6d - utild6v < 0 THEN
resprod = util6d
END IF
IF util7d - utild7v < 0 THEN
resprod = util7d
END IF
IF util8d - utild8v < 0 THEN
resprod = util8d
END IF
IF util9d - utild9v < 0 THEN
resprod = util9d
END IF
IF util10d - utild10v < 0 THEN
resprod = util10d
END IF

IF resprod = util1d THEN
util1d = util1dv
END IF
IF resprod = util2d THEN
util2d = util2dv
END IF
IF resprod = util3d THEN
util3d = util3dv
END IF
IF resprod = util4d THEN
util4d = util4dv
END IF
IF resprod = util5d THEN
util5d = util5dv
END IF
IF resprod = util6d THEN
util6d = util6dv
END IF
IF resprod = util7d THEN
util7d = util7dv
END IF
IF resprod = util8d THEN
util8d = util8dv
END IF
IF resprod = util9d THEN
util9d = util9dv
END IF
IF resprod = util10d THEN
util10d = util10dv
END IF
GOTO voltaresd

GOTO iniciativa

fim:
rastro = 0
gelo$ = ""
tipogelo$ = ""
nomed$ = ""
END SUB

SUB DenverNexus

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Nexus port"
cor$ = "Laranja"
nivel = 5
no2$ = ""
no3$ = "UAP"
nivel3 = 5
cor3$ = "Laranja"
no4$ = ""
no5$ = ""
no6$ = "Arquivo"
nivel6 = 6
cor6$ = "Laranja"
no7$ = "Acesso"
nivel7 = 7
cor7$ = "Laranja"
no8$ = "Arquivo"
nivel8 = 6
cor8$ = "Laranja"
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = "CPU"
nivel13 = 8
cor13$ = "Laranja"
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = ""


CASE "sistema2"
empresa$ = "Nexus 2"
nivel = 7
cor$ = "Vermelho"
no2$ = "UAP"
nivel2 = 7
cor2$ = "Vermelho"
no3$ = "UAP"
nivel3 = 7
cor3$ = "Vermelho"
no4$ = "UAP"
nivel4 = 7
cor4$ = "Vermelho"
no5$ = "Arquivo"
nivel5 = 8
cor5$ = "Vermelho"
no6$ = "UAP"
nivel6 = 7
cor6$ = "Vermelho"
no7$ = "Arquivo"
nivel7 = 8
cor7$ = "Vermelho"
no8$ = "UAP"
nivel8 = 7
cor8$ = "Vermelho"
no9$ = "UAP"
nivel9 = 8
cor9$ = "Vermelho"
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = ""
no14$ = ""
no15$ = "CPU"
nivel15 = 9
cor15$ = "Vermelho"
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = "Acesso"
nivel24 = 10
cor24$ = "Vermelho"
no25$ = ""

CASE "sistema3"
empresa$ = "Nexus 1"
nivel = 10
cor$ = "UV"
no2$ = ""
no3$ = "UAP"
nivel3 = 11
cor3$ = "UV"
no4$ = ""
no5$ = ""
no6$ = ""
no7$ = "UAP"
nivel7 = 12
cor7$ = "UV"
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = "CPU"
nivel13 = 13
cor13$ = "UV"
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = "Arquivo"
nivel17 = 14
cor17$ = "UV"
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = "Arquivo"
nivel25 = 15
cor25$ = "UV"


CASE "gelos"
IF reg > 10 AND reg < 15 THEN
gelo$ = "Psiconoise"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel * 2) + 1) * 10
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 10
inted = intemaxd
combd = (INT(RND * nivel) + 1)
dano = 5
defesd = 0
util1d = (INT(RND * nivel) + 1)
util2d = 0
util3d = 0
util4d = 0
util5d = (INT(RND * nivel) + 1)
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = (INT(RND * nivel) + 1)
tipogelo$ = "Ativo"
corgelo$ = "Negro"
END IF
IF reg > 15 THEN
gelo$ = "¶ngela"
velocd = 15
memormaxd = 100
memord = memormaxd
intemaxd = 100
inted = intemaxd
combd = 12
defesd = 14
util1d = 10
util2d = 9
util3d = 8
util4d = 0
util5d = 0
util6d = 9
util7d = 0
util8d = 8
util9d = 0
util10d = 7
tipogelo$ = "IA"
corgelo$ = "UV"
END IF

CASE "arquivos"
IF no = 6 OR no = 8 THEN
proxarq$ = "P¢sitrons e Anti-mat‚ria"
valor = 200
END IF
IF no = 5 OR no = 7 THEN
proxarq$ = "Informa‡äes sobre IAs em Nexus(info)"
missaoia$ = "c"
valor = 380
END IF
IF no = 17 OR no = 25 THEN
proxarq$ = "IAs fora de controle em Nexus(controle)"
valor = 400
END IF

END SELECT


END SUB

SUB Desenhos
SCREEN 12
DRAW "BM550,5"
SELECT CASE cor$
CASE "Azul"
acesso$ = "C9 R40 D20 L40 U20 "
arquivo$ = "C9 R40 D40 L40 U40"
uap$ = "C9 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0"
cpu$ = "C9 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0 BL2 BU3 R25 TA-60 R25 TA-120 R25 TA-180 R25 TA-240 R25 TA-300 R25 TA0"
CASE "Verde"
acesso$ = "C10 R40 D20 L40 U20 "
arquivo$ = "C10 R40 D40 L40 U40"
uap$ = "C10 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0"
cpu$ = "C10 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0 BL2 BU3 R25 TA-60 R25 TA-120 R25 TA-180 R25 TA-240 R25 TA-300 R25 TA0"
CASE "Laranja"
acesso$ = "C6 R40 D20 L40 U20 "
arquivo$ = "C6 R40 D40 L40 U40"
uap$ = "C6 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0"
cpu$ = "C6 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0 BL2 BU3 R25 TA-60 R25 TA-120 R25 TA-180 R25 TA-240 R25 TA-300 R25 TA0"
CASE "Vermelho"
acesso$ = "C12 R40 D20 L40 U20 "
arquivo$ = "C12 R40 D40 L40 U40"
uap$ = "C12 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0"
cpu$ = "C12 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0 BL2 BU3 R25 TA-60 R25 TA-120 R25 TA-180 R25 TA-240 R25 TA-300 R25 TA0"
CASE "UV"
acesso$ = "C11 R40 D20 L40 U20 "
arquivo$ = "C11 R40 D40 L40 U40"
uap$ = "C11 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0"
cpu$ = "C11 R20 TA-60 R20 TA-120 R20 TA-180 R20 TA-240 R20 TA-300 R20 TA0 BL2 BU3 R25 TA-60 R25 TA-120 R25 TA-180 R25 TA-240 R25 TA-300 R25 TA0"
END SELECT

SELECT CASE no$
CASE "Acesso"
DRAW "X" + VARPTR$(acesso$)
CASE "Arquivo"
DRAW "X" + VARPTR$(arquivo$)
CASE "UAP"
DRAW "X" + VARPTR$(uap$)
CASE "CPU"
DRAW "X" + VARPTR$(cpu$)
END SELECT
COLOR 10

END SUB

SUB Final
CLS
SLEEP 2
PRINT "Vocˆ est  num n¢ totalmente diferente de tudo que j  viu ou imaginou."
SLEEP 2
PRINT "Vocˆ sente o cheiro de chuva e vˆ um campo enorme em sua frente."
SLEEP 2
PRINT "Sente a grama nos seus p‚s descalsos e a umidade dela."
SLEEP 3
PRINT " como se fosse um sonho. Ser  que isso ‚ real?"
SLEEP 2
PRINT "Vocˆ nÆo sabe mais. EntÆo vˆ um garoto moreno se aproximando sorridente."
SLEEP 3
PRINT "--Ol ! Sou Sharik. Jerusalem me falou de vocˆ, e ela tamb‚m."
SLEEP 4
PRINT "Vocˆ olha para onde ele aponta seu pequeno dedo e vˆ ¶ngela se aproximando"
SLEEP 4
PRINT "--Eu sabia que vocˆ era especial, "; nome$; "! Que bom que nos encontrou."
SLEEP 3
PRINT "Sharik se coloca entre vocˆs dois e diz:"
SLEEP 4
PRINT "--O que ela quiz dizer ‚ que vocˆ pode alcan‡ar a Ressonƒncia Profunda"
SLEEP 3
PRINT "--Vocˆ ‚ um de n¢s "; nome$; ". NÆo tinhamos como saber disso se nÆo te"
PRINT "test ssemos primeiro. Desculpe por isso."
SLEEP 4
PRINT "Vocˆ nÆo acredita no que ouviu.-- Como assim um de n¢s?--Vocˆ pergunta."
SLEEP 3
PRINT "--Vocˆ sabe que ‚. Pense, sinta. Nunca houve vida fora da Matriz para vocˆ."
SLEEP 3
PRINT "--Vocˆ ‚ uma criatura da Matriz, suas mem¢rias sÆo confusas e nÆo sabe quem ‚."
SLEEP 3
PRINT "--Agiu como um hacker esse tempo todo. Comprando programas quando na verdade"
PRINT "vocˆ os constru¡a."
SLEEP 4
PRINT "NÆo! NÆo pode ser. Vocˆ come‡a a pensar um pouco."
SLEEP 2
PRINT "Vocˆ nÆo se lembra de nada antes ou depois de conectar-se, mas tinha sonhos"
PRINT "com um lugar como este. O que est  acontecendo? Como nÆo percebeu isso?"
SLEEP 4
PRINT "--Vocˆ pode ter sido programado para isso, mas est  livre agora."
SLEEP 2
PRINT "--N¢s s¢ existimos na Matriz. Eu e ¶ngela o ajudaremos a sentir a Ressonƒncia"
SLEEP 3
PRINT "--Vocˆ nÆo ‚ mais uma inteligˆncia artificial. Vocˆ ‚ um ser senciente."
SLEEP 3
PRINT "--Um esp¡rito de el‚trons. Venha conosco, siga nosso caminho..."
COLOR 9
SLEEP 4
PRINT "                      =======       ||       ==                  == "
SLEEP 1
PRINT "                      ||            ||       || \\            // || "
SLEEP 1
PRINT "                      ||            ||       ||   \\        //   || "
SLEEP 1
PRINT "                      ||====        ||       ||     \\    //     || "
SLEEP 1
PRINT "                      ||            ||       ||       \\//       || "
SLEEP 1
PRINT "                      ||            ||       ||                  || "
SLEEP 1
PRINT "                      ||            ||       ||                  || "
PRINT ""
PRINT "                                                      Janos Biro    "
PRINT "                                                      Goiƒnia, 1999 "
PRINT "                                                  Obrigado por jogar"
som = 1
Sons
som = 2
Sons
som = 3
Sons
som = 4
Sons
som = 6
Sons
missaosharik$ = "c"
save$ = "C:\Blarg!\Overrun\" + nome$ + ".SAV"
OPEN save$ FOR OUTPUT AS #1
WRITE #1, nome$, veloc, memor, memormax, inte, intemax, comb, defes, util1, util2, util3, util4, util5, util6, util7, util8, util9, util10, din
WRITE #1, velocv, memormaxv, intemaxv, combv, defesv, util1v, util2v, util3v, util4v, util5v, util6v, util7v, util8v, util9v, util10v, veneno, atord
WRITE #1, arq1$, arq2$, arq3$, arq4$, arq5$, arq6$, arq7$, arq8$, arq9$, arq10$, zine$
WRITE #1, valor1, valor2, valor3, valor4, valor5, valor6, valor7, valor8, valor9, valor10
WRITE #1, codmnna$, codmits$, codfuch$, codares$, codrenr$, codzuri$, codfirm$, codnexs$, codshia$
WRITE #1, missaomay$, missaolady$, missaotaiw$, missaoia$, missaoangela$, missaosharik$
CLOSE #1
END

END SUB

SUB Firmwares

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Firmwares International"
cor$ = "Azul"
nivel = 2
no2$ = "UAP"
nivel2 = 2
cor2$ = "Azul"
no3$ = "UAP"
nivel3 = 2
cor3$ = "Azul"
no4$ = "UAP"
nivel4 = 2
cor4$ = "Azul"
no5$ = "UAP"
nivel5 = 3
cor5$ = "Azul"
no6$ = ""
no7$ = "UAP"
nivel7 = 3
cor7$ = "Azul"
no8$ = ""
no9$ = "UAP"
nivel9 = 3
cor9$ = "Azul"
no10$ = "UAP"
nivel10 = 4
cor10$ = "Verde"
no11$ = ""
no12$ = "UAP"
nivel12 = 4
cor12$ = "Verde"
no13$ = "UAP"
nivel13 = 4
cor13$ = "Verde"
no14$ = ""
no15$ = "UAP"
nivel15 = 4
cor15$ = "Verde"
no16$ = ""
no17$ = "Arquivo"
nivel17 = 5
cor17$ = "Verde"
no18$ = ""
no19$ = "CPU"
nivel19 = 5
cor19$ = "Verde"
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = "Arquivo"
nivel23 = 5
cor23$ = "Verde"
no24$ = ""
no25$ = ""


CASE "sistema2"
empresa$ = "Genetronics/clean gens"
nivel = 5
cor$ = "Verde"
no2$ = "UAP"
nivel2 = 5
cor2$ = "Laranja"
no3$ = "UAP"
nivel3 = 5
cor3$ = "Laranja"
no4$ = ""
no5$ = ""
no6$ = "UAP"
nivel6 = 5
cor6$ = "Laranja"
no7$ = ""
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = "Arquivo"
nivel11 = 6
cor11$ = "Vermelho"
no12$ = "UAP"
nivel12 = 6
cor12$ = "Vermelho"
no13$ = ""
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = "CPU"
nivel19 = 7
cor19$ = "Vermelho"
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = "Arquivo"
nivel24 = 8
cor24$ = "Vermelho"
no25$ = ""

CASE "gelos"
gelo$ = "Jack"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = (INT(RND * nivel) + 1)
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = nivel
util7d = 0
util8d = 0
util9d = 0
util10d = (INT(RND * nivel) + 1)
tipogelo$ = "Ativo"
corgelo$ = "Multi"



CASE "arquivos"
IF no = 23 OR no = 17 THEN
proxarq$ = "Decodificadores Bioeletr“nicos"
valor = 100
END IF
IF no = 24 OR no = 11 THEN
proxarq$ = "Produ‡Æo de Anti-mutagˆnicos (produ‡Æo)"
valor = 200
END IF

END SELECT


END SUB

SUB Fuchi

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Fuchi"
cor$ = "Verde"
nivel = 4
no2$ = ""
no3$ = "UAP"
nivel3 = 4
cor3$ = "Verde"
no4$ = ""
no5$ = ""
no6$ = ""
no7$ = "Acesso"
nivel7 = 4
cor7$ = "Laranja"
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = "UAP"
nivel12 = 5
cor12$ = "Laranja"
no13$ = "UAP"
nivel13 = 5
cor13$ = "Laranja"
no14$ = "UAP"
nivel14 = 5
cor14$ = "Laranja"
no15$ = ""
no16$ = ""
no17$ = "Arquivo"
nivel17 = 7
cor17$ = "Vermelho"
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = "CPU"
nivel21 = 6
cor21$ = "Vermelho"
no22$ = ""
no23$ = "Arquivo"
nivel23 = 6
cor23$ = "Vermelho"
no24$ = ""
no25$ = "UAP"
nivel25 = 7
cor25$ = "Vermelho"


CASE "sistema2"
empresa$ = "Fuchi/sub-core 8"
nivel = 4
cor$ = "Laranja"
no2$ = ""
no3$ = "UAP"
nivel3 = 5
cor3$ = "Laranja"
no4$ = ""
no5$ = ""
no6$ = ""
no7$ = "UAP"
nivel7 = 5
cor7$ = "Laranja"
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = "Acesso"
nivel11 = 6
cor11$ = "Vermelho"
no12$ = ""
no13$ = "CPU"
nivel13 = 6
cor13$ = "Vermelho"
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = "Arquivo"
nivel20 = 7
cor20$ = "Vermelho"
no21$ = ""
no22$ = "Arquivo"
nivel22 = 7
cor22$ = "Vermelho"
no23$ = ""
no24$ = ""
no25$ = ""


CASE "sistema3"
empresa$ = "Fuchi/core 8"
nivel = 5
cor$ = "Laranja"
no2$ = "UAP"
nivel2 = 6
cor2$ = "Laranja"
no3$ = ""
no4$ = "UAP"
nivel4 = 6
cor4$ = "Laranja"
no5$ = "UAP"
nivel5 = 7
cor5$ = "Laranja"
no6$ = ""
no7$ = ""
no8$ = ""
no9$ = "UAP"
nivel9 = 7
cor9$ = "Laranja"
no10$ = "UAP"
nivel10 = 7
cor10$ = "Vermelho"
no11$ = ""
no12$ = ""
no13$ = ""
no14$ = ""
no15$ = ""
no16$ = "UAP"
nivel16 = 7
cor16$ = "Vermelho"
no17$ = "CPU"
nivel17 = 8
cor17$ = "Vermelho"
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = "Arquivo"
nivel21 = 8
cor21$ = "Vermelho"
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = "Arquivo"
nivel25 = 8
cor25$ = "Vermelho"


CASE "gelos"
IF reg < 7 THEN
gelo$ = "Drake"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = (INT(RND * nivel) + 1)
util7d = (INT(RND * nivel) + 1)
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
END IF

IF reg > 7 THEN
gelo$ = "DragÆo de Sil¡cio"
velocd = (INT(RND * nivel + 2) + 1)
memormaxd = (INT(RND * nivel) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel + 2) + 1)
defesd = (INT(RND * nivel + 2) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = nivel
util7d = nivel
util8d = 0
util9d = nivel
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Cinza"
END IF


CASE "arquivos"
IF no = 17 OR no = 23 THEN
proxarq$ = "Pr¢ximos tempos na Fuchi(pr¢ximos)"
valor = 150
END IF
IF no = 20 OR no = 22 THEN
proxarq$ = "Merk Tolh, Agenda empresarial(agenda)"
valor = 120
END IF
IF no = 21 OR no = 25 THEN
proxarq$ = "Tecnologia quƒntica(tecnologia)"
valor = 160
END IF
END SELECT

END SUB

SUB Mapa

SELECT CASE descor$
CASE "Azul"
acesso$ = "C9 R20 D10 L20 U10 "
arquivo$ = "C9 R20 D20 L20 U20"
uap$ = "C9 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0"
cpu$ = "C9 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0 BL1 BU2 R12 TA-60 R12 TA-120 R12 TA-180 R12 TA-240 R12 TA-300 R12 TA0"
CASE "Verde"
acesso$ = "C10 R20 D10 L20 U10 "
arquivo$ = "C10 R20 D20 L20 U20"
uap$ = "C10 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0"
cpu$ = "C10 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0 BL1 BU2 R12 TA-60 R12 TA-120 R12 TA-180 R12 TA-240 R12 TA-300 R12 TA0"
CASE "Laranja"
acesso$ = "C6 R20 D10 L20 U10 "
arquivo$ = "C6 R20 D20 L20 U20"
uap$ = "C6 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0"
cpu$ = "C6 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0 BL1 BU2 R12 TA-60 R12 TA-120 R12 TA-180 R12 TA-240 R12 TA-300 R12 TA0"
CASE "Vermelho"
acesso$ = "C12 R20 D10 L20 U10 "
arquivo$ = "C12 R20 D20 L20 U20"
uap$ = "C12 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0"
cpu$ = "C12 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0 BL1 BU2 R12 TA-60 R12 TA-120 R12 TA-180 R12 TA-240 R12 TA-300 R12 TA0"
CASE "UV"
acesso$ = "C11 R20 D10 L20 U10 "
arquivo$ = "C11 R20 D20 L20 U20"
uap$ = "C11 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0"
cpu$ = "C11 R10 TA-60 R10 TA-120 R10 TA-180 R10 TA-240 R10 TA-300 R10 TA0 BL1 BU2 R12 TA-60 R12 TA-120 R12 TA-180 R12 TA-240 R12 TA-300 R12 TA0"
END SELECT


SELECT CASE proxdes$
CASE "Acesso"
DRAW "X" + VARPTR$(acesso$)
CASE "Arquivo"
DRAW "X" + VARPTR$(arquivo$)
CASE "UAP"
DRAW "X" + VARPTR$(uap$)
CASE "CPU"
DRAW "X" + VARPTR$(cpu$)
END SELECT
COLOR 10


END SUB

SUB Mitsuhama

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Mitsuhama"
cor$ = "Verde"
nivel = 3
no2$ = ""
no3$ = "UAP"
nivel3 = 3
cor3$ = "Verde"
no4$ = ""
no5$ = ""
no6$ = "UAP"
nivel6 = 3
cor6$ = "Verde"
no7$ = "Arquivo"
nivel7 = 4
cor7$ = "Laranja"
no8$ = ""
no9$ = "Arquivo"
nivel9 = 4
cor9$ = "Laranja"
no10$ = ""
no11$ = "UAP"
nivel11 = 5
cor11$ = "Vermelho"
no12$ = ""
no13$ = "CPU"
nivel13 = 5
cor13$ = "Vermelho"
no14$ = "UAP"
nivel14 = 4
cor14$ = "Laranja"
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = "Acesso"
nivel23 = 4
cor23$ = "Laranja"
no24$ = ""
no25$ = ""

CASE "sistema2"
empresa$ = "Mitsuhama/BA-7"
nivel = 5
cor$ = "Laranja"
no2$ = ""
no3$ = "UAP"
nivel3 = 6
cor3$ = "Vermelho"
no4$ = ""
no5$ = ""
no6$ = "UAP"
nivel6 = 6
cor6$ = "Vermelho"
no7$ = "UAP"
nivel7 = 6
cor7$ = "Vermelho"
no8$ = ""
no9$ = "UAP"
nivel9 = 6
cor9$ = "Vermelho"
no10$ = "Arquivo"
nivel10 = 5
cor10$ = "Laranja"
no11$ = "UAP"
nivel11 = 6
cor11$ = "Vermelho"
no12$ = ""
no13$ = ""
no14$ = "UAP"
nivel14 = 5
cor14$ = "Laranja"
no15$ = "Arquivo"
nivel15 = 6
cor15$ = "Vermelho"
no16$ = ""
no17$ = "CPU"
nivel17 = 6
cor17$ = "Vermelho"
no18$ = "UAP"
nivel18 = 5
cor18$ = "Laranja"
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = "UAP"
nivel23 = 5
cor23$ = "Laranja"
no24$ = ""
no25$ = ""


CASE "gelos"
IF reg > 5 THEN
gelo$ = "Cascata"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel * 2) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = nivel
util2d = nivel
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
END IF
IF missaomay$ = "s" THEN
nomed$ = "May, a Tecnomante"
velocd = 5
memormaxd = 40
memord = memormaxd
intemaxd = 35
inted = intemaxd
combd = 8
defesd = 6
util1d = 5
util2d = 6
util3d = 6
util4d = 5
util5d = 5
util6d = 6
util7d = 8
util8d = 7
util9d = 4
util10d = 5
tipogelo$ = "Tec"
corgelo$ = ""
END IF



CASE "arquivos"
IF no = 7 OR no = 9 THEN
proxarq$ = "Processos encaminhados pela Mitsuhama(processos)"
valor = 50
END IF
IF no = 10 OR no = 15 THEN
proxarq$ = "E-mail de Gred Maota: IntrusÆo(mail)"
valor = 100
END IF

END SELECT

END SUB

SUB OrbitalZurich

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Zurich Orbital/Base"
cor$ = "Laranja"
nivel = 6
no2$ = "UAP"
nivel2 = 7
cor2$ = "Vermelho"
no3$ = "UAP"
nivel3 = 7
cor3$ = "Vermelho"
no4$ = "UAP"
nivel4 = 7
cor4$ = "Vermelho"
no5$ = ""
no6$ = "UAP"
nivel6 = 8
cor6$ = "Vermelho"
no7$ = "UAP"
nivel7 = 8
cor7$ = "Vermelho"
no8$ = "UAP"
nivel8 = 7
cor8$ = "Vermelho"
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = "UAP"
nivel12 = 9
cor12$ = "Vermelho"
no13$ = ""
no14$ = "UAP"
nivel14 = 8
cor14$ = "Vermelho"
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = "Acesso"
nivel18 = 9
cor18$ = "Vermelho"
no19$ = "CPU"
nivel19 = 9
cor19$ = "Vermelho"
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = ""

CASE "sistema2"
empresa$ = "Zurich Orbital/SAT com"
cor$ = "Vermelho"
nivel = 9
no2$ = "UAP"
nivel2 = 9
cor2$ = "Vermelho"
no3$ = "UAP"
nivel3 = 9
cor3$ = "Vermelho"
no4$ = "UAP"
nivel4 = 9
cor4$ = "Vermelho"
no5$ = ""
no6$ = "UAP"
nivel6 = 10
cor6$ = "Vermelho"
no7$ = ""
no8$ = "UAP"
nivel8 = 10
cor8$ = "Vermelho"
no9$ = "CPU"
nivel9 = 11
cor9$ = "UV"
no10$ = ""
no11$ = ""
no12$ = "Acesso"
nivel12 = 11
cor12$ = "UV"
no13$ = ""
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = ""

CASE "sistema3"
empresa$ = "Zurich Orbital/MAIN"
cor$ = "UV"
nivel = 11
no2$ = "UAP"
nivel2 = 11
cor2$ = "UV"
no3$ = "UAP"
nivel3 = 11
cor3$ = "UV"
no4$ = "UAP"
nivel4 = 11
cor4$ = "UV"
no5$ = ""
no6$ = "UAP"
nivel6 = 12
cor6$ = "UV"
no7$ = "UAP"
nivel7 = 12
cor7$ = "UV"
no8$ = "UAP"
nivel8 = 12
cor8$ = "UV"
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = "CPU"
nivel12 = 13
cor12$ = "UV"
no13$ = ""
no14$ = "UAP"
nivel14 = 13
cor14$ = "UV"
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = "UAP"
nivel19 = 13
cor19$ = "UV"
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = "UAP"
nivel25 = 13
cor25$ = "UV"

CASE "gelos"
IF reg > 10 THEN
gelo$ = "Zeo"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel * 2) + 1) * 10
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 10
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = 0
util5d = 0
util6d = nivel
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Negro"
END IF

END SELECT

END SUB

SUB Renraku

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Renraku-E"
cor$ = "Verde"
nivel = 4
no2$ = ""
no3$ = "UAP"
nivel3 = 4
cor3$ = "Verde"
no4$ = ""
no5$ = ""
no6$ = "UAP"
nivel6 = 4
cor6$ = "Verde"
no7$ = "UAP"
nivel7 = 5
cor7$ = "Laranja"
no8$ = "UAP"
nivel8 = 4
cor8$ = "Verde"
no9$ = ""
no10$ = ""
no11$ = "UAP"
nivel11 = 5
cor11$ = "Laranja"
no12$ = ""
no13$ = "UAP"
nivel13 = 6
cor13$ = "Laranja"
no14$ = ""
no15$ = "UAP"
nivel15 = 5
cor15$ = "Laranja"
no16$ = ""
no17$ = ""
no18$ = "Acesso"
nivel18 = 7
cor18$ = "Vermelho"
no19$ = "Arquivo"
nivel19 = 7
cor19$ = "Vermelho"
no20$ = ""
no21$ = "CPU"
nivel21 = 7
cor21$ = "Vermelho"
no22$ = ""
no23$ = "Arquivo"
nivel23 = 7
cor23$ = "Vermelho"
no24$ = ""
no25$ = ""


CASE "sistema2"
empresa$ = "Renraku COM"
nivel = 7
cor$ = "Vermelho"
no2$ = "UAP"
nivel2 = 7
cor2$ = "Vermelho"
no3$ = "UAP"
nivel3 = 7
cor3$ = "Vermelho"
no4$ = "UAP"
nivel4 = 7
cor4$ = "Vermelho"
no5$ = "UAP"
nivel5 = 8
cor5$ = "Vermelho"
no6$ = ""
no7$ = "UAP"
nivel7 = 8
cor7$ = "Vermelho"
no8$ = ""
no9$ = "UAP"
nivel9 = 8
cor9$ = "Vermelho"
no10$ = "Arquivo"
nivel10 = 9
cor10$ = "UV"
no11$ = ""
no12$ = ""
no13$ = "CPU"
nivel9 = 9
cor9$ = "UV"
no14$ = ""
no15$ = ""
no16$ = "Arquivo"
nivel16 = 9
cor16$ = "UV"
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = "Arquivo"
nivel21 = 10
cor21$ = "UV"
no22$ = ""
no23$ = ""
no24$ = ""
no25$ = ""


CASE "gelos"
IF reg < 15 THEN
gelo$ = "Cascata"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel * 2) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = nivel
util2d = nivel
util3d = 0
util4d = 0
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Branco"
END IF
IF reg > 15 THEN
gelo$ = "Samurai de Prata"
velocd = (INT(RND * nivel) + 1)
memormaxd = (INT(RND * nivel * 2) + 1) * 5
memord = memormaxd
intemaxd = (INT(RND * nivel + 2) + 1) * 5
inted = intemaxd
combd = (INT(RND * nivel) + 1)
dano = (INT(RND * nivel + 2) + 1)
defesd = (INT(RND * nivel) + 1)
util1d = 0
util2d = 0
util3d = 0
util4d = nivel
util5d = 0
util6d = 0
util7d = 0
util8d = 0
util9d = nivel
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Negro"
END IF

CASE "arquivos"
IF no = 19 OR no = 23 THEN
proxarq$ = "Arquivo de investiga‡Æo: Merk Tolh"
missaolady$ = "c"
valor = 180
END IF
IF no = 10 OR no = 16 THEN
proxarq$ = "Arquisede Renraku"
valor = 150
END IF
IF no = 21 THEN
proxarq$ = "N¢s ultra-violetas(uv)"
valor = 200
END IF

END SELECT


END SUB

SUB Shiawase

SELECT CASE espec$
CASE "sistema1"
empresa$ = "Shiawase"
cor$ = "Azul"
nivel = 2
no2$ = "UAP"
nivel2 = 2
cor2$ = "Azul"
no3$ = ""
no4$ = "UAP"
nivel4 = 3
cor4$ = "Azul"
no5$ = ""
no6$ = "UAP"
nivel6 = 3
cor6$ = "Azul"
no7$ = "Arquivo"
nivel7 = 4
cor7$ = "Verde"
no8$ = "UAP"
nivel8 = 4
cor8$ = "Verde"
no9$ = ""
no10$ = ""
no11$ = ""
no12$ = ""
no13$ = ""
no14$ = "CPU"
nivel14 = 5
cor14$ = "Laranja"
no15$ = "UAP"
nivel15 = 4
cor15$ = "Verde"
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = ""
no20$ = ""
no21$ = ""
no22$ = "Acesso"
nivel22 = 4
cor22$ = "Verde"
no23$ = ""
no24$ = ""
no25$ = ""


CASE "sistema2"
empresa$ = "Shiawase/Labor-4"
nivel = 4
cor$ = "Verde"
no2$ = "UAP"
nivel2 = 5
cor2$ = "Laranja"
no3$ = "UAP"
nivel3 = 5
cor3$ = "Laranja"
no4$ = ""
no5$ = ""
no6$ = "UAP"
nivel6 = 5
cor6$ = "Laranja"
no7$ = ""
no8$ = ""
no9$ = ""
no10$ = ""
no11$ = "Arquivo"
nivel11 = 6
cor11$ = "Vermelho"
no12$ = "UAP"
nivel12 = 6
cor12$ = "Vermelho"
no13$ = ""
no14$ = ""
no15$ = ""
no16$ = ""
no17$ = ""
no18$ = ""
no19$ = "CPU"
nivel19 = 7
cor19$ = "Vermelho"
no20$ = ""
no21$ = ""
no22$ = ""
no23$ = ""
no24$ = "Arquivo"
nivel24 = 8
cor24$ = "Vermelho"
no25$ = ""

CASE "gelos"
gelo$ = "Arauto"
velocd = (INT(RND * nivel) + 1) + 2
memormaxd = (INT(RND * nivel * 2) + 1) * 10
memord = memormaxd
intemaxd = (INT(RND * nivel * 2) + 1) * 2
inted = intemaxd
combd = (INT(RND * nivel) + 1) + 2
defesd = (INT(RND * nivel) + 1) + 2
util1d = 0
util2d = nivel + 2
util3d = nivel + 2
util4d = nivel + 2
util5d = 0
util6d = 0
util7d = 0
util8d = nivel + 2
util9d = 0
util10d = 0
tipogelo$ = "Ativo"
corgelo$ = "Multi"



CASE "arquivos"
IF no = 11 OR no = 7 THEN
proxarq$ = "Testes em paranimais sencientes(testes)"
valor = 140
END IF
IF no = 24 THEN
proxarq$ = "Acidente de 44(acidente)"
valor = 180
END IF

END SELECT


END SUB

SUB Sons

CONST a$ = "t120l16mlo3bf#"
CONST b$ = "t255l64mlo4bagfedc<bagfedec<bagfedc<bagfedc<bagfedc"
CONST C$ = "t255l32o4mldgd<g>dgddgdgbagf#ee"
CONST d$ = "t255l64mlo2bcadgefegdacbcadgefegdacb"
CONST e$ = "t150l64mso4bgec<afl16d"
CONST f$ = "t150l64mso3dfa>gegl16b"
CONST g$ = "t240l64mlo4egegegcfcfcfgegege"
CONST h$ = "t255l64o4cdefgabo3cdefgab02cdefgab"
CONST k$ = "t255l64mlo1bagfedc<bagfedcp16>cdefgab>cdefgabp32"
CONST l$ = "t255l64mlo1cdefgab>cdefgabp16<bagfedc<bagfedcp32"
CONST m$ = "t120l16o4c#.p16t255l64mlc#dd#eff#gg#aa#bo5cc#dd#ef"
CONST n$ = "t255l32mlo3cd<cd>>cd<<cd>>cd<<cd>cd"
CONST O$ = "t240l64mlo4egegegegegegegegegegegegegegegegegegegeg"
CONST p$ = "o4t255l64mlb-bb-bagag.>egg>egg"

IF somligado$ = "s" THEN
SELECT CASE som
CASE 1
PLAY a$
CASE 2
PLAY b$
CASE 3
PLAY C$
CASE 4
PLAY d$
CASE 5
PLAY e$
CASE 6
PLAY f$
CASE 7
PLAY g$
CASE 8
PLAY h$
CASE 9
PLAY k$
CASE 10
PLAY l$
CASE 11
PLAY m$
CASE 12
PLAY n$
CASE 13
PLAY O$
CASE 14
PLAY p$
END SELECT
END IF

END SUB