аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ№ƒFE"jЧ €EGameStgџџџџ №DE"jЧ№ƒFE"jЧTableInfoџџџџџџџџџџџџ№DE"jЧ№DE"jЧGameDataџџџџзŒџџџџџџџџ§џџџ ўџџџ ( !"#$%&')ўџџџ*+,-./0ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVersionџџџџџџџџжCustomInfoTagsџџџџџџџџеGameItem0џџџџџџџџџџџџ­Ф GameItem1 џџџџ•йGameItem2џџџџџџџџџџџџ’žGameItem3 џџџџœGameItem4џџџџџџџџџџџџ‹GameItem5џџџџ‡ўGameItem6џџџџџџџџџџџџ„’GameItem7 џџџџЎGameItem8џџџџџџџџџџџџfŽGameItem9 џџџџKGameItem10џџџџџџџџџџџџ3кGameItem11џџџџ0žGameItem12џџџџџџџџџџџџ- GameItem13џџџџ)зGameItem14џџџџџџџџџџџџ&GameItem15џџџџ"ЮGameItem16џџџџџџџџџџџџЮGameItem17џџџџзGameItem18џџџџџџџџџџџџЩGameItem19џџџџоGameItem20џџџџџџџџџџџџЙGameItem21џџџџBGameItem22џџџџџџџџџџџџъMACџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџ !ўџџџ#$%ўџџџ'(ўџџџ*+,ўџџџ./ўџџџ12ўџџџ456789:;<=>?@ABCDEFGHIJўџџџLMNOPQRSTUVWXYZ[\]^_`abcdeўџџџghijklmnopqrstuvwxyz{|}~€)R‡ѕй1ЌLхАžш5C VER2€wDSCCLRBCLRFџџџ VCENРсCP‚DWDTH–CHIGHШBROTAIMAGSURFNAMETEXTLet's Play PinballTYPECOLRSIZEVERTBGLSLOCKFONTМЄ, Comic Sans MSENDBRBCLRFџ€  VCEN@ОCРrDRADIHBSTATCOLRџџџTMONTMINdSHAP BPAT10BINT}BCOLBWTH@@SURFNAME Light1BGLSLOCKDPNT VCEN@ЏC@kDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@ЏCРDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENр DРDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENр D@kDSMTHSLNGATEXTEXCLOCKENDBENDBNameALGNTRNSLOCKFONTЄ, VER1PB}C VER2C€—CCLRBCLRFџџџ TEXT0TMONTMINdNAMEtestALGNTRNSLOCKFONTЄ,ArialENDBe VER1RDUC VER2€wD€ƒCCLRBCLRFџџџTEXTEnter player name here!TMONTMINdNAMETextBox2ALGNTRNSLOCKFONTм| Arial NarrowENDBLOCKFONTМLuci VER1RD5C VER2€wDSCCLRBCLRFџџџ TEXT0TMONTMINd NAMEPlayerEnteryALGNTRNSLOCKFONTЄ,ArialENDBLOCKENDBDPNT VCENЋЦ:Dў7ЯDSMTH VER1€ED8B VER2€wDРBCLRBCLRFџ€ TEXT0TMONTMINЄ, NAMEPlayer2ScoreALGNTRNSLOCKFONTМLucida Sans UnicodeENDBPTMONTMINTHRS VER1€QDPA VER2wD,BCLRBCLRFџџџTEXTPlayer 2TMONTMINdNAMEPlayer2NameALGNTRNSLOCKFONTЄ,ArialENDBLOCKPNTSDPNT VCENЋЦMDўЇУD VER1аApA VER20C4BCLRBCLRFџџџTEXTPlayer 1TMONTMINdNAMEPlayer1NameALGNTRNSLOCKFONTЄ,ArialENDBATEXTEXCLOCKENDBDP VCEN@GDаBLGTHШBROTApТCOLRЭЭЭЭTMONTMINdSURFELASš™™>NAMEGateLOCKENDBTEXCLOCKENDBDPNT VC VER1РA8B VER2`CРBCLRBCLRFџ€ TEXT0TMONTMINЄ, NAMEPlayer1ScoreALGNTRNSLOCKFONTМLucida Sans UnicodeENDBATEXTEXCLOCK VCENND€жDRADIШATMONTMINdSURFEBLDVSBL NAMERightOutlaneSHAPLOCKENDBTEXCLOCKENDB VCEN˜B€жDRADIШATMONTMINdSURFEBLDVSBLNAMELeftOutlaneSHAPLOCKENDBLOCKENDBDPNT HTEVDROPTMONTMINTHRSIMAG uppertextureSIMGCOLRЭЭЭЭTCLR???ALGNЭЭЭЭHTBTHTTPHBINNRNAMERightLaneDSPTSLGF BELASš™™>CSHDVSBLSVBLLOCKPNTSDPNT VCENЋЦMDўЇУDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋIDў{ЩDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋЦ:Dў7ЯDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋDўoкDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋf DўїпDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋfJDўџбDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋ†ODў7аDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋІPDўoЮDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋЖPD8­DSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN^XPDѓ’ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋ6ODў_ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENŒNDђ’ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЋІMD8­DSMTHSLNGATEXTEXCLOCKENDBENDBXCLOCKENDBDPNT HTEVDROPTMONTMINTHRS€?IMAGSIMGCOLRЭЭЭЭTCLR???ALGNЭЭЭЭHTBTHTTPHBINNR$NAMERightSlingshotDSPTSLGF BELASš™™>CSHDVSBLSVBLLOCKPNTSDPNT VCEND!DўOЪDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEND” Dў—ЫDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENDД!DўчЬDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENDМ$DўЭDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENDd'DўWЬDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENDt9DўПХDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENDCSHDVSBLSVBLLOCKPNTSDPNT VCENР.C№­DSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@(C ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@CЋDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENCјЋDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@C ЎDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@CXРDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€CмСDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENРC€УDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENCЈФDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@CРХDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€fCXЬDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN qCЭDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@}CшЬDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENр€C˜ЫDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENРCPЪDSMTHSLNGATEXTEXCLOCKENDBENDBpertexture SIMGnCOLRЭЭЭЭTCLR??? VCEN4qDРщDWDTHШAHIGH AHGHPSPDP @SPDF CPWRBTMONTMINdSURFNAMEPlungerLOCKENDBVCENІЪšB8­D VCENсCіDRADIШATMONTMINИ COLRЭЭЭЭSURFEBLDNAME DrainTYPELOCKENDBENDBDPNT VCENІJŽB`ЌDSMTH VCEN€ˆC0нDBASR зеAENDR= +AFLPRь‘CANGSєBANGEhBFORCЭЬL=TMONTMINSURFCOLRџџџNAMELeftFlipperFCLR€€€RTHKSTRGР@ELASš™™>VSBLLOCKENDBCE VCENРD0нDBASR зеAENDR= +AFLPRь‘CANGSnCANGE—CFORCЭЬL=TMONTMINЭЭЭЭSURFCOLRџџџ NAMERightFlipperFCLR€€€RTHKSTRGР@ELASš™™>VSBLLOCKENDB VCENкB ОDRADIШATMONTMINdSURFEBLDVSBLNAMELeftInlaneSHAPLOCKENDBTEXCLOCKENDB VCEN€EDРОDRADIШATMONTMINdSURFEBLDVSBLNAMERightInlaneSHAPLOCKENDBLOCKENDBDPNT HTEVDROPTMONTMINTHRSIMAG uppertexture SIMGnCOLRЭЭЭЭTCLR???ALGNЭЭЭЭHTBTHTTPHBINNRNAMELeftLaneDSPTSLGF BELASš™™>CSHDVSBLSVBLLOCKPNTSDPNT VCENІЪšB8­DSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЃc—Bђ’ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENІJŽB`ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENq=…Bђ’ЌDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENІJ‚B8­DSMTHSLNGATEXTEXCLOCKENDBDPNT VCENƒBpЮDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENŒB8аDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЕBвDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN@CјпDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN№CpкDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENC8ЯDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€ПB|ЩDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENšBЈУDSMTHSLNGATEXTEXCLOCKENDBENDBLOCKENDBDPNT VCEN aDHTEVDROPTMONTMINdTHRSIMAG SIMG€COLRЭЭЭЭTCLR???ALGNЭЭЭЭHTBTHTTPHBINNRNAMEOuterWallDSPTSLGF BELASš™™>CSHDVSBLSVBLLOCKPNTSDPNT VCEN9D BSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€’CдASMTHSLNGATEXTEXCLOCKENDBDPNT VCENЊB4CSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€?DSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€?€_DSMTHSLNGATEXTEXCLOCKENDBDPNT VCENфBИDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENXAPЈDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN>ФеDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN˜˜C6яDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN<сCwљDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENЧD€7яDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN€aDРЧеDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN aDаћЉDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENРeTDрWЂDSMTHSLNGATEXTEXCLOCKENDBDPNT VCEN0UDšDSMTHSLNGATEXTEXCLOCKENDBDPNT VCENњmWD~ёПCSMTHSLNGATEXTEXCLOCKENDBDPNT VCENTINCL,BFOVX4BSLOP€ПIMAG playfieldBIMGBLIMBLIFBLIBSSHTFGRDFBCKGLASRCCOLR€€€BCLRbnŽDSHDSEDTSSNDSIMGSFNTSCOLNAME Table1DCCUS4SECB0CODE‡ Option Explicit Dim gotPlayerNames, playerName(1), players, keyHit, nlNumb Public lts, ltsCount, keyLetters(61), numberofplayers, msgboxReturn Sub Table1_Init() '29 '39 lts = Array(" ","1","2","3","4","5","6","7","8","9","0","-","="," "," ","q","w","e","r","t","y","u","i","o","p","[","]"," "," ","a","s","d","f","g","h","j","k","l",";","'"," "," "," ","z","x","c","v","b","n","m","<",">","?"," ","Ctrl","win","Alt"," ","Alt","Win","Win menu","Ctrl") 'For ltsCount = 0 To 61 ' keyLetters(ltsCount) = lts(ltsCount) 'Next players = 0 gotPlayerNames = False msgboxReturn = MsgBox ("Will we be playing a 1 player game?", vbYesNo) if msgboxReturn = vbYes then numberOfPlayers = 1 else numberOfPlayers = 2 end if End Sub Sub Table1_KeyDown(ByVal keycode) 'MsgBox keycode test.text = keycode if gotPlayerNames then If keycode = PlungerKey Then Plunger.PullBack End If If keycode = LeftFlipperKey Then LeftFlipper.RotateToEnd PlaySound "FlipperUp" End If If keycode = RightFlipperKey Then RightFlipper.RotateToEnd PlaySound "FlipperUp" End If If keycode = LeftTiltKey Then Nudge 90, 2 End If If keycode = RightTiltKey Then Nudge 270, 2 End If If keycode = CenterTiltKey Then Nudge 0, 2 End If end if if not gotPlayerNames then Dim nlet if not keycode = 14 then 'get keystrikes if keyHit < 3 then On Error Resume Next keyHit = keyHit + 1 nlet = lts(keycode - 1) playerName(players) = playerName(players) & nlet PlayerEntery.Text = playerName(players) if err then MsgBox err.Description err.Clear Exit Sub end if end if else 'delete keystrikes Dim lsize, newName if keyHit > 0 then keyHit = keyHit - 1 lsize = Len(playerName(players)) newName = Left(playerName(players), lsize - 1) playerName(players) = newName PlayerEntery.Text = playerName(players) end if end if 'if Enter key is hit if keycode = PlungerKey then if numberofplayers = 1 then nlNumb = 1 PlayerEntery.Text = "" Player1Name.Text = playerName(players) keyHit = 0 StartGame() else nlNumb = nlNumb + 1 if nlNumb = 1 then PlayerEntery.Text = "" Player1Name.Text = playerName(players) players = 1 keyHit = 0 else 'PlayerEntery.Text = "" Player2Name.Text = playerName(players) nlNumb = 0 keyHit = 0 gotPlayerNames = True StartGame() end if end if end if end if End Sub Sub Table1_KeyUp(ByVal keycode) if gotPlayerNames then If keycode = PlungerKey Then Plunger.Fire End If If keycode = LeftFlipperKey Then LeftFlipper.RotateToStart PlaySound "FlipperDown" End If If keycode = RightFlipperKey Then RightFlipper.RotateToStart PlaySound "FlipperDown" End If end if End Sub Sub Drain_Hit() Drain.DestroyBall Plunger.CreateBall PlaySound "Plunger" End Sub Sub LeftSlingshot_Slingshot() PlaySound "Bumper" End Sub Sub RightSlingshot_Slingshot() PlaySound "Bumper" End Sub Sub Plunger_Init() PlaySound "Plunger" Plunger.CreateBall End Sub Sub StartGame() players = 0 Light1.State = 2 Light1.TimerInterval = 1500 Light1.TimerEnabled = True End Sub Sub Light1_Timer() Light1.State = 0 Light1.TimerEnabled = False End SubENDB