Mowd 與你的交流天地

代碼: 選擇全部

0 :
20 OPEN "ZOOData" FOR RANDOM AS#1:T=LOF(1):CLOSE #1
30 IF T=0 THEN PRINT "請先運行ZOOSA.BAS生成數據文件！":END
40 PRINT "【動物園歷險記】安裝生成地圖文件：<Y/N>
50 T$=INKEY$:IF T$<>"y" THEN CLS:END
60 LOCATE 2,1:PRINT "加載ZOOData.DAT-   ":BOX 5,67,155,75,0,2
70 OPEN "ZOOData" FOR APPEND AS#1
100 FOR T=1 TO 91:READ M$,F$:WRITE #1,F$
110 BOX 5,68,5+T/5,74
120 LOCATE 2,17:PRINT INT(T/9.1*10);"%
130 NEXT 
140 CM$="9DBiID+CBjBB,HBkIC.GDlCD2HCmBB6HCnGB(GDoBD=GDpFD@DDqBDABCqIBCDDzCBHBB
150 CM$=CM$+"rIBNDDsIBVCBtIDXGCuIDXEBuBC[DBvID^ICyBC`DCwFBcCCxHDfGB{BD,HB
155 WRITE #1,CM$:CLOSE #1
160 LOCATE 2,1:PRINT "生成ZOOMap.DAT-     
170 MS$="   "+CHR$(31)+CHR$(141)+CHR$(103)+"鷛?\黿鸇□蛙??嚄堐痄Q??????闡
180 MS$=MS$+"鷿□黓黫黐□黕點□?@??H鶹鶻鶼隼□黚黖黲默?k?l?k?D?\
200 OPEN "ZOOMap" FOR OUTPUTAS#1:CLOSE #1
210 OPEN "ZOOMap" FOR RANDOM AS#1 LEN=2
220 FIELD #1,2ASMP$
230 RESTORE: FOR T=1 TO 92
240 READ M$,F$
250 FOR T1=1 TO 50
260 LSET MP$=MID$(MS$,(ASC(MID$(M$,T1))-64)*3-1,2)
270 PUT #1,T*50+T1-50
280 NEXT 
290 BOX 22,68,22+T/92*132,74,1:LOCATE 2,16:PRINT INT(T/9.2*10);"%
300 NEXT 
440 CLOSE #1
450 PRINT "運行ZOO.BAS開始玩吧！
495 REM 一
500 DATA LLLFFFFGGGIIIIAAAACAIIIAAHHAAAIIAAEAFFFAIKKKKKKKKK,ED@@CU@@@
510 DATA GGHHHHKKLLAAAAFFFAAAACAAAAAAFFAAAGGGAAAAKKKKKKKKKK,a
520 DATA GGFFFLLLGGAAHHAAAAAAFAAAAAACAAAAFFFAAADAKKKKKKKbKK,IDH[DZA@BHE@@A@@@@AEZAFCk@@
530 DATA GGGGLLFFFKAACAAAAAAKAAAAAAFFFFAHHHAAAAAKKKKKKKKKKK,a
540 DATA KKLLLIIIIIKAAAFFFAIIKCAAAAAAAHKAAAAGGGGGKAAAHHAAAA,a
550 DATA IIIIHHHFFGIIAAAAAAAAHAAAACGGFFGGGAAAAAGGAAAAAAAAAL,a
560 DATA GGGFFFLLHHAAAAAAIIIGFFFAAIIIAGGAAAAAAAAALLLHHHKKKK,a
570 DATA HHLLLGGGFFGGGAAAAAAAFCAAAAAAAAAAAFFFA\AAKKKKFFHHHH,HD@@_CN@@
580 DATA FFFFFIIIIIAAAAAAIIIIACAAFFAAAKAAAAAAAEHHHHKKKFFFFF,HD@@@Y@@@
595 REM 二
600 DATA KKKKKKKKKKKAAAAAFFFAHHHAAAAAAAGAAACAAAGGHHIIIIKKLL,a
610 DATA KKKKKFFFKKAAAAACAAGGAAYAAAAIIIGGAAAAAAIILAAAFGGAAI,CCHXRCD@Q
620 DATA KKKKKKKbKKFFAAACUAAAFAAAAAAAHHGGGGAAAHAAFFFFKKKKLL,GB@@GCF@@HAZCzMR@y
630 DATA KKKKKFFFKKAAAHHHAAAAHAAAAAAAAAAAAACAAAAALLLHHHGGGG,a
640 DATA KAAAHHAAAAAAAFFFLAALAAAAAA]LLFAGGCAAAAAFGAAAAAAAHH,GC@@ZCH@@
650 DATA AAAAAAAAALLAAACAAAAAFFFAAAAIIIFAAAAAAAIIHAAGGGAAAA,a
660 DATA LLLHHHKKKKAAFFAAAAAAIIIAAAFFFAIIIIAAAAHHAGGAAAAAAL,a
670 DATA KKKKFFHHHHAAACAAAAAAAALLLAEAGGHAAAAAHHAALLFFAAAAAG,GC@@@SP@@
680 DATA HHKKKFFFFFAAGAAAAKKKGFFAAAAAYKAAAAACAAAKGGGKKKIIII,IC@@]CJ@@
695 REM 三
700 DATA HHIIIIKKLLKKAAAAAAAAKAAAAFFFFFKAAAEAAAGGKLLAAAAAAG,ED@@@SK@@
710 DATA LAAAFGGAAIAAAAAAIIIIFFAAAAAIIIGAACAAAAAAGGGLLLFFFF,a
720 DATA IIIIFFLLLHIIIAAAAAAAIACAAAAAFFAAAAAAKKKAFFFGGGLLHH,a
730 DATA HHGGGGLLFFAAAAFFFFAKFFAAAAAAALAAAALLLYIIHHGGGIIIII,"HD@@^CL@@
740 DATA GAAAAAAAHHGGAAAACAAFIAFFAAAAHKIIAAAAAAAKIIIAAAAAFF,a
750 DATA HAAGGGAAAAFFAAAAAAGGKAAAACAAAGKAAAAAAAAAFIIIIIILLL,a
760 DATA AHHAAAAAALGGeAAAALLLGAACAAALFFAAAAAFFFAALLLFFFHHHH,CB@@\CB@@
770 DATA LLFFAAAAAGLAAAAFFFAAFAAAHHAAAAAAAAAAACAAHHLLLAAGGL,a
780 DATA GGGKKKIIIIAAAAAAAAIIAAFFFAAAAKAAAAAHHHAKLLAAAAALLK,a
795 REM 四
800 DATA KGAAAAAAAGKAAFFFAAFFKCAAAAAAALHHHHAAAAGGLLAAAAAAHH,a
810 DATA GGGLLLFFFFFAAAAAGGGGKKAAAAAAAHFAAAAAAfLLHHAAAAAHHH,HDTC`CP@a
820 DATA LLIIIIIFFFIIIIAAAAAAIIAAAAAFFFGGDGAAAAAAHAAAAAAHHH,CDTA|X@@}
830 DATA FFGGGLLLHHAAAAFFAAAAHHHGGAAAAAAAAAAAAHHHHHHLLLGGGG,a
840 DATA IIIAAAAAFFAIIIAAAAALAAIWIIAAFFHAAAAAACKKGGGGHHFFFF,DCTEKCR@J
850 DATA IGGHHLLLLLIIAAAAAAGGWAAAAFFFAKIAAAGGGAALIIAAAAAAFF,AC@@@CT@@
860 DATA AAAGGGHHLLAAGGAAAAAAAAAFFAAAAAACAAHHHAAAAAAAAAFFFF,a
870 DATA HHLLLAAGGLAAAFFFHAAAAGGGAAAAAAAAAAAAHHAAFFFbGGGHHH,DE@@XW@CV
880 DATA LLAAAAALLKACAAAAAAFFAAAIIIIIFFAAAAIIIIIIHHHGGGFFII,a
895 REM 五
900 DATA IIAAAAAAHHKAAAFFFFAAGGGAAAAAHHLLAAACAAAAGGGHHHFFLL,a
910 DATA HHAAAAAHHHAAAFFAAAAKHAAAAAAAAKAAAAAGGGGGLAAAAAAGGL,a
920 DATA HAAAAAAHHHFFFAAAAAGGLAAAAIIIIIHHCAAAAIIIGAAAAAAAII,a
930 DATA HHLLLLGGGF[AAAFFFAAAHHAAAAALLLFFFFCAAAAAHHLLKKKKGG,AB@@bCX@@
940 DATA FGGGFFFIIIAAAAAAIIIALLAACAAAAAAAAAAHHHAAGGGHHHFFKK,a
950 DATA IIAAAAAAFFAAAAAFFFLLAACAAAAAAKAHHAAAGGGGKAAAAAAAHH,a
960 DATA GGGFFFLLLLAAHAAAEAAAAHHHAAAAFFAAGGGAACAAGFFAAAAAHH,GB@@@MI@@
970 DATA LLFFFFKKKKAAAAGGAAAAFFAAAAGGAAAAACAAAAAAHHHFFFGLLF,a
980 DATA KKIIIIIFFFAAAAIIAIIKACAAAAAAAKAAAAGGALLLFFAAAAHHAK,a
995 REM 六
1000 DATA GGGHHHFLLLKLLAAHHAAKIIIAAAAAGGFFjAAAAAAFFGGAAAAAFF,CD@@lCZ@@
1010 DATA LAAAAAAGGLLLAAAAGAAGLFFFAAAAHHFACAAAAHHIFFAAAAAAII,a
1020 DATA GAAAAAAAIIGVAAAFFAAIKAAAFFAALLHHAAAAAAAALLLLFFFHHH,BBLEoV@@p
1030 DATA IIIKKKFFGGIIIIAAAFFALLAAAAAAAAAAAAAHHHAAHAAAAAAAGG,a
1040 DATA GGGFFFHHHHAAAAAFFAAKACAAAAFFAAAAAAHHHAAAGGGLLLLHHH,a
1050 DATA KAAAAAAAHHFFFAAGGAAKFEAAAAGGLLHHAAAAAAKKGAAAAAAAAG,BC@@@SZ@@
1060 DATA GHHAAAAAFFFAAAAAFFAALLAAAAAAAAGAAGGAAAAKGGGLLLFFFK,a
1070 DATA FFFHHHLLGGAAAAAIIIIIAACAAAAIIIKAAAAFFIIIKKAAAAAAAI,a
1080 DATA FFAAAAHHAKIgAAAAFFFFIIIAAAAAAGIIAAAAAGGGIAAAAGGAAK,BBZBdC\@x
1095 REM 七
1100 DATA FGGAAAAAFFFFAAHHAAALKAAALLLAAKKKAAAAAALLGGHAAAAAHH,a
1110 DATA FFAAAAAAIIFAAAAIIIAALLAAZZAAAALAAIIAAAAFLLIIIHHKKK,"FCHS[C^@YEC@@@C`@@
1120 DATA LLLLFFHHHHAAAAAAFFAAACAAAFFAAAFAAAAAAAGAKKKKFFFFGG,a
1130 DATA HAAAAAAAGGAAAAAAGGAAAFFFAAAALLAAAFFAAAAKGGAAAAAAAH,a
1140 DATA HHGGGLLLHHAAiAAAAFFALLCAAFFAAALAAAAAAAFFGGGHHHLLLL,CBHCVCb@L
1150 DATA GAAAAAAAAGAAAAFFFAAAACAAAAHHAAFFAAHHAAAALLLKKKGGFF,a
1160 DATA GGGLLLHHKKAAFFAAAAAHAFFAAAAFFFAAAAAGGAAGFFAAAAAHHH,a
1170 DATA KKAAAAAAAIFFFFAAAAIIGGAAAHHHAcFAAAAAAAALLLLKKGGGLL,JCLIfCd@g
1180 DATA IAAAAGGAAKIIIAAAAAFFIAAAHHAAAKGGAAAAHHKKGAAFFAAAAK,a
1195 REM 八
1200 DATA GGHAAAAAHHFFAAAAFFAAKCAAAGGAAAKAAgAAAAAFKKKKLLLLFF,DD@@hCf@@
1210 DATA GGGHHLLLKKAAAAAAAAKKAAFFFAAAAAFFAAAAHHEAKKFFFHHLLL,IDHGuSY@t
1220 DATA KKKKLLLFFFKAAAAAFFAAAAACAAAAAAAAHHHHAAAALLLKKGGKKK,a
1230 DATA GGAAAAAAAHAAhAAFFFAAAAAACAAFFFAGGAAAAAAAKKHHHGGLLL,CB@@iCh@@
1240 DATA HHHGGIIIIIAAAAAAIIIIFFFAAGGGIIAAAAACAAAKLLLHHHKKKK,a
1250 DATA KKIIILLLLLIIIIAAAAAAIIAACAAEGGHHAAAAFFAAKKKKHHFFFF,HC@@OMJ@@
1260 DATA FFAAAAAHHHAAACAAAXHHGGAAAAFFAAAAAAAAAAAAKKKLLLFFGG,HBHATCj@M
1270 DATA HHHKKLLLGGHAAAAFFFAAAAAAAFFAAAAGGAAAAAAHHHKKKLLLGG,a
1280 DATA GAAFFAAAAKAAAAGGAALLAAAAAAFFKKHHAACAAAAKGKLLLLHHHF,a
1295 REM 九
1300 DATA BBBBBBBBBBBPAAJJAAQBBQAJJAAAPBBJAAAAAAAcBBBBBBBBBB,EBHHsSL@rJD@@@CA@@
1310 DATA LaLLLLLLLLLAALALALALLFAAFAAAKLLALAAAHHALLLLLLLLLLL,GD@@@SQ@@BAGASMHCC
1320 DATA BBBBBBBBBBBPPAAAAAABBAAAAAMOAcBTAAAAAASBBBBBBBBBBB,BB@@HSB@@JC@@@CE@@
1330 DATA "BBBBBBBBBBB^^A``A__BB^^A``A__BB^AAAAA__BBBbBBBBBBB",CC@@@ST@@HB@@ISE@@CE@@@CG@@
1340 DATA KKKKKKLLIIdAHLAAGIILLAAALAAAFKKFGAAAHAALLLLLLHHHLL,AB@@@MNCIHB@@@SV@@
1350 DATA LLKKKKaLLLLHAKFAAAFLLALLAAHAGLKAAAAAGGGLLLKKKKKLLL,GA@@@MOCKIC@@@SM@@
1360 DATA KKKKKKKKKKKGEAFFFAHKKAAAGGAAHKdAHAAAAEEKKKKKKKKKKK,EB@@@SH@@ADGIjMMCM
1370 DATA KLKLKLKLKLKAKALAJJAKLPAALLAAKLKAAAAAAQAKLKLKLbLKLK,HD@@@SX@@EB@@@SN@@FE@@@CO@@
1380 DATA IIIBBBBBBBBIIIRAAAAcBAIIIAAAABBAAAAAAMOBBbBBBBBBBB,BE@@kMECQJB@@@CS@@ID@@@SS@@
1395 REM 十
1400 DATA LLLLKKFFFGLAAGGAAHAcKHAAHHAAAKLAAAAAAAKKLLLKKKHHGG,JB@@@MFCWDB@@@SU@@
1410 DATA IIILIIIKKKILIIIIIAAcIIILIAAAKKLLIIIAAAAKKLLKKLLLKK,JBGDcMLCY
1420 DATA BBBBBBBBBBBIBIBIBARBBAAAAAAARBBIBIBIBAAcBBBBBBBBBB,IBHOwZC@vJD@@@C[@@
1430 DATA AkAAllAlAAIIIIIIIIIIdAAAAAAnALLAnALLAAAcLLLLLLLLLL,"CD@@@S^@@AC@@@C_@@JD@@@MKC]
1440 DATA KKLLLLKKKKKmIKmAAFFKLAAHGGAAAKKKAAAAAmAcKKLLLLKKKK,JD@@@Ca@@HD@@@MQ@@BBHLqZB@W
1450 DATA BBBBBaBBBBBPPAAAAAPBBAAAAAAAABBAMOAMOAPBBBBBBBBBBB,FA@@@MPCeGD@@@SF@@BBHDmSG@n
1460 DATA BBBBBBBBBBBRAAAAAAPBBAAMOOMAABBSAMOOMAABBBBBBBBbBB,HE@@@Cg@@EC@@eSO@@IB@@@SR@@
1470 DATA LLLLLLLLLLLEAALALAAAdAALAAAALALAAAALALALLLLLLLLLLL,AC@@@Cc@@BB@@@SJ@@
1480 DATA LLaLLLLLLLALAAAAAAELAALLLLLAALLAAAAAAAALLLLLLLLLLL,CA@@@CU@@IB@@@SW@@
1490 DATA BBBBBBBBBBBPAMOOMASBBAAMOOMAABdAAAAAAAPBBBBBBBBBBB,GB@@@SC@@AD@@UMGCi
1500 DATA BBBBBBBBBBBPAMOOMASBBAAMOOMAABdAAAAAAAPBBBBBBBBBBB,GB@@@SC@@AD@@UMGCi