home *** CD-ROM | disk | FTP | other *** search
/ SeeIn AO / ALICE-CD.BIN / Šj”­ƒlƒbƒg�•‚»‚Ì‘¼ / nv_mini / source / nvfile.adv < prev    next >
Text File  |  1998-08-31  |  11KB  |  419 lines
  1. ;===============================================================================
  2. ; NVSYSTEM-mini âtâ@âCâïè╓îW                            programmed by ALICE SOFT
  3. ;===============================================================================
  4.  
  5. **InitFile:
  6.     ~LoadAllEnvFile:
  7.     ~0,0:
  8.  
  9. **RemoveFile:
  10.     ~SaveAllEnvFile:
  11.     ~0,0:
  12.  
  13. ;===============================================================================
  14. ; SaveLoad
  15. ;  out ~~Res = True(Save) / False(Load)
  16.  
  17. **SaveLoad:
  18.         US a01,30:
  19. *SLLp:    ~SLMainGrp:~~a01:
  20. *SLLp0:    ~Select 1,a01,FALSE:~~a02:
  21.         { a02=0xffff:!Res:0xffff!@SLout:}
  22.         !a02:a02+1!
  23.         ~SLDialog a02:~~a03:
  24. *SLLp1:    ~Select 1,a03,FALSE:~~a04:
  25.         { a04=0:
  26.             MS SysStrBuffTop,âZü[âué╡é▄é╖é⌐üH:~YnDialog SysStrBuffTop:~~Res:
  27.             { Res=TRUE:
  28.                 ~SLSave a02:~~Res:@SLout:}
  29.             @SLLp:}
  30.         { a04=1:
  31.             MS SysStrBuffTop,âìü[âhé╡é▄é╖é⌐üH:~YnDialog SysStrBuffTop:~~Res:
  32.             { Res=TRUE:
  33.                 ~SLLoad a02:~~Res:@SLout:}
  34.             @SLLp:}
  35.         { a04=2:~SLMsg  a02:@SLLp:}
  36.         { a04=3:!Res:0xffff!@SLout:}
  37.         @SLLp:
  38. *SLout:    UG a01,30:
  39.         ~0,Res:
  40.  
  41. **SLSave f01:
  42.     !SfFlag:TRUE!~SaveFile f01:
  43.     !SfFlag:FALSE!
  44.     ~0,0:
  45.  
  46. **SLLoad f01:
  47.     ~LoadFile f01:
  48.     ~0,0:
  49.  
  50. **SLMsg f01:
  51.     MI SfComStrTop+f01-1,23-7,âRâüâôâgé≡ôⁿù═é╡é─é¡é╛é│éó:
  52.     ~SaveCommentStr:
  53.     ~0,0:
  54.  
  55. ;===============================================================================
  56. **SLMainGrp:
  57.     US a01,30:
  58.     CF XSize,    0,XSize,YSize,0:        ;âVâXâeâÇëµû╩âìü[âh
  59.     CF     0,YSize,XSize,YSize,0:        ;
  60.     ~SetSystemGrp XSize,0:                ;
  61.     CC XSize,0,XSize,YSize,0,YSize:        ;
  62.  
  63.     !a02:24!
  64.     !a03:a02*23+16!
  65.     !a04:(a02+StrYSpace)*3+16!
  66.     !a05:(XSize-a03)/2!
  67.     !a06:(YSize-(a04*3+a02+StrYSpace))/2!
  68.  
  69.     ~SetFSize a02:
  70.     !a06:a06+a02+StrYSpace!
  71.     < a01,1,3,1,1:
  72.         ~SLMainGrpSub a01,a02,a05,a06,a03,a04:
  73.         ! eX[a01-1]:a05!
  74.         ! eY[a01-1]:a06!
  75.         !eLx[a01-1]:a03!
  76.         !eLy[a01-1]:a04!
  77.         !eSx[a01-1]:a05+XSize!
  78.         !eSy[a01-1]:a06!
  79.         !eUx[a01-1]:a05!
  80.         !eUy[a01-1]:a06+YSize!
  81.         !a06:a06+a04!
  82.         >
  83.     CC 0,YSize,XSize,YSize,0,0:
  84.     !Res:3!
  85.     UG a01,30:
  86.     ~0,Res:
  87.  
  88. **SLMainGrpSub f01,f02,f03,f04,f05,f06:
  89.     US a01,30:
  90.     NB a01,f01,6:
  91.  
  92.     CK 1,a03+XSize,a04,a05,a06,SelStrColor,224,0,0:
  93.  
  94.     MS SysStrBuffTop,üââfü[â^:
  95.     MH SysStrBuffTop+1,1,a01:
  96.     MA SysStrBuffTop,SysStrBuffTop+1:
  97.     MS SysStrBuffTop+1,üä:
  98.     MA SysStrBuffTop,SysStrBuffTop+1:
  99.     ~SetFColor StrFontColor:T a03+8+XSize,a04+8      :X SysStrBuffTop:
  100.     ~SetFColor SelStrColor: T a03+8      ,a04+8+YSize:X SysStrBuffTop:
  101.     ~CheckSfExist a01:~~a10:
  102.     { a10=TRUE:~GetSfTime a01,10:}        ; 10 = a11
  103.     MS SysStrBuffTop,ü@âZü[âuÄ₧è╘üF:
  104.     ~SetFColor StrFontColor:T a03+8+XSize,a04+8+a02+StrYSpace      :X SysStrBuffTop:
  105.     ~SetFColor SelStrColor: T a03+8      ,a04+8+a02+StrYSpace+YSize:X SysStrBuffTop:
  106.     ZH TRUE:
  107.     MS SysStrBuffTop+1,ü^:
  108.     MS SysStrBuffTop+2,üF:
  109.     MS SysStrBuffTop,ü|ü|ü|ü|:{ a10=TRUE:MH SysStrBuffTop,4,a11[0]:}    ;öN
  110.     MA SysStrBuffTop,SysStrBuffTop+1:
  111.     MS SysStrBuffTop+3,ü|ü|:  { a10=TRUE:MH SysStrBuffTop+3,2,a11[1]:};îÄ
  112.     MA SysStrBuffTop,SysStrBuffTop+3:
  113.     MA SysStrBuffTop,SysStrBuffTop+1:
  114.     MS SysStrBuffTop+3,ü|ü|:  { a10=TRUE:MH SysStrBuffTop+3,2,a11[2]:};ô·
  115.     MA SysStrBuffTop,SysStrBuffTop+3:
  116.     MA SysStrBuffTop,SysStrBuffTop+1:
  117.     MS SysStrBuffTop+3,ü@:
  118.     MA SysStrBuffTop,SysStrBuffTop+3:
  119.     MS SysStrBuffTop+3,ü|ü|:  { a10=TRUE:MH SysStrBuffTop+3,2,a11[3]:};Ä₧
  120.     MA SysStrBuffTop,SysStrBuffTop+3:
  121.     MA SysStrBuffTop,SysStrBuffTop+2:
  122.     MS SysStrBuffTop+3,ü|ü|:  { a10=TRUE:MH SysStrBuffTop+3,2,a11[4]:};ò¬
  123.     MA SysStrBuffTop,SysStrBuffTop+3:
  124.     MA SysStrBuffTop,SysStrBuffTop+2:
  125.     MS SysStrBuffTop+3,ü|ü|:  { a10=TRUE:MH SysStrBuffTop+3,2,a11[5]:};òb
  126.     MA SysStrBuffTop,SysStrBuffTop+3:
  127.     ~SetFColor StrFontColor:T a03+8+a02*7+XSize,a04+8+a02+StrYSpace      :X SysStrBuffTop:
  128.     ~SetFColor SelStrColor: T a03+8+a02*7      ,a04+8+a02+StrYSpace+YSize:X SysStrBuffTop:
  129.     ZH FALSE:
  130.  
  131.     MS SysStrBuffTop,ü@âRâüâôâgü@üF:
  132.     MA SysStrBuffTop,SfComStrTop+a01-1:
  133.     ~SetFColor StrFontColor:T a03+8+XSize,a04+8+(a02+StrYSpace)*2      :X SysStrBuffTop:
  134.     ~SetFColor SelStrColor: T a03+8      ,a04+8+(a02+StrYSpace)*2+YSize:X SysStrBuffTop:
  135.  
  136.     CB a03+1+XSize,a04+1,a05-1,a06-1,SelStrColor:
  137.     CB a03  +XSize,a04  ,a05-1,a06-1,StrFontColor:
  138.  
  139.     UG a01,30:
  140.     ~0,0:
  141.  
  142. ;===============================================================================
  143. **SLDialog f01:
  144.     US a01,30:
  145.     !a06:f01!
  146.     !a01:24!
  147.     !a02:a01*4+16!
  148.     !a03:(a01+StrYSpace)*4+16!
  149.     !a04:Msx!{(a04+a02)>XSize:!a04:XSize-a02!}    ;Clipping
  150.     !a05:Msy!{(a05+a03)>YSize:!a05:YSize-a03!}    ;Clipping
  151.     CC a04,a05,a02,a03,XSize      ,YSize:
  152.     CC a04,a05,a02,a03,XSize+a02  ,YSize:
  153.     CC a04,a05,a02,a03,XSize+a02*2,YSize:                ;
  154.     CK 1,XSize,YSize,a02*2,a03,SelStrColor,224,0,0:    ;
  155.     CB XSize+1    ,YSize+1,a02-1,a03-1,SelStrColor:
  156.     CB XSize      ,YSize  ,a02-1,a03-1,StrFontColor:
  157.     CB XSize+1+a02,YSize+1,a02-1,a03-1,SelStrColor:
  158.     CB XSize  +a02,YSize  ,a02-1,a03-1,StrFontColor:
  159.     < a11,0,3,1,1:
  160.         #SLDialogTbl,1:
  161.         F1,SysStrBuffTop,a11:
  162.         T XSize    +8,YSize+(a01+StrYSpace)*a11+8:~SetFColor StrFontColor:X SysStrBuffTop:
  163.         T XSize+a02+8,YSize+(a01+StrYSpace)*a11+8:~SetFColor SelStrColor: X SysStrBuffTop:
  164.         ! eX[a11]:a04+8!
  165.         ! eY[a11]:a05+(a01+StrYSpace)*a11+8!
  166.         !eLx[a11]:a02-16!
  167.         !eLy[a11]:a01+StrYSpace!
  168.         !eSx[a11]:XSize+8!
  169.         !eSy[a11]:YSize+(a01+StrYSpace)*a11+8!
  170.         !eUx[a11]:XSize+a02+8!
  171.         !eUy[a11]:YSize+(a01+StrYSpace)*a11+8!
  172.         ~CheckSfExist a06:~~a07:
  173.         {((a11=1)+(a11=2))*(a07=FALSE):
  174.             !eX [a11]:0x8000!
  175.             !eY [a11]:0x8000!
  176.             !eLx[a11]:0x1000!
  177.             !eLy[a11]:0x1000!
  178.             }
  179.         >
  180.     CC XSize+a02,YSize,a02,a03,a04,a05:
  181.     !Res:4!
  182.     UG a01,30:
  183.     ~0,Res:
  184.  
  185. **YnDialog f01:
  186.         US a01,30:
  187.         NB a01,f01,1:
  188.         ~SetYnDialog a01:
  189.         ~Select 2,1,FALSE:~~a02:
  190.         !Res:FALSE!{ a02=0:!Res:TRUE!}
  191.         ~RecoverYnDialog:
  192.         UG a01,30:
  193.         ~0,Res:
  194.  
  195. **SetYnDialog f01:
  196.         US a01,30:
  197.         NB a01,f01,1:
  198.         ML a02,f01:!a03:6!{ a02>a03:!a03:a02!}
  199.  
  200.         !a11:24!        ; font-size
  201.         !a12:Msx!
  202.         !a13:Msy!
  203.         !a14:a03*a11+16!
  204.         !a15:(a11+StrYSpace)*2+16!
  205.         {(a12+a14)>XSize:!a12:XSize-a14!}    ;Clipping
  206.         {(a13+a15)>YSize:!a13:YSize-a15!}    ;
  207.  
  208.         ~SetFSize a11:
  209.  
  210.         CC a12,a13,a14,a15,XSize,YSize:
  211.         CC a12,a13,a14,a15,XSize,YSize+a15:
  212.         CC a12,a13,a14,a15,XSize,YSize+a15*2:
  213.         CK 1,XSize,YSize,a14,a15*2,SelStrColor,224,0,0:
  214.         CB XSize+1,YSize+1    ,a14-1,a15-1,SelStrColor:
  215.         CB XSize  ,YSize      ,a14-1,a15-1,StrFontColor:
  216.         CB XSize+1,YSize+1+a15,a14-1,a15-1,SelStrColor:
  217.         CB XSize  ,YSize  +a15,a14-1,a15-1,StrFontColor:
  218.  
  219.         ~SetYnDialogXTop a01,0,a14:~~a16:
  220.         ~SetFColor StrFontColor:
  221.         T XSize+a16,YSize+8    :X a01:
  222.         T XSize+a16,YSize+8+a15:X a01:
  223.  
  224.         MS SysStrBuffTop,é═éó:
  225.         MS SysStrBuffTop+1,éóéóéª:
  226.         < a04,0,1,1,1:
  227.             ~SetYnDialogXTop SysStrBuffTop+a04,a14/2*a04,a14/2:~~a16:
  228.             T XSize+a16,YSize+a11+StrYSpace+8    :~SetFColor StrFontColor:
  229.             X SysStrBuffTop+a04:
  230.             T XSize+a16,YSize+a11+StrYSpace+8+a15:~SetFColor SelStrColor:
  231.             X SysStrBuffTop+a04:
  232.             ML a05,SysStrBuffTop+a04:
  233.             ! eX[a04]:a12+a16!
  234.             ! eY[a04]:a13+a11+StrYSpace+8!
  235.             !eLx[a04]:a05*a11+StrYSpace!
  236.             !eLy[a04]:a11+StrYSpace!
  237.             !eSx[a04]:XSize+a16!
  238.             !eSy[a04]:YSize+a11+StrYSpace+8!
  239.             !eUx[a04]:XSize+a16!
  240.             !eUy[a04]:YSize+a15+a11+StrYSpace+8!
  241.             >
  242.         ! eX[2]:a12!
  243.         ! eY[2]:a13!
  244.         !eLx[2]:a14!
  245.         !eLy[2]:a15!
  246.         !eSx[2]:XSize!
  247.         !eSy[2]:YSize+a15*2!
  248.  
  249.         CC XSize,YSize+a15,a14,a15,a12,a13:
  250.         UG a01,30:
  251.         ~0,0:
  252.  
  253. **RecoverYnDialog:
  254.         CC eSx[2],eSy[2],eLx[2],eLy[2],eX[2],eY[2]:
  255.         ~0,0:
  256.  
  257. **SetYnDialogXTop f01,f02,f03:
  258.     US a01,30:
  259.     NB a01,f01,3:
  260.     ML a11,f01:
  261.     !Res:a02+(a03-a11*24)/2!
  262.     UG a01,30:
  263.     ~0,Res:
  264.  
  265. *SLDialogTbl:
  266.     _SLDialogStrTbl:
  267. *SLDialogStrTbl:
  268.     "âZü[âu"
  269.     "âìü[âh"
  270.     "âRâüâôâg"
  271.     "ÅIù╣"
  272.  
  273. ;===============================================================================
  274. **CheckSfExist f01:
  275.     US a01,30:
  276.     LP f01,SfFlag,1:
  277.     !Res:SfFlag!{ RND>200:!Res:FALSE!}
  278.     UG a01,30:
  279.     ~0,Res:
  280.  
  281. **GetSfTime f01,f02:
  282.     US SfYear,6:
  283.     LP f01,SfYear,6:
  284.     NB a01[f02],SfYear,6:
  285.     UG SfYear,6:
  286.     ~0,0:
  287.  
  288. **SetSfTime:
  289.     US a01,30:
  290.     ZT 0,a01:
  291.     NB SfYear,a01,6:
  292.     UG a01,30:
  293.     ~0,0:
  294.  
  295. ;===============================================================================
  296. **SaveFile f01:
  297.         US a01,30:
  298.         NB a01,f01,1:
  299.         ~SaveAllEnvFile:
  300.         ~SetSfTime:
  301. *SFLp:    QD a01:
  302.         { RND>200:
  303.             MS DebugMsgStr,âZü[âuâtâ@âCâïé¬âZü[âué┼é½é▄é╣é±üB:
  304.             ~AbortMsgPut DebugMsgStr:@SFLp:}
  305.         { RND=TRUE:
  306.             !Res:TRUE!
  307.             @ExitSF:}
  308.         { RND=FALSE:
  309.             !Res:FALSE!
  310.             ~LoadAllEnvFile:
  311.             ~RecoverAll:
  312.             @ExitSF:}
  313. *ExitSF:UG a01,30:
  314.         ~0,Res:
  315.  
  316. **LoadFile f01:
  317.     US a01,30:
  318.     NB a01,f01,1:
  319.     ~SaveAllEnvFile:
  320.     LD a01:
  321.     UG a01,30:
  322.     ~0,Res:
  323.  
  324. ;===============================================================================
  325. **LoadAllEnvFile:
  326.     ~LoadGlobalData:
  327.     ~LoadReadPageFlag:
  328.     ~LoadCommentStr:
  329.     ~0,0:
  330.  
  331. **LoadEnvFile f01:
  332.     US a01,30:
  333.     NB a01,f01,1:
  334.     { a01=1:LE 0,nvdat01.asd,GlDat[0],GlMax: !Res:RND!}
  335.     { a01=2:LE 0,nvdat02.asd,RpFlag[0],RpMax:!Res:RND!}
  336.     { a01=3:LE 1,nvdat03.asd,SfComStrTop,3:  !Res:RND!}
  337.     UG a01,30:
  338.     ~0,Res:
  339.  
  340. **LoadGlobalData:
  341.     US a01,30:
  342.     ~LoadEnvFile 1:~~Res:{ Res>200:~SaveGlobalData:}
  343.     !GrpBrightMode:GlDat[0]!
  344.     !GrpBright:GlDat[1]!
  345.     !FastReadFlag:GlDat[2]!
  346.     UG a01,30:
  347.     ~0,0:
  348.  
  349. **LoadReadPageFlag:
  350.     US a01,30:
  351.     ~LoadEnvFile 2:~~Res:{ Res>200:~SaveReadPageFlag:}
  352.     UG a01,30:
  353.     ~0,0:
  354.  
  355. **LoadCommentStr:
  356.     US a01,30:
  357.     ~LoadEnvFile 3:~~Res:{ Res>200:~SaveCommentStr:}
  358.     UG a01,30:
  359.     ~0,0:
  360.  
  361. ;===============================================================================
  362. **SaveAllEnvFile:
  363.     ~SaveGlobalData:
  364.     ~SaveReadPageFlag:
  365.     ~SaveCommentStr:
  366.     ~0,0:
  367.  
  368. **SaveEnvFile f01:
  369.         US a01,30:
  370.         NB a01,f01,1:
  371. *SEFlp:    { a01=1:QE 0,nvdat01.asd,GlDat[0],GlMax:    !Res:RND!@SEFChk:}
  372.         { a01=2:QE 0,nvdat02.asd,RpFlag[0],RpMax:    !Res:RND!@SEFChk:}
  373.         { a01=3:QE 1,nvdat03.asd,SfComStrTop,3:        !Res:RND!@SEFChk:}
  374.         @SEFOut:
  375. *SEFChk:{ Res>200:
  376.             MS DebugMsgStr,è┬ï½âfü[â^é¬âZü[âué┼é½é▄é╣é±:~AbortMsgPut DebugMsgStr:@SEFlp:}
  377.  
  378. *SEFOut:UG a01,30:
  379.         ~0,Res:
  380.  
  381. **SaveGlobalData:
  382.     US a01,30:
  383.     !GlDat[0]:GrpBrightMode!
  384.     !GlDat[1]:GrpBright!
  385.     !GlDat[2]:FastReadFlag!
  386.     !Res:0xffff!
  387.     <@ Res>200:~SaveEnvFile 1:~~Res:>
  388.     UG a01,30:
  389.     ~0,0:
  390.  
  391. **SaveReadPageFlag:
  392.     US a01,30:
  393.     !Res:0xffff!
  394.     <@ Res>200:~SaveEnvFile 2:~~Res:>
  395.     UG a01,30:
  396.     ~0,0:
  397.  
  398. **SaveCommentStr:
  399.     US a01,30:
  400.     !Res:0xffff!
  401.     <@ Res>200:~SaveEnvFile 3:~~Res:>
  402.     UG a01,30:
  403.     ~0,0:
  404.  
  405. ;===============================================================================
  406. **RecoverAll:
  407.     US a01,30:
  408.     ~SetPalAll:
  409.     ~RecoverSound:
  410. ;    ~SetGrpToDib:
  411. ;    CC XSize,0,XSize,YSize,0,YSize:
  412. ;    ~SetStrToDib:
  413. ;    !GrpRewriteFlag:FALSE!
  414. ;    !StrHideFlag:FALSE!
  415. ;    CC 0,YSize,XSize,YSize,0,0:
  416.     UG a01,30:
  417.     ~0,0:
  418.  
  419.