home *** CD-ROM | disk | FTP | other *** search
/ SeeIn AO / ALICE-CD.BIN / Šj”­ƒlƒbƒg�•‚»‚Ì‘¼ / nv_mini / source / nvgrp.adv < prev    next >
Text File  |  1998-08-31  |  3KB  |  148 lines
  1. ;===============================================================================
  2. ; NVSYSTEM-mini                                         programmed by ALICE SOFT
  3. ;===============================================================================
  4.  
  5. **InitGrp:
  6.     US a01,30:
  7.     { Debug\TRUE:~CheckXspec DibColor:}    
  8.     { Debug\TRUE:WW DibXSize,DibYSize,DibColor:}
  9.     { Debug=TRUE:WW DibXSize,DibYSize+YSize,DibColor:}
  10.     WV 0,0,XSize,YSize:
  11.  
  12.     #PaletteTbl,1:
  13.     < a01,0,0xffff,1,1:
  14.         F3,a02,a01*4+0:
  15.         F3,a03,a01*4+1:
  16.         F3,a04,a01*4+2:
  17.         F3,a05,a01*4+3:
  18.         { a02=0xffff:@InitGrpSkip0:}
  19.         ~SetPal a02,a03,a04,a05:
  20.         >
  21.  
  22. *InitGrpSkip0:
  23.     ~SetGrpBuff 0,0xffff,0,0,0:        ; âfâtâHâïâgÆlÉ▌ÆΦ
  24.     UG a01,30:
  25.     ~0,0:
  26.  
  27. **RemoveGrp:
  28.     ~0,0:
  29.  
  30. **SetPal f01,f02,f03,f04:
  31.     US a01,30:
  32.     NB a01,f01,4:
  33.     {(a01<16)+(a01>240):
  34.         MS DebugMsgStr,âpâîâbâgö╘ìåé¬Ägùpï╓Ä~ö╘ìåüiéOü`éPéTüAéQéSéPü`éQéTéTüjé╠è╘é┼é╖üB:
  35.         ~DebugMsgPut DebugMsgStr:@PSout:}
  36.     !pR[a01]:a02&0xff!
  37.     !pG[a01]:a03&0xff!
  38.     !pB[a01]:a04&0xff!
  39.     PS a01,pR[a01],pB[a01],pG[a01]:
  40.  
  41. *PSout:
  42.     UG a01,30:
  43.     ~0,0:
  44.  
  45. **SetPalAll:
  46.     US a01,30:
  47.     < a01,16,240,1,1:
  48.         PS a01,pR[a01],pB[a01],pG[a01]:
  49.         >
  50.     UG a01,30:
  51.     ~0,0:
  52.  
  53. ;-------------------------------------------------------------------------------
  54. *PaletteTbl:
  55.     _Palette:
  56. *Palette:
  57.     [ 016,255,255,255 ]
  58.     [ 017, 96, 96, 96 ]
  59.     [ 018,128,128,128 ]
  60.     [ 0xffff ]
  61.  
  62.  
  63. ;===============================================================================
  64. **Cp f01,f02,f03,f04,f05,f06:
  65.     US a01,30:
  66.     NB a01,f01,6:
  67.     { CopyEffect=0:CC a01,a02,a03,a04,a05,a06:}
  68.     { CopyEffect\0:
  69.         { CopyEffect=1000:PF 0,CopyEffectTime:@ExitCp:}
  70.         { CopyEffect=1001:PF 1,CopyEffectTime:@ExitCp:}
  71.         CE a01,a02,a03,a04,a05,a06,CopyEffect,CopyEffectTime,FALSE:
  72.         }
  73. *ExitCp:
  74.     !CopyEffect:0!
  75.     !CopyEffectTime:0!
  76.     UG a01,30:
  77.     ~0,0:
  78.  
  79. ;===============================================================================
  80. **PageClear:
  81.     { GrpRewriteFlag = TRUE:
  82.         ~SetGrpToDib:
  83.         !GrpRewriteFlag:FALSE!
  84.     }
  85.     ~Cp XSize,0,XSize,YSize,0,    0:
  86.      CC XSize,0,XSize,YSize,0,YSize:
  87.      ~0,0:
  88.  
  89. ;===============================================================================
  90. ; SetGrpBuff(Page,LinkNo,X,Y,SpFlag)
  91.  
  92. **SetGrpBuff f01,f02,f03,f04,f05:
  93.     US a01,30:
  94.     NB a01,f01,5:
  95.     !gLNum[a01]:a02!
  96.     !gX[a01]:a03!
  97.     !gY[a01]:a04!
  98.     !gSpFlag[a01]:a05!
  99.     UG a01,30:
  100.     ~0,0:
  101.  
  102. **SetGrpToDib:
  103.     US a01,30:
  104.     CF XSize,0,XSize,YSize,0:
  105.     PD 255:{ GrpBrightMode=TRUE:PD (GrpBright*255)/100:}
  106.     < a01,gMax-1,1,0,1:
  107.         { gLNum[a01]\0:
  108.             GS gLNum[a01],a11:
  109.             !a02:gX[a01]!
  110.             !a03:gY[a01]!
  111.             { a02=0xffff:!a02:a11!}
  112.             { a03=0xffff:!a03:a12!}
  113.             J 0,a02+XSize,a03:
  114.             { gSpFlag[a01]=TRUE:G gLNum[a01],0:}
  115.             { gSpFlag[a01]\TRUE:G gLNum[a01]:}
  116.             }
  117.         >
  118.     UG a01,30:
  119.     ~0,0:
  120.  
  121. **SetSystemGrp f01,f02:
  122.     US a01,30:
  123.     NB a01,f01,2:
  124.     PD 255:{ GrpBrightMode=TRUE:PD (GrpBright*255)/100:}
  125.     { gLNum[0]=0xffff:
  126.         < a01,gMax-1,1,0,1:
  127.             { gLNum[a01]\0:
  128.                 GS gLNum[a01],a11:
  129.                 !a02:gX[a01]!
  130.                 !a03:gY[a01]!
  131.                 { a02=0xffff:!a02:a11!}
  132.                 { a03=0xffff:!a03:a12!}
  133.                 J 0,a02+f01,a03+f02:
  134.                 { gSpFlag[a01]=TRUE:G gLNum[a01],0:}
  135.                 { gSpFlag[a01]\TRUE:G gLNum[a01]:}
  136.                 }
  137.             >
  138.         @Exit_SetSystemGrp:
  139.             }
  140.     { gLNum[0]\0:
  141.         J 0,gX[0]+f01,gY[0]+f02:
  142.         { gSpFlag[0]=TRUE:G gLNum[0],0:}
  143.         { gSpFlag[0]\TRUE:G gLNum[0]:}
  144.         }
  145. *Exit_SetSystemGrp:
  146.     UG a01,30:
  147.     ~0,0:
  148.