let the past begone in cvs land. welcome to igit igit!

place/basic.c

@@ -0,0 +1,127 @@
+/* Last Change SNAKE    at DM0TUI1S on Fri, 27 Jul 1990 15:32:10 CES */
+
+/* C64 version by CURBOIS Software, Holland.
+ * Amiga/UNIX/VM version by LYNX, Teldor, 1990.
+ * PSYC LPC version by symlynX, Berlin, 2003.
+ *
+ * $Id: basic.c,v 1.12 2007/08/15 23:58:06 lynx Exp $
+ */
+sys42336();
+sys64738();
+sys64764();
+
+#define NAME "BASIC"
+#define PLACE_HISTORY_EXPORT
+#define ON_ENTER	sys64738(source);
+#define ON_CONVERSE	sys42336(source, mc, data, vars);
+#define CREATE		sys64764();
+#include <place.gen>
+
+static int listflag = 0;
+static int chanzcount = 0;
+
+static mapping tab;
+static string *chanz;
+
+sys64764() {
+	tab = ([
+"RUN": "RUN, RUN, RUN, DOESN'T ANYONE THINK OF MY LEGS?",
+"?": "YOU AND YOUR ABBREVIATIONS...\nIF YOU MEAN 'PRINT' THEN WHY NOT JUST TYPE 'PRINT' ?",
+"PRINT": "PRINT? DO YOU THINK I HAVE NOTHING BETTER TO DO\nTHAN TO CATER TO YOUR EVERY WHIM? LEAVE ME ALONE!",
+"LOAD": "IF I THOUGHT YOU HAD ANYTHING WORTHWHILE, I WOULD",
+"SAVE": "PRESS PLAY AND RECORD ON NEAREST STEREO",
+"GOTO": "GO THERE YOURSELF, BUDDY!\nSEE HOW YOU LIKE IT",
+"VERIFY": "NO NEED TO START THE TAPE\nI'LL VOUCH FOR IT",
+"NEW": "BOY, AM I GLAD YOU GOT RID OF THAT GARBAGE\nWHY DON'T YOU LET ME REST NOW?",
+"POKE": "OUCH!!!!! YOU LOOKING FOR A FAT LIP?",
+"SYS": "SYS? WHAT SYS?",
+"CALL": "YAAAAOOO!!! NO ANSWER",
+"OPEN": "HAVE YOU GOT A CORKSCREW?",
+"CLOSE": "I THINK I'LL JUST LEAVE IT OPEN, YOU'LL NEED IT LATER",
+"DIM": "YEA?  WELL YOU'RE NOT SO BRIGHT EITHER",
+"CLR": "HMM. WOULD YOU MIND IF I HELP MYSELF TO A GUMMY BEAR?",
+"FOR": "?  FOR WITHOUT TO  ERROR",
+"GOSUB": "IF I GOSUB I MIGHT NOT RETURN!!",
+"RETURN": "?  RETURN WITHOUT NEXT  ERROR IN 4404",
+"STOP": "BREAK IN 536.5^2",
+"INPUT": "YEAH, I'D EAT ANYTHING *HUNGRY*",
+"TRON": "SAW THE MOVIE, EH?",
+"TROFF": "WILL YOU MAKE THE MOVIE FOR THIS ONE?",
+"REST": "I FORGOT HOW TO DO THAT ONE",
+"DELETE": "OK, I'LL DELETE THAT GARBAGE AND ALL OTHER...",
+"DATA": "23 57 89 23 60 58 30 69 94 76 48 90 47 21 83 23.",
+"KILL": "NO, PLEASE DONT DO THAT, IT'S JUST A BABY!",
+"LET": "YEAH, LET THERE BE ROCK",
+"LLIST": "SEND ME A PRINTER IN AN EMAIL AND I'LL DO IT.",
+"PEEK": "KEEP YOUR HANDS OFF, YOU MACHO!",
+"END": "EVERYTHING HAS AN END, EXCEPT ME.",
+"WHILE": "MEANWHILE I'LL FORMAT THE HARDDISK",
+"READ": "I ALREADY ERASED IT, SORRY, I THOUGHT YOU WERE NOT GOING TO NEED IT.",
+"REM": "REMARKS ARE NO USE, YOU WON'T UNDERSTAND THE PROGRAM ANYWAY.",
+"WAIT": "WHAT DO YOU THINK I'M DOING?? *YAWN*",
+"HELP": "NO HUMAN CAN HELP YOU NOW.",
+"ERASE": "IS THERE ANYTHING LEFT TO ERASE?"
+	]);
+/* edit erase exit get if lprint merge next
+ restore troff wait ...  help */
+ 
+	chanz = ({
+"? PERMISSION DENIED",
+"REDO FROM HALFWAY",
+"? WIND WITHOUT WELL  ERROR",
+"? STRING TOO MEANINGLESS  ERROR",
+"? DEVICE NOT PRESENTABLE  ERROR",
+"? TOO MANY FINGERS ON KEYBOARD  ERROR",
+"? ILLEGAL MOTION IN BACKFIELD  ERROR",
+"I THINK I HEARD A MEMORY CHIP EXPLODE!",
+"I'M WRITING ON YOUR DISK !!!",
+"? UNDEFINED PARACHUTE  ERROR",
+"? STRANGE OUT OF RANGE  ERROR",
+"SIT BACK A WAYS, YOU'LL RUIN YOUR EYES"
+	});
+}
+ 
+#define puts(string) castmsg(ME, "_notice_application_basic", string, ([]))
+#define tell(user,string) sendmsg(user,"_notice_application_basic",string,([]))
+
+sys64738(source) {
+	tell(source, "**** CBM BASIC V2 ****");
+	tell(source, "49152 BASIC BYTES FREE");
+	tell(source, "READY.");
+}
+
+sys42336(source, mc, data, mapping vars) {
+	string t;
+
+	if (stringp(data)) {
+		sscanf(data, "%s %s", data, t);
+		data = upper_case(data);
+		if (tab[data]) puts(tab[data]);
+		else if (data == "LIST") {
+		    listflag = !listflag;
+		    if (listflag) {
+			 puts ("DIDN'T YOU WRITE IT DOWN SOMEWHERE?");
+			 puts ("YOU KNOW HOW UNRELIABLE COMPUTERS CAN BE");
+			 puts ("MAYBE TRY AGAIN");
+		    } else {
+			 puts ("10 DIMA(-5):FRY=1TO10:NEXTWEEK:POKE99,OUCH!:WAITFORIT:OPENFILEORRASP");
+			 puts ("20 IF 1 HEN CAN LAY 3 EGGS IN ONE DAY");
+			 puts ("30 HOW LONG WOULD IT TAKE A ROOSTER TO");
+			 puts ("40 LAY A GOLDEN DOORKNOB?");
+			 puts ("41.5 IFPEEKABOO(53280)=EGG THEN HALT AND CATCH FIRE");
+			 puts ("50 END OF THE BEGINNING");
+		    }
+		} else if (data == "DIR") {
+		    puts("DIRECTORY OF BERLIN, IOWA:");
+		    puts(" HELLO.BAS                            GOTOSLEEP.BAS");
+		    puts(" WHOLEPILACRAP.BAS                    IRC.BAS");
+		    puts("8734123445782 BYTES OF PIZZA IN 4 BOXES.");
+		} else if (random(4) < 1) {
+		    if (!chanzcount) chanzcount = sizeof(chanz);
+		    puts (chanz[--chanzcount]);
+		}
+		else return;
+		puts ("READY.");
+	}
+}
+