}* PROFILE.TXT WRITTEN IN THE LISA GJ2 FIC3 PROGRAMMING }* }* LANGUAGE BY ARISTO TACOMA wLAH }* }* UPDATED FOR MORE STABLE PERFORMANCE IN DOSBOX 2011::9 }* }* 2011:3:5. REDIST BY YOGA4D.ORG/cfdl.txt }* }* THE VIRTUAL PEN OF WT CAN ENHANCE PROFILES OF GJP, }* }* OR GIVE DESCRIPTIONS E.G. OF COLOR OF GJP PHOTOS }* }* THE OILER ENSURES THAT THE GJP IMAGE USES 128..191 }* }* AS GREEN TONE INFO NUMBERS, WHEREAS THE BLINKING GREEN }* }* BACKGROUND IS ACHIEVED BY CHANGING GREEN TONE NUM 0. }* }* IN THAT WAY, PUTTING AN IMAGE THROUGH OILER MAKES IT }* }* STABLE WHEN THE REST OF THE SCREEN BLINKS. }* }* FOR YOGA4D.ORG/super ENCYCLOPAEDICA AND SUCH. }* ((DATA SHOW-ENLARGED-GJP-HOUSE )) ((DATA GJP-FIELD 200 ; 200 => RAM-PM GJP-FIELD < SETDANCE )) ((DATA WET-TONES WET-TONES => SETDANCE )) (LET EXTRA-PAUSE-FOR-MORE-STABLE-PERFORMANCE-IN-DOSBOX BE (( )) (( }* COMMENT OUT THIS NEXT LINE IF YOU DON'T NEED IT! }* (( 15 => GOODPAUSE )) )) OK) (LET BRIGHTEST BE (( )) (( (( ^0 ; ^255 ; ^0 ; ^0 => WRITEPAL )) (( PUTPAL )) )) OK) (LET GET-DRAWING BE (( )) (( (( BRIGHTEST )) (( WET-TONES => SETBASIS )) (( FT CLS )) (( }GET PREVIOUS DRAWING IN SAME FOLDER. NAME (NOT INCLUDING .BMP):} ; 10 ; 100 => B9-POP )) (( 8 ; 850 ; 100 => B9-READLN => MAKE-SAFE-8-SIZE-FILENAME ; )) (( ; => LENGTH => ISBASIS = RM ; EXIT === )) (( ; 0 ; => SWITCH => FT FLASHSEC FEET )) (( ^0 ; ^0 ; ^0 ; ^1 => WRITEPAL )) )) OK) (LET SCREEN-TO-FILE BE (( )) (( (( GETPAL )) (( }DRAW} ; DRAW-IMAGE-NUMBER >>> => CONCAT => SCREENBMP )) (( DRAW-IMAGE-NUMBER => INCVAR )) )) OK) (LET SHOW-ENLARGED-GJP-ESSENCE BE (( )) (( (( 180 ; V2 ; 3 => MUL => ADD ; 100 ; V3 ; 3 => MUL => ADD ; BRIDGE INC INC ; BRIDGE INC INC ; V11 => RECTFILL )) )) OK) (( }SHOW-ENLARGED-GJP-ESSENCE} => ? SHOW-ENLARGED-GJP-HOUSE <>> ; # => FORVPM )) (( && )) )) OK) (LET ENLARGE-OILER-GJP BE (( )) (( (( GJP-FIELD >>> => & )) (( BRIGHTEST )) (( UNSHOWMOUSE )) (( CLS )) (( # => CLEAR-MATRIX )) (( }NAME OF GJP WHICH HAS BEEN SAVED BY OILER (NOT INCL .GJP):} ; 10 ; 100 => B9-POP )) (( 8 ; 850 ; 100 => B9-READLN => MAKE-SAFE-8-SIZE-FILENAME ; )) (( ; => LENGTH => ISBASIS = RM ; && ; EXIT === ; )) (( ; :.GJP => CONCAT ; # => GJPFILE2PM ; RM )) (( CLS )) (( # => SHOW-ENLARGED-GJP )) (( SHOWMOUSE )) (( && )) )) OK) (LET PROFILE-DRAWING BE (( )) (( (( CLS )) (( FEET )) (( GOLABEL3: )) (( GOLABEL4: )) (( ^20 FR GETV => GOODPAUSE )) (( WET-TONES => VISDANCE = 100000 => FUNNYRFFG ; 95000 => INTGREATER = ^0 ^255 FR ^0 ^0 => WRITEPAL ; PUTPAL === === )) (( KEYTOUCH (MATCHED (( KEYNUM => >N5 )) (( N5 ; KEY-ESC >>> => EQN = FT ; CLS ; EXIT == )) (( N5 ; 1 => EQN = WET-TONES => FLAGFLIP == )) (( N5 ; 2 => EQN = BRIGHTEST ; WET-TONES => SETBASIS == )) (( N5 ; 4 => EQN = FT ; SCREEN-TO-FILE ; 500 => GOODPAUSE ; FEET == )) (( N5 ; 6 => EQN = FT CLS FEET == )) (( N5 ; 7 => EQN = GET-DRAWING == )) (( N5 ; 12 => EQN = ENLARGE-OILER-GJP )) (( === === === === === === === )) )(OTHER (( N1 => >N3 )) (( N2 => >N4 )) (( EXTRA-PAUSE-FOR-MORE-STABLE-PERFORMANCE-IN-DOSBOX )) (( MOUSEXY => >N2 => >N1 )) (( N1 ; 6 ; 1016 => SET-RANGE => >N1 )) (( N2 ; 6 ; 760 => SET-RANGE => >N2 )) (( 1 ; N3 ; N1 => SUB => ABS => INTGREATER ; 1 ; N4 ; N2 => SUB => ABS => INTGREATER => AND = GOUP3 === )) (( MOUSECLICK (MATCHED (( 7 (COUNT (( N1 ; 3 => SUB => >N10 )) (( N3 N10 ADD ; N4 N10 ADD ; N5 N10 ADD ; N6 N10 ADD ; 1 => FT LINE FEET )) (( N3 N10 ADD ; N4 ; N5 N10 ADD ; N6 ; 1 => FT LINE FEET )) (( N3 ; N4 N10 ADD ; N5 ; N6 N10 ADD ; 1 => FT LINE FEET )) COUNTUP) )) )(OTHER (( MOUSECLICKR (MATCHED (( 7 (COUNT (( N1 ; 4 => SUB => >N10 )) (( N3 N10 ADD ; N4 N10 ADD ; N5 N10 ADD ; N6 N10 ADD ; 0 => FT LINE FEET )) (( N3 N10 ADD ; N4 ; N5 N10 ADD ; N6 ; 0 => FT LINE FEET )) (( N3 ; N4 N10 ADD ; N5 ; N6 N10 ADD ; 0 => FT LINE FEET )) COUNTUP) )) MATCHED) )) MATCHED) )) MATCHED) )) (( GOUP4 )) )) OK) (LET PROFILE BE (( )) (( (( GJ-ON )) (( }PROFILE EXPANDS ON WT. TAKE GJP THROUGH OILER AND SAVE IT THERE. } ; 10 ; 310 => B9-POP )) (( }THEN CTR-L TO LOAD THE GJP AND ENLARGE. CTR-A TO FLASH ON/OFF, }; 10 ; 335 => B9-POP )) (( }CTR-B FOR BRIGHTEST TYPE OF BACKGROUND FOR YOUR VIRTUAL PEN DRAWING,} ; 10 ; 360 => B9-POP )) (( }CTR-G TO CLEAR SCREEN AND GET A PREVIOUSLY MADE DRAWING IN WT} ; 10 ; 385 => B9-POP )) (( }CTR-D TO SAVE (OVERWRITE) TO DRAWn.BMP. NORMALLY USE CTR-B HERE} ; 10 ; 410 => B9-POP )) (( }AND NORMALLY BE SURE PHOTO IS COMPLETELY BRIGHT IN BACKGROUND.} ; 10 ; 435 => B9-POP )) (( }CTR-F TO REMOVE ALL ON SCREEN, AND ESC TO LEAVE.} ; 10 ; 460 => B9-POP )) (( }IN DOSBOX, ALT-ENTER TO CLEANSE SCREEN OF EXTRAS.} ; 10 ; 485 => B9-POP )) (( }PLS PRESERVE IDEA OF PHOTO AS 200X200 GJP: ENLARGE ONLY IF NEEDED.} ; 10 ; 510 => B9-POP )) (( } [[[HINT: IN DOSBOX, PRESS CTR-F7 UNTIL FRAMESKIP=5, AND WHEN YOU} 10 ; 600 => B9-POP )) (( } USE OTHER THAN IDEAL MOUSE, SET MOUSE SPEED LOWER.]]]} 10 ; 640 => B9-POP )) (( A-KEY )) (( PROFILE-DRAWING )) (( GJ-DONE )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE PROFILE OK)