home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 September / VPR9809A.ISO / OLS / Windows / Tibira_s / Tibira_s.lzh / START.AS < prev    next >
Text File  |  1998-06-26  |  4KB  |  145 lines
  1. ;    ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  2. ;    ★  ちびら-Special version    Tibira.exe  by J.KATSUNO  ★
  3. ;    ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  4.     x=dispx-640/2:y=dispy-480/2
  5.     width 200,194,x,y
  6.     title "ちびら  Special version"
  7. *start
  8.     onexit *exit
  9.     color 0,0,0
  10.     cls 1
  11.     rf=1:rmax=0:i=0
  12.  
  13.     exist "Tibira.cfg"
  14.     if strsize=-1:goto *error1
  15.     if strsize>32000:goto *error2
  16.     alloc buf,33000
  17.     str buf
  18.     bload "Tibira.cfg",buf
  19. ;登録数の確認
  20.     a1=""
  21. *chkkazu
  22.     getstr a1,buf,i,','
  23.     if a1="end":goto *kazuend
  24.     if strsize=0:goto *kazuend
  25.     i=i+strsize
  26.     getstr a1,buf,i,','
  27.     if strsize=0:goto *kazuend
  28.     i=i+strsize
  29.     getstr a1,buf,i
  30.     if strsize=0:goto *kazuend
  31.     i=i+strsize
  32.     rmax+
  33.     goto *chkkazu
  34. ;確認終了
  35. *kazuend
  36.     if rmax=0:goto *error3
  37.     dumy=rmax+1
  38.     sdim pi, 14,dumy
  39.     sdim bo, 14,dumy
  40.     sdim ex,102,dumy
  41. ;読み込み
  42.     i=0:moji=""
  43.     repeat rmax,1
  44.         getstr moji,buf,i,','
  45.         pi.cnt = moji
  46.         i=i+strsize
  47.         getstr moji,buf,i,','
  48.         bo.cnt = moji
  49.         i=i+strsize
  50.         getstr moji,buf,i
  51.         ex.cnt = moji
  52.         i=i+strsize
  53.     loop
  54. ;ボタン等の表示
  55.     bo1="--":bo2=">>"
  56.     objsize 120,24,24
  57.     pos 49,0
  58.     button "",*exe1    ;0
  59.     button "",*exe2    ;1
  60.     button "",*exe3    ;2
  61.     button "",*exe4    ;3
  62.     button "",*exe5    ;4
  63.     button "",*exe6    ;5
  64.     objsize 24,144,24
  65.     pos   0,0:button "",*dec    ;6
  66.     pos 170,0:button "",*add    ;7
  67.     objsize 194,24,24
  68.     pos 0,145:button "",*start    ;8
  69. ;初期値設定
  70.     rf=0:picy=0:rf0="":rfno=0:ti0="":da0=""
  71.     rf1=1:rf2=2:rf3=3:rf4=4:rf5=5:rf6=6
  72.  
  73. *menu
  74.     if rf1>   1:bo1="<<":else:bo1="--"
  75.     if rf6<rmax:bo2=">>":else:bo2="--"
  76.  
  77.           objprm 0,bo.rf1:picload pi.rf1,1,24,  0
  78.     if rmax>1:objprm 1,bo.rf2:picload pi.rf2,1,24, 24 : else : objprm 1,"未登録"
  79.     if rmax>2:objprm 2,bo.rf3:picload pi.rf3,1,24, 48 : else : objprm 2,"未登録"
  80.     if rmax>3:objprm 3,bo.rf4:picload pi.rf4,1,24, 72 : else : objprm 3,"未登録"
  81.     if rmax>4:objprm 4,bo.rf5:picload pi.rf5,1,24, 96 : else : objprm 4,"未登録"
  82.     if rmax>5:objprm 5,bo.rf6:picload pi.rf6,1,24,120 : else : objprm 5,"未登録"
  83.     objprm 6,bo1
  84.     objprm 7,bo2
  85.     rf0="▲ "+rf1+"～"+rf6+"/"+rmax
  86.     objprm 8,rf0
  87.     stop
  88.  
  89. ;前項へのボタン切り替え
  90. *dec
  91.     if (rf1-6)>       0:rf1-=6:rf2-=6:rf3-=6:rf4-=6:rf5-=6:rf6-=6:goto *menu
  92.     if (rf1-5)>       0:rf1-=5:rf2-=5:rf3-=5:rf4-=5:rf5-=5:rf6-=5:goto *menu
  93.     if (rf1-4)>       0:rf1-=4:rf2-=4:rf3-=4:rf4-=4:rf5-=4:rf6-=4:goto *menu
  94.     if (rf1-3)>       0:rf1-=3:rf2-=3:rf3-=3:rf4-=3:rf5-=3:rf6-=3:goto *menu
  95.     if (rf1-2)>       0:rf1-=2:rf2-=2:rf3-=2:rf4-=2:rf5-=2:rf6-=2:goto *menu
  96.     if (rf1-1)>       0:rf1-=1:rf2-=1:rf3-=1:rf4-=1:rf5-=1:rf6-=1:goto *menu
  97.     goto *menu
  98.  
  99. ;次項へのボタン切り替え
  100. *add
  101.     if (rf6+6)<(rmax+1):rf1+=6:rf2+=6:rf3+=6:rf4+=6:rf5+=6:rf6+=6:goto *menu
  102.     if (rf6+5)<(rmax+1):rf1+=5:rf2+=5:rf3+=5:rf4+=5:rf5+=5:rf6+=5:goto *menu
  103.     if (rf6+4)<(rmax+1):rf1+=4:rf2+=4:rf3+=4:rf4+=4:rf5+=4:rf6+=4:goto *menu
  104.     if (rf6+3)<(rmax+1):rf1+=3:rf2+=3:rf3+=3:rf4+=3:rf5+=3:rf6+=3:goto *menu
  105.     if (rf6+2)<(rmax+1):rf1+=2:rf2+=2:rf3+=2:rf4+=2:rf5+=2:rf6+=2:goto *menu
  106.     if (rf6+1)<(rmax+1):rf1+=1:rf2+=1:rf3+=1:rf4+=1:rf5+=1:rf6+=1:goto *menu
  107.     goto *menu
  108.  
  109. ;アプリケーション等の実行
  110. *exe1
  111.     exec ex.rf1
  112.     goto *menu
  113. *exe2
  114.     if rmax>1:exec ex.rf2
  115.     goto *menu
  116. *exe3
  117.     if rmax>2:exec ex.rf3
  118.     goto *menu
  119. *exe4
  120.     if rmax>3:exec ex.rf4
  121.     goto *menu
  122. *exe5
  123.     if rmax>4:exec ex.rf5
  124.     goto *menu
  125. *exe6
  126.     if rmax>5:exec ex.rf6
  127.     goto *menu
  128. ;ちびらの終了
  129. *exit
  130.     end
  131.  
  132. ;エラー表示
  133. *error1
  134.     dialog "Tibira.cfgがありません",1,"ちびら　不動？"
  135.     if stat=1:end
  136. *error2
  137.     dialog "Tibira.cfgが大きすぎます",1,"ちびら　不動？"
  138.     if stat=1:end
  139. *error3
  140.     dialog "Ｄａｔａがありません",1,"ちびら　不動？"
  141.     if stat=1:end
  142. *error
  143.     dialog "エラーがあります",1,"ちびら　不動？"
  144.     if stat=1:end
  145.