home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
Dloads
/
PROGRAMM
/
SPRITES.ZIP
/
SPRITEDT.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1992-09-13
|
19KB
|
202 lines
MainScreenM
GridColor
XCoor
YCoorW
CAESi
Blck1D
CurColor
DrawModed
ExitProg
please
wish-
useful
required
required.
Thank
Exist2
SaveBlockr
Filename3
NMALLOCQ
Flagc
SSEGz
ExistH
GridMode
ScanKeyW
PixelColor
SpriteToGrid`
TempBlock
SELECTY
SpriteColorg
TempSave
TitleScreen)
GetInput>
Prompt
ExitOk
AnimateModea
Resident
ContinueEhh
Cont2
XIncOld&
MakeCircle
WideK
QuitCircle
Switchu
THENSwitch;
StartOver
StartO
AskToSave
SaveWorkScreen
FinishInputS
XTraLine
Step1
Step2
Step3
StartAgainv
DisplayHelpScreen
Repeat
Pixel
right
number
times
times.
ShellOut=
ScrTemp
StopMode
ScreenNotSupported
AnimateMode2B
SaveBlock13
SaveBlock2$
SaveBlock3
SaveBlock4
SaveBlock5
SaveBlock6
SaveBlock7
SaveBlock8
SaveBlock9
SaveBlock0Q
SaveBlock20
SaveBlock19
SaveBlock18
SaveBlock17
SaveBlock16
SaveBlock15
SaveBlock14
SaveBlock13
SaveBlock12
SaveBlock11
SaveBlock10
SBlock
ANIMATE"$
Black"
Green"
Purple
Yellow
White"
SHFT+LTR =
HIGHLIGHT!
curcolor
L-Mode:"
R85D1L85D1R85D1L85D1R85D1L85
D5U5L5R5G7
Zap the current WorkScreen?
Save work screen before Zapping? "
How many pixels (LEFT) to repeat:
R3L6D1R6D1L6U3R6U1L6
How many pixels (RIGHT) to repeat: "
R3L6D1R6D1L6U3R6U1L6
Filename To Load:
Filename To Merge: "
L-Mode:"
Save work screen before quitting?
R3L6D1R6D1L6U3R6U1L6
R85D1L85D1R85D1L85D1R85D1L85
R3L6D1R6D1L6U3R6U1L6
D5U5L5R5G6
Sprite-Editor Version 1.00a - ERROR!
-------------------------------------"
I'm sorry, your Graphics Card does not support a EGA/VGA Screen Mode!"
ExitProg
Sprite-Editor Version 1.00a - Michael A. Allen - Global Tech Software Inc.
Copyright (c) 1992, All rights reserved. This software is unregistered,
Please Register this software as soon as possible. If you find this software
useful, and wish to continue using it, then a $5.00 registration fee is
required. Thank you for using Sprite Editor!"
Press a key to continue...
MainScreen
sprite
RANDOMIZE TIMER
FOR Y = 5 TO 345 STEP 8C
FOR X = 102 TO 634 STEP 10
A = INT(15 * RND(1) + 1)
PSET (11 + (X / 10), 11 + (Y / 8)), AA
PAINT (X, Y), A, GridColor
NEXT X
NEXT Y
ScanKey
SpriteToGrid
R3L6D1R6D1L6U3R6U1L6
TitleScreen
Sprite Editor v1.00a
Michael A. Allen
Copyright (c) 1992
Global-Tech Software
GetInput
AnimateMode
Filename #
Include File Not Found:
File (
) not found within file
Wrong Format Error!"
Wrong Format Error!"
File Doesn't Exist."
Time Delay (Between Sprites):
Time Delay:"
XCoor:
XIncrmnt:"
YCoor:
YIncrmnt:"
D54R1U54R1D54R1U54R1D54R1U54
D54R1U54R1D54R1U54R1D54"
D54R1U54R1D54R1U54R1D54R1U54
D54R1U54R1D54R1U54R1D54"
MakeCircle
Switch
SaveWorkScreen
Save under What Filename:
File (
) already Exists. Overwrite it? "
DisplayHelpScreen
Key Command / Help On Sprite Editor Version 1.00a"
[ - Repeat Pixel Left 'X' times. ] - Repeat Pixel Right 'X' times.
* - Draw a Circle within Sprite. D - Toggle Draw Mode On and Off
V - Flip Sprite Vertically. H - Flip Sprite Horizontally.
~ - Toggle Center Grid Mode On/Off. & - Line Draw Spacing Toggle (0-4)"
A - Switch to Animate Mode. L - Load Sprite to Work Screen.
S - Save Sprite Image into a File. M - Merge to Sprite to Work Screen.
+ - Advance Color By one Value. - - Retreat Color By One Value.
Q - Quit Sprite Editor v1.00a Z - Zap (Clear) Current Work Screen."
AnimateMode2
Filename #
Include File Not Found:
File (
) not found within file
Wrong Format Error!"
Wrong Format Error!"
File Doesn't Exist."
Time Delay (Between Sprites):
Time Delay:"
XCoor:
XIncrmnt:"
YCoor:
YIncrmnt:"
D54R1U54R1D54R1U54R1D54R1U54
D54R1U54R1D54R1U54R1D54"
D54R1U54R1D54R1U54R1D54R1U54
D54R1U54R1D54R1U54R1D54"