syougunn 876 - 経済統計練習帳

class pol{
 
 fresh():void{
 
var sx:number;
var s:number;
 
for(s=1;s<7;s++){
sx=s+number_sh;
pos[sx][1]=15+s;
life[sx]=100;
age[sx]=1;
}
 
number_sh=number_sh+6;
 
}
 
change(g2:number):void{
 
var xx: number[] = new Array();    
var n:number;
var s:number;
var h:number;
var a1:number; 
var sx:number;
 
n=0;    
for(s=1;s<number_sh+1;s++){
h=0;
if(life[s]>50)h=h+1;
a1=age[s]+1;
if(pos[s][a1]==0)h=h+1;    
if(h==2)n=n+1;
if(h==2)xx[n]=s;    
}
 
 
var p1:number;
var maxpoint:number;
var cc:number;
var s1:number;
var k:number;
 
 
 
cc=0;
maxpoint=-999;
for(s=1;s<n+1;s++){
p1=0;
s1=xx[s];
for(sx=1;sx<age[s1]+1;sx++){
k=pos[s1][sx];
p1=p1+point[g2][k];
}
if(p1>maxpoint)cc=s1;
if(p1>maxpoint)maxpoint=p1;
}
 
 
 
a1=age[cc]+1;
pos[cc][a1]=g2;
 
}
 
faststep():void{
 
postx[0]="";    
postx[1]="将軍";
postx[2]="大老";
postx[3]="駿河城代";
postx[4]="美濃藩主";
postx[5]="伊勢藩主";
postx[6]="信濃藩主";
postx[7]="老中";
postx[8]="駿河老中";
postx[9]="美濃守護";
postx[10]="伊勢守護";
postx[11]="信濃守護";
postx[12]="勘定奉行";
postx[13]="町奉行";
postx[14]="寺社奉行 ";
postx[15]="外国奉行";
postx[16]="美濃代官";
postx[17]="大垣代官";
postx[18]="伊勢代官";
postx[19]="松坂代官";
postx[20]="信濃代官";
postx[21]="松本代官";    
 
var s:number;
var sx:number;
var tx:number;
 
number_sh=21;
 
tx=0;
for(s=1;s<7;s++){
for(sx=1;sx<s+1;sx++){
tx=tx+1;
age[tx]=7-s;
life[tx]=100;
pos[tx][7-s]=tx;
}
}
 
 
 
 }
 death(aa:number):void{
 
var xx: number[] = new Array();    
 
var n:number;
var s:number;
var h:number;
 
n=0;    
for(s=1;s<number_sh+1;s++){
h=0;
if(life[s]>50)h=h+1;
if(age[s]==aa)h=h+1;    
if(h==2)n=n+1;
if(h==2)xx[n]=s;    
}
 
 
 
var m1:number;
var m2:number;
var m3:number;
 
m1=n*Math.random();
m2=Math.floor(m1)+1;
m3=xx[m2];    
life[m3]=0;    
}
 
rel():void{
 
var s:number;
var sx:number;
 
for(s=1;s<16;s++){
for(sx=0;sx<22;sx++){
point[s][sx]=1;
}
}
 
 
point[1][1]=1000;
point[1][2]=-100;
point[1][3]=-100;
point[1][4]=100;
point[1][5]=100;
point[1][6]=100;
 
 
point[2][2]=1000;
point[2][4]=50;
point[2][5]=50;
point[2][6]=50;
point[1][7]=100;
 
point[3][2]=1000;
point[3][4]=50;
point[3][5]=50;
point[3][6]=50;
point[3][8]=100;
 
point[4][4]=1000;
point[4][7]=10;
point[4][8]=10;
point[4][9]=100;
 
point[5][5]=1000;
point[5][7]=10;
point[5][8]=10;
point[5][10]=100;
 
point[6][6]=1000;
point[6][7]=10;
point[6][8]=10;
point[6][11]=100;
 
point[7][7]=100;
point[7][9]=10;
point[7][10]=10;
point[7][11]=10;
point[7][12]=50;
point[7][13]=50;
 
point[8][8]=100;
point[8][9]=10;
point[8][10]=10;
point[8][11]=10;
point[8][14]=50;
point[8][15]=50;
 
point[9][9]=100;
point[9][16]=50;
point[9][17]=50;
 
point[10][10]=100;
point[10][18]=50;
point[10][19]=50;
 
point[11][11]=100;
point[11][20]=50;
point[11][21]=50;
 
}