home *** CD-ROM | disk | FTP | other *** search
/ SeeIn AO / ALICE-CD.BIN / Šj”­ƒlƒbƒg�•‚»‚Ì‘¼ / nv_mini / source / nvsystem.adv < prev    next >
Text File  |  1998-09-14  |  7KB  |  262 lines
  1. ;================================================================================
  2. ; NVSYSTEM-mini                                          programmed by ALICE SOFT
  3. ;================================================================================
  4.  
  5. **NvSystemCall NvFunc,ar01,ar02,ar03,ar04,ar05,ar06,ar07,ar08,ar09,ar10:
  6.     US a01,30:
  7.     !NvRnd:0!
  8.     { NvFunc=0xfffe:~InitNvSystem:                @ExitNvSystemCall:}
  9.     { NvFunc=0xffff:~RemoveNvSystem:            @ExitNvSystemCall:}
  10.  
  11.     ~SwitchGetStrMode FALSE:
  12.     ~SwitchPutStrMode TRUE:
  13.     ~SetStrArray:
  14.  
  15.     { NvFunc=0x0000:~PutStrArray:                @ExitNvSystemCall:}
  16.     { NvFunc=0x0001:~SetNextLine:                @ExitNvSystemCall:}
  17.     { NvFunc=0x0002:\TCCom:                        @ExitNvSystemCall:}
  18.     { NvFunc=0x0003:\TRCom:                        @ExitNvSystemCall:}
  19.     { NvFunc=0x0004:\ESCom:                        @ExitNvSystemCall:}
  20.     { NvFunc=0x0005:\EDCom:                        @ExitNvSystemCall:}
  21.     { NvFunc=0x0006:~EGCom:~~NvRnd:                @ExitNvSystemCall:}
  22.     { NvFunc=0x0010:~PushKeyWait TRUE:            @ExitNvSystemCall:}
  23.     { NvFunc=0x0011:~PushKeyWait FALSE:            @ExitNvSystemCall:}
  24.     { NvFunc=0x0020:~SetNextPage:                @ExitNvSystemCall:}
  25.  
  26.     { NvFunc=0x0030:\FCCom:                        @ExitNvSystemCall:}
  27.     { NvFunc=0x0031:\FPCom:                        @ExitNvSystemCall:}
  28.     { NvFunc=0x0032:\FSCom:                        @ExitNvSystemCall:}
  29.  
  30.     { NvFunc=0x0040:\GSCom:                        @ExitNvSystemCall:}
  31.     { NvFunc=0x0041:\GCCom:                        @ExitNvSystemCall:}
  32.     { NvFunc=0x0042:\GGCom:                        @ExitNvSystemCall:}
  33.     { NvFunc=0x0043:\GTCom:                        @ExitNvSystemCall:}
  34.  
  35.     { NvFunc=0x0050:~SetPal ar01,ar02,ar03,ar04:@ExitNvSystemCall:}
  36.  
  37.     { NvFunc=0x0060:\SSCom:                        @ExitNvSystemCall:}
  38.     { NvFunc=0x0061:\SPCom:                        @ExitNvSystemCall:}
  39.     { NvFunc=0x0062:\SWCom:                        @ExitNvSystemCall:}
  40.  
  41.     { NvFunc=0x0100:~PTopSet:                    @ExitNvSystemCall:}
  42.     { NvFunc=0x0101:~PEndSet:                    @ExitNvSystemCall:}
  43.  
  44.     MS DebugMsgStr,âtâ@âôâNâVâçâôâRü[âïö╘ìåâGâëü[:~DebugMsgPut DebugMsgStr:
  45.  
  46. *ExitNvSystemCall:
  47.     ~SwitchGetStrMode TRUE:
  48.     ~SwitchPutStrMode FALSE:
  49.     UG a01,30:
  50.     ~0,NvRnd:
  51.  
  52. ;================================================================================
  53. ; InitNvSystem(),RemoveNvSystem()
  54.  
  55. **InitNvSystem:
  56.     US a01,30:
  57.     MV 100:
  58.     MT NVSYSTEM-mini:
  59.  
  60.     ~InitGrp:    ~PutInitDoneMsg 0:~PutInitDoneMsg 1:
  61.     ~InitKey:    ~PutInitDoneMsg 2:
  62.     ~InitStr:    ~PutInitDoneMsg 3:
  63.     ~InitSound:    ~PutInitDoneMsg 4:
  64.     ~InitFile:    ~PutInitDoneMsg 5:~PutInitDoneMsg 6:
  65.     ~StopKey:
  66.  
  67.     CE XSize,0,XSize,YSize,0,0,27,10,0:
  68. ;    PF 1,3:
  69. ;    CF 0,0,XSize,YSize,0:
  70. ;    PF 0,0:
  71.  
  72.     UG a01,30:
  73.     ~0,0:
  74.  
  75. **RemoveNvSystem:
  76.     ~RemoveGrp:
  77.     ~RemoveKey:
  78.     ~RemoveStr:
  79.     ~RemoveSound:
  80.     ~RemoveFile:
  81.     ~0,0:
  82.  
  83. **PutInitDoneMsg f01:
  84.     US a01,30:
  85.     NB a01,f01,1:
  86.     !a02:24!
  87.     !a03:a02*1!
  88.     !a04:(a02+StrYSpace)!
  89.     { a01=0:
  90.         MS SysStrBuffTop,ü|éaéÅéÅéöéëéÄéçü@éméuéréxérésédélü|éìéëéÄéëü@éûéàéÆüDéPüDéOéOü|éOéOü@üiéÅéÄü@éréxérésédéléRéTüjü|:
  91.         MS SysStrBuffTop+1,ü@é`éîéîü@éÆéëéçéêéöéôü@éüéÆéàü@éÆéàéôéàéÆéûéàéäü@éëéÄü@é`éîéëéâéàéréÅéåéöü@éôéëéÄéâéàü@éPéXéXéVü`:}
  92.     { a01=1:
  93.         !a04:a04+(a02+StrYSpace)*3!
  94.         MS SysStrBuffTop,ü@ü╦éhéÄéëéöéëéüéîéëéÜéàéäü@éféÆéüéÉéêéëéâümébéoétüF:
  95.         MS SysStrBuffTop+1,ü|ü|ü|:{ RateGUI \ 9999:MH SysStrBuffTop+1,0,SpecCPU:}
  96.         MA SysStrBuffTop,SysStrBuffTop+1:
  97.         MS SysStrBuffTop+1,ü^éfé`üF:
  98.         MA SysStrBuffTop,SysStrBuffTop+1:
  99.         MS SysStrBuffTop+1,ü|ü|ü|:{ RateGUI \ 9999:MH SysStrBuffTop+1,0,SpecGUI:}
  100.         MA SysStrBuffTop,SysStrBuffTop+1:
  101.         MS SysStrBuffTop+1,ün:
  102.         MA SysStrBuffTop,SysStrBuffTop+1:}
  103.     { a01=2:
  104.         !a04:a04+(a02+StrYSpace)*4!
  105.         MS SysStrBuffTop,ü@ü╦éhéÄéëéöéëéüéîéëéÜéàéäü@éjéàéÖ:}
  106.     { a01=3:
  107.         !a04:a04+(a02+StrYSpace)*5!
  108.         MS SysStrBuffTop,ü@ü╦éhéÄéëéöéëéüéîéëéÜéàéäü@éréöéÆéëéÄéçéô:}
  109.     { a01=4:
  110.         !a04:a04+(a02+StrYSpace)*6!
  111.         MS SysStrBuffTop,ü@ü╦éhéÄéëéöéëéüéîéëéÜéàéäü@éréÅéòéÄéä:}
  112.     { a01=5:
  113.         !a04:a04+(a02+StrYSpace)*7!
  114.         MS SysStrBuffTop,ü@ü╦éhéÄéëéöéëéüéîéëéÜéàéäü@éeéëéîéàéô:}
  115.     { a01=6:
  116.         !a04:a04+(a02+StrYSpace)*9!
  117.         MS SysStrBuffTop,éméuéréxérésédélü|éìéëéÄéëü@éüéÆéàü@éhéÄéëéöéëéüéîéëéÜéàéäüDégéëéöü@é`éÄéÖü@éjéàéÖüI:}
  118.  
  119.     ZH TRUE:
  120.     MG 100,TRUE:
  121.     ~SetFSize a02:
  122.     T a03,a04:
  123.     X SysStrBuffTop:
  124.     { a01=0:T a03,a04+a02+StrYSpace:X SysStrBuffTop+1:}
  125.     MG 100,PutStrFlag:
  126.     ZH FALSE:
  127.  
  128.     UG a01,30:
  129.     ~0,0:
  130.  
  131. ;================================================================================
  132. *FSCom:
  133.     {(ar01<24)+(ar01>640):
  134.         MS DebugMsgStr,éeérâRâ}âôâhé╠ê°Éöé¬ê┘Åφé┼é╖üB:
  135.         ~DebugMsgPut DebugMsgStr:\0:}
  136.     !StrFontSize:ar01!
  137.     \0:
  138. *FCCom:
  139.     {(ar01<16)+(ar01>240):
  140.         MS DebugMsgStr,éeébâRâ}âôâhé╠ê°Éöé¬ê┘Åφé┼é╖üB:
  141.         ~DebugMsgPut DebugMsgStr:\0:}
  142.     !StrFontColor:ar01!
  143.     \0:
  144.  
  145. *FPCom:
  146.     { ar01\0xffff:
  147.         !StrCurPutTime:ar01!
  148.         \0:}
  149.     !StrCurPutTime:StrDefPutTime!
  150.     \0:
  151.  
  152. ;================================================================================
  153. *TCCom:
  154.     { GrpRewriteFlag=TRUE:
  155.         ~SetGrpToDib:
  156.         !GrpRewriteFlag:FALSE!}
  157.     CC  XSize,    0,XSize,YSize,    0,YSize:
  158.     ~Cp     0,YSize,XSize,YSize,    0,    0:
  159.     !StrHideFlag:TRUE!
  160.     \0:
  161.  
  162. *TRCom:
  163.     { GrpRewriteFlag=TRUE:
  164.         ~SetGrpToDib:
  165.         CC XSize,0,XSize,YSize,0,YSize:
  166.         ~SetStrToDib:
  167.         ~Cp 0,YSize,XSize,YSize,0,0:
  168.         !GrpRewriteFlag:FALSE!
  169.         !StrHideFlag:FALSE!}
  170.     { StrHideFlag=TRUE:
  171.         ~SetStrToDib:
  172.         ~Cp 0,YSize,XSize,YSize,0,0:
  173.         !StrHideFlag:FALSE!}
  174.     \0:
  175.  
  176. *GTCom:
  177.     { GrpRewriteFlag=TRUE:
  178.         ~SetGrpToDib:
  179.         !GrpRewriteFlag:FALSE!
  180.         }
  181.     CC  XSize,    0,XSize,YSize,    0,YSize:
  182.     { StrHideFlag=FALSE:
  183.         ~SetStrToDib:
  184.         }
  185.     ~Cp     0,YSize,XSize,YSize,    0,    0:
  186.     \0:
  187.  
  188.  
  189.  
  190.  
  191. ;================================================================================
  192. *GSCom:
  193.     ~SetGrpBuff ar01,ar02,ar03,ar04,ar05:
  194.     !GrpRewriteFlag:TRUE!
  195.     \0:
  196. *GCCom:
  197.     US a01,30:
  198.     < a01,1,gMax-1,1,1:
  199.         ~SetGrpBuff a01,0,0,0,0:
  200.         >
  201.     !GrpRewriteFlag:TRUE!
  202.     UG a01,30:
  203.     \0:
  204. *GGCom:
  205.     !CopyEffect:ar01!
  206.     !CopyEffectTime:ar02!
  207.     \0:
  208.  
  209. ;================================================================================
  210. *ESCom:
  211.     { StrCurX\0:
  212.         MS DebugMsgStr,æIæ≡ÄêâRâ}âôâhé═ìsɵô¬é┼é╡é⌐Ägùpé┼é½é▄é╣é±üB:
  213.         ~DebugMsgPut DebugMsgStr:}
  214.     { StrCurX=0:
  215.         { ar01=0:!SelMode:1!!CurSelCount:1!}
  216.         { ar01\0:!SelMode:2!!CurSelCount:ar01!}
  217.         }
  218.     \0:
  219. *EDCom:
  220.     { SelMode=0:
  221.         MS DebugMsgStr,édérâRâ}âôâhé¬Ä└ìsé│éΩé─éóé▄é╣é±:
  222.         ~DebugMsgPut DebugMsgStr:}
  223.     { SelMode=2:!SelMode:0!!CurSelCount:0!}
  224.     \0:
  225. ;================================================================================
  226. **EGCom:US a01,30:
  227.         ~SetIxResult FALSE:
  228.         ~PutStrArray:
  229. *EGlp0:    ~SetSelBuff:~~a01:{ a01=ERROR:!Res:ERROR!@EGCOut:}
  230.         !a02:a01!
  231.         { SpStrCount\NULL:
  232.             ~SetSelSpStrBuff a01:!a02:a01+SpStrCount!}
  233. *EGlp1:    ~Select 1,a02,TRUE:~~Res:
  234.         { Res=0xffff:~SystemMenu:@EGlp0:}
  235.         { Res<a01:!Res:Res+1!@EGCOut:}
  236.         ~PutSpMsg Res-a01,FALSE:
  237.         @EGlp0:
  238. *EGCOut:DF slDat,slMax,0:
  239.         !SelMode:0!
  240.         !CurSelCount:0!
  241.         UG a01,30:
  242.         ~0,Res:
  243. ;================================================================================
  244. **PTopSet:
  245.     US a01,30:
  246.     {(ar01>RpMax)+(ar01=RpMax):
  247.         MS DebugMsgStr,ÄwÆΦâyü[âWé¬ì┼æσÆlé≡Æ┤éªé─éóé▄é╖:
  248.         ~DebugMsgPut DebugMsgStr:
  249.         !ar01:0!}
  250.     !CurRPage:ar01!
  251.     UG a01,30:
  252.     ~0,0:
  253. **PEndSet:
  254.     { CurRPage\0:!RpFlag[CurRPage]:TRUE!}
  255.     ~0,0:
  256.  
  257. ;================================================================================
  258. *SSCom:    ~PlayCd  ar01,ar02:            \0:
  259. *SPCom:    ~PlayPcm ar01,ar02,FALSE:    \0:
  260. *SWCom:    ~PlayPcm ar01,ar02,TRUE:    \0:
  261.  
  262.