Toby D Fortyseven
🥃
Fortyseven
/ DND1.BAS
Last active
August 29, 2015 14:00
DND1 - Richard Garriott (Incomplete, up to line 01690) https://d2sx9mrt4zumaq.cloudfront.net/wp-content/uploads/2014/04/DND1_Complete.pdf
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| REM 79/02/28. 19.27.34. | |
| REM PROGRAM DND1 | |
| 00010 LET J4=1 | |
| 00030 PRINT | |
| 00100 BASE 0 | |
| 00110 LET X = 0 | |
| 00120 LET J = 0 | |
| 00130 LET K = 0 | |
| 00140 X1 = 0 |
Fortyseven
/ gist:11200844
Created
April 23, 2014 02:20
Code that got me through Level 11 and 12 of Untrusted
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| var player = map.getPlayer(); | |
| if (this.init === undefined) { | |
| this.player_last_x = player.getX(); | |
| this.player_last_y = player.getY(); | |
| this.init = true; | |
| return; | |
| } | |
| if (player.getX() > this.player_last_x) me.move('right'); | |
| if (player.getX() < this.player_last_x) me.move('left'); |
Fortyseven
/ spriteGlitch.shader
Created
July 12, 2014 08:57
— forked from KeyMaster-/spriteGlitch.shader
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //Copyright (c) 2014 Tilman Schmidt (@KeyMaster_) | |
| //Permission is hereby granted, free of charge, to any person obtaining a copy | |
| //of this software and associated documentation files (the "Software"), to deal | |
| //in the Software without restriction, including without limitation the rights | |
| //to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| //copies of the Software, and to permit persons to whom the Software is | |
| //furnished to do so, subject to the following conditions: | |
| //The above copyright notice and this permission notice shall be included in |
Fortyseven
/ GFX13.PAS
Last active
August 29, 2015 14:06
Very old graphics lib from when I was first starting out
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$G+,A+,S-,R-,I-,D+,V-,L+,X+,Q-,Y-} | |
| {ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍGFX v1.3} | |
| {ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ(c)1995 Hacsoft Developments} | |
| Unit GFX; | |
| Interface | |
| Uses UTILS; | |
| {ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ} | |
| Const | |
| VGA =$A000; | |
| Page :Word=VGA; |
Fortyseven
/ BP7-INFO.TXT
Created
September 27, 2014 11:21
Information on the hot new version of Pascal: Borland Pascal with Objects 7.0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| [The following combines two information files from Borland | |
| International regarding the two newly released Pascal products. A copy | |
| of this information is being sent as an automated reply to e-mail sent | |
| to the Internet address bp7-info@borland.com. Other Internet e-mail | |
| addresses at Borland include: | |
| customer-support@borland.com is an address to send e-mail to our | |
| Customer Service department. You can get product and price info, | |
| information on upgrade offers, check the status of your order, arrange | |
| for a replacement of a bad disk in order, etc. In other words, they |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$G+,F+} | |
| Program COMM_Creation; | |
| Uses UTILS; | |
| Const | |
| sBuffer =128; | |
| bwPos :Word=0; | |
| brPos :Word=0; | |
| Type | |
| tBaudRates=(_300,_1200,_2400,_4800,_7200,_9600,_12000,_14400,_19200,_38400,_57600,_115200); | |
| tParity =(None, Odd, Even, Mark, Space); |
Fortyseven
/ CRTASM11.PAS
Last active
August 29, 2015 14:06
CRTASM v1.2 - Old Turbo Pascal DOS library from my early years
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$G+,A+,S-,R-,I-,D-,L-,Q-} | |
| Unit CRTASM; | |
| {ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍCRTASM v1.1} | |
| {ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ(c)1995 Hacsoft Developments} | |
| Interface | |
| Type | |
| tTxt=record | |
| c,a:byte; | |
| end; | |
| Var |
Fortyseven
/ INPUT11.PAS
Last active
August 29, 2015 14:06
INPUT.PAS -- old Turbo Pascal DOS input code from 1996
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$G+,A+,S-,R-,I-,D-,L-,Q-,F- | |
| ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ | |
| ³ °±²Û INPUT v1.1 Û²±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ³ | |
| ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ | |
| Multi-Input Processing Library - Gamepad/Mouse/Keyboard | |
| (c)1996 Hacsoft Developments | |
| ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ | |
| ³ °±²Û Unit History Û²±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ³ | |
| ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ | |
| v1.0 - þ Original. Works. |
Fortyseven
/ WAVETAG2.PAS
Created
September 27, 2014 13:54
What is this? No idea. Didn't look to closely at it. Something to do with OmniQuote.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$G+,A+,S-,R-,I-,D-,L-} | |
| Uses CRT, UTILS, GFX; | |
| {$I C:\DATE.} | |
| Const | |
| Speed :Byte=1; {for sinus, not used this time} | |
| cSpeed :Byte=6; {color cycle speed, also not used this time} | |
| donehere :boolean=false; {let's go, men!} | |
| tagfile :String='TAGLINES.TAG'; {ho hum...relics...} | |
| force :boolean=false; {use it} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| *** YOU'RE A SPECIAL USER *** | |
| "What type of female would prostitute herself for a video game?" - Meph | |
| "As far as I could tell they were little black and^M white weirdos... Perhaps monkeys?" -- Dark Deth | |
| "The graphics are superior to absolutely every home game system I've^M seen so far - even my current #1 system which^M happens to be a SNES." -- Scoop on N64 | |
| "...hardware, software, systems...at tremendous prices." -- Tri State Ad | |
| "here is the fxed verison!" -- Jester | |
| "if ANYONE has a CD rip of this I'll.. well, I'll probably^Minvoluntarily attempt to impregnate my boxer shorts" -- Muad'Dib | |
| "CONGRATULATIONS BOMBER:MAN:BECOMES:RUNNER SEE:YOU:AGAIN:IN:LODE:RUNNER" | |
| "I used to have the adapter for my sega to^Mturn it into the 8-bit mastery system, and a few games." -- Streetlife | |
| Don't debate it -- just masterbate it! |
OlderNewer