PDA Software Library

home *** CD-ROM | disk | FTP | other *** search

/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / SNOOKER / SNOOKER.OPA / SNOOKER.txt < prev

Wrap

Text File | 1995-07-18 | 5.3 KB | 433 lines

OPLObjectFile** LOC::M:\OPL\SNOOKER.OPL $f&Jg PBAH BBH SNOOKER.ODB \OPD\ BALLX% BALLY% REDS% PLAYERS% PLAY$ SCORE% BREAK% HIGHBRK% FRAMES% CURRENT% XSCORE% COLOUR$ BCOUNT% NEWBALL$ OLDBALL$ VALUE% FRMMAX% BREAKER% BALLBRK% FOULVAL% KEYWIN% DRAW$ POSSCOL% BALL$ FREEBAL$ UNTEXT1$ UNTEXT2$ UNTEXT3$ UTEXT1$ UTEXT2$ UNTEXT4$ UNTEXT5$ UNTEXT6$ UNTEXT7$ UNTEXT8$ WELCOME PLAYERS FRAMES FIRST TABLE SCOREBRD FRAMEWIN GAMEWIN YESC[ BCOUNT% SCORE% COLOUR$ FREEBAL$ BREAKER% CURRENT% DRAW$ POSSCOL% BALL$ ERROR1 YELLOW GREEN BROWN BLACK ERROR8 FRMMAX% NUMBER OF FRAMES TO PLAY BEST OF HOW MANY FRAMES?O SCORE% DRAW$ PLAY$ FRAMES% OPOxO WINS THIS FRAMEO BCOUNT% BALLX% BALLY% DRAW$ ITS A DRAW - RESPOT THE BLACK FIRST TO POT BLACK WINSO OR FIRST TO FOUL LOSESO SUDDEN DEATH!O SCORES SPECIAL FREEBALL MULTIRED GAMEWIN ADDFOUL CONCEDE FOULF FOULRED FOULSURE POTCOLOR CLEARY CLEARG CLEARN CLEARE CLEARP CLEARB CURRENT% XSCORE% OLDBALL$ BALLBRK% BALL$ REDS% COLOUR$ NEWBALL$ FREEBAL$ FOULVAL% BCOUNT% VALUE% BREAK% SCORE% COLOURO< COLOUR REDO< YESG\[5 LAST STROKE WAS NOT A FOUL YESC\[ REDC\[ SUDDEN DEATH FOUL ON BLACK +)7 POINTS WILL BE ADDED TO OPPONENTS SCOREO +(I WILL WORK THEN OUT WHO WINS THIS FRAMEO RC\[. YC\[ GC\[ NC\[ EC\[ PC\[ BC\[ XSCORE% BREAK% CURRENT% SCORE% BALLBRK% POSSCOL% REDS% BALL$ HIGHBRK% LOqPH( BALLS IN BREAK OpHO( MAX PTS FOR OPPONENT PTS ON TABLE FOR YOU COLOURC[6 HIGHEST BREAK SO FAR OPPONENT NEEDS SNOOKERS YOU NEED SNOOKERS TO WIN, ADDFOUL FOULVAL% NEWBALL$ General Foul +'ANY FOUL WHICH INVOLVES A RED OR YELLOWO +"OR GREEN OR BROWN, FOUL VALUE <4> O IF THE FOUL INVOLVES :-O BLUE BALL, FOUL VALUE <5>O PINK BALL, FOUL VALUE <6>O BLACK BALL, FOUL VALUE <7>( THE HIGHEST VALUE APPLIES!( ENTER FOUL VALUE O ADDFOUL FOULVAL% NEWBALL$ REDS% 2 REDS IN SUCCESSION YOU SHOULD HAVE POTTED A COLOURO + IF YOU WERE GOING FOR A COLOUR &O INADVERTENTLY POTTED A RED THENO THE FOUL VALUE IS 4 ORO +-THE VALUE OF THE COLOUR, IF WORTH MORE THAN 4O ENTER FOUL VALUE O NEWBALL$ WRONG BALL POTTED +-THIS IS NOT A CORRECT BALL TO POT A THIS TIMEO +<THIS WOULD BE A FOUL [..SEE TOP OF SCREEN FOR BALL TO POT..]O ++IF A FOUL HAS BEEN COMMITED USE THE <?> KEY( PRESS ANY KEY TO RETURN TO GAME( TRY AGAIN!( BREAKER% CURRENT% CURRENT% OpHO( SCORE% BREAK% HIGHBRK% FRAMES% PLAY$ SCORE CURRENT BREAK HIGHEST BREAK SO FAR FRAMES: SCORE CURRENT BREAK HIGHEST BREAK SO FAR FRAMES: UNTEXT1$ UNTEXT2$ UTEXT1$ UTEXT2$ UNTEXT3$ UNTEXT4$ UNTEXT5$ UNTEXT6$ UNTEXT7$ UNTEXT8$ COPYRIGHT KEN PETERS 1995K +3WELCOME - THANKS FOR DOWNLOADING - HOPE I AM OF USE +&THIS IS A PROTOTYPE SNOOKER SCOREBOARDO +$DEVELOPED BY KEN PETERS IN JULY 1995( +4ITS PURPOSES ARE TO HELP KEEP A NOTE SOME STATISTICSO +/AND SCORES WHICH OCCUR DURING A GAME OF SNOOKERO +8COMMENTS WELCOME email TO kenny.peters@dundee.attgis.comO +:OR PHONE (44) 01382 592281 BUSINESS HRS - (WITH VOICEMAIL)( K_RxW K_ExW K_GxW K_IxW K_SxW K_TxW K_ExW K_RxW K_ExW K_DxW K_UxW K_ xW K_HxW K_AxW K_VxW K_ExW K_ xW K_NxW K_OxW K_TxW K_ xW K_ xW K_ xW K_SxW K_ExW K_NxW K_DxW K_ xW K_5xW K_ xW K_PxW K_OxW K_UxW K_NxW K_DxW K_SxW K_ xW K_SxW K_TxW K_ExW K_RxW K_NxW K_GxW K_ xW K_TxW K_OxW K_ xW K_NxW K_ xW K_PxW K_ExW K_TxW K_ExW K_RxW K_SxW K_,xW K_ xW K_IxW K_NxW K_VxW K_ExW K_RxW K_GxW K_OxW K_WxW K_RxW K_IxW K_ExW K_ xW K_DxW K_RxW K_IxW K_VxW K_ExW K_NxW K_ExW K_WxW K_ExW K_LxW K_LxW K_SxW K_NxW K_DxW K_ExW K_ExW K_ xW K_ xW K_ xW K_DxW K_DxW K_2xW K_ xW K_1xW K_RxW K_ExW K_OxW K_TxW K_LxW K_AxW K_NxW K_DxW PLAYERS% PLAY$ PLAYER DEFINITION( PLAYER ONE'S NAMEO PLAYER TWO'S NAMEO BALLX% BALLY% REDS% OPOxO +"CHOSE HOW MANY REDS FOR NEXT FRAME +'HOW MANY REDS RACKED AT START OF FRAME + 1,3,6,10,15 BALLX% BALLY% REDS% UNTEXT1$ UNTEXT2$ UNTEXT3$ UNTEXT4$ UNTEXT5$ UNTEXT6$ UNTEXT7$ UNTEXT8$ CURRENT% VALUE% BCOUNT% COLOUR$ Please wait for READY signal... READY.. CURRENT% SCORE% FOULVAL% FREEBAL$ FRAMES% PLAY$ OPOxO THE WINNNER ISO ITS A DRAW ! O THE WINNNER ISO KEYWIN% KEY BALL POTTED KEY FUNCTION +&R(M) RED (MULTI) ? FOUL ++Y YELLOW * END OF BREAK ++G GREEN ^ END OF FRAME ++N BROWN ! END GAME ++E BLUE = FREEBALL ++P PINK S SPECIAL B BLACK COPYRIGHT KEN PETERS 1995 v1.0 CLEARY CLEARG CLEARN CLEARE CLEARP NEWBALL$ BCOUNT% REDS% REDS% NEWBALL$ VALUE% MULTIPLE RED POT! +-YOU HAVE SELECTED THE MULTIPLE RED POT BUTTON( +1YOU CAN STILL INPUT THAT YOU ONLY POTTED ONE RED!( +1YOU HAVE TO LET ME KNOW HOW MANY REDS YOU POTTED!( ++ QUANTITY OF REDS O REDS% NEWBALL$ VALUE% FREEBAL$ FREEBALL REDS% VALUE% +"FOUL STROKE & RED POT AT SAME TIME +!NOTE THAT RED STAYS OFF THE TABLE( +*IF A COLOUR IS POTTED AND A FOUL COMMITTEDO +(THE COLOUR IS RE-SPOTTED ON ITS OWN SPOTO +4OR HIGHEST AVAILABLE SPOT IF ITS OWN SPOT IS COVEREDO +8TO SCORE FOUL VALUE INPUT '?' AFTER COMPLETING THIS PARTO +*HOW MANY REDS WERE POTTED AT TIME OF FOUL!O (ZERO WILLCAUSE NO ACTION)( CURRENT% YOU HAVE NOT REGISTERED +&TO REGISTER SEND 5 POUNDS STERLING TO:( KEN PETERSO 38, INVERGOWRIE DRIVEO + NINEWELLSO DUNDEE DD2 1REO SCOTLANDO Please wait for READY signal... READY.. FRAMES FRAMEWINh DRAWp PLAYm SCORESi FOULF FOULRED FOULSURE3 FIRSTj SCOREBRD WELCOME PLAYERS!! TABLE POTCOLOR CLEARY CLEARG CLEARNG& CLEAREt& CLEARP CLEARB ADDFOUL GAMEWIN CONCEDE MULTIRED<+ FREEBALL SPECIALM- UNREGB/