MUSI: Erase All Cls 0 : Screen Open 1,640,256,8,Hires : Flash Off : Curs Off : Paper 0 : Pen 3 If TEST=Drive("AMIGASPOTS1:")=-1 Gosub REQUESTI End If Track Load "DF0:MENU.MOD",1 Track Play PRINCIPAL: Cls 0 : Screen Open 1,640,256,8,Hires Curs Off : Ink 2,, : Gr Writing 0 : Cls 0 : Flash Off : Show Load Iff "DF0:MENU.IFF" Show On GOS=0 : CNT=0 Reserve Zone 6 Set Zone 1,183,101 To 453,129 Set Zone 2,193,132 To 453,160 Set Zone 3,110,161 To 515,195 Set Zone 4,150,197 To 490,226 Set Zone 5,40,60 To 75,170 Set Zone 6,563,64 To 596,173 Rem *** PROGRAMA PRINCIPAL *** MAIN: MZ=Mouse Zone SC$="GHOST RIDER TECLEANDO... Mirad, estas son unas cuantas parodias de anuncios, no soy grafista, por eso la calidad de las animaciones es decadente, pero lo que cuenta es la gracia. Gracias.... que lo disfruteis. " LSC=Len(SC$) Def Scroll 1,1,230 To 720,258,-2,0 Rem ** OPCI�N 1 ** If Mouse Key<>0 If MZ=1 Erase All : Hide On : Cls 0 : Paper 0 : Pen 2 If TEST=Drive("AMIGASPOTS1:")=-1 Gosub REQUESTI End If Fade 2,4,4 : Locate 0,12 : Centre "Cargando PC ADICCI�N, paciencia.." : Wait Vbl Track Load "DF0:ANUNCIO1.MOD",1 Open In 1,"DF0:ANUNCIO1.anim" MEMORY=Frame Length(1,999) NOF=Frame Load(1 To 10,999) Track Play FLAG=Frame Play(10,1,0) Double Buffer For X=4 To NOF FLAG=Frame Play(FLAG,1) Screen Swap Wait Frame Param+28 Next X Cls 0 : Goto MUSI End If End If Rem ** OPCI�N 2 ** If Mouse Key<>0 If MZ=2 Erase All : Cls 0 : Paper 0 : Pen 2 : Hide If TEST=Drive("AMIGASPOTS1:")=-1 Gosub REQUESTI End If Locate 0,12 : Centre "Cargando SHHHHHHH, paciencia.." : Wait Vbl Track Load "DF0:ANUNCIO2.MOD",1 Open In 1,"DF0:ANUNCIO2.ANIM" MEMORY=Frame Length(1,999) NOF=Frame Load(1 To 10,999) Track Play FLAG=Frame Play(10,1,0) Double Buffer For X=4 To NOF FLAG=Frame Play(FLAG,1) Screen Swap Wait Frame Param+19 Next X Cls 0 : Goto MUSI End If End If If Mouse Key<>0 If MZ=3 Erase All : Cls 0 : Hide If TEST=Drive("AMIGASPOTS2:")=-1 Gosub REQUEST End If Repeat : Until Mouse Key=1 Cls 0 : Paper 0 : Pen 3 : Hide Locate 0,12 : Centre "Cargando SAN COMMODORE, paciencia.." : Wait Vbl Track Load "DF0:ANUNCIO4.MOD",1 Open In 1,"DF0:ANUNCIO4.anim" MEMORY=Frame Length(1,999) NOF=Frame Load(1 To 10,999) Track Play FLAG=Frame Play(10,1,0) Double Buffer For X=4 To NOF FLAG=Frame Play(FLAG,1) Screen Swap Wait Frame Param+8 Next X Cls 0 : Goto MUSI End If End If If Mouse Key<>0 If MZ=4 Erase All : Cls 0 : Hide If TEST=Drive("AMIGASPOTS2:")=-1 Gosub REQUEST End If Repeat : Until Mouse Key=1 Fade 2,4,2 : Cls 0 : Paper 0 : Pen 4 : Hide Locate 0,12 : Centre "Cargando GENTE GUAPA, paciencia.." : Wait Vbl Track Load "DF0:ANUNCIO3.MOD",1 Open In 1,"DF0:ANUNCIO3.anim" MEMORY=Frame Length(1,999) NOF=Frame Load(1 To 10,999) Track Play FLAG=Frame Play(10,1,0) Double Buffer For X=4 To NOF FLAG=Frame Play(FLAG,1) Screen Swap Wait Frame Param+19 Next X Cls 0 : Goto MUSI End If End If If Mouse Key<>0 If MZ=5 Goto MENSAJES : End If End If If Mouse Key<>0 If MZ=6 Goto CREDITOS : End If End If Wait Vbl Scroll 1 Inc GOS If GOS>6 GOS=1 Add CNT,1,1 To LSC Gosub SETCHAR End If Goto MAIN : SETCHAR: B$=Mid$(SC$,CNT,1) Text 629,239,B$ Return Rem **** MENSAJES ****** MENSAJES: Screen Open 1,640,256,8,Hires Hide HANDLE: Locate 7,2 : Hide : Paper 2 : Flash Off : Pen 1 : Curs Off Fade 2,4,0 : Load Iff "df0:mensajes.iff" Input " ";B$ Paper 3 : Pen 2 _YO[1,19,1,"STATUS: Buscando"] : Wait 80 : _YO[1,19,1,"STATUS: Transmitiendo"] Pen 6 If B$="SIRIUS" _YO[1,4,3,"HOLA TIO!!!, �Qu� te parece el programilla?, para ser lo primero que hago"] _YO[1,5,3,"en AMOS yo creo que no est� mal del todo. Este sistema de mesajes lo vi"] _YO[1,6,3,"en una Demo, y me propuse intentarlo y es bastante sencillo de programar."] _YO[1,7,3,"Por mi me puedo empezar a enrollar aqui tanto como en las cartas, pero no"] _YO[1,8,3,"quiero olvidarme de los dem�s, je,je, as� que ya sabes SIRIUSITO.........."] _YO[1,9,3,"LETTER RULEZ FRIENDSHIP RULEZ !!!!!!!!!!, CHA0."] Goto YO End If If B$="SAUSAGE" _YO[1,4,3,"Pero que cojones haces tu tecleando en un AMIGA?, P0 ASQUEROSO !!!!!!"] _YO[1,5,3,"ES CO�AAAA. Un cacho de saludo para ti, y a ver si te compras un AMIGA"] _YO[1,6,3,"un a�o de estos, �que tal en el 2010?. AH!, por cierto:"] _YO[5,8,6,"C H � P A M E L A"] _YO[2,10,2,"LITTLE PINOCHO !!!! KISS MY ASS !!!!!"] Goto YO End If If B$="JHONY BLAZE" _YO[1,4,3,"Hooooooola!!!, he tardado algo por los estudios selectivescos, pero aqui"] _YO[1,5,3,"esta el menu, �MOLA?. Pos fale, AMIGA SPOTS est� dedicado a ti, por"] _YO[1,6,3,"compartir ideas, etc. �nimo y a ver que haces t�!!!."] Goto YO End If If B$="GHOST RIDER" _YO[1,4,3,"Tu eres muy listillo, GHOST RIDER SOY YO !!!!!, bueno, si quieres contactar"] _YO[1,5,3,"conmigo pos de principio es dificil, pues me piro a Alemania este verano por"] _YO[1,6,3,"tiempo indefinido, y la direcci�n no la tengo clara todav�a, as� que si"] _YO[1,7,3,"deseas escribirme deja tu mensaje para mi en FANZINE, the number one MAGAZINE."] _YO[1,8,3,"Osskey, sigue probando, hay hasta chistes malos, je,je,je."] Goto YO End If If B$="MEIGAMIGA" _YO[1,4,3,"Hooooola!!!, Cuanto tiempo, �no?, tranqui que pronto te llegar� una carta"] _YO[1,5,3,"mia, he estado desconectado por los estudios de COU, y ahora mismo ando"] _YO[1,6,3,"de selectividad, y despues pa Alemania, ya desde all� te escribir� !!!..."] _YO[1,7,3,"Tengo ganas de seguir hablando de AKIRA y de las lavadoras, je,je,je."] Goto YO End If If B$="AMIGA" _YO[1,4,3,"D�cese del mejor ordenador existente sobre la faz de la tierra."] _YO[1,5,3,"M�quina increible capaz de destrozar 10000 Pcs por hora."] Goto YO End If If B$="CAPULLO" or B$="CERDO" or B$="IMBECIL" or B$="CABR�N" or B$="SHIT" or B$="QUE TE FOLLEN" or B$="QUE TE JODAN" or B$="FUCK YOU" _YO[1,4,3,"Oye, tampoco insultes, �o acaso es ese tu handle?"] Goto YO End If If B$="DEFCORP" _YO[1,4,3,"Hey!, s�lo decirte que pronto estar� en Alemania, si no lo estoy ya,"] _YO[1,5,3,"Y que entonces te mandar� una carta para reanudar el contacto,�fale?"] Goto YO End If If B$="DOUBLE R" or B$="DOUBLE(R)" _YO[1,4,3,"Hola tio, ya estar� pronto en Alemania, para mitades de verano o por ah�,"] _YO[1,5,3,"A ver como me desenrollo alli como swapper, y ya veras, en un a�o me tendr�s"] _YO[1,6,3,"que tener como contacto si quieres ser un swapper al d�a, je,je, saludos."] Goto YO End If If B$="FREDIUS" _YO[1,4,3,"Hola tio, esto no es tan chulo como tus producciones, pero por lo menos es"] _YO[1,5,3,"cachondo, �no?, a ver si me das tu opini�n. Y ABAJO LOS PCS!!!!"] Goto YO End If If B$="TROGLOBYTE" _YO[1,4,3,"Hooooooooooooooooooooooola !!, tercera vez que me dirigo a ti, y 3� vez que"] _YO[1,5,3,"no te acordar�s de mi, je,je, s�lo decirte que est�s haciendo un trabajo"] _YO[1,6,3,"cojonudo en GAME 40. Este lunes estoy deseando escuchar el especial AMIGA"] _YO[1,7,3,"que tienes preparado, bueno, hasta la pr�xima, y a ver si esa ves me "] _YO[1,8,3,"recuerdas, je,je, oooooooooskey, hasta entonces."] Goto YO End If If B$="DARDO" _YO[1,4,3,"Jooder la de tiempo que no te escribo, bueno, a ti y a todos, pero pronto"] _YO[1,5,3,"vuelvo a las andadas y me liar� a escribir, as� que espera mi carta. HASTA"] _YO[1,6,3,"LOGOS !!"] Goto YO End If If B$="FERMIX" _YO[1,4,3,"Hola, dos besitos y saludito para ti, que todav�a no te he olvidado, pronto"] _YO[1,5,3,"tendr�s noticias mias.......8-)."] Goto YO End If If B$="THE BROTHERS" _YO[1,4,3,"Hey!! tengo ganas de empezar a escribiros otra vez, perdonad mis retrasos o"] _YO[1,5,3,"no llegar a contestaros, estudios....bla,bla, y ahora dentro de YA! que me"] _YO[1,6,3,"organize en Alemania recibireis noticias mias, no desespereis, y Cubitos de"] _YO[1,7,3,"hielo Rulez, Telepizza Pc computers rulez, je,je,je 8-)"] Goto YO End If If B$="CELEBORN" _YO[1,4,3,"Hey, hey, hey, ��como andamos??, con los pies supongo, jui,jui, que malo."] _YO[1,5,3,"�Que te parece?, �imaginabas que un patoso como yo hiciera algo como esto?"] _YO[1,6,3,"S�, S�, una chapuza, lo que tu quieras....je,je, Pos fale, besitos...."] Goto YO End If If B$="XELE" _YO[1,4,1,"QUIERO MI JOISTICKS QUIERO MI JOISTICKS QUIERO MI JOISTICKS"] _YO[1,5,1,"QUIERO MI JOISTICKS QUIERO MI JOISTICKS QUIERO MI JOISTICKS"] _YO[1,6,1,"QUIERO MI JOISTICKS QUIERO MI JOISTICKS QUIERO MI JOISTICKS"] _YO[1,7,1,"QUIERO MI JOISTICKS QUIERO MI JOISTICKS QUIERO MI JOISTICKS"] Goto YO End If If B$="HUMPREY" _YO[1,4,3,"Noooooooooooooooooooooooo, no me he olvidado de ti, tranqui."] _YO[1,5,3,"Pronto te llegara una carta miiia. %-)"] Goto YO End If If B$="PRONTO" _YO[1,4,3,"S�nonimo de 8 meses, je,je, que no, dentro de dos meses apartir"] _YO[1,5,3,"de Junio, �fale?, paso la selectiviti (espero). me largo y me"] _YO[1,6,3,"establezco, entonces..LETTER LETTER LETTER..."] Goto YO End If If B$="CHISTE" _YO[1,4,3,"Entra un tio a su casa gritando.... MAAARIAAA!!! FRI�ME UN HUEVO"] Wait 10 _YO[1,6,2,"AAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!"] Goto YO End If If B$="SPLINTER" _YO[1,4,3,"HOLA PRIMO!!!!, nuevos problemas nos han vuelto a separar, siento"] _YO[1,5,3,"todo el foll�n que se ha armado. Espero que alguna vez podamos"] _YO[1,6,3,"restablecer contacto. Y JODER, Presenta esos cachos m�dulos tuyos"] _YO[1,7,3,"a la escena!!!. Hasta pronto. 8-)."] Goto YO End If If B$="BEATRIZ" _YO[1,4,3,"�SOrprendida?, si tu eres Beatriz matarre... lo deberias estar, je"] _YO[1,5,3,"je, soy ROBERT, �que pasa?, has metido tu nombre por curiosidad y BINGO!"] _YO[1,6,3,"Perdona el tan enorme retraso..te llegar� carta mia.."] Goto YO End If If B$="MIKEL MAGIC" _YO[1,4,3,"Mis m�s fervientes agradecimientos por dejarme el digitalizador!!"] Goto YO End If If B$="" _YO[1,4,3,"No creo que te llames ENTER."] Goto YO End If If B$="MAT!" or B$="MAT" _YO[1,4,3,"Hola MAT!...Pronto carta mia, no me he olvidado...."] Goto YO End If If B$="MENU" _YO[1,4,3,"SISTEMA DE MENSAJERIA CERRADO"] _YO[1,6,2,"Returning to MENU... CODE ACCESS #00023/TOMATE"] Goto PRINCIPAL End If _YO[1,4,2,"LO SIENTO, NO HAY MENSAJE PARA TI, SALUDOS "+B$] Goto YO YO: Procedure _YO[X,Y,P,A$] A=1 For B=0 To Len(A$) Locate X,Y : Print Left$(A$,A) Wait P Inc A Next B End Proc Wait 100 Goto HANDLE REQUEST: Cls 0 : Paper 0 : Wait 10 : Fade 2,4,4 : Locate 0,12 : Centre "Por favor, inserte AMIGA SPOTS disco 2." Wait 30 : Locate 0,13 : Centre "Entonces pulse el bot�n izquierdo del rat�n. Gracias." Repeat : Until Mouse Key=1 If TEST=Drive("AMIGASPOTS2:")=-1 Goto REQUEST End If Return REQUESTI: Cls 0 : Paper 0 : Wait 10 : Fade 2,4,4 : Locate 0,12 : Centre "Por favor, inserte AMIGA SPOTS disco 1." Wait 30 : Locate 0,13 : Centre "Entonces pulse el bot�n izquierdo del rat�n. Gracias." Repeat : Until Mouse Key=1 If TEST=Drive("AMIGASPOTS1:")=-1 Goto REQUESTI End If Return CREDITOS: Cls 0 : Screen Open 1,640,256,16,Hires : Hide : Flash Off Load Iff "DF0:CREDITOS.IFF" Repeat : Until Mouse Key=1 Goto PRINCIPAL