| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 10:04:51 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=aa564a1e57c7da5651154f2e6e9d1e94895c61f9204191fed7ae2ee3eac6f06aa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%222XnlwZXxjIDuETG_Pl57OFych8rnOcuA%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d5c68138f3a8b0-BLR
Pirate's Game generated by AI - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 REM *** EL CAPITAN PIRATA ***
- 20 REM Variables: DI=dinero, BA=barcos, TR=tripulacion, PO=popularidad
- 30 SCREEN 1:KEY OFF:COLOR 15,1,1:CLS
- 40 PRINT "*** EL CAPITAN PIRATA ***"
- 50 PRINT:PRINT "Gestiona tu flota pirata"
- 60 PRINT "y conquista los 7 mares!"
- 70 PRINT:PRINT "Presiona cualquier tecla..."
- 80 A$=INKEY$:IF A$="" THEN 80
- 90 REM Inicializar variables
- 100 DI=1000:BA=1:TR=10:PO=50:ME=1:DA=1
- 110 REM Bucle principal del juego
- 120 CLS:PRINT "=== MES";ME;" DIA";DA;" ==="
- 130 PRINT "Dinero: ";DI;" monedas de oro"
- 140 PRINT "Barcos: ";BA
- 150 PRINT "Tripulacion: ";TR;" piratas"
- 160 PRINT "Popularidad: ";PO;"%"
- 170 PRINT
- 180 PRINT "1. Comprar barco (500 monedas)"
- 190 PRINT "2. Contratar piratas (50 monedas c/u)"
- 200 PRINT "3. Atacar mercante"
- 210 PRINT "4. Comerciar en puerto"
- 220 PRINT "5. Buscar tesoro"
- 230 PRINT "6. Pasar dia"
- 240 PRINT "0. Salir del juego"
- 250 PRINT:INPUT "Elige opcion: ";OP
- 260 ON OP+1 GOTO 790,270,320,380,480,570,650,790
- 270 REM Comprar barco
- 280 IF DI<500 THEN PRINT "No tienes suficiente oro!":GOTO 760
- 290 DI=DI-500:BA=BA+1
- 300 PRINT "Compraste un nuevo barco!"
- 310 GOSUB 800:GOTO 760
- 320 REM Contratar piratas
- 330 PRINT "Cuantos piratas contratar?"
- 340 INPUT "Cantidad: ";CA
- 350 IF DI<CA*50 THEN PRINT "No tienes suficiente oro!":GOTO 760
- 360 DI=DI-CA*50:TR=TR+CA
- 370 PRINT "Contrataste ";CA;" piratas!":GOSUB 800:GOTO 760
- 380 REM Atacar mercante
- 390 IF TR<5 THEN PRINT "Necesitas al menos 5 piratas!":GOTO 760
- 400 FU=BA*TR:DE=INT(RND(1)*100)+1
- 410 IF FU>DE THEN 430
- 420 PRINT "El ataque fallo! Perdiste ";INT(TR/4);" piratas":TR=TR-INT(TR/4):PO=PO-10:GOTO 760
- 430 BO=INT(RND(1)*500)+200:DI=DI+BO:PO=PO+5
- 440 PRINT "Exito! Conseguiste ";BO;" monedas!"
- 450 IF INT(RND(1)*10)=1 THEN TR=TR-1:PRINT "Perdiste 1 pirata en batalla"
- 460 GOSUB 800:GOTO 760
- 470 REM Comerciar en puerto
- 480 PRINT "1. Vender ron (100 monedas)"
- 490 PRINT "2. Vender especias (200 monedas)"
- 500 PRINT "3. Vender seda (300 monedas)"
- 510 INPUT "Que vendes? ";VE
- 520 ON VE GOTO 530,540,550
- 530 DI=DI+100*BA:PRINT "Vendiste ron por ";100*BA;" monedas":GOSUB 800:GOTO 760
- 540 DI=DI+200*BA:PRINT "Vendiste especias por ";200*BA;" monedas":GOSUB 800:GOTO 760
- 550 DI=DI+300*BA:PRINT "Vendiste seda por ";300*BA;" monedas":GOSUB 800:GOTO 760
- 560 GOTO 760
- 570 REM Buscar tesoro
- 580 IF INT(RND(1)*10)>3 THEN PRINT "No encontraste nada...":GOTO 760
- 590 TE=INT(RND(1)*1000)+100:DI=DI+TE
- 600 PRINT "Encontraste un tesoro!"
- 610 PRINT "Conseguiste ";TE;" monedas!"
- 620 PO=PO+10
- 630 GOSUB 800:GOTO 760
- 640 REM Pasar dia
- 650 GOSUB 800
- 660 GA=TR*2+BA*10:DI=DI-GA
- 670 PRINT "Gastos del dia: ";GA;" monedas"
- 680 IF DI<0 THEN PRINT "Te quedaste sin dinero!":PRINT "GAME OVER":END
- 690 REM Eventos aleatorios
- 700 IF INT(RND(1)*20)=1 THEN 720
- 710 GOTO 760
- 720 EV=INT(RND(1)*3)+1:ON EV GOTO 730,740,750
- 730 PRINT "Tormenta! Perdiste 1 barco":BA=BA-1:IF BA<1 THEN BA=1:GOTO 760
- 740 PRINT "Enfermedad! Perdiste ";INT(TR/3);" piratas":TR=TR-INT(TR/3):IF TR<1 THEN TR=1:GOTO 760
- 750 PRINT "Buena suerte! +200 monedas":DI=DI+200:GOTO 760
- 760 PRINT:PRINT "Presiona cualquier tecla..."
- 770 A$=INKEY$:IF A$="" THEN 770
- 780 GOTO 120
- 790 PRINT "Gracias por jugar!":END
- 800 REM Avance de tiempo
- 810 DA=DA+1:IF DA>30 THEN DA=1:ME=ME+1
- 820 GA=TR*2+BA*10:DI=DI-GA
- 830 IF DI<0 THEN PRINT "Te quedaste sin dinero!":PRINT "GAME OVER":END
- 840 REM Eventos aleatorios
- 850 IF INT(RND(1)*20)=1 THEN GOSUB 870
- 860 RETURN
- 870 EV=INT(RND(1)*3)+1:ON EV GOTO 880,890,900
- 880 PRINT "Tormenta! Perdiste 1 barco":BA=BA-1:IF BA<1 THEN BA=1:RETURN
- 890 PRINT "Enfermedad! Perdiste ";INT(TR/3);" piratas":TR=TR-INT(TR/3):IF TR<1 THEN TR=1:RETURN
- 900 PRINT "Buena suerte! +200 monedas":DI=DI+200:RETURN
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ 9
JavaScript | 8 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D G⭐⭐
Java | 16 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ D
JavaScript | 17 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $1000 INSTANTLY⭐⭐
Java | 28 sec ago | 0.10 KB
-
✅⭐ Make huge profits on trading ⭐⭐ C
JavaScript | 29 sec ago | 0.25 KB
-
⭐⭐⭐Exchange Exploit T 3⭐⭐
Java | 31 sec ago | 0.10 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 38 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
