日記 2007年09月11日 23:34
むぅ・・・  

ここ最近調子に乗って選手買いあさったせいで、自分でも把握できておりません><
あっちの垢こっちの垢行き来しながらカードをやりくりして、足りなければ買って、選手のスロットに貼っていくと気づけば時間が・・・


だれかうちが開発に専念できるように、チームの運営を代わりにやって欲しい気持ちです。
ベストはケイティさんとこの秘書さんを一時的にレンタルかなw
ほっといても勝手にやってくれそうだしw

コメント

2007年09月12日 14:07 シマイモ  

うちも同じような状況です><

と言っても、うちは調子に乗ってEU害の問題がメインで、この選手はレンタル出して、いつ留学させて…、カードは何を貼ってとか。

選手育成計画シートでも作ってみるかw

2007年09月14日 05:35 KT  

秘書:ご指名ありがとうございます。
しかしながら、現在オーナーのケイティは戦術をいじったことをしかられて
すねて地元の温泉に(万葉倶楽部)入って心を癒しており、
チームの運営は全て私が取り仕切っております関係上、手が空いておりません。

秘書:少し暇になったら、私好みのイケメン揃いのチームにして差し上げますわ・・・

2007年09月19日 18:01 かえでちゃん  

<script type="text/javascript">
<!--
var Data =new Array();
var Idx =new Array();
var CmpType=1;

function Init()
{
var i;
var j;
var n=30;
for(i=0;i<n;i++){
Idx[i]=i;
Data[i]=new Array();
Data[i][0]=i;
for(j=1;j<=4;j++){
Data[i][j]=Math.floor(Math.random()*100);
}
}
}

function OpenX()
{
var val;
val = showModalDialog("test23_b.html", window,"dialogHeight:400px;dialogWidth:400px");
// alert(val);
}

2007年09月19日 18:02 かえでちゃん  

function cmp(x,y)
{
var a1=0;
var a2=0;
var b=0;
var z=Math.floor(CmpType/2);
var w=CmpType%2;
if(x in Data){
if(z in Data[x])a1=Data[x][z];
}
if(y in Data){
if(z in Data[y])a2=Data[y][z];
}
if(a1==a2){
b=0;
}else if(a1<a2){
b=1;
}else{
b=-1;
}
if(w>0){
b*=-1;
}
return b;
}

function SortData(x)
{
CmpType=x;
Idx.sort(cmp);
}

function GetData(x)
{
var y=new Array();
if(x in Data)return Data[x];
else return y;
}

function GetIndex(x)
{
if(x in Idx)return Idx[x];
else return -1;
}

function GetNum()
{
return Data.length;
}
// -->
</script>

2007年09月19日 18:02 かえでちゃん  

var PW;

function Init()
{
PW = window.dialogArguments;
SetX();
}

function Close()
{
window.returnValue = 1;
window.close();
}

function SortX(x)
{
PW.SortData(x);
SetX();
}

function SetX()
{
var i;
var j;
var dt;
var str;
var st1;
var n=PW.GetNum();
var cls;
document.all.item("S1").options.length=0;
for(i=0;i<n;i++){
dt=PW.GetData(PW.GetIndex(i));
str="X";
for(j=0;j<=4;j++){
if(j in dt){
st1=" ";
if(dt[j]<10)st1+=" ";
st1+=String(dt[j]);
}else{
st1=" 0";
}
str+=st1;
}
document.all.item("S1").options[i] = new Option(str,i);
}
}

2007年09月25日 18:00 かえでちゃん  

Option Explicit

Function DecodeIncWord(x As String)
Dim i
Dim l
Dim y
Dim z

z = 0
l = Len(x)
For i = 1 To l
y = DecodeIncWordSub(Mid(x, i, 1))
z = z * 62 + y
Next i

DecodeIncWord = z
End Function

Function DecodeIncWordSub(x As String)
Dim y
Dim z
z = 0
y = Asc(x)
If y < 48 Then
z = 0
ElseIf y < 58 Then
z = y - 48
ElseIf y < 65 Then
z = 0
ElseIf y < 91 Then
z = y - 65 + 10
ElseIf y < 97 Then
z = 0
ElseIf y < 123 Then
z = y - 97 + 36
Else
z = 0
End If
DecodeIncWordSub = z
End Function

Function DecodeIncStr(x)
Dim i
Dim l
Dim s As String
Dim y
s = ""
l = Len(x)
For i = 1 To l Step 3
y = DecodeIncWord(Mid(x, i, 3))
s = s & ChrW(y)
Next i
DecodeIncStr = s
End Function