home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
roudoku.dir
/
00088_Script_88
< prev
next >
Wrap
Text File
|
1995-11-10
|
3KB
|
98 lines
on TonoHimeBouzu
global THBlist
put [1:1,2:2,3:1,4:1,5:1,6:1,7:1,8:3,9:2,10:3,¼
11:1,12:3,13:1,14:1,15:1,16:1,17:1,18:1,19:2,20:1,¼
21:3, 22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,¼
31:1,32:1,33:1,34:1,35:1,36:1,37:1,38:2,39:1,40:1,¼
41:1,42:1,43:1,44:1,45:1,46:1,47:3,48:1,49:1,50:1,¼
51:1,52:1,53:2,54:2,55:1,56:2,57:2,58:2,59:2,60:2,¼
61:2,62:2,63:1,64:1,65:2,66:3,67:2,68:1,69:3,70:3,¼
71:1,72:2,73:1,74:1,75:1,76:3,77:1,78:1,79:1,80:2,¼
81:1,82:3,83:1,84:1,85:3,86:3,87:3,88:2,89:2,90:2,¼
91:1,92:2,93:1,94:1,95:3,96:3,97:1,98:1,99:1,100:1] into THBlist
end
on Tono
global THBlist
TonoHimeBouzu
put field"╔f┼[╔^╔x┼[╔X" into karutaDB
put "" into field "KEYSELECT"
put "" into x
repeat with v in THBlist
put v & "," after x
end repeat
put "" into T_list
repeat with n = 1 to 100
if item n of X = 1 then put n & "," after T_list
end repeat
repeat with t = 1 to (the number of items in T_list) - 1
put item t of T_list into T_menber
put line integer(T_menber) of karutaDB into vT
put item 1 of vT && item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &" " & "[" & item 3 of vT && item 4 of vT &"]" & RETURN ¼
after field "KEYSELECT"
end repeat
updateStage
--return the number of items in T_list
end
on HIME
global THBlist
TonoHimeBouzu
put field"╔f┼[╔^╔x┼[╔X" into karutaDB
put "" into field "KEYSELECT"
put "" into x
repeat with v in THBlist
put v & "," after x
end repeat
put "" into H_list
repeat with n = 1 to 100
if item n of X = 2 then put n & "," after H_list
end repeat
repeat with t = 1 to (the number of items in H_list) - 1
put item t of H_list into H_menber
put line integer(H_menber) of karutaDB into vT
put item 1 of vT && item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &" " & "[" & item 3 of vT && item 4 of vT &"]" & RETURN after field "KEYSELECT"
end repeat
updateStage
return X
end
on THB vSp
global THBlist
TonoHimeBouzu
put field"╔f┼[╔^╔x┼[╔X" into karutaDB
put "" into field "KEYSELECT"
put "" into x
repeat with v in THBlist
put v & "," after x
end repeat
put "" into H_list
repeat with n = 1 to 100
if item n of X = vSp then put n & "," after H_list
end repeat
--τ╧Θô╟Ö " ∞a " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
if vSp = 1 then put "∞a" into vP
else
if vSp = 2 then put "∩P" into vP
else
if vSp = 3 then put "±VΘ┬" into vP
end if
end if
put "τ╧Θô╟Ö" & "[" & vP &"]" &"╟├Γ├╟╒Θⁿ╟├φá╟╦╟╝╟▌┼B" into field "SELECTVIEW"
put "σⁿτªΩε"&& integer(the number of items in H_list) - 1 into field "SARCH"
repeat with t = 1 to (the number of items in H_list) - 1
put item t of H_list into H_menber
put line integer(H_menber) of karutaDB into vT
put item 1 of vT && item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &" " & "[" & item 3 of vT && item 4 of vT &"]" & RETURN after field "KEYSELECT"
end repeat
updateStage
return X
end