home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00120_Script_120 < prev    next >
Text File  |  1995-11-13  |  1KB  |  40 lines
  1. on Ranking
  2.   global Syosya1,Syosya2,Syosya3,Syosya4¼
  3. ,Tensu,Tensu2,Tensu3,Tensu4,gTeika2
  4.   
  5.   set the textSize of field "ΦⁿΘô" = 30
  6.   set the textHeight of field "ΦⁿΘô" = 37
  7.   set the textStyle of field "ΦⁿΘô" = "bold"
  8.   put Syosya1 & RETURN & Syosya2 & RETURN¼
  9.   & Syosya3 & RETURN & Syosya4 into field"ΦⁿΘô"
  10.   
  11.   set the textSize of field "∞µ∞_" = 26
  12.   set the textHeight of field "∞µ∞_" = 37
  13.   set the textStyle of field "∞µ∞_" = "bold"
  14.   put Tensu && "±ß" & RETURN & Tensu2 && "±ß" & RETURN¼
  15.   & Tensu3 && "±ß" & RETURN & Tensu4 && "±ß" into field"∞µ∞_"
  16.   
  17.   if Syosya1 = "╟å╟╗╟²" then
  18.     sound playFile 1,"\S_BZMKRI\OK_SE4"
  19.     YouWin
  20.     set gTeika2 = Tensu * 50
  21.     put gTeika2 && "╔e╔C╔JΣl∞µ" into field "Σl∞µ╔e╔C╔J"
  22.   else
  23.     if Syosya2 = "╟å╟╗╟²" then
  24.       set gTeika2 = Tensu2 * 30
  25.       put gTeika2 && "╔e╔C╔JΣl∞µ" into field "Σl∞µ╔e╔C╔J"
  26.     else
  27.       if Syosya3 = "╟å╟╗╟²" then
  28.         set gTeika2 = Tensu3 * 10
  29.         put gTeika2 && "╔e╔C╔JΣl∞µ" into field "Σl∞µ╔e╔C╔J"
  30.       else
  31.         if Syosya4 = "╟å╟╗╟²" then
  32.           sound playFile 1,"\S_BZMKRI\OOH"
  33.           set gTeika2 = (100 - Tensu4) * -10
  34.           put abs(gTeika2) && "╔e╔C╔J±vΘ░" into field "Σl∞µ╔e╔C╔J"
  35.         end if
  36.       end if
  37.     end if
  38.   end if
  39.   
  40. end