DECLARE FUNCTION chupar% (factor%, energia!, tiepo%)
DECLARE FUNCTION ThisIsFase2Running% ()
DECLARE FUNCTION talk% (t1$, t2$, t3$)
DECLARE FUNCTION ThisIsFase1Running% ()
DECLARE FUNCTION yesorno% (xx%, yy%, w%, titulo$, t$)
DECLARE SUB AlertBox (x%, y%, w%, titulo$, t$)
DECLARE SUB TextWindow (x%, y%, w%, titulo$, t$)
DECLARE SUB clg ()
DECLARE SUB fuck (ax%, ay%)
DECLARE SUB peo ()
DECLARE SUB barra (aguante%)
DECLARE SUB spwt ()
DECLARE SUB leedata ()
DECLARE FUNCTION ThisIsFase1Running1 ()
DECLARE FUNCTION scuja$ ()
DECLARE SUB tp (x%, y%, c%, t$)
DECLARE FUNCTION whatline% ()
DECLARE SUB Wt ()
DECLARE SUB LeeManoseo ()
DECLARE SUB Manoseo ()
DECLARE SUB PIX (t$)
DECLARE SUB pres (t$)
DECLARE SUB maingame ()
DECLARE SUB centra (y%, t$)
DECLARE SUB trans ()
COMMON SHARED x, y, err1, f$
DECLARE SUB box (y1, x1, y2, x2)
DECLARE SUB msg (t$)
DECLARE FUNCTION mouseinit% ()
DECLARE SUB mousecall ()
DECLARE SUB MouseGetPressInfo (LBtn%, RBtn%, MBtn%, count%, HPosn%, VPosn%)
DECLARE SUB MouseGetReleaseInfo (LBtn%, RBtn%, MBtn%, count%, HPosn%, VPosn%)
DECLARE SUB mousegetstatus (LBtn%, RBtn%, MBtn%, HPosn%, VPosn%)
DECLARE SUB mousehide ()
DECLARE SUB MouseReadCounters (HCount%, VCount%)
DECLARE SUB MouseSetHorizRange (HMin%, HMax%)
DECLARE SUB MouseSetPosn (HPosn%, VPosn%)
DECLARE SUB MouseSetup ()
DECLARE SUB MouseSetVertRange (VMin%, VMax%)
DECLARE SUB mouseshow ()
TYPE zonasa
nombre AS STRING * 15
zx1 AS INTEGER
zy1 AS INTEGER
zx2 AS INTEGER
zy2 AS INTEGER
vl1 AS INTEGER
vl2 AS INTEGER
vl3 AS INTEGER
vl4 AS INTEGER
vl5 AS INTEGER
vl6 AS INTEGER
END TYPE
DIM SHARED mz(10) AS zonasa
COMMON SHARED mx, my, Fin, puntos, codigo, band
DIM SHARED excitacion AS SINGLE
DIM SHARED ag AS SINGLE
DIM SHARED tiempo AS SINGLE
DIM SHARED zact AS STRING * 15
MouseInt:
DATA 55
DATA 89, E5
DATA 56
DATA 8B, 76, 06
DATA 8B, 04
DATA 8B, 5C, 02
DATA 8B, 4C, 04
DATA 8B, 54, 06
DATA 8E, 44, 08
DATA CD, 33
DATA 8C, 44, 08
DATA 89, 54, 06
DATA 89, 4C, 04
DATA 89, 5C, 02
DATA 89, 04
DATA 5E
DATA 5D
DATA CB
TYPE MouseRegs
ax AS INTEGER
BX AS INTEGER
CX AS INTEGER
DX AS INTEGER
ES AS INTEGER
END TYPE
DIM SHARED MReg AS MouseRegs
REDIM SHARED MouseRoutine%(0 TO 19)
DIM SHARED MouseReady%
MouseReady% = 0
MouseSetup
MouseReady% = mouseinit
TYPE zonas
n AS STRING * 20
x1 AS INTEGER
y1 AS INTEGER
x2 AS INTEGER
y2 AS INTEGER
dv AS INTEGER
END TYPE
DIM SHARED zona(20) AS zonas
DIM SHARED yoffset AS INTEGER
yoffset = 80
DEFINT A-Z
DIM SHARED registro AS STRING * 1
DIM SHARED factor AS SINGLE
DEFINT A-Z
DIM SHARED vl(255, 7) AS INTEGER
SCREEN 13
OPEN "standard.inT" FOR BINARY AS #1
FOR i = 0 TO 255
FOR j = 0 TO 7
GET #1, , r
vl(i, j) = r
NEXT j, i
CLOSE
x1% = 0
y1% = 0
x2% = 7
y2% = 7
t% = 4 + INT(((PMAP(x2%, 0) - PMAP(x1%, 0) + 1) * (8) + 7) / 8) * 1 * (PMAP(y2%, 1) - PMAP(y1%, 1) + 1)
DIM SHARED polla(t%, 3)
RESTORE graficos:
PALETTE 0, 0: PALETTE 15, 0: PALETTE 7, 0: PALETTE 8, 0
FOR y = 0 TO 23
READ a$
FOR x = 0 TO 7
m$ = MID$(a$, x + 1, 1)
IF m$ = "0" THEN c = 0
IF m$ = "1" THEN c = 15
IF m$ = "2" THEN c = 7
IF m$ = "3" THEN c = 8
PSET (x, y), c
NEXT x, y
GET (0, 0)-(7, 7), polla(1, 1)
GET (0, 8)-(7, 15), polla(1, 2)
GET (0, 16)-(7, 23), polla(1, 3)
x1% = 0
y1% = 0
x2% = 7
y2% = 23
t% = 4 + INT(((PMAP(x2%, 0) - PMAP(x1%, 0) + 1) * (8) + 7) / 8) * 1 * (PMAP(y2%, 1) - PMAP(y1%, 1) + 1)
DIM SHARED fondo(t%)
DIM SHARED penx AS INTEGER: DIM SHARED peny AS INTEGER
DIM SHARED P(200)
PIX "MASTER.PIX": Wt: CLS
PIX "Detalle.pix"
AlertBox 10, 10, 100, "Wellcome", "You've just loaded the second part of Johnny Abbot's Sex Adventures. You'll only be able to play this part of the game if you enter the password you got for acomplishing all the goals in the first part of this game."
heyyo:
i = yesorno(90, 20, 150, "Choose Yes or Not", "Have you got the password to access the 2nd part of the game?")
IF i = 0 THEN SCREEN 0, 0, 0, 0: WIDTH 80: PRINT "Finish the 1st part before playing the 2nd part of the game.": SYSTEM
clg
PIX "Clave001.pix"
TextWindow 200, 8, 100, "Girl", "Comeon! what are you waiting for?"
VIEW PRINT 1 TO 25
LOCATE 23, 2: PRINT SPACE$(38)
LOCATE 23, 2: PRINT "PASSWORD:";
LINE INPUT clave$: clave$ = LTRIM$(RTRIM$(UCASE$(clave$)))
IF clave$ <> "FUCKING DELAY" THEN GOTO heyyo
BLOAD "Clave001.pix"
AlertBox 200, 8, 100, "Girl", "So you wanna cum in, don't you?? Let's go then!!"
CLS
PIX "Clave002.pix"
AlertBox 200, 8, 100, "Girl", "You're in now! Have a good time with Johnny Abbot Sex Adventures's 2nd part!"
clg
maingame
END
maingame
graficos:
DATA "00230300","02130230","21222223","22222233","33222333","00333300","22000023","33222233","12333322","22222223","12232222","22232223","12232222","22223223","12223222","22223223","12223222","22232223","12323222","33222323","12222322","22222233","01222230","00123300"
Carmen1:
DATA "Mouth",155,29,175,45,30,20,10,0,0,0
DATA "Neck",139,41,169,54,10,20,30,0,0,0
DATA "Shoulders",95,56,226,79,0,10,20,0,0,0
DATA "Breast",111,78,195,108,-10,0,10,20,30,0
DATA "Tummy",118,110,192,155,0,10,20,30,0,0
DATA "Thigh",86,146,166,199,0,10,20,30,0,0
DATA "Thigh",195,141,256,199,0,10,20,30,0,0
DATA "Cunt",164,161,193,199,-30,-20,-10,0,10,20
DATA "Clitoris",176,175,182,187,-30,-20,-10,0,20,30
DATA "",0,0,0,0,0,0,0,0,0,0
hall:
DATA "Mary's room",26,0,68,165,"Yoli's room",94,43,104,139,"Your room.",148,58,179,129,"Ale's room",214,46,225,139,"statue",115,89,129,131,"statue",196,89,207,131,"hall",231,184,319,190,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0
Vestibulo:
DATA "exit",0,84,27,190,"livingroom",57,98,105,180,"kitchen",130,97,179,181,"steps",202,37,290,182,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0
Nuria1:
DATA "Lips",122,23,135,33,25,10,5,0,-10,-20
DATA "Tummy",131,63,204,86,20,10,0,-5,-10,-20
DATA "Thigh",172,91,230,166,15,10,5,0,-5,-5
DATA "Thigh",74,100,172,135,15,10,5,0,-5,-5
DATA "Breast",118,42,187,57,0,5,10,15,20,0
DATA "Pubes",151,91,173,107,-10,-5,0,5,25,10
DATA "Clitoris",160,106,173,119,-20,-10,-5,-10,15,25
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
Tamara1:
DATA "Soft Cunt",170,142,181,173,15,16,18,20,18,15
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
Sandra1:
DATA "Breast",120,62,165,88,20,15,10,0,-15,-20
DATA "Thigh",80,122,136,199,10,20,15,10,5,0
DATA "Thigh",167,118,258,177,10,20,15,10,5,0
DATA "Pubes",137,127,161,139,0,5,15,20,10,0
DATA "Vagina",143,145,155,163,-10,0,10,15,20,5
DATA "Clitoris",148,139,186,145,-20,-10,0,10,15,25
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
playa1:
DATA "left",15,182,103,192,"right",231,182,303,192,"shore",0,120,319,136,"sky",0,0,319,119,"swimmers",209,138,244,199,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0
DATA "",0,0,0,0
Ainoa1:
DATA "Right boob.",99,86,146,123,20,15,10,-10,-15,-20
DATA "Left boob.",157,62,197,13,20,15,10,-10,-15,-20
DATA "Right Thigh.",182,171,263,199,10,20,10,-10,-15,-20
DATA "Left Thigh.",186,123,319,199,10,20,10,-10,-15,-20
DATA "Pubes",251,150,288,176,-10,0,20,20,10,0
DATA "Right lip.",273,177,282,199,-15,-5,10,25,20,10
DATA "Left lip.",286,173,295,199,-15,-5,10,25,20,10
DATA "Clitoris",281,181,286,199,-25,-10,0,10,15,25
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
kitchen1:
DATA "pool",231,184,304,191,"hall",16,184,102,191,"furniture",0,28,36,101,"furniture",31,33,88,75,"furniture",176,51,194,95,"furniture",210,48,231,158,"furniture",239,40,302,71,"Furniture",0,157,49,199,"Furniture",127,136,167,175,"tap",126,108,137,122,"window",94,70,158,112
DATA "microwave",178,100,205,116,"fridge",236,70,288,177,"oven",48,149,100,199,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0
salon1:
DATA  "hall",231,184,304,191,"lamp",24,69,54,76,"fireplace",210,103,268,152,"furniture",188,50,212,140,"close",67,66,139,130,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0,"",0,0,0,0
Angeles1:
DATA "Right boob.",104,101,136,133,15,15,15,20,20,25
DATA "Left boob.",152,119,179,140,15,15,15,20,20,25
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0
DATA "",0,0,0,0,0,0,0,0,0,0

SUB AlertBox (xx%, yy%, w%, titulo$, t$)
DIM a AS STRING * 1
DIM palabra$(500)
y = 15 + yy%
x = xx% + 5
j = 1
LINE (xx%, y)-(xx% + w, y + 8), 0, BF
FOR i = 1 TO LEN(t$)
m$ = MID$(t$, i, 1)
IF m$ = " " THEN j = j + 1 ELSE palabra$(j) = palabra$(j) + m$
NEXT i
NumPalabras = j
FOR i = 1 TO NumPalabras
IF x + (LEN(palabra$(i)) + 1) * 5 > w% + xx% - 5 THEN y = y + 8: x = 5 + xx%: LINE (xx%, y)-(xx% + w, y + 8), 0, BF: IF y > 192 THEN LOCATE 25: PRINT : y = 192
FOR h = 1 TO LEN(palabra$(i))
m$ = MID$(palabra$(i), h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), 15, , v
NEXT k
x = x + 5
NEXT h
x = x + 5
NEXT i
y = y + 8 + 1
LINE (xx%, y)-(xx% + w%, y + 13), 0, BF
LINE (xx% + w% \ 2 - 14, y + 1)-(xx% + w% \ 2 + 14, y + 10), 7, BF
LINE (xx% + w% \ 2 - 14, y)-(xx% + w% \ 2 + 14, y), 15
LINE (xx% + w% \ 2 - 15, y + 1)-(xx% + w% \ 2 - 15, y + 10), 15
LINE (xx% + w% \ 2 - 14, y + 11)-(xx% + w% \ 2 + 14, y + 11), 8
LINE (xx% + w% \ 2 + 15, y + 1)-(xx% + w% \ 2 + 15, y + 10), 8
yy1% = y: yy2% = y + 11
tp xx% + w% \ 2 - 10, y + 2, 0, " Ok "
y = y + 13
LINE (xx%, yy%)-(xx% + w%, y + 3), 8, B
LINE (xx% + 3, yy% + 3)-(xx + w% - 3, y), 8, B
FOR i = 1 TO 2
LINE (xx% + i, yy + i)-(xx + w% - i, y + 3 - i), 7, B
NEXT i
LINE (xx% + 4, yy% + 4)-(xx% + w% - 4, yy% + 12), 15, BF
tp xx% + (w% \ 2 - LEN(titulo$) * 5 \ 2), yy% + 5, 0, titulo$
LINE (xx% + 4, yy% + 13)-(xx% + w% - 4, yy% + 13), 8
LINE (xx% + 4, yy% + 14)-(xx% + w% - 4, yy% + 14), 0
DO
Wt
mousegetstatus l%, m%, r%, x1%, y1%
x1% = x1% \ 2
IF x1% >= xx% + w% \ 2 - 15 AND x1% <= xx% + w% \ 2 + 15 AND y1% >= yy1% AND y1% <= yy2% THEN EXIT DO
LOOP
END SUB

SUB barra (aguante)
IF aguante > 100 THEN aguante = 100
LINE (0, 88)-(10, 190), 255, B
LINE (1, 89)-(9, 189 - aguante), 7, BF
LINE (1, 189 - aguante)-(9, 189), 9, BF
END SUB

DEFSNG A-Z
SUB box (y1, x1, y2, x2)
ancho = x2 - x1 - 1
alto = y2 - y1 - 1
LOCATE y1, x1: PRINT "Ú"; STRING$(ancho, "Ä"); "¿"
FOR n = y1 + 1 TO y2 - 1
LOCATE n, x1: PRINT "³"; SPACE$(ancho); "³"
NEXT
LOCATE y2, x1: PRINT "À"; STRING$(ancho, "Ä"); "Ù"
END SUB

SUB centra (y%, t$)
LOCATE y%, 41 - LEN(t$) \ 2
PRINT t$
END SUB

FUNCTION chupar% (factor%, energia!, tiepo%)
 ta& = INT(TIMER) + tiepo%

 ch% = 0
 rr& = 0

 DO

  tt& = ta& - INT(TIMER)
 
  IF INKEY$ = "?" THEN tt& = -1
  IF tt& = -1 THEN chupar% = -1: EXIT FUNCTION

  energia! = energia! + factor%
  IF energia! >= 10000 THEN chupar% = 0: EXIT FUNCTION

  mousegetstatus l%, r%, m%, x%, y%

  IF l% AND ch% = 0 AND NOT r% THEN
   ch% = 1
  END IF

  IF r% AND ch% = 1 AND NOT l% THEN
   energia! = energia! - 2 * factor% - 2
   ch% = 0
  END IF

  LINE (10, 180)-(310, 190), 15, B
  LINE (11, 181)-(11 + INT(energia! / 100 * 3), 189), 7, BF
  LINE (12 + INT(energia! / 100 * 3), 181)-(309, 189), 8, BF
 
  IF rr& <> tt& THEN
   LINE (9, 160)-(21, 170), 15, B
   LINE (10, 161)-(20, 169), 0, BF
   tp 16 - (LEN(LTRIM$(RTRIM$(STR$(tt&)))) * 5) \ 2, 162, 15, LTRIM$(RTRIM$(STR$(tt&))): rr& = tt&
  END IF

  tiempo = TIMER
  WHILE TIMER <= tiempo + .005
  WEND    ' Para los ordenadores r pidos

 LOOP
END FUNCTION

DEFINT A-Z
SUB clg
FOR count = 0 TO 9
 FOR clgx = 0 TO 15
  FOR clgy = 0 TO 9
   LINE (20 * clgx + count, 20 * clgy + count)-(20 * clgx + 19 - count, 20 * clgy + 19 - count), 0, B
   FOR i = 0 TO 100: NEXT
  NEXT
 NEXT
NEXT
CLS
END SUB

SUB fuck (ax, ay)
mousegetstatus l%, m%, r%, x%, y%
x% = x% \ 2
IF x% > 312 THEN x% = 312
IF y% > 176 THEN y% = 176
IF y% <> peny OR x% <> penx THEN
PUT (penx, peny), fondo(1), PSET
penx = x%
peny = y%
GET (penx, peny)-(penx + 7, peny + 23), fondo(1)
PUT (penx, peny), polla(1, 1), PSET
PUT (penx, peny + 8), polla(1, 2), PSET
IF peny <= 176 THEN PUT (penx, peny + 16), polla(1, 3), PSET
END IF
IF INKEY$ = "?" THEN excitacion = 600
IF INKEY$ = "¨" THEN ag = 600
IF l% OR r% THEN
IF (penx >= ax - 4 AND penx <= ax + 2) AND (peny >= ay - 1 AND peny <= ay + 1) THEN
PUT (penx, peny), fondo(1), PSET
penx = ax - 3
GET (penx, peny)-(penx + 7, peny + 23), fondo(1)
PUT (penx, peny), polla(1, 2), PSET
PUT (penx, peny + 8), polla(1, 3), PSET
DO
mousegetstatus l%, m%, r%, x%, y%
LOOP WHILE l% OR r%
PUT (penx, peny), fondo(1), PSET
PUT (penx, peny), polla(1, 1), PSET
PUT (penx, peny + 8), polla(1, 2), PSET
IF peny <= 176 THEN PUT (penx, peny + 16), polla(1, 3), PSET
ag = ag + 15
excitacion = excitacion + factor
END IF
END IF
ag = ag - 2: IF ag < 0 THEN ag = 0
excitacion = excitacion - 1: IF excitacion < 0 THEN excitacion = 0
IF ag > 600 THEN ag = 600
IF excitacion > 600 THEN excitacion = 600
tp 6, 30, 15, "ELLA"
tp 300, 30, 15, "TU"
LINE (10, 49)-(20, 151), 15, B
tp 22, 45, 15, "OK!"
tp 22, 147, 15, "END"
LINE (11, 50)-(19, 50 + (100 - excitacion \ 6)), 8, BF
LINE (11, 50 + (100 - excitacion \ 6))-(19, 150), 7, BF
LINE (300, 49)-(310, 151), 15, B
tp 300 - 17, 45, 15, "OK!"
tp 300 - 17, 147, 15, "END"
LINE (301, 50)-(309, 50 + (100 - ag \ 6)), 8, BF
LINE (301, 50 + (100 - ag \ 6))-(309, 150), 7, BF
tiempo = TIMER
WHILE TIMER <= tiempo + .005
WEND    ' Para los ordenadores r pidos
END SUB

SUB leedata
FOR i = 1 TO 20
READ zona(i).n
READ zona(i).x1
READ zona(i).y1
READ zona(i).x2
READ zona(i).y2
zona(i).dv = 0
NEXT i
END SUB

SUB LeeManoseo
FOR i = 1 TO 10
READ mz(i).nombre, mz(i).zx1, mz(i).zy1, mz(i).zx2, mz(i).zy2, mz(i).vl1, mz(i).vl2, mz(i).vl3, mz(i).vl4, mz(i).vl5, mz(i).vl6
NEXT i
LOCATE 1, 1: PRINT SPACE$(9)
LINE (0, 8)-(72, 8), 255
LINE (72, 8)-(72, 0), 255
END SUB

SUB maingame
SHARED Fin
clg
m2:
PIX "portada.pix"
main:
BLOAD "portada.pix"
TextWindow 10, 140, 100, "Fase 2", "Johnny Abbot's Sex Adventures II"
LINE (0, 0)-(319, 9), 7, BF
LINE (0, 0)-(319, 0), 15
LINE (0, 0)-(0, 9), 15
LINE (0, 9)-(319, 9), 8
LINE (319, 0)-(319, 9), 8
tp 1, 1, 0, "File   Information"
DO
Wt
IF mx < 38 AND my < 10 THEN GOTO File
IF my < 10 THEN GOTO Information
LOOP
File:
LINE (0, 10)-(37, 37), 7, BF
LINE (0, 10)-(37, 10), 15
LINE (0, 10)-(0, 37), 15
LINE (0, 37)-(37, 37), 8
LINE (37, 10)-(37, 37), 8
tp 2, 11, 0, "Play"
tp 2, 19, 0, "Passwd"
tp 2, 27, 0, "Exit"
DO
Wt
IF mx > 37 OR my > 37 OR my < 10 THEN GOTO main
IF my > 10 AND my < 19 THEN GOTO jugar
IF my > 18 AND my < 27 THEN GOTO clave
IF my > 26 AND my < 37 THEN VIEW PRINT: LOCATE 25: FOR i = 1 TO 26: PRINT : NEXT i: SCREEN 0: WIDTH 80: PRINT "Gracias por jugar": SYSTEM
LOOP
Information:
AlertBox 80, 60, 160, "Information", "Johnny Abbot's Sex Adventures II, . Programming and graphics made by Bulma Produktions. You can find out how to play in the file FASE2.DOC. (C) 1999 BULMA Produktions."
GOTO main
jugar:

clave:
DO: LOOP WHILE INKEY$ <> ""
CLS
PRINT "By entering the correct password you can"
PRINT "skip the whole 1st level and go directly"
PRINT "to the second..."
PRINT
PRINT "And the magical word is..."
LINE INPUT passwd$

IF passwd$ = "ANOYINPANTS" THEN GOTO fase2

fase1:
 total = 0
 i = ThisIsFase1Running
clg
 IF i = 3 THEN
  PIX "fondo.pix"
  AlertBox 20, 80, 280, "First Level's end", "You made it! you got to acomplish all of your goals in the 1st level. Try the second one now."
 ELSE
  PIX "gameover.pix"
  SLEEP 1
  i = yesorno(20, 80, 280, "Game Over!", "I'm sorry but you lost the game... Will you give it another try and see if you can do it now?")
  IF i = 0 THEN VIEW PRINT: LOCATE 25: FOR i = 1 TO 26: PRINT : NEXT i: SCREEN 0: WIDTH 80: PRINT "Thanks for playing!": SYSTEM
  GOTO jugar
 END IF
fase2:
 i = ThisIsFase2Running
 clg
 IF i = 4 THEN
  PIX "fondo.pix"
  AlertBox 20, 80, 280, "2nd level's end", "You made it again! you succesfully acomplished all the goals in the second level."
 ELSE
  PIX "gameover.pix"
  SLEEP 1
  i = yesorno(20, 80, 280, "Game Over!", "I'm sorry but you lost the game... Will you give it another try and see if you can do it now?")
  IF i = 0 THEN VIEW PRINT: LOCATE 25: FOR i = 1 TO 26: PRINT : NEXT i: SCREEN 0: WIDTH 80: PRINT "Thanks for playing": SYSTEM
  GOTO jugar
 END IF
clg
PIX "fin.pix"
SLEEP 1
AlertBox 20, 80, 280, "The Second part is over now", "Keep looking for the Johny Sex Adventures, the password for the 3rd game is  PISS ME UP"
clg
GOTO m2
END SUB

SUB Manoseo
LINE (10, 49)-(20, 151), 15, B
tp 22, 45, 15, "OK!"
tp 22, 147, 15, "END"
tp 22, 96, 15, "<-"
LINE (11, 50)-(19, 50 + (100 - excitacion \ 6)), 8, BF
LINE (11, 50 + (100 - excitacion \ 6))-(19, 150), 7, BF
tiempo = TIMER
WHILE TIMER <= tiempo + .01
WEND
mousegetstatus l%, m%, r%, x%, y%
x% = x% \ 2
B$ = zact
zact = SPACE$(15)
FOR i = 1 TO 10
IF x% >= mz(i).zx1 AND x% <= mz(i).zx2 AND y% >= mz(i).zy1 AND y% <= mz(i).zy2 THEN zact = mz(i).nombre
NEXT i
IF zact = SPACE$(15) THEN
LOCATE 1, 1: LINE (0, 0)-(71, 7), 8, BF
ELSE
IF B$ <> zact THEN
LOCATE 1, 1: LINE (0, 0)-(71, 7), 8, BF
tp 0, 0, 15, zact
END IF
END IF
IF l% OR r% THEN
FOR i = 1 TO 10
IF x% >= mz(i).zx1 AND x% <= mz(i).zx2 AND y% >= mz(i).zy1 AND y% <= mz(i).zy2 THEN
n = (excitacion \ 100) + 1

' LOCATE 1, 1: PRINT n


SELECT CASE n
CASE 1: excitacion = excitacion + mz(i).vl1
CASE 2: excitacion = excitacion + mz(i).vl2
CASE 3: excitacion = excitacion + mz(i).vl3
CASE 4: excitacion = excitacion + mz(i).vl4
CASE 5: excitacion = excitacion + mz(i).vl5
CASE 6: excitacion = excitacion + mz(i).vl6
END SELECT
END IF
NEXT i
DO
mousegetstatus l%, m%, r%, x%, y%
LOOP WHILE l% OR r%
END IF
excitacion = excitacion - .3 - excitacion / 100

IF INKEY$ = "?" THEN excitacion = 600

IF excitacion > 600 THEN excitacion = 600
IF excitacion < 0 THEN excitacion = 0
END SUB

DEFSNG A-Z
SUB mousecall
DEF SEG = VARSEG(MouseRoutine%(0))
Addr% = VARPTR(MouseRoutine%(0))
CALL Absolute(MReg, Addr%)
DEF SEG
END SUB

SUB MouseGetPressInfo (LBtn%, RBtn%, MBtn%, count%, HPosn%, VPosn%)
IF MouseReady% THEN
IF (LBtn% OR RBtn% OR MBtn%) <> 0 THEN
MReg.ax = 5
IF LBtn% THEN MReg.BX = 0
IF RBtn% THEN MReg.BX = 1
IF MBtn% THEN MReg.BX = 2
mousecall
LBtn% = MReg.ax AND 1
RBtn% = (MReg.ax AND 2) \ 2
MBtn% = (MReg.ax AND 4) \ 4
count% = MReg.BX
HPosn% = MReg.CX
VPosn% = MReg.DX
ELSE
CALL mousegetstatus(LBtn%, RBtn%, MBtn%, HPosn%, VPosn%)
count% = 0
END IF
ELSE
LBtn% = 0: RBtn% = 0: MBtn% = 0
count% = 0
HPosn% = -1: VPosn% = -1
END IF
END SUB

SUB MouseGetReleaseInfo (LBtn%, RBtn%, MBtn%, count%, HPosn%, VPosn%)
IF MouseReady% THEN
IF (LBtn% OR RBtn% OR MBtn%) <> 0 THEN
MReg.ax = 6
IF LBtn% THEN MReg.BX = 0
IF RBtn% THEN MReg.BX = 1
IF MBtn% THEN MReg.BX = 2
mousecall
LBtn% = MReg.ax AND 1
RBtn% = (MReg.ax AND 2) \ 2
MBtn% = (MReg.ax AND 4) \ 4
count% = MReg.BX
HPosn% = MReg.CX
VPosn% = MReg.DX
ELSE
CALL mousegetstatus(LBtn%, RBtn%, MBtn%, HPosn%, VPosn%)
count% = 0
END IF
ELSE
LBtn% = 0: RBtn% = 0: MBtn% = 0
count% = 0
HPosn% = -1: VPosn% = -1
END IF
END SUB

SUB mousegetstatus (LBtn%, RBtn%, MBtn%, HPosn%, VPosn%)
IF MouseReady% THEN
MReg.ax = 3
mousecall
LBtn% = MReg.BX AND 1
RBtn% = (MReg.BX AND 2) \ 2
MBtn% = (MReg.BX AND 4) \ 4
HPosn% = MReg.CX
VPosn% = MReg.DX
ELSE
LBtn% = 0: RBtn% = 0: MBtn% = 0
HPosn% = -1: VPosn% = -1
END IF
END SUB

SUB mousehide
IF MouseReady% THEN
MReg.ax = 2
mousecall
END IF
END SUB

FUNCTION mouseinit%
DEF SEG = 0
Sum% = 0
FOR i% = &H33 * 4 TO &H33 * 4 + 3
Sum% = Sum% + PEEK(i%)
NEXT i%
IF Sum% = 0 THEN
mouseinit% = 0
EXIT FUNCTION
END IF
MReg.ax = 0
mousecall
IF MReg.ax = 0 THEN
mouseinit% = 0
ELSE
mouseinit% = MReg.BX
END IF
END FUNCTION

SUB MouseReadCounters (HCount%, VCount%)
IF MouseReady% THEN
MReg.ax = 11
mousecall
HCount% = MReg.CX
VCount% = MReg.DX
END IF
END SUB

SUB MouseSetHorizRange (HMin%, HMax%)
IF MouseReady% THEN
MReg.ax = 7
MReg.CX = HMin%
MReg.DX = HMax%
mousecall
END IF
END SUB

SUB MouseSetPosn (HPosn%, VPosn%)
IF MouseReady% THEN
MReg.ax = 4
MReg.CX = HPosn%
MReg.DX = VPosn%
mousecall
END IF
END SUB

SUB MouseSetup
RESTORE MouseInt
DEF SEG = VARSEG(MouseRoutine%(0))
Addr% = VARPTR(MouseRoutine%(0))
FOR i = 0 TO 39
READ a$
POKE Addr% + i, VAL("&H" + a$)
NEXT i
IF a$ <> "CB" THEN ERROR 255
DEF SEG
END SUB

SUB MouseSetVertRange (VMin%, VMax%)
IF MouseReady% THEN
MReg.ax = 8
MReg.CX = VMin%
MReg.DX = VMax%
mousecall
END IF
END SUB

SUB mouseshow
IF MouseReady% THEN
MReg.ax = 1
mousecall
END IF
END SUB

DEFINT A-Z
SUB msg (t$)
endset = yoffset + 42: IF endset > 199 THEN endset = 199
LINE (4, yoffset)-(315, endset), 0, BF
LINE (4, yoffset)-(315, endset), 255, B
DIM a AS STRING * 1
DIM palabra$(500)
y = 2 + yoffset
x = 6
j = 1
FOR i = 1 TO LEN(t$)
m$ = MID$(t$, i, 1)
IF m$ = " " THEN j = j + 1 ELSE palabra$(j) = palabra$(j) + m$
NEXT i
NumPalabras = j
FOR i = 1 TO NumPalabras
IF x \ 5 + LEN(palabra$(i)) + 1 > 64 THEN y = y + 8: x = 6: IF y > 192 THEN LOCATE 25: PRINT : y = 192
FOR h = 1 TO LEN(palabra$(i))
m$ = MID$(palabra$(i), h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), 255, , v
NEXT k
x = x + 5
NEXT h
x = x + 5
NEXT i
END SUB

SUB peo
FOR i = 0 TO 255: COLOR i: PRINT i; : NEXT i
END SUB

DEFSNG A-Z
SUB PIX (t$)
IF LEN(t$) < 4 THEN RETURN
IF RIGHT$(t$, 4) = ".px2" THEN GOTO otras
OPEN t$ FOR BINARY AS #1
DIM d AS STRING * 3
DIM dd AS INTEGER
IF LOF(1) = 0 THEN CLOSE #1: KILL t$: EXIT SUB
OUT &H3C8, 0
FOR i = 0 TO 255
GET 1, i * 3 + 64008, d: rgb$ = d
rojo = ASC(LEFT$(rgb$, 1))
verde = ASC(MID$(rgb$, 2, 1))
azul = ASC(RIGHT$(rgb$, 1))
OUT &H3C9, rojo
OUT &H3C9, verde
OUT &H3C9, azul
NEXT i
CLOSE 1
BLOAD t$
EXIT SUB
otras:
OPEN LEFT$(t$, LEN(t$) - 4) + ".plt" FOR BINARY AS #1
IF LOF(1) = 0 THEN CLOSE #1: KILL t$: EXIT SUB
FOR i = 0 TO 255
GET #1, , dd: rojo = dd
GET #1, , dd: verde = dd
GET #1, , dd: azul = dd
PALETTE i, rojo + 256 * verde + 65536 * azul
NEXT i
CLOSE 1
BLOAD t$
EXIT SUB
END SUB

SUB pres (t$)
DIM a AS STRING * 1
DIM palabra$(500)
y = (CSRLIN - 1) * 8
x = 0
j = 1
FOR i = 1 TO LEN(t$)
m$ = MID$(t$, i, 1)
IF m$ = " " THEN j = j + 1 ELSE palabra$(j) = palabra$(j) + m$
NEXT i
NumPalabras = j
FOR i = 1 TO NumPalabras
IF x \ 5 + LEN(palabra$(i)) + 1 > 64 THEN y = y + 8: x = 0: IF y > 192 THEN LOCATE 25: PRINT : y = 192
FOR h = 1 TO LEN(palabra$(i))
m$ = MID$(palabra$(i), h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), , , v
NEXT k
x = x + 5
NEXT h
x = x + 5
NEXT i
LOCATE (y \ 8) + 1
PRINT
END SUB

DEFINT A-Z
FUNCTION scuja$
Wt
IF mx = 4 AND my = 4 THEN scuja$ = "fin": EXIT FUNCTION
encontrado = 0
FOR i = 0 TO 20
IF mx >= zona(i).x1 AND mx <= zona(i).x2 AND my >= zona(i).y1 AND my <= zona(i).y2 THEN encontrado = -1: thezone$ = RTRIM$(zona(i).n): EXIT FOR
NEXT i
IF NOT encontrado THEN scuja$ = "": EXIT FUNCTION
IF zona(i).dv = -1 THEN scuja$ = "goto " + thezone$: EXIT FUNCTION
xx = mx
yy = my
IF xx > 260 THEN xx = 260
IF yy > 116 THEN yy = 116
IF band THEN tabb = 255 ELSE tabb = 7
LINE (xx, yy)-(xx + 59, yy + 83), tabb, BF
LINE (xx, yy)-(xx + 59, yy), 15
LINE (xx, yy)-(xx, yy + 83), 15
LINE (xx + 59, yy)-(xx + 59, yy + 83), 8
LINE (xx, yy + 83)-(xx + 59, yy + 83), 8
tp xx + 1, yy + 1, 0, thezone$
FOR i = 1 TO 8
LINE (xx + 1, yy + i * 9)-(xx + 58, yy + i * 9), 15
LINE (xx + 1, yy + i * 9)-(xx + 1, yy + i * 9 + 8), 15
LINE (xx + 58, yy + i * 9)-(xx + 58, yy + i * 9 + 8), 8
LINE (xx + 58, yy + i * 9 + 8)-(xx + 1, yy + i * 9 + 8), 8
NEXT i
tp xx + 3, yy + 9, 0, "examine"
tp xx + 3, yy + 18, 0, "get"
tp xx + 3, yy + 27, 0, "manipulate"
tp xx + 3, yy + 36, 0, "touch"
tp xx + 3, yy + 45, 0, "push"
tp xx + 3, yy + 54, 0, "lick"
tp xx + 3, yy + 63, 0, "talk"
tp xx + 3, yy + 72, 0, "hit"
Wt
IF NOT (mx > xx + 3 AND mx < xx + 58) THEN scuja$ = "": EXIT FUNCTION
IF my > yy + 8 AND my < yy + 18 THEN v$ = "examine"
IF my > yy + 17 AND my < yy + 27 THEN v$ = "get"
IF my > yy + 26 AND my < yy + 36 THEN v$ = "manipulate"
IF my > yy + 35 AND my < yy + 45 THEN v$ = "touch"
IF my > yy + 44 AND my < yy + 54 THEN v$ = "push"
IF my > yy + 53 AND my < yy + 63 THEN v$ = "lick"
IF my > yy + 62 AND my < yy + 72 THEN v$ = "talk"
IF my > yy + 71 AND my < yy + 81 THEN v$ = "hit"
IF v$ = "" THEN scuja$ = "": EXIT FUNCTION
scuja$ = v$ + " " + thezone$
END FUNCTION

SUB shcm
IF f$ = "" THEN EXIT SUB
LOCATE 1, 1: PRINT SPACE$(40): LOCATE 1, 1
COLOR 15: PRINT "ACCI¢N: "; UCASE$(f$)
END SUB

SUB SinusWave (rmovement%, rspeed%, count%)
 IF count% = 0 THEN count% = 32767
 DIM lines%(1 TO 144, 1 TO 200)
 FOR n% = 1 TO 200
  GET (19, n% - 1)-(299, n% - 1), lines%(1, n%)     'get the 200 lines
 NEXT n%
 i% = 0
 DO
  s! = s! + rspeed% / 100
  FOR n% = 1 TO 200
   c! = s! + n% / rmovement%
   P% = (19 + SIN(c!) * 19)
   LINE (0, n% - 1)-(P% - 1, n% - 1), 0
   LINE (P% + 279, n% - 1)-(319, n% - 1), 0
   PUT (P%, n% - 1), lines%(1, n%), PSET
  NEXT n%
  i% = i% + 1
 LOOP WHILE i% < count% OR INKEY$ = ""
END SUB

SUB spwt
SHARED mx, my
DO
mousegetstatus l, r, m, mx, my
LOOP WHILE l OR r OR m
IF mx \ 2 < 4 THEN mx = 4 * 2
IF my < 4 THEN my = 4
IF mx \ 2 > 315 THEN mx = 315 * 2
IF my > 195 THEN my = 195
cmx = mx: cmy = my
GET (cmx \ 2 - 4, cmy - 4)-(cmx \ 2 + 4, cmy + 4), P(1)
CIRCLE (mx \ 2, my), 4, 0
LINE (mx \ 2 - 4, my)-(mx \ 2 + 4, my), 15
LINE (mx \ 2, my - 4)-(mx \ 2, my + 4), 15
DO
mousegetstatus l, r, m, mx, my
LOCATE 1, 1: PRINT mx \ 2, my
IF mx \ 2 < 4 THEN mx = 4 * 2
IF my < 4 THEN my = 4
IF mx \ 2 > 315 THEN mx = 315 * 2
IF my > 195 THEN my = 195
IF mx <> cmx OR my <> cmy THEN
PUT (cmx \ 2 - 4, cmy - 4), P(1), PSET
cmx = mx: cmy = my
GET (cmx \ 2 - 4, cmy - 4)-(cmx \ 2 + 4, cmy + 4), P(1)
CIRCLE (mx \ 2, my), 4, 0
LINE (mx \ 2 - 4, my)-(mx \ 2 + 4, my), 15
LINE (mx \ 2, my - 4)-(mx \ 2, my + 4), 15
END IF
LOOP UNTIL l OR r OR m
PUT (mx \ 2 - 4, my - 4), P(1), PSET
mx = mx \ 2
END SUB

FUNCTION talk (t1$, t2$, t3$)
SHARED my
LINE (8, 155)-(311, 155), 15
LINE (8, 155)-(8, 191), 15
LINE (8, 191)-(311, 191), 8
LINE (311, 155)-(311, 191), 8
LINE (9, 156)-(310, 190), 7, BF
FOR i = 0 TO 2
 LINE (10, 157 + i * 11)-(309, 157 + i * 11), 15
 LINE (10, 157 + i * 11)-(10, 157 + i * 11 + 10), 15
 LINE (10, 157 + i * 11 + 10)-(309, 157 + i * 11 + 10), 8
 LINE (309, 157 + i * 11)-(309, 157 + i * 11 + 10), 8
NEXT
tp 12, 159, 0, t1$
tp 12, 170, 0, t2$
tp 12, 181, 0, t3$
DO
 Wt
 IF my >= 157 AND my <= 167 THEN talk = 1: EXIT FUNCTION
 IF my >= 168 AND my <= 178 THEN talk = 2: EXIT FUNCTION
 IF my >= 179 AND my <= 189 THEN talk = 3: EXIT FUNCTION
LOOP
END FUNCTION

SUB TextWindow (xx%, yy%, w%, titulo$, t$)
DIM a AS STRING * 1
DIM palabra$(500)
y = 15 + yy%
x = xx% + 5
j = 1
LINE (xx%, y)-(xx% + w, y + 8), 0, BF
FOR i = 1 TO LEN(t$)
m$ = MID$(t$, i, 1)
IF m$ = " " THEN j = j + 1 ELSE palabra$(j) = palabra$(j) + m$
NEXT i
NumPalabras = j
FOR i = 1 TO NumPalabras
IF x + (LEN(palabra$(i)) + 1) * 5 > w% + xx% - 5 THEN y = y + 8: x = 5 + xx%: LINE (xx%, y)-(xx% + w, y + 8), 0, BF: IF y > 192 THEN LOCATE 25: PRINT : y = 192
FOR h = 1 TO LEN(palabra$(i))
m$ = MID$(palabra$(i), h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), 15, , v
NEXT k
x = x + 5
NEXT h
x = x + 5
NEXT i
y = y + 8 + 1
LINE (xx%, yy%)-(xx% + w%, y + 3), 8, B
LINE (xx% + 3, yy% + 3)-(xx + w% - 3, y), 8, B
FOR i = 1 TO 2
LINE (xx% + i, yy + i)-(xx + w% - i, y + 3 - i), 7, B
NEXT i
LINE (xx% + 4, yy% + 4)-(xx% + w% - 4, yy% + 12), 15, BF
tp xx% + (w% \ 2 - LEN(titulo$) * 5 \ 2), yy% + 5, 0, titulo$
LINE (xx% + 4, yy% + 13)-(xx% + w% - 4, yy% + 13), 8
LINE (xx% + 4, yy% + 14)-(xx% + w% - 4, yy% + 14), 0
END SUB

FUNCTION ThisIsFase1Running
 puntos = 0
 clg
 PIX "fondo.pix"
 AlertBox 20, 50, 280, "1st stage: At two in the morning...", "Everyone at Mary's house go bed early in the afternoon, after a exciting but tirying day. Lori and Ale went out to spend the night at the beach. Mary said she'd rather sleep by herself so that she could rest. Yoli was feeling a little sick so she went to bed after having dinner. You're so hot that you can't sleep no matter how hard you try. At about 2 o'clock in the morning you get thirsty and decide to goto the kitchen."
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "In the kitchen", "When you turn on the lights you see someone sitting there..."
 clg
 PIX "carmen01.pix"
 SLEEP 2
 TextWindow 4, 4, 100, "Girl", "Who are you?"
 Wt
 BLOAD "carmen01.pix"
 TextWindow 20, 140, 280, "You", "I'm Johnny, one of Mary's guests... What about you?"
 Wt
 BLOAD "carmen01.pix"
 TextWindow 4, 4, 120, "Girl", "My name is Carmen. Yoli invited me to come."
 Wt
 BLOAD "carmen01.pix"
 TextWindow 20, 140, 120, "You", "Are you a friend of hers?"
 Wt
 BLOAD "carmen01.pix"
 TextWindow 4, 4, 100, "Carmen", "No... Let's say i'm her new girlfriend"
 Wt
 clg
 PIX "carmen00.pix"
 TextWindow 4, 4, 120, "Carmen", "We met the other day at the swimming pool. We had a drink and talked for a while and in just a matter of a few minutes we started flirting on eachother. After that she invited me to spend the night here and have sex all night long."
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 140, 280, "You", "Hmmm... i didn't know she liked girls... Maybe she doesn't wanna tell anybody... That's why she started faking she was sick, so that she could goto bed."
 Wt
 BLOAD "carmen00.pix"
 TextWindow 4, 4, 120, "Carmen", "We've been fucking all night long, we just stopped cause i was a little bit hungry and needed to fix myself something to eat."
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 140, 120, "You", "There's some fruit in the fruit dish..."
 Wt
 clg
 PIX "carmen02.pix"
 SLEEP 2
 i = yesorno(4, 120, 160, "Carmen", "I just love bananas... do you like them?")
 IF i = -1 THEN
  GOTO CarmenCalabazas1
 END IF
 BLOAD "carmen02.pix"
 TextWindow 20, 140, 280, "You", "I think my banana is big engough by itself."
 Wt
 clg
 PIX "carmen03.pix"
 TextWindow 4, 4, 120, "Carmen", "Oh comeon, i'm sure it's not that big"
 Wt
 BLOAD "carmen03.pix"
 AlertBox 20, 80, 280, "Yeah baby", "You pull your underwear all the way down to your knees, releasing your dick and letting it oscilate in the air and pointing at Carmen's face."
 BLOAD "carmen03.pix"
 TextWindow 4, 4, 120, "Carmen", "Wow... That's exactly the kind of bananas i love eating..."
 Wt
 BLOAD "carmen03.pix"
 TextWindow 20, 140, 230, "You", "Do you like it? You can see how it tastes if you want. I'll let you sip from it..."
 Wt
 AlertBox 20, 70, 280, " ", "Carmen gets on her knees right in front of you. She puts your pennis in her hands and starts caressing it, and finally she kisses it in a sweet way that makes you get everything greasy with your preseminal liquid. She seems to get even more excited with all the fluids she's getting from your cook and she swallows it all the way down to her throath. You can feel the pleasure of your pennis going all the way down her thoath. Carmen gets a little nausea at first, but she holds it back and gives you the most wonderful blow job you've ever seen making you feel like in heaven..."
 BLOAD "carmen03.pix"
 AlertBox 4, 4, 120, "Carmen", "<gunt> <slurp> ... Why don't you caress my pussy? <gunt> <guunt>"
 clg
 PIX "carmen04.pix"
 AlertBox 100, 80, 120, "Pay Atention!", "Are you ready for the good part?"
 BLOAD "carmen04.pix"
 RESTORE Carmen1
 LeeManoseo
 excitacion = 360
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "C rmen", "Duh, you're just crap Johnny!": GOTO CarmenCalabazas1
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 clg
 PIX "carmen05.pix"
 SLEEP 1
 TextWindow 4, 4, 100, "C rmen", "Uhhh that was great Johnny... i almost came!"
 Wt
 BLOAD "carmen05.pix"
 AlertBox 4, 4, 140, "C rmen", "Fuck me now... I've been going out with girls for so long that i think i need a good c..."
 clg
 PIX "carmen06.pix"
 AlertBox 4, 4, 100, "C rmen", "...ock to fuck up my brains!"
 BLOAD "carmen06.pix"
 ag = 0
 excitacion = 40
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10.2
 DO
  fuck 87, 122
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Sorry but...", "You get an orgasm and eyaculate over Carmen's tummy."
   SLEEP 1
   BLOAD "carmen06.pix"
   AlertBox 20, 80, 200, "Carmen", "No!!! Don't do that! I wanted to get my orgasm! You're a fucking bastard Get out of here!!! Now!!"
   GOTO sS1
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 clg
 PIX "carmen02.pix"
 TextWindow 4, 4, 120, "C rmen", "Excelent... i just loved it Johnny."
 Wt
 BLOAD "carmen02.pix"
 TextWindow 20, 140, 280, "You", "I also liked it, i hope we can do this again other day."
 Wt
 BLOAD "carmen02.pix"
 AlertBox 4, 4, 120, "C rmen", "Yes, me too, i'll see you other day ok?"
 puntos = puntos + 1
 GOTO sS1
CarmenCalabazas1:
 clg
 PIX "Carmen02.pix"
 TextWindow 4, 4, 120, "Carmen", "Well, good luck then, you queer... I'll see ya tomorrow!!"
 Wt
 clg
 AlertBox 20, 80, 280, "With your mouth wide open...", "Carmen goes to Yoli's room leaving you socked..."
sS1:
 clg
 PIX "acantil2.pix"
 SLEEP 1
 AlertBox 20, 80, 280, " ", "The sun rises up after a few hours of sleeping. The warm sun rays make the sea water look golden and everything in nature is waking up. It's really early in the morning, but you feel all rested and you can't sleep anymore, so you decide to go for a walk."
 clg
f1hall1:
 RESTORE hall
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 zona(4).dv = -1
 zona(3).dv = -1
 zona(7).dv = -1
 clg
 PIX "pasillo.pix"
 VIEW PRINT 1 TO 25
 LOCATE 24, 30: PRINT "> HALL"
 DO
  sc = 0
  f$ = scuja$
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> HALL"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase1Running = 99: EXIT FUNCTION
  IF INSTR(f$, "statue") THEN AlertBox 20, 80, 280, "statue", "Right now you don't feel like playing with those old stupid statues... Leave them alone."
  IF f$ = "goto Your room." THEN AlertBox 20, 80, 280, "Your room", "You decided to go for a walk, didn't you?... You aren't thinking of going back to your room are you?"
  IF f$ = "goto Mary's room" THEN GOTO f1HabMaria1
  IF f$ = "goto Yoli's room" THEN AlertBox 20, 80, 280, "Yoli's room", "The door is locked. Even when it's a thick wooden door you can hear laughs and a quick breath sound... They both are doing it again!"
  IF f$ = "goto Ale's room" THEN AlertBox 20, 80, 280, "Ale's room", "She's not there right now. You better stay out of her room just in case she gets back..."
  IF f$ = "goto hall" THEN clg: GOTO f1Vestibulo1
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> HALL"
 LOOP
f1HabMaria1:
 clg
 PIX "Maria_00.pix"
 SLEEP 1
 TextWindow 4, 4, 100, "You", "Hi Mary"
 Wt
 BLOAD "Maria_00.pix"
 TextWindow 4, 4, 160, "Mary (Sleepy)", "Johnny?... MMmmmmh... It's seven in the morning... Let me sleep!"
 Wt
 BLOAD "Maria_00.pix"
 AlertBox 4, 4, 100, "You", "Sorry, I'll go now."
 clg
 GOTO f1hall1
f1Vestibulo1:
 clg
 PIX "vestib.pix"
 RESTORE Vestibulo
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 zona(3).dv = -1
 zona(4).dv = -1
 DO
  sc = 0
  f$ = scuja$
  BLOAD "vestib.pix"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase1Running = 99: EXIT FUNCTION
  IF f$ = "goto livingroom" THEN sc = -1: AlertBox 20, 80, 180, "livingroom", "You don't have anything intersting to do in the living room."
  IF f$ = "goto kitchen" THEN sc = -1: AlertBox 20, 80, 180, "kitchen", "You don't have anything interesting to do in the kitchen."
  IF f$ = "goto exit" THEN sc = -1: EXIT DO
  IF f$ = "goto steps" THEN GOTO f1hall1
  IF NOT sc THEN AlertBox 20, 80, 180, f$, "I think there's nothing interesting to do over there"
  BLOAD "vestib.pix"
 LOOP
 clg
 PIX "Calle1.pix"
 AlertBox 4, 4, 180, "Walking down the street", "The streets are almost empty. You can only see a very few people that, same as you do, like walking early in the morning."
 BLOAD "Calle1.pix"
 AlertBox 8, 8, 180, "Walking down the street", "While you're walking you hear a young girl's voice, it seems like she's looking for something..."
 clg
 PIX "Nuria001.pix"
 TextWindow 4, 4, 150, "Girl", "Pssst, Pssst... come here pussy cat, here kitty kitty! I'm not gonna hurt you! come here little kitty..."
 Wt
 clg
 PIX "Nuria002.pix"
 SLEEP 1
 TextWindow 4, 4, 120, "Girl", "Hey you! what do you think you're doing spying me?"
 Wt
 BLOAD "Nuria002.pix"
 TextWindow 20, 140, 280, "You", "Well, errrr... I wasn't spying you... I just went for a walk and..."
 Wt
 BLOAD "Nuria002.pix"
 TextWindow 4, 4, 120, "Girl", "You liar!, nobody ever goes for a walk so early in this urbanization!"
 Wt
 BLOAD "Nuria002.pix"
 TextWindow 4, 4, 130, "Girl", "I bet you're a pervert that is chasing me and spying me. You're just a fucking Voyeur..."
 i = talk("Well if you want i'll go and leave you alone...", "What a weird way of calling your secret admiror...", "Gosh who wouldn't look at you with that wonderful body?...")
 IF i = 1 THEN
  BLOAD "Nuria002.pix"
  AlertBox 4, 4, 130, "Girl", "And don't come back!"
  GOTO sS2
 END IF
 IF i = 2 THEN
  GOTO Nuria2
 END IF
 IF i = 3 THEN
  GOTO Nuria3
 END IF
Nuria2:
 BLOAD "Nuria002.pix"
 TextWindow 4, 4, 140, "Girl", "'Admiror'? So i was right! You were spying me!"
 i = talk("I'll go now if you want me to", "Yes, i was spying you, ok, you caught me.", "Who could ever resist looking at your wonderful body?.")
 IF i = 1 THEN
  BLOAD "Nuria002.pix"
  AlertBox 4, 4, 130, "Girl", "And don't come back!"
  GOTO sS2
 END IF
 IF i = 2 THEN
  BLOAD "Nuria002.pix"
  AlertBox 4, 4, 130, "Girl", "Well then go away... And don't come back!"
  GOTO sS2
 END IF
Nuria3:
 BLOAD "Nuria002.pix"
 TextWindow 4, 4, 180, "Girl (Her cheeks just turned red)", "...Oh, really?... Do you really like my body?... I didn't know anybody would ever be interested in me..."
 i = talk("I love the way you look baby... Wanna come home for a while?", "You're real beautiful... And your breast is marvelous", "You're a beautiful princess, pure and clean as a flower...")
 IF i = 1 OR i = 3 THEN
  BLOAD "Nuria002.pix"
  AlertBox 4, 4, 130, "Girl", "I knew it!! You were just teasing me! Go away... And don't ever come back!"
  GOTO sS2
 END IF
 BLOAD "Nuria002.pix"
 AlertBox 4, 4, 160, "Girl", "Are you serious...? Come here for a second..."
 clg
 AlertBox 20, 80, 280, "Wow!", "The girl takes you to what looks like a hut with a bed and some furniture. It looks like it's the place where she lives in order to have some independence."
 clg
 AlertBox 20, 80, 280, "", "Slowly the girl takes her shirt and her bra off with a soft hand movement."
 clg
 PIX "Nuria003.pix"
 SLEEP 1
 TextWindow 4, 4, 100, "Girl", "Do you like them?"
 Wt
 BLOAD "Nuria003.pix"
 TextWindow 20, 160, 100, "You", "I love them..."
 Wt
 BLOAD "Nuria003.pix"
 TextWindow 4, 4, 130, "Girl", "Thanks... I never felt admired by anyone. Nobody has ever said anything sweet to me..."
 Wt
 BLOAD "Nuria003.pix"
 TextWindow 20, 140, 280, "You", "I don't know why. You're really beautiful. If they haven't said anything yet, it might be because they're just being shy, but i'm sure they're thinking about it all the time."
 Wt
 BLOAD "Nuria003.pix"
 TextWindow 4, 4, 140, "Girl", "Do you really think so? You're the first admiror ever..."
 i = talk("Yes, but right now i can't fully admire you...", "...I bet i could get to be your first lover", "Great, i love having such a great honor.")
 IF i = 2 THEN
  BLOAD "Nuria003.pix"
  AlertBox 4, 4, 120, "Girl", "Who do you think i am? You're just another horny guy! Get out of here!"
  GOTO sS2
 END IF
 IF i = 3 THEN
  BLOAD "Nuria003.pix"
  AlertBox 4, 4, 120, "Girl", "What?! You're glad because nobody ever said anything beautiful to me?! Get out of here!"
  GOTO sS2
 END IF
 BLOAD "Nuria003.pix"
 AlertBox 4, 4, 150, "Girl", "I think we can easily fix that..."
 clg
 PIX "Nuria004.pix"
 SLEEP 1
 TextWindow 4, 4, 100, "Girl", "I've never shown myself naked to a boy before"
 Wt
 BLOAD "Nuria004.pix"
 TextWindow 20, 140, 280, "You", "Well you should have done it! I just love what i see!"
 Wt
 BLOAD "Nuria004.pix"
 TextWindow 4, 4, 100, "Girl", "Really?"
 Wt
 BLOAD "Nuria004.pix"
 TextWindow 20, 140, 280, "You", "Yes! I'm sure if you had done that before you'd have lots of admirors now"
 Wt
 clg
 PIX "Nuria005.pix"
 TextWindow 4, 4, 100, "Girl", "Then i've been just a fool"
 Wt
 BLOAD "Nuria005.pix"
 TextWindow 20, 140, 100, "You", "My name is Johnny, what's your name?"
 Wt
 BLOAD "Nuria005.pix"
 TextWindow 4, 4, 100, "Girl", "Nuria"
 Wt
 BLOAD "Nuria005.pix"
 i = talk("Would you let me kiss you?", "Would you let me touch your breast?", "would you like to make love with me?")
 IF i = 2 OR i = 3 THEN
  BLOAD "Nuria005.pix"
  AlertBox 4, 4, 140, "Nuria", "Aha! I should have figured it out! That's all you wanted! Get out of here!!"
  GOTO sS2
 END IF
 BLOAD "Nuria005.pix"
 TextWindow 4, 4, 120, "Nuria", "Nobody ever kissed me before"
 Wt
 BLOAD "Nuria005.pix"
 TextWindow 20, 140, 280, "You", "Relax and close your eyes, Nuria..."
 Wt
 clg
 PIX "Nuria007.pix"
 SLEEP 1
 AlertBox 20, 80, 280, "", "After the kiss, Nuria breathes deeply and lays down in the bed, letting you caress her all you want."
 BLOAD "Nuria007.pix"
 RESTORE Nuria1
 LeeManoseo
 excitacion = 360
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "Nuria", "Leave me alone! You look like a sloopy guy that doesn't even know how to treat a girl... I'm ashamed now... Get out of here!"
   GOTO sS2
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 clg
 PIX "Nuria008.pix"
 SLEEP 1
 TextWindow 4, 4, 120, "Nuria", "Ohh! You made me cum! see?"
 Wt
 BLOAD "Nuria008.pix"
 TextWindow 4, 4, 120, "Nuria", "I've never had an experience with a boy before"
 Wt
 BLOAD "Nuria008.pix"
 TextWindow 20, 140, 280, "You", "And did you like it? would you do it again?"
 Wt
 BLOAD "Nuria008.pix"
 AlertBox 4, 4, 120, "Nuria", "Yes..."
 clg
 PIX "Nuria009.pix"
 TextWindow 4, 4, 150, "Nuria", "I want you to put it in"
 Wt
 BLOAD "Nuria009.pix"
 ag = 0
 excitacion = 40
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10.2
 DO
  fuck 174, 138
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Sorry but yeah...", "Your orgasm comes and you eyaculate all over Nuria's tummy."
   SLEEP 1
   BLOAD "Nuria009.pix"
   AlertBox 20, 80, 200, "Nuria", "No! Don't do that! I also wanted to come! You're the most bad mannered person i've ever seen! Get out of here!"
   GOTO sS2
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 BLOAD "Nuria009.pix"
 AlertBox 4, 4, 150, "Nuria", "Ohhh, yes! That's the way i like it! i'm comming! What a wonderful pleasure!"
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 200, "", "After that you cum all over Nuria's breast. She spreads the semen with both of her hands and looks at you in a satisfied way."
 clg
 PIX "Nuria005.pix"
 TextWindow 4, 4, 110, "Nuria", "Oh goodness, thanks. It's been incredible!!"
 Wt
 BLOAD "Nuria005.pix"
 TextWindow 20, 140, 280, "You", "I loved it! But i'm running out of time and have to go, i'll see you ok?"
 Wt
 BLOAD "Nuria005.pix"
 AlertBox 4, 4, 110, "Nuria", "See ya later!"
 puntos = puntos + 1
sS2:
 clg
 AlertBox 20, 80, 200, "", "You get out of her place walking as fast as you can. Your walk dured more than two hours and you're sure they'll be waiting for you to have breakfast."
 clg
 PIX "Cocina.pix"
 AlertBox 20, 80, 280, "Too late", "Well, it seems like they didn't wait for you. You can see dirty plates and breakfast stuff in the sink and the table."
 BLOAD "Cocina.pix"
 AlertBox 20, 80, 280, "", "Suddenly you hear foot steps behind you. Somebody is comming up to you. You turn around to see who is it."
 clg
 PIX "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "Hi!"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 20, 140, 280, "You", "Hey! How are you doing Yoli?!... So you were sick the other night huh?"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "Shut! Carmen told you right? No wonder why she acted so weird when she got back!"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "You fucked her didn't you?!"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 20, 140, 180, "You", "It was a two people thing. I'd rather say we both ®had sex¯."
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "I'm gonna kill her if i see her!"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "Oh comeon it doesn't matter now..."
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "Well, at least I found you, I wanted to ask you a favor..."
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 20, 140, 280, "You", "What is it Yoli? You don't want to... do you?"
 Wt
 BLOAD "yoli_00.pix"
 TextWindow 4, 4, 120, "Yoli", "Oh comeon Johnny! I'm in a hurry! the thing is that i have to go to a very important place and i don't have enough time to give the private classes to my pupil today. Would you do it for me?"
 i = talk("Errr... Well i have to do many things today", "Is she good looking? what are the classes about?", "Are you sure that i'll be able to give her classes?")
 IF i = 1 THEN
  BLOAD "yoli_00.pix"
  AlertBox 4, 4, 120, "Yoli", "Well it's ok, never mind. I'll look for somebody else. Bye!"
  GOTO sg3
 END IF
 IF i = 2 THEN
  BLOAD "yoli_00.pix"
  AlertBox 4, 4, 120, "Yoli", "How can you be thinking of the same thing all the time? I better get someone else to do this for me, Bye!"
  GOTO sg3
 END IF
 BLOAD "yoli_00.pix"
 AlertBox 4, 4, 120, "Yoli", "I'm sure you'll have no problem with it, it's just helping her with a few easy 3rd grade math exercises."
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "", "Yoli writes down the address of the house for you and you get there without any problem. You knock the door. Tamara's mother (That's the girl's name) opens the door for you, and you give her a note where Yoli explains everything. She lets you in. You go upstairs and get into the girl's room."
 clg
 PIX "tamara01.pix"
 TextWindow 4, 4, 120, "Tamara", "Hi isn't Yoli comming today?"
 SLEEP 2
 i = talk("Today is a man the one comin,I'm sure you need it,don't you?", "How old are you? Yoli just said 'a girl'", "Ran away with the circus' tamer,the one with the big prick")
 IF i = 1 THEN
  BLOAD "tamara01.pix"
  AlertBox 4, 4, 120, "Tamara", "What are you saying guy? Get out of here or I'll call my mother!"
  GOTO sg3b
 END IF
 clg
 IF i = 2 THEN
  PIX "tamara02.pix"
  TextWindow 4, 4, 120, "Tamara", "I'm sixteen, why do you want to know?"
  Wt
 END IF
 IF i = 3 THEN
  PIX "tamara02.pix"
  TextWindow 4, 4, 120, "Tamara", "ha ha ha! how funny!"
  Wt
 END IF
 BLOAD "Tamara02.pix"
 TextWindow 20, 140, 280, "You", "Yoli didn't tell me i was going to have such a pretty girl as my pupil"
 Wt
 BLOAD "tamara02.pix"
 TextWindow 4, 4, 120, "Tamara", "Pleased to meet you"
 Wt
 BLOAD "tamara02.pix"
 TextWindow 20, 140, 280, "You", "What do you want me to help you with, Tamara?"
 Wt
 clg
 PIX "tamara01.pix"
 TextWindow 4, 4, 180, "Tamara", "Geometry. What was that thing you needed to draw a straight line parallel to other line?"
 SLEEP 1
 i = talk("A full stop, a comma and an oriental vector.", "A point in the original line and a parallel vector to it", "A perpendicular vector and a slope")
 IF i = 1 OR i = 3 THEN
  BLOAD "tamara01.pix"
  AlertBox 4, 4, 120, "Tamara", "I think you're not too good at this... I'd rather study by myself. Loved meeting you! Bye."
  GOTO sg3b
 END IF
 clg
 PIX "tamara02.pix"
 TextWindow 4, 4, 140, "Tamara", "Oh! that's right! now i remember... I think i know how to deal with all this problems now."
 Wt
 BLOAD "tamara02.pix"
 TextWindow 4, 4, 120, "Tamara", "I'm gonna solve them now. We can talk meanwhile."
 Wt
 clg
 PIX "fondo.pix"
 TextWindow 20, 80, 280, "", "Tamara sits on some kind of bench right in front of you with her notebook lying on her knees"
 Wt
 clg
 PIX "tamara03.pix"
 SLEEP 1
 TextWindow 20, 140, 280, "You (Thinking)", "Well... She's not wearing her underwear and it seems like she didn't notice i can see everything from here..."
 Wt
 BLOAD "tamara03.pix"
 TextWindow 4, 4, 120, "Tamara", "You aren't very talkative are you?"
 Wt
 BLOAD "tamara03.pix"
 TextWindow 20, 140, 280, "You", "I'm sorry, Tamara. So tell me... What school are you in?"
 Wt
 BLOAD "tamara03.pix"
 TextWindow 20, 140, 280, "You (Thinking)", "Duh... i better act as if i could see nothing at all, if she notices i'm looking at her pussy then the situation might turn a little bit weird"
 Wt
 BLOAD "tamara03.pix"
 TextWindow 4, 4, 120, "Tamara", "I'm studying at the 'Real Froil n' school, it's two blocks away from here. I'm in high school."
 Wt
 BLOAD "tamara03.pix"
 AlertBox 20, 80, 280, "ooops...", " Even when you try as hard as you can not to look at her young pussy you can't resist it any longer and you look at Tamara's Cunt steadily for a moment. She notices right in that moment and starts turning red when she realizes what's going on. But..."
 clg
 PIX "tamara04.pix"
 TextWindow 20, 80, 280, " ", "It seems like the huge shape under your pants excited her and instead of covering up she opens her legs even more showing you all you could ever want to see."
 Wt
 BLOAD "tamara04.pix"
 AlertBox 4, 4, 120, "Tamara", "Would you please touch my little pussy?."
 BLOAD "tamara04.pix"
 RESTORE Tamara1
 LeeManoseo
 excitacion = 250
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "­Tamara!", "Heyyy.... Ok, quit doing it if you don't like it... I'm sure you have lots to do. Bye."
   GOTO sg3b
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 AlertBox 20, 80, 280, "", "Screaming of pleasure Tamara cums on your hand, filling the whole room with a sweet vaginal fluid fragance."
 clg
 PIX "Tamara05.pix"
 TextWindow 4, 4, 120, "Tamara", "Aaaah... I just loved that... could you..."
 Wt
 clg
 PIX "Tamara03.pix"
 AlertBox 20, 80, 280, "", "Probably all of Tamara's wailings, her kicks on the floor and the general noise alerted her mother, and when she opens the door she catches you both doing everything, she looks kind of bothered and invites you to get out of her house."
 puntos = puntos + 1
sg3b:
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "", "You get out of Tamara's house and decide to go for a walk. You get back home at luch time."
sg3:
 ThisIsFase1Running = puntos
END FUNCTION

FUNCTION ThisIsFase2Running
 vistoangeles = 0
 fuckedmaria = 0
 fuckedmariagood = 0
 vistomaria = 0
 manopla = 0
 puntos = 0
 PIX "fondo.pix"
 AlertBox 20, 70, 280, "2nd Scene", "When you go to your house you meet Carmen, Yoli, Mar¡a and a friend of them you don't already know. And this time they where waiting you for lunch."
 clg
 PIX "maria__-.pix"
 TextWindow 20, 160, 280, "Mar¡a", "Hi, Johnny. We all were waiting for you."
 Wt
 BLOAD "maria__-.pix"
 TextWindow 20, 160, 280, "You", "That was very nice of you... after all you didn't wait for me last time"
 Wt
 clg
 PIX "yoli_00.pix"
 TextWindow 20, 150, 280, "Yoli", "Oh comeon, you came back way too late. Don't even think we're gonna be sitting here all day long until you feel like coming for lunch!"
 Wt
 clg
 PIX "carmen00.pix"
 TextWindow 20, 160, 280, "C rmen", "I'm sure he was fucking some little girl's brains out, who knows?"
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 150, 280, "You", "Oh yeah, you all are making me sound wonderful, at least i hope you don't really think what you're saying!"
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 160, 280, "C rmen", "Oh Johnny, you know i'm not wrong... am i?"
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 150, 280, "You", "Well, err... let's change the subject... Aren't you going to introduce me to your new friend?"
 Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 150, 280, "C rmen", "Yeah, it's always the same Johnny... You want her to be another one of your victims... don't you?"
 Wt
 clg
 PIX "maria__-.pix"
 TextWindow 20, 150, 280, "Mar¡a", "don't you think you girls are going a little bit too far insulting Johnny? Don't worry Johnny, Her name is Sandra, she's working with me."
 Wt
 clg
 PIX "sandra00.pix"
 TextWindow 20, 160, 280, "Sandra", "Hi Johnny, pleased to meet you"
 Wt
 BLOAD "sandra00.pix"
 AlertBox 20, 80, 280, "", "Hmmmm... even though Carmen and Yoli tried their best to make you look horrible she seems to like you... Or was it their presentation what made her like you so much?"
 BLOAD "sandra00.pix"
 TextWindow 20, 160, 280, "Sandra", "So you're the famous guy that will spend the whole week in the hotel!"
 Wt
 clg
 PIX "Yoli_00.pix"
 TextWindow 20, 160, 280, "Yoli", "Yah, the same guy that fucked us all sweetheart."
 Wt
 clg
 PIX "maria__-.pix"
 TextWindow 20, 160, 280, "Mar¡a", "Yoli, quit that, ok?"
 Wt
 clg
 PIX "sandra00.pix"
 TextWindow 20, 160, 280, "Sandra", "Bah... I'm sure he's not that bad. You girls stop teasing him about it..."
 Wt
 clg
 PIX "carmen00.pix"
 TextWindow 20, 150, 280, "Carmen", "He's got a cook like this big. am i lying girls? And you should see it in action! he can tore you to pieces of so much pleasure!"
Wt
 BLOAD "carmen00.pix"
 TextWindow 20, 160, 280, "You", "Ok that's enough!! Let's change the subject, ok?"
 Wt
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "After having lunch", "Everybody gets out of the kitchen since they have lots of work to do, everyone excepting you that want to have a coffee; Sandra offers to do the dishes... Was that part of a plan she was up to so that you could be by yourselves in the kitchen?"
 clg
 PIX "Sandra01.pix"
 TextWindow 4, 4, 120, "Sandra", "Wow, this is such a great mess!"
 Wt
 BLOAD "Sandra01.pix"
 TextWindow 20, 160, 280, "You", "Do you want me to give you a hand with that?"
 Wt
 BLOAD "Sandra01.pix"
 TextWindow 4, 4, 120, "Sandra", "Hey careful with what you say!... Do you want to fuck me?"
 i = talk("I think you worry too much about little details", "believe me i'm already being careful...", "And what about you? Do you want to fuck tonight?")
 IF i = 1 THEN
  clg
  PIX "Sandra00.pix"
  AlertBox 4, 4, 120, "Sandra", "Well, then leave me alone, i've got lots of things to do."
  GOTO cgs1
 END IF
 IF i = 3 THEN
  clg
  BLOAD "Sandra01.pix"
  TextWindow 4, 4, 120, "Sandra", "gosh, why in hell would i want to fuck with you?"
  i = talk("Because i'm so good looking that you need me to fuck you?", "Maybe because of all the girls said before during the meal time", "I was just kidding, i was trying to keep up with all that stuff the girls made up about me")
  IF i = 1 OR i = 2 THEN
   BLOAD "Sandra01.pix"
   AlertBox 4, 4, 120, "Sandra", "What a braggart! Well, now leave me alone, i've got lots of things to do."
   GOTO cgs1
  END IF
 END IF
 BLOAD "Sandra01.pix"
 TextWindow 4, 4, 120, "Sandra", "Well! so now you're gonna turn out to be a sex machine!."
 Wt
 BLOAD "Sandra01.pix"
 TextWindow 20, 160, 280, "You", "I think they should have said all those intimate things, probably you didn't like it..."
 Wt
 BLOAD "Sandra01.pix"
 TextWindow 4, 4, 120, "Sandra", "Commeon guy, we're not living in the 40's or anything like that! Besides i'm not a too shy person..."
 Wt
 BLOAD "Sandra01.pix"
 TextWindow 20, 160, 280, "You", "Be careful, Sandra: The tap is fully open and it might splash you."
 Wt
 clg
 PIX "Sandra02.pix"
 SLEEP 1
 TextWindow 4, 4, 120, "Sandra", "Oh, silly me!"
 Wt
 BLOAD "Sandra02.pix"
 TextWindow 4, 4, 120, "Sandra", "Oh me silly girl! look at my clothes! they're all wet..."
 Wt
 BLOAD "Sandra02.pix"
 TextWindow 20, 160, 280, "You", "Gosh, you better take all that off or you'll get a big cold."
 Wt
 BLOAD "Sandra02.pix"
 TextWindow 4, 4, 120, "Sandra", "Woho! that's Johnny in action!... Well, you're right."
 Wt
 clg
 PIX "Sandra03.pix"
 TextWindow 4, 4, 120, "Sandra", "But you should know that i'm not afraid at all of colds!"
 Wt
 clg
 PIX "Sandra04.pix"
 TextWindow 4, 4, 120, "Sandra", "Don't be shy with me."
 Wt
 BLOAD "Sandra04.pix"
 TextWindow 4, 4, 120, "Sandra", "I just want to see by myself if all they told me about you is true."
 Wt
 BLOAD "Sandra04.pix"
 AlertBox 4, 4, 120, "Sandra", "Come here and make me cumm in your hands..."
 BLOAD "Sandra04.pix"
 RESTORE Sandra1
 LeeManoseo
 excitacion = 200
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "Sandra", "Oh well Johnny! it seems like they were just teasing me... you better go now and not make me waste my time like this.": GOTO cgs1
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 BLOAD "Sandra04.pix"
 i = yesorno(4, 4, 190, "Sandra", "Uhh... Man... Want to see how juicy you made my pussy?")
 IF i = -1 THEN
  clg
  PIX "Sandra05.pix"
  AlertBox 4, 4, 120, "Sandra", "Take a glance at my sweet little cunt..."
 END IF
 clg
 PIX "Sandra07.pix"
 AlertBox 4, 4, 120, "Sandra", "Now i want to know if what they say about your prick is also true."
 BLOAD "Sandra07.pix"
 ag = 60
 excitacion = 100
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9
 DO
  fuck 169, 167
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm is knocking the door and you eyaculate all over Sandra's face."
   BLOAD "sandra07.pix"
   AlertBox 60, 80, 200, "Sandra", "Hey! You bastard!... Why didn't you wait for me?! you're such a son of a bitch!... Go to hell you fucking bastard!"
   GOTO cgs1
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 AlertBox 4, 4, 120, "Sandra", "Ahh Ahhhh don't cum yet! hold it back!!!!"
 clg
 PIX "Sandra06.pix"
 AlertBox 4, 4, 120, "Sandra", "Now put your staff into my tight ass!"
 BLOAD "Sandra06.pix"
 ag = 190
 excitacion = 300
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 127, 175
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm is knocking at your door so you eyaculate all over Sandra's back."
   BLOAD "sandra06.pix"
     AlertBox 60, 80, 200, "Sandra", "Hey! You bastard!... Why didn't you wait for me?! you're such a son of a bitch!... Go to hell you fucking bastard!"
   GOTO cgs1
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 AlertBox 4, 4, 120, "Sandra", "Ah Ahh! now cum into my asshole!!!!"
 clg
 PIX "Sandra08.pix"
 TextWindow 4, 4, 120, "Sandra", "Yes! now it's my turn to cum!!"
 Wt
 PIX "Sandra08.pix"
 TextWindow 4, 4, 120, "Sandra", "Lick my pussy"
 Wt
 clg
 PIX "Sandra09.pix"
 SLEEP 1
 AlertBox 20, 4, 280, "Hummm...", "You start licking Sandra's precious cunt and after a while jets of delicious and tasty fluids fill your mouth while you hear her moaning with pleasure and satisfaction."
 clg
 PIX "Sandra08.pix"
 TextWindow 20, 160, 280, "You", "Well, how was it, did you like it?"
 Wt
 PIX "Sandra08.pix"
 AlertBox 4, 4, 120, "Sandra", "I just loved it... but now... it's time to do the dishes!"
 puntos = puntos + 1
cgs1:
 clg
 PIX "Fondo.pix"
 AlertBox 20, 80, 280, "", "You decide it's a really good day to go for a walk by the beach so you leave her doing the dishes."
 clg

beachstyle:
 PIX "playa.pix"
 VIEW PRINT 1 TO 25
 LOCATE 24, 3
 PRINT "< left"
 LOCATE 24, 30
 PRINT "right >"
 RESTORE playa1
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 DO
  LOCATE 24, 3
  PRINT "< left"
  LOCATE 24, 30
  PRINT "right >"
  f$ = scuja$
  sc = 0
  BLOAD "playa.pix"
  LOCATE 24, 3
  PRINT "< left"
  LOCATE 24, 30
  PRINT "right >"
  IF INSTR(f$, "shore") THEN
   sc = -1
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "The sea level is raising up and you can hear the relaxing sound of waves on the background.":  BLOAD "playa.pix"
   ELSE
    IF INSTR(g$, "get") THEN
     AlertBox 20, 80, 280, f$, "I doubt you can get the shore in your pocket. Do something smart.":  BLOAD "playa.pix"
    ELSE
     IF INSTR(g$, "talk") THEN
      AlertBox 20, 80, 280, f$, "I don't think the shore will answer.":  BLOAD "playa.pix"
     ELSE
      AlertBox 20, 80, 280, f$, "You could maybe do that if you got a little bit closer.":  BLOAD "playa.pix"
     END IF
    END IF
   END IF
  END IF
  IF INSTR(f$, "sky") THEN
   sc = -1
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "The sun is shiny and the sky is clear, looks like it's going to be a wonderful day.":  BLOAD "playa.pix"
   ELSE
    IF INSTR(f$, "talk") THEN
     AlertBox 20, 80, 280, f$, "It's not the right place to do your prayings!":  BLOAD "playa.pix"
    ELSE
     AlertBox 20, 80, 280, f$, "ehem, do you really think i can reach the sky?!":  BLOAD "playa.pix"
    END IF
   END IF
  END IF
  IF INSTR(f$, "swimmers") THEN
   sc = -1
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "Your friends Tony and Patricia, that really nice couple you met the other day.": BLOAD "playa.pix"
   ELSE
    IF INSTR(f$, "get") THEN
     AlertBox 20, 80, 280, f$, "Tony looks at you with a don't even think about touching Patricia's butt look on his face when he sees your intentions.": BLOAD "playa.pix"
    ELSE
     IF INSTR(f$, "manipulate") THEN
      AlertBox 20, 80, 280, f$, "Hmmm... i don't think Tony will let you play around with her partner, however, what do you think you're trying to do 'manipulating' swimmers?": BLOAD "playa.pix"
     ELSE
      IF INSTR(f$, "touch") OR INSTR(f$, "lick") THEN
       AlertBox 20, 80, 280, f$, "Ya i know you'd love that; in fact she looks yummy, but... Back off guy!": BLOAD "Playa.pix"
      ELSE
       IF INSTR(f$, "push") OR INSTR(f$, "hit") THEN
        AlertBox 20, 80, 280, f$, "Duh... Johnny, getting into arguments won't get you anywhere but the hospital.": BLOAD "playa.pix"
       ELSE
        IF banistas = 0 THEN
         GOTO speakbanistas
        ELSE
         AlertBox 20, 80, 280, f$, "Your friends Tony and Patricia wave at you.": BLOAD "playa.pix"
        END IF
       END IF
      END IF
     END IF
    END IF
   END IF
  END IF
  IF f$ = "goto left" THEN GOTO acantilado1
  IF f$ = "goto right" THEN GOTO playanudista
 LOOP
speakbanistas:
 clg
 PIX "ba¤istas.pix"
 TextWindow 4, 4, 120, "Patricia", "Hi Johnny!"
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 20, 160, 280, "You", "Hi, Patricia! Hi, Tony!"
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 180, 4, 120, "Tony", "Walking around the beach again?"
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 20, 160, 280, "You", "yes, it feels great walking by the beach in the afternoon. What good things could i do today?"
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 4, 4, 120, "Patricia", "You can go to the right, to the nudist beach."
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 180, 4, 120, "Tony", "But don't forget you also have to get nacked."
 Wt
 BLOAD "ba¤istas.pix"
 TextWindow 20, 160, 280, "You", "Don't worry about that Tony, i've no problem with that!"
 Wt
 BLOAD "ba¤istas.pix"
 AlertBox 4, 4, 120, "Patricia", "See ya!"
 clg
 banistas = -1
 GOTO beachstyle
acantilado1:
 clg
 PIX "acantil.pix"
 AlertBox 20, 80, 280, "Cliff", "It seems like there's nothing interesting here today, let's go back."
 clg
 GOTO beachstyle
playanudista:
 clg
 PIX "playa001.pix"
 AlertBox 4, 4, 240, "Walking along the shore in the nudist beach", "You take off your bathing shorts and walk nacked pass all the people..."
 clg
 PIX "playa002.pix"
 AlertBox 166, 4, 150, "In the nudist beach", "...that enjoys of taking sunbaths as they came to the world..."
 clg
 PIX "playa003.pix"
 AlertBox 4, 4, 140, "In the nudist beach", "You see complete families enjoying of a life stile you had never seen before..."
 clg
 PIX "playa004.pix"
 AlertBox 176, 4, 140, "In the nudist beach", "...But that you'd have loved to enjoy."
 clg
 PIX "playa005.pix"
 AlertBox 4, 4, 140, "In the nudist beach", "however, now you're living all those wonderful experiences..."
 clg
 PIX "playa006.pix"
 AlertBox 4, 4, 140, "In the nudist beach", "...And you surely love them!"
 clg
 PIX "Fondo.pix"
 AlertBox 20, 60, 280, "Walking and walking...", "you get to a place outside the beach that seems completely desert, there's nobody there, but all by sudden you hear a voice calling you..."
 BLOAD "Fondo.pix"
 AlertBox 100, 80, 120, "Voice", "Pst, pst..."
 clg
 PIX "ainoa_01.pix"
 TextWindow 4, 4, 100, "Girl", "Hi! You don't come to nudist beaches really often, do you?"
 Wt
 BLOAD "ainoa_01.pix"
 TextWindow 20, 160, 280, "You", "Why do you say that?"
 Wt
 clg
 PIX "Ainoa_02.pix"
 TextWindow 4, 4, 120, "Girl", "Well, because it's all hard and straightened up..."
 Wt
 BLOAD "Ainoa_02.pix"
 i = talk("Shit! I hadn't even noticed...", "You're wrong. That's it's natural size.", "It's just that you look great.")
 IF i = 2 THEN
  BLOAD "Ainoa_02.pix"
  AlertBox 4, 4, 120, "Girl", "Ya, of course... have a nice day.": GOTO sgc2
 END IF
 IF i = 3 THEN
  BLOAD "Ainoa_02.pix"
  AlertBox 4, 4, 120, "Girl", "You guys are a plague! fucking voyeurs! leave me alone!": GOTO sgc2
 END IF
 clg
 PIX "Ainoa_03.pix"
 TextWindow 4, 4, 140, "Girl", "Don't worry about it, i mean, many people would feel ofended but i don't really care."
 Wt
 BLOAD "Ainoa_03.pix"
 TextWindow 20, 160, 280, "You", "Thanks, what's your name?"
 Wt
 BLOAD "Ainoa_03.pix"
 TextWindow 4, 4, 140, "Girl", "My name is Ainoa... By the way: It's still huge and thick."
 Wt
 BLOAD "Ainoa_03.pix"
 TextWindow 20, 160, 280, "You", "I'm affraid there's no way to solve that... i should come more often to places like this to get used and all the stuff ya know."
 Wt
 clg
 PIX "Ainoa_04.pix"
 TextWindow 4, 4, 120, "Ainoa", "Well to tell you the truth i'm not really used to it either..."
 Wt
 BLOAD "Ainoa_04.pix"
 TextWindow 4, 4, 120, "Ainoa", "I don't come very often and i still get all wet and horny when i see big pricks..."
 Wt
 BLOAD "Ainoa_04.pix"
 TextWindow 20, 160, 280, "You", "Well you've got advantage since nobody can notice you're excited..."
 Wt
 clg
 PIX "Ainoa_05.pix"
 TextWindow 4, 4, 100, "Ainoa", "Do you really think people can't notice? uhh.. ohh... i'm so hot and wet..."
 Wt
 clg
 PIX "Ainoa_06.pix"
 TextWindow 196, 4, 120, "Ainoa", "I saw you comming over with that huge hard thing hanguing from there and it really turned me on..."
 Wt
 clg
 PIX "Ainoa_07.pix"
 TextWindow 196, 4, 100, "Ainoa", "Let me suck it off..."
 Wt
 BLOAD "Ainoa_07.pix"
 i% = chupar%(16, 2500, 30)
 BLOAD "Ainoa_07.pix"
 IF i% = 0 THEN
  AlertBox 20, 80, 280, "Oh...", "Thick Jets of warm semen fill Ainoa's mouth."
  BLOAD "Ainoa_07.pix"
  AlertBox 196, 4, 120, "Ainoa", "YOU ALREADY CAME??! Well... I was expecting to have a good time with you but i see it's gonna be impossible... Bye."
  GOTO sgc2
 END IF
 TextWindow 196, 4, 120, "Ainoa", "Hmmmmm... Your hard staff feels wonderful in my throath..."
 Wt
 clg
 PIX "Ainoa_06.pix"
 TextWindow 196, 4, 120, "Ainoa", "Comeon, touch me, i wanna cum..."
 Wt
 BLOAD "Ainoa_06.pix"
 RESTORE Ainoa1
 LeeManoseo
 excitacion = 200
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "Ainoa", "Hey! I thought you'd at least try to be good with me after the great blow job i did for you... Well i have better things to do than just wasting my time here with you... Bye!": GOTO sgc2
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 AlertBox 196, 4, 120, "Ainoa", "Now i want you to put it deep into my ass."
 clg
 PIX "Ainoa_08.pix"
 ag = 190
 excitacion = 200
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 216, 96
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "You cum all over Ainoa's back."
   BLOAD "ainoa_08.pix"
   AlertBox 60, 80, 200, "Ainoa", "...Hey! What do you think you're doing!? ... I was doing this just to have a good time, i'm not interested in you at all!... Go to hell you jerk! Bye!"
   GOTO sgc2
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 AlertBox 4, 4, 120, "Ainoa", "Ahh Ahhhh! Ooooh! I think i'm coming through my butt!"
 BLOAD "Ainoa_08.pix"
 AlertBox 20, 80, 280, "Right then", "Your orgasm comes and you fill her up with your hot sperm while she groans of pleasure."
 clg
 PIX "Ainoa_03.pix"
 TextWindow 4, 4, 100, "Ainoa", "Thanks. That was good. I'll see ya!"
 Wt
 BLOAD "Ainoa_03.pix"
 TextWindow 20, 160, 280, "You", "Bye! i hope to see ya soon!"
 Wt
 puntos = puntos + 1
sgc2:
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "Back to the hotel", "You go back to the hotel and feel a great relief when you find out that everyone has left or that they're just having a nap, Now the whole house is just for you."

f2Vestibulo:
 clg
 PIX "vestib.pix"
 RESTORE Vestibulo
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 zona(3).dv = -1
 zona(4).dv = -1
 DO
  sc = 0
  f$ = scuja$
  BLOAD "vestib.pix"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase2Running% = 99: EXIT FUNCTION
  IF f$ = "goto livingroom" THEN GOTO f2salon
  IF f$ = "goto kitchen" THEN GOTO f2kitchen
  IF f$ = "goto exit" THEN AlertBox 20, 100, 120, "", "You don't feel like going outside again.": sc = -1
  IF f$ = "goto steps" THEN GOTO f2hall
  IF NOT sc THEN AlertBox 20, 80, 180, f$, "That doesn't seem like a really interesting thing to do."
  BLOAD "vestib.pix"
 LOOP
f2salon:
 clg
 VIEW PRINT 1 TO 25
 PIX "salon.pix"
 LOCATE 24, 30: PRINT "> Hall."
 RESTORE salon1
 leedata
 zona(1).dv = -1
 DO
  sc = 0
  f$ = scuja$
  BLOAD "salon.pix"
  LOCATE 24, 30: PRINT "> Hall."
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase2Running% = 0: EXIT FUNCTION
  IF INSTR(f$, "close") AND sc = 0 THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 60, 280, f$, "What a beautiful look! Prairies of green grass that end up in a cliff that leads to the beach. The powerful sea waves break against the thin sand. At the end you can also see a super ultra modern nuclear factory being overflown by three headed birds."
   ELSE
    AlertBox 20, 60, 280, f$, "The window is closed, glued, nailed, it's unbreakable and it doesn't have a weird taste so don't bother to try that stuff."
   END IF
   BLOAD "salon.pix"
   sc = -1
  END IF
  llavecin = -1
  IF INSTR(f$, "lamp") AND sc = 0 THEN
   IF INSTR(f$, "examine") OR INSTR(f$, "manipulate") OR INSTR(f$, "touch") THEN
    IF llavecin = 0 THEN
     AlertBox 20, 80, 280, f$, " Hey! you found a little key!"
     llavecin = -1
    ELSE
     AlertBox 20, 80, 280, f$, " There aren't any more keys in the lamp, look somewhere else"
    END IF
   ELSE
    IF INSTR(f$, "lick") THEN
     AlertBox 20, 80, 280, f$, "  The lamp moans and says OH YEAH!"
    ELSE
     IF INSTR(f$, "push") OR INSTR(f$, "hit") THEN
      AlertBox 20, 80, 280, f$, "  Don't do that! you're going to break it!"
     ELSE
      AlertBox 20, 80, 280, f$, "  Nope... seems like it won't work that way..."
     END IF
    END IF
   END IF
   sc = -1
   BLOAD "salon.pix"
  END IF
  IF INSTR(f$, "fireplace") AND sc = 0 THEN
   IF INSTR(f$, "examine") AND sc = 0 THEN
    AlertBox 20, 80, 280, f$, "  Wood burns in there."
   ELSE
    IF INSTR(f$, "touch") OR INSTR(f$, "lick") THEN
     AlertBox 20, 80, 280, f$, " Uhhhh so that's your new girlfriend huh?"
    ELSE
     IF INSTR(f$, "hit") OR INSTR(f$, "push") OR INSTR(f$, "manipulate") THEN
      AlertBox 20, 80, 280, f$, "I don't know what you want to do with it, it's just a fireplace!"
     ELSE
      AlertBox 20, 80, 280, f$, " You can't do that!"
     END IF
    END IF
   END IF
   sc = -1
   BLOAD "salon.pix"
  END IF
  Llaves = -1
  IF f$ = "goto hall" THEN GOTO f2Vestibulo
  IF INSTR(f$, "furniture") THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "That's a expensive piece of furniture... Mary sure has big bucks!"
   ELSE
    IF INSTR(f$, "manipulate") THEN
     IF llavecin THEN
      IF NOT Llaves THEN
       AlertBox 20, 60, 280, f$, "You decide to give the little key a try, you put it in, turn it to the right and.... IT OPENS it!!! there's a big key you get imediatly."
       Llaves = -1
      ELSE
       AlertBox 20, 80, 280, f$, "There's nothing interesting left in there"
      END IF
     ELSE
      AlertBox 20, 80, 280, f$, "It's closed with two key turns... SHIT!"
     END IF
    ELSE
     AlertBox 20, 80, 280, f$, "Do you consider yourself a normal person? Do you think normal people do that of " + f$ + "?"
    END IF
   END IF
   sc = -1
   BLOAD "salon.pix"
  END IF
  LOCATE 24, 30: PRINT "> Hall."
 LOOP
f2kitchen:
 VIEW PRINT 1 TO 25
 clg
 PIX "cocina.pix"
 RESTORE kitchen1
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 DO
  LOCATE 24, 30: PRINT "> pool"
  LOCATE 24, 3: PRINT "< hall"
  f$ = scuja$
  sc = 0
  BLOAD "cocina.pix"
  LOCATE 24, 30: PRINT "> pool"
  LOCATE 24, 3: PRINT "< hall"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase2Running% = 0: EXIT FUNCTION
  IF INSTR(f$, "furniture") OR INSTR(f$, "furniture") THEN
   IF INSTR(f$, "manipulate") OR INSTR(f$, "open") OR INSTR(f$, "push") THEN
    AlertBox 20, 80, 280, f$, "It's full of normal useless things."
   ELSE
    IF INSTR(f$, "examine") THEN
     AlertBox 20, 80, 280, f$, "It's a normal piece of furniture with a wooden door."
    ELSE
     IF INSTR(f$, "touch") THEN
      AlertBox 20, 80, 280, f$, "I don't think the furniture will get too excited..."
     ELSE
      IF INSTR(f$, "get") THEN
       AlertBox 20, 80, 280, f$, "It's heavily attached to the wall, you won't ever be able to take it with you."
      ELSE
       IF INSTR(f$, "hit") THEN
        AlertBox 20, 80, 280, f$, "Hey! don't break it!"
       ELSE
        AlertBox 20, 80, 280, f$, "do WHAT with the furniture?"
       END IF
      END IF
     END IF
    END IF
   END IF
   BLOAD "cocina.pix"
   sc = -1
  END IF
  IF INSTR(f$, "tap") THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "ultra modern tap."
   ELSE
    AlertBox 20, 80, 280, f$, "leave the tap alone!"
   END IF
   BLOAD "cocina.pix"
   sc = -1
  END IF
  IF INSTR(f$, "window") THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 60, 280, f$, "What a beautiful look! Prairies of green grass that end up in a cliff that leads to the beach. The powerful sea waves break against the thin sand. At the end you can also see a super ultra modern nuclear factory being overflown by three headed birds."
   ELSE
    AlertBox 20, 60, 280, f$, "The window is closed, glued, nailed, it's unbreakable and it doesn't have a weird taste so don't bother to try that stuff."
   END IF
   BLOAD "cocina.pix"
   sc = -1
  END IF
  IF INSTR(f$, "microwave") THEN
   IF INSTR(f$, "examine") THEN
    IF manopla = 0 THEN
     AlertBox 20, 80, 280, f$, "You take with you a really nice mitten which probably is used to handle hot stuff."
     manopla = -1
    ELSE
     AlertBox 20, 80, 280, f$, "What happens if you put an egg into the microwave? that you'll get the other one stuck with the door when you try to close it..."
    END IF
   ELSE
    AlertBox 20, 80, 280, f$, "What happens if you put an egg into the microwave? that you'll get the other one stuck with the door when you try to close it..."
   END IF
   BLOAD "cocina.pix"
   sc = -1
  END IF
  IF f$ = "goto pool" THEN
   AlertBox 20, 80, 280, f$, "You don't feel like going out to the swimming pool after spending the whole day at the beach."
   BLOAD "cocina.pix"
   sc = -1
  END IF
  IF f$ = "goto hall" THEN
   GOTO f2Vestibulo
  END IF
  IF sc = 0 THEN AlertBox 20, 80, 280, f$, "You might be bored, but not THAT bored... do something more interesting.": BLOAD "cocina.pix"
 LOOP
f2hall:
 RESTORE hall
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 zona(4).dv = -1
 zona(3).dv = -1
 zona(7).dv = -1
 clg
 PIX "pasillo.pix"
 VIEW PRINT 1 TO 25
 LOCATE 24, 30: PRINT "> hall"
 DO
  sc = 0
  f$ = scuja$
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> hall"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase2Running% = 99: EXIT FUNCTION
  IF INSTR(f$, "statue") THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "Weird statue. When you take a closer look at it you see a switch hidden on it's back..."
    sc = -1
   END IF
   IF INSTR(f$, "touch") OR INSTR(f$, "manipulate") OR INSTR(f$, "open") THEN
    sc = -1
    IF NOT manopla THEN
     AlertBox 20, 80, 280, f$, "You try to do it but you get hurt and quit trying: The statue is hot as hell, try to find something to protect your hands..."
    ELSE
     GOTO SecretBathRoom
    END IF
   END IF
   IF NOT sc THEN sc = -1: AlertBox 20, 80, 280, f$, "You can't do that to a work of art!."
  END IF
  IF f$ = "goto Your room." THEN AlertBox 20, 80, 280, "Your bedroom", "You're bored, but not THAT bored. you can still get to do some interesting things today."
  IF f$ = "goto Mary's room" THEN GOTO f2HabMaria1
  IF f$ = "goto Yoli's room" THEN AlertBox 20, 80, 280, "Yoli's room", "The door is locked. You can hear moaning and breathing inside... Those two girls are playing again!"
  IF f$ = "goto Ale's room" THEN AlertBox 20, 80, 280, "Ale's room", "Ale isn't in her bedroom... you better not enter just in case somebody sees you..."
  IF f$ = "goto hall" THEN clg: GOTO f2Vestibulo
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> hall"
 LOOP
f2HabMaria1:
 clg
 PIX "mariaf02.pix"
 IF fuckedmaria = 0 THEN
  IF vistomaria = 0 THEN
   vistomaria = -1
   TextWindow 196, 4, 120, "Mar¡a", "Oh! hi, Johnny. Where did you go?"
   Wt
   BLOAD "mariaf02.pix"
   TextWindow 20, 160, 280, "You", "I just went for a walk by the beach, what did you do?"
   Wt
   BLOAD "mariaf02.pix"
   TextWindow 196, 4, 120, "Mar¡a", "Me? well nothing very special, i was just brushing my hair"
   Wt
   BLOAD "mariaf02.pix"
   TextWindow 196, 4, 120, "Mar¡a", "Hey do you feel like having a fuck right now?"
   i = talk("Of course sweetheart, i'm always ready to have fun.", "No, right now i'm really tired", "No i feel a little sick today")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf02.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Well, whatever you say. I'll see ya ok?"
    GOTO f2hall
   END IF
  ELSE
   TextWindow 196, 4, 120, "Mar¡a", "So, do you feel like having a fuck now?"
   i = talk("Of course sweetheart, i'm always ready to have fun.", "No, right now i'm really tired", "No i feel a little sick today")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf02.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Well, whatever you say. i'll see ya ok?"
    GOTO f2hall
   END IF
  END IF
 ELSE
  IF fuckedmariagood = 0 THEN
   TextWindow 196, 4, 120, "Mar¡a", "Are you here again?? So, are you going to do even better this time?"
   i = talk("Of course sweetheart, i'm always ready to have fun.", "No, right now i'm really tired", "No i feel a little sick today")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf02.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Oh well... whatever you say. I'll see ya ok?"
    GOTO f2hall
   END IF
  ELSE
   TextWindow 196, 4, 120, "Mar¡a", "Hey! are you coming back for another great fuck like the one we just had?"
   i = talk("Of course sweetheart, i'm always ready to have fun.", "No, right now i'm really tired", "No i feel a little sick today")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf02.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Oh well, whatever, i'll see ya again ok?"
    GOTO f2hall
   END IF
  END IF
 END IF
 clg
 PIX "mariaf01.pix"
 AlertBox 4, 4, 120, "Mar¡a", "Comeon big boy, put it deep into me"
 BLOAD "mariaf01.pix"
 fuckedmaria = -1
 ag = 0
 excitacion = 0
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 166, 150
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "As electric shocks run all over your back you can't hold it back anymore and you cum all over her back."
   BLOAD "Mariaf01.pix"
   AlertBox 60, 80, 200, "Mar¡a", "Gosh! at least you could have waited for me couln't you? you better do your best next time or i'll start thinking you don't like sex."
   fuckedmariagood = 0
   GOTO f2hall
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 BLOAD "Mariaf01.pix"
 AlertBox 4, 4, 120, "Mar¡a", "Aaaaaaaaah! Yesss i'm coming!!! keep going like that! yes!!!"
 BLOAD "Mariaf01.pix"
 AlertBox 20, 80, 280, "Ooooh... Yeah!!", "As an electric feeling runs all over your body jets of warm semen land on her cheecks and open pussy while she spreads it with her hands."
 BLOAD "Mariaf01.pix"
 fuckedmariagood = -1
 AlertBox 4, 4, 120, "Mar¡a", "Wow! That was great! come back whenever you want!."
 GOTO f2hall
SecretBathRoom:
 clg
 IF vistoangeles = 1 THEN GOTO yalavi
 PIX "Fondo.pix"
 AlertBox 20, 60, 280, "Secret room", "You hear something that sounds like a click, suddenly, the wooden wall slides to your left leaving open what seems like the entry to a secret room, as you enter you see it's just a big bathroom. after thinking for a while you think that might be the maiden's room, a pretty girl you saw a few times getting everything in perfect order, nice and tidy."
 clg
 PIX "Angeles2.pix"
 SLEEP 1
 AlertBox 2, 2, 120, "", "She's relaxing while taking a bath. It seems like she didn't see you come in"
 BLOAD "Angeles2.pix"
 TextWindow 196, 4, 120, "µngeles", "Hum... Huuum..."
 Wt
 clg
 PIX "Angeles4.pix"
 TextWindow 4, 4, 120, "µngeles", "Hum... Aahh"
 Wt
 BLOAD "Angeles4.pix"
 TextWindow 4, 4, 120, "µngeles", "Ufff... Oooh... Aaaah... Yesssh... Uf Uf Uf"
 Wt
 BLOAD "Angeles4.pix"
 AlertBox 20, 80, 280, "Ooops...", "Shut, someone's watching! She noticed!"
 clg
yalavi:
 PIX "Angeles1.pix"
 TextWindow 4, 4, 120, "µngeles", "Hey! What are you doing here?!"
 Wt
 i = talk("Well i just leaned on the statue and...", "I'm here to fuck your tight cunt.", "Errr... i think i'm late for a meeting...")
 IF i = 1 THEN
  BLOAD "Angeles1.pix"
  AlertBox 4, 4, 120, "µngeles", "Ya shure! Get out of here! i don't like voyeur!"
  GOTO gfs3
 END IF
 IF i = 3 THEN
  vistoangeles = 1
  GOTO f2hall
 END IF
 clg
 PIX "Angeles3.pix"
 TextWindow 4, 4, 120, "µngeles", "Aha... well... And who are you?"
 Wt
 i = talk("I'm Johnny, one of Maria's friends, i'll be here the whole week.", "I'm Rocco Siffredi, a porno superstar.", "That doesn't matter now baby, I better go now.")
 IF i = 2 THEN
  BLOAD "Angeles1.pix"
  AlertBox 4, 4, 120, "µngeles", "Yes of course! Get out of here! Now!"
  GOTO gfs3
 END IF
 IF i = 3 THEN
  vistoangeles = 1
  GOTO f2hall
 END IF
 clg
 PIX "Angeles5.pix"
 TextWindow 4, 4, 120, "µngeles", "Are you sure you wanna fuck me?"
 Wt
 BLOAD "Angeles5.pix"
 RESTORE Angeles1
 LeeManoseo
 excitacion = 333
 mouseshow
 DO
  Manoseo
  IF excitacion = 0 THEN
   mousehide
   AlertBox 100, 80, 120, "µngeles", "Goodness Johnny! And you wanted to fuck me? you even look like you're bored!": GOTO gfs3
  END IF
 LOOP WHILE excitacion < 598
 mousehide
 clg
 PIX "Angeles6.pix"
 AlertBox 4, 4, 120, "µngeles", "Ohh... Fuck me please!..."
 BLOAD "Angeles6.pix"
 ag = 150
 excitacion = 100
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9
 DO
  fuck 120, 84
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you ejaculate all over Angeles' back ."
   BLOAD "Angeles6.pix"
   AlertBox 60, 80, 200, "µngeles", "WOW... just marvelous... Pal, do you have problems to control your ejaculations? go rest now..."
   GOTO gfs3
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 clg
 PIX "Angeles8.pix"
 excitacion = 333
 ag = ag - 100: ag = ABS(ag)
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 128, 132
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you cum all over Angeles' back."
   BLOAD "Angeles8.pix"
   AlertBox 60, 80, 200, "µngeles", "WOW... just marvelous... Pal, do you have problems to control your ejaculations? go rest now..."
   GOTO gfs3
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 clg
 PIX "Angeles9.pix"
 PALETTE 7, 41 + 256 * 41 + 65536 * 41: PALETTE 8, 21 + 256 * 21 + 65536 * 21 'Fixes mismatched grays
 excitacion = 300
 ag = ag - 100: ag = ABS(ag)
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9
 DO
  fuck 137, 146
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you ejaculate all over Angeles' breast."
   BLOAD "Angeles9.pix"
  AlertBox 60, 80, 200, "µngeles", "WOW... just marvelous... Pal, do you have problems to control your ejaculations? go rest now..."
   GOTO gfs3
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 clg
 PIX "Angeles7.pix"
 excitacion = 400
 ag = ag - 100: ag = ABS(ag)
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9
 DO
  fuck 140, 164
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you ejaculate all over Angeles' tummy."
   BLOAD "Angeles7.pix"
   AlertBox 60, 80, 200, "µngeles", "WOW... just marvelous... Pal, do you have problems to control your ejaculations? go rest now..."
   GOTO gfs3
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 clg
 PIX "Angeles4.pix"
 TextWindow 4, 4, 120, "µngeles", "Ooooooh! Yes i'm comming YEess!"
 Wt
 BLOAD "Angeles4.pix"
 TextWindow 20, 80, 280, "Ohhh... Yess...", "After that you cum over Angeles' face that can't stop quivering as she licks the semen off her lips."
 Wt
 BLOAD "Angeles4.pix"
 AlertBox 4, 4, 120, "µngeles", "Uff... Now let me relax. I'll see ya soon. Bye."
 puntos = puntos + 1
gfs3:
 clg
 PIX "fondo.pix"
 AlertBox 20, 60, 280, "You go back to the hall", "Just after you get out of the room you hear the secret door closing after you. In that very same moment you meet Maria in the hall."
 clg
 PIX "mariap1.pix"
 TextWindow 4, 4, 120, "Mar¡a", "Hi, Johnny! I finaly found you!."
 Wt
 BLOAD "mariap1.pix"
 TextWindow 4, 4, 120, "Mar¡a", "I've to ask you to please do me a favor..."
 Wt
 BLOAD "mariap1.pix"
 TextWindow 4, 4, 120, "Mar¡a", "Yoli's shutters just got screwed up. Could you please...?"
 i = talk("Sure! i'll go right now.", "Ok, tell her i'll be there in a second.", "I'm sorry but i'm in a hurry, i need to go somewhere.")
 IF i = 3 THEN
  BLOAD "mariap1.pix"
  TextWindow 4, 4, 120, "Mar¡a", "Well, i'll have to call someone so that they come to fix it."
  Wt
  clg
  GOTO hyio
 END IF
 clg
f2hall2:
 RESTORE hall
 leedata
 zona(1).dv = -1
 zona(2).dv = -1
 zona(4).dv = -1
 zona(3).dv = -1
 zona(7).dv = -1
 clg
 PIX "pasillo.pix"
 VIEW PRINT 1 TO 25
 LOCATE 24, 30: PRINT "> hall"
 DO
  sc = 0
  f$ = scuja$
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> hall"
  IF f$ = "fin" OR INKEY$ = CHR$(27) THEN ThisIsFase2Running% = 99: EXIT FUNCTION
  IF INSTR(f$, "statue") THEN
   IF INSTR(f$, "examine") THEN
    AlertBox 20, 80, 280, f$, "Weird statue. When you take a closer look at it you see a switch hidden on it's back..."
    sc = -1
   END IF
   IF INSTR(f$, "touch") OR INSTR(f$, "manipulate") OR INSTR(f$, "open") THEN
    sc = -1
    AlertBox 80, 20, 280, f$, "No. Angeles told you she wanted to relax. Don't bother her anymore!"
   END IF
   IF NOT sc THEN sc = -1: AlertBox 20, 80, 280, f$, "You can't do that to a work of art!."
  END IF
  IF f$ = "goto Your room." THEN AlertBox 20, 80, 280, "Your bedroom", "There's not time to rest. You told Maria you'd fix Yoli's shutters."
  IF f$ = "goto Mary's room" THEN GOTO f2HabMaria2
  IF f$ = "goto Yoli's room" THEN GOTO f2HabYoli1
  IF f$ = "goto Ale's room" THEN AlertBox 20, 80, 280, "Ale's room", "Ale isn't in her bedroom so you better keep off there until she comes back..."
  IF f$ = "goto hall" THEN AlertBox 20, 80, 280, f$, "No. you still have some work to do..."
  BLOAD "pasillo.pix"
  LOCATE 24, 30: PRINT "> hall"
 LOOP
f2HabMaria2:
 clg
 PIX "mariaf04.pix"
 TextWindow 196, 4, 120, "Mar¡a", "Hey! you have fix the shutters before we can do anything!"
 Wt
 BLOAD "mariaf04.pix"
 TextWindow 20, 160, 280, "You", "Ya, of course, i'm working on it"
 Wt
  IF fuckedmariagood = 0 THEN
   TextWindow 196, 4, 120, "Mar¡a", "Ohhh i know what you're coming for... you're going to try to do better this time aren't you?"
   i = talk("Of course sweetheart, i'm always ready to have fun.", "No, right now i'm really tired", "No i feel a little sick today")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf02.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Well, whatever you say. i'll see ya ok?"
    GOTO f2hall2
   END IF
  ELSE
TextWindow 196, 4, 120, "Mar¡a", "Does my horny boy feel like having another fuck like the one before?"
   i = talk("Of course, i'm always ready for fun.", "No, right now i'm really tired", "No, i feel a little bit sick right now")
   IF i = 2 OR i = 3 THEN
    BLOAD "mariaf04.pix"
    AlertBox 196, 4, 120, "Mar¡a", "Ok, whatever, i'll see ya ok?"
    GOTO f2hall2
   END IF
  END IF

 clg
 PIX "mariaf03.pix"
 AlertBox 4, 4, 120, "Mar¡a", "Comeon big boy! put it deep inside me!"
 BLOAD "mariaf03.pix"
 fuckedmaria = -1
 ag = 0
 excitacion = 0
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 145, 139
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Some kind of electric feeling goes all over your back as you cum on Mar¡a's back."
   BLOAD "Mariaf03.pix"
   AlertBox 60, 80, 200, "Mar¡a", "Gosh boy!, that was fast!, i hope you can do better next time."
   fuckedmariagood = 0
   GOTO f2hall2
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 BLOAD "Mariaf03.pix"
 AlertBox 4, 4, 120, "Mar¡a", "Aaaaaaaaah! I'm coming!"
 BLOAD "Mariaf03.pix"
 AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm is knocking at your door and you can't avoic cumming all over Maria's cunt."
 BLOAD "Mariaf03.pix"
 fuckedmariagood = -1
 AlertBox 4, 4, 120, "Mar¡a", "Aahh! That was great!. Come back whenever you want."
 GOTO f2hall2
f2HabYoli1:
 BLOAD "pasillo.pix"
 TextWindow 130, 90, 60, " ", "Knock Knock"
 Wt
 BLOAD "pasillo.pix"
 TextWindow 120, 90, 80, "Yoli", "Who is it?"
 Wt
 BLOAD "pasillo.pix"
 TextWindow 20, 160, 280, "You", "It's me, Johnny. I'm here to fix your shutters."
 Wt
 BLOAD "pasillo.pix"
 TextWindow 120, 90, 80, "Yoli", "Oh, come in."
 Wt
 clg
 PIX "n-yoli01.pix"
 TextWindow 4, 4, 120, "Yoli", "It just got stuck and i can't close it."
 Wt
 BLOAD "n-yoli01.pix"
 TextWindow 20, 160, 280, "You", "Don't worry, i'll fix it. do you have any tools?"
 Wt
 clg
 PIX "n-yoli02.pix"
 TextWindow 4, 4, 120, "Yoli", "Yes, they're over here, come and get'em."
 Wt
 clg
 PIX "n-yoli03.pix"
 TextWindow 4, 4, 120, "Yoli", "Are you sure you know how to fix that?"
 Wt
 BLOAD "n-yoli03.pix"
 TextWindow 20, 160, 280, "You", "Of course!, just watch me"
 Wt
 clg
 PIX "n-yoli04.pix"
 TextWindow 20, 4, 280, "You (Thinking)", "Well the truth is that i'm really good with this kind of stuff but with these views i just can't pay any attention to the stupid shutters."
 Wt
 BLOAD "n-yoli04.pix"
 TextWindow 20, 4, 280, "You (Thinking)", "Shut, at least she could have worn a bathrobe or something like that..."
 Wt
 clg
 PIX "n-yoli05.pix"
 TextWindow 20, 4, 280, "You (Thinking)", "Look at those hips.... shuth i'm getting a hard on again..."
 Wt
 BLOAD "n-yoli05.pix"
 TextWindow 20, 4, 280, "You (Thinking)", "I hope she doesn't notice! i have to learn to control myself..."
 Wt
 clg
 PIX "n-yoli06.pix"
 TextWindow 4, 4, 120, "Yoli", "Are you done yet Johnny?"
 Wt
 BLOAD "n-yoli06.pix"
 TextWindow 20, 160, 280, "You", "In a minute! just get this loosen nail back to its original position and that'll be it!..."
 Wt
 clg
 PIX "n-yoli07.pix"
 TextWindow 4, 4, 120, "Yoli", "Leave that alone and put that thick hard pole you have there into me."
 Wt
 BLOAD "n-yoli07.pix"
 AlertBox 20, 60, 280, "Woaps", "it seems like she (REALLY) noticed that huge thing under your pants. As she offers you her cunt you pull your pants of as fast as you can and jump into her."
 BLOAD "n-yoli07.pix"
 clg
 PIX "n-yoli08.pix"
 ag = 0
 excitacion = 100
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9.5
 DO
  fuck 179, 171
  IF ag > 598 AND excitacion < 410 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you cumm all over Yoli's tummy."
   BLOAD "n-yoli08.pix"
   AlertBox 60, 80, 200, "Yoli", "Duh! i forgot you where Johnny 'the fast'! and look what you did to my new pink outfit! Go out and take some fresh air... Brrr."
   GOTO hyiop
  END IF
  IF excitacion > 409 THEN EXIT DO
 LOOP
 BLOAD "n-yoli08.pix"
 AlertBox 4, 4, 120, "Yoli", "Uhh... Uf... Wait just a second..."
 clg
 PIX "n-yoli09.pix"
 TextWindow 4, 4, 120, "Yoli", "Uh! How wonderful... After spending the whole night liking Carmen's cunt i needed a big thick cook to slid down my throath..."
 Wt
 BLOAD "n-yoli09.pix"
 AlertBox 20, 80, 280, "She starts doing the best blow job you've ever seen", "after saying that she swallows your whole coock as if she hadn't eaten for months."
 BLOAD "n-yoli09.pix"
 i% = chupar%(18, 2400, 20)
 IF i% = 0 THEN
  AlertBox 20, 80, 280, "Ahhh...", "Your semen dips all over Carmen's cheeks that liks it off with a nasty unpleasant look on it."
  AlertBox 60, 80, 200, "Yoli", "Shit! I forgot you where 'quick Johnny'. I think I'm gonna throw up, comeon get out of here and take some fresh air."
  GOTO hyiop
 END IF
 BLOAD "n-yoli09.pix"
 AlertBox 4, 4, 120, "Yoli", "Hmmm... It tastes great..."
 clg
 PIX "n-yoli10.pix"
 TextWindow 4, 4, 120, "Yoli", "Comeon i want to feel all that meat deep inside my tight hole!!"
 Wt
 BLOAD "n-yoli10.pix"
 ag = 100
 excitacion = 200
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 9
 DO
  fuck 185, 136
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you cumm all over Yoli's tummy."
   BLOAD "n-yoli08.pix"
   AlertBox 60, 80, 200, "Yoli", "Duh! i forgot you where Johnny 'the fast'! and look what you did to my new pink outfit! Go out and take some fresh air... Brrr."
   GOTO hyiop
  END IF
  IF excitacion > 599 THEN EXIT DO
 LOOP
 BLOAD "n-yoli10.pix"
 AlertBox 4, 4, 120, "Yoli", "Uf... I'm about to come..."
 clg
 PIX "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "Uf... Let me rest for a little while"
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "Shall we take a short break so that this can last for longer?"
 i = talk("No way! I can get that and much more!", "Lets keep doing it right now so that the orgasm to make the orgasm great", "Whatever you what.")
 IF i = 1 OR i = 2 THEN
  clg
  PIX "n-yoli11.pix"
  TextWindow 4, 4, 120, "Yoli", "Well don't complain after i'm done!... Let's go!"
  Wt
  BLOAD "n-yoli11.pix"
 ag = 500
 excitacion = 10
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 6
 DO
  fuck 149, 150
  IF ag > 598 AND excitacion < 599 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you cumm all over Yoli."
BLOAD "n-yoli11.pix"
   AlertBox 60, 80, 200, "Yoli", "Oh yeah, 'ill be able to do it'... sure... pure crap. bye!"
   GOTO hyiop
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 END IF
 PIX "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "Did somebody ever tell you you're great at this?"
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 20, 160, 280, "You", "Thanks Yoli, you're marbelous too"
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "It might be for 2 diferent reasons: The first one, that you've got a lot of experience..."
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "and the second, that you don't get to fuck at all in your little village and want to make up for all the lost time when you come here..."
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 20, 160, 280, "You", "City girls are really diferent, there talking about sex is a forbiden word."
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 4, 4, 120, "Yoli", "That's a pity, well you can always come here whenever you feel the urge..."
 Wt
 BLOAD "n-yoli12.pix"
 TextWindow 20, 160, 280, "You", "Oh you can be sure i will... now..."
 Wt
 clg
 PIX "n-yoli13.pix"
 TextWindow 4, 4, 120, "Yoli", "Ya, let's keep going..."
 Wt
 clg
 PIX "n-yoli14.pix"
 TextWindow 4, 4, 120, "Yoli", "are you ready? my ass is all yours!"
 Wt
 BLOAD "n-yoli14.pix"
 ag = 100
 excitacion = 250
 mousegetstatus l%, m%, r%, x%, y%: x% = x% \ 2
 IF y% > 176 THEN y% = 176
 IF x% > 312 THEN x% = 312
 penx = x%: peny = y%: GET (penx, peny)-(penx + 7, peny + 23), fondo(1): PUT (penx, peny), polla(1, 1), PSET: PUT (penx, peny + 8), polla(1, 2), PSET: PUT (penx, peny + 16), polla(1, 3), PSET
 factor = 10
 DO
  fuck 184, 89
  IF ag > 598 AND excitacion < 598 THEN
   AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you cumm all over Yoli's butt."
BLOAD "n-yoli14.pix"
   AlertBox 60, 80, 200, "Yoli", "What a pity... you ruined the last part of everything... well, better luck next time! bye!"
   GOTO hyiop
  END IF
  IF excitacion > 598 THEN EXIT DO
 LOOP
 BLOAD "n-yoli14.pix"
 AlertBox 4, 4, 120, "Yoli", "I'm coming...!"
 BLOAD "n-yoli14.pix"
 AlertBox 20, 80, 280, "Ooooh... Yeah!!", "Your orgasm comes and you jack off all over Yoli's back"
 clg
 puntos = puntos + 1
 PIX "n-yoli15.pix"
 TextWindow 196, 4, 120, "Yoli", "Uf... wonderful... let me rest now... i'll see ya ok?"
 Wt
 BLOAD "n-yoli15.pix"
 TextWindow 196, 4, 120, "Yoli", "Oh! and fix the shutters before you leave!"
 Wt
 clg
hyiop:
 clg
 PIX "fondo.pix"
 AlertBox 20, 80, 280, "In the hall", "You get out of Yoli's room closing the door as you exit."
hyio:
 ThisIsFase2Running = puntos
END FUNCTION

SUB tp (x, y, c, t$)
FOR h = 1 TO LEN(t$)
m$ = MID$(t$, h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), c, , v
NEXT k
x = x + 5
NEXT h
END SUB

DEFSNG A-Z
SUB trans
FOR i = 0 TO 100 STEP 1
LINE (i, i)-(319 - i, 199 - i), 0, B, 85 + 256 * 85
NEXT i
clg
END SUB

DEFINT A-Z
FUNCTION whatline%
Wt
i = my \ 8 + 1
IF mx > 160 THEN i = 0
whatline% = i
END FUNCTION

SUB Wt
SHARED mx, my
DO
mousegetstatus l, r, m, mx, my
LOOP WHILE l OR r OR m
IF mx \ 2 < 4 THEN mx = 4 * 2
IF my < 4 THEN my = 4
IF mx \ 2 > 315 THEN mx = 315 * 2
IF my > 195 THEN my = 195
cmx = mx: cmy = my
GET (cmx \ 2 - 4, cmy - 4)-(cmx \ 2 + 4, cmy + 4), P(1)
CIRCLE (mx \ 2, my), 4, 0
LINE (mx \ 2 - 4, my)-(mx \ 2 + 4, my), 15
LINE (mx \ 2, my - 4)-(mx \ 2, my + 4), 15
DO
mousegetstatus l, r, m, mx, my
IF mx \ 2 < 4 THEN mx = 4 * 2
IF my < 4 THEN my = 4
IF mx \ 2 > 315 THEN mx = 315 * 2
IF my > 195 THEN my = 195
IF mx <> cmx OR my <> cmy THEN
PUT (cmx \ 2 - 4, cmy - 4), P(1), PSET
cmx = mx: cmy = my
GET (cmx \ 2 - 4, cmy - 4)-(cmx \ 2 + 4, cmy + 4), P(1)
CIRCLE (mx \ 2, my), 4, 0
LINE (mx \ 2 - 4, my)-(mx \ 2 + 4, my), 15
LINE (mx \ 2, my - 4)-(mx \ 2, my + 4), 15
END IF
LOOP UNTIL l OR r OR m
PUT (mx \ 2 - 4, my - 4), P(1), PSET
mx = mx \ 2
END SUB

FUNCTION yesorno (xx%, yy%, w%, titulo$, t$)
DIM a AS STRING * 1
DIM palabra$(500)
y = 15 + yy%
x = xx% + 5
j = 1
LINE (xx%, y)-(xx% + w, y + 8), 0, BF
FOR i = 1 TO LEN(t$)
m$ = MID$(t$, i, 1)
IF m$ = " " THEN j = j + 1 ELSE palabra$(j) = palabra$(j) + m$
NEXT i
NumPalabras = j
FOR i = 1 TO NumPalabras
IF x + (LEN(palabra$(i)) + 1) * 5 > w% + xx% - 5 THEN y = y + 8: x = 5 + xx%: LINE (xx%, y)-(xx% + w, y + 8), 0, BF: IF y > 192 THEN LOCATE 25: PRINT : y = 192
FOR h = 1 TO LEN(palabra$(i))
m$ = MID$(palabra$(i), h, 1)
FOR k = 0 TO 7
v = vl(ASC(m$), k)
LINE (x, y + k)-(x + 4, y + k), 15, , v
NEXT k
x = x + 5
NEXT h
x = x + 5
NEXT i
y = y + 8 + 1
LINE (xx%, y)-(xx% + w%, y + 13), 0, BF
xb1% = xx% + w% \ 2 - 30
xb2% = xx% + w% \ 2 - 5
xc1% = xx% + w% \ 2 + 5
xc2% = xx% + w% \ 2 + 30
yy1% = y
yy2% = y + 11
LINE (xb1% + 1, yy1% + 1)-(xb2% - 1, yy2% - 1), 7, BF
LINE (xc1% + 1, yy1% + 1)-(xc2% - 1, yy2% - 1), 7, BF
LINE (xb1% + 1, yy1%)-(xb2% - 1, yy1%), 15
LINE (xc1% + 1, yy1%)-(xc2% - 1, yy1%), 15
LINE (xb1% + 1, yy2%)-(xb2% - 1, yy2%), 8
LINE (xc1% + 1, yy2%)-(xc2% - 1, yy2%), 8
LINE (xb1%, yy1% + 1)-(xb1%, yy2% - 1), 15
LINE (xc1%, yy1% + 1)-(xc1%, yy2% - 1), 15
LINE (xb2%, yy1% + 1)-(xb2%, yy2% - 1), 8
LINE (xc2%, yy1% + 1)-(xc2%, yy2% - 1), 8
tp xb1% + 5, yy1% + 2, 0, "Yes"
tp xc1% + 8, yy1% + 2, 0, "No"
y = y + 13
LINE (xx%, yy%)-(xx% + w%, y + 3), 8, B
LINE (xx% + 3, yy% + 3)-(xx + w% - 3, y), 8, B
FOR i = 1 TO 2
LINE (xx% + i, yy + i)-(xx + w% - i, y + 3 - i), 7, B
NEXT i
LINE (xx% + 4, yy% + 4)-(xx% + w% - 4, yy% + 12), 15, BF
tp xx% + (w% \ 2 - LEN(titulo$) * 5 \ 2), yy% + 5, 0, titulo$
LINE (xx% + 4, yy% + 13)-(xx% + w% - 4, yy% + 13), 8
LINE (xx% + 4, yy% + 14)-(xx% + w% - 4, yy% + 14), 0
DO
Wt
mousegetstatus l%, m%, r%, x1%, y1%
x1% = x1% \ 2
IF y1% >= yy1% AND y1% <= yy2% THEN
IF x1% >= xb1% AND x1% <= xb2% THEN o = -1: EXIT DO
IF x1% >= xc1% AND x2% <= xc2% THEN o = 0: EXIT DO
END IF
LOOP
yesorno = o
END FUNCTION

