・コマンドは下の方ほど優先順位が高いです。
・#の文はただのコメント
hp:最大ＨＰ
mp:最大ＭＰ
nowhp:現在のＨＰ
nowmp:現在のＭＰ
ap2:ＡＰ
dp2:ＤＰ
sp2:ＳＰ
変数の中の[]の数字は対象者を表す
0:味方左
1:味方右
2:敵左
3:敵右
kind:スライムの種類 ok:親か本人がそのスライムの種類であることを指す。
0 S
1 Bes
2 Bus
3 HS
4 H2S
5 HK
6 MS
7 M2S
8 MK
9 SK
10 TS
11 MaS
12 KS
13 NS
14 MR
15 SS
16 GS
17 BaS
18 BP
19 DS
20 SLP
21 SG
22 SMILE
job:職業
0 ブリーダ
1 勇者
2 戦士
4 賢者
7 ものまね師
8 忍者
item:アイテム
１ スライムの剣
２ スライムの鎧
３ エルフのマント
４ リボン
５ 金の髪飾り
６ 星降る腕輪
７ 賢者の石
８ 祈りの指輪
９ ウィザードロッド
１０ブラッドソード
１１スライムローブ
１２毒針
１３理力の杖
１４小さなメダル
１５スライムナイフ
１６ミラージュベスト
１７エルメスの靴
@com[$i]="普通に攻撃";
if(@sp2[$i]>=50){@com[$i]="連続攻撃";}
if(&ikiteru2(&teki7($i))==1){@hani[$i]=&teki7($i);}
if(&ikiteru2(&teki77($i))==1){@hani[$i]=&teki77($i);}
if(substr(@st[$i],5,1)==0){
#単体魔法の発動
for($j=$teki0;$j<=$teki0+1;$j++){
if(&hagure2($j)==0 && &ikiteru2($j)==1){
if(@nowmp[$i]>=&osietemp($i,"メラ") && &ok($i,6)==1){
@com[$i]="メラ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"ヒャド") && &ok($i,10)==1){
@com[$i]="ヒャド";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"メラミ") && &ok($i,6)==1){
@com[$i]="メラミ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"メラゾーマ") && (&ok($i,6)==1 || &ok3($i,15)==1)){
@com[$i]="メラゾーマ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"ライデイン") && @jobs[$i]==1){
@com[$i]="ライデイン";
@hani[$i]=$j; #
} #
if(@nowmp[$i]>=&osietemp($i,"バイオ") && @kind[$i]==17){
@com[$i]="バイオ"; #
@hani[$i]=$j; #
} #
}
}
#全体魔法の発動
if(@nowhp[$teki0]>0 && @nowhp[$teki0+1]>0 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
if(@nowmp[$i]>=&osietemp($i,"バギ") && &ok($i,20)==1){
@com[$i]="バギ";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"バギマ") && &ok($i,20)==1){
@com[$i]="バギマ";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"バギクロス") && &ok($i,20)==1){
@com[$i]="バギクロス";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"ヒャダルコ") && &ok($i,10)==1){
@com[$i]="ヒャダルコ";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"ギラ") && &ok($i,7)==1){
@com[$i]="ギラ";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"イオ") && &ok($i,8)==1){
@com[$i]="イオ";
@hani[$i]=$tekiall;
} #
if(@nowmp[$i]>=&osietemp($i,"ベギラマ") && &ok($i,7)==1){
@com[$i]="ベギラマ";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"イオラ") && &ok($i,8)==1){
@com[$i]="イオラ";
@hani[$i]=$tekiall;
} #
if(@nowmp[$i]>=&osietemp($i,"ベギラゴン") && (&ok($i,7)==1 || @kind[$i]==15)){
@com[$i]="ベギラゴン";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"イオナズン") && &ok($i,8)==1){
@com[$i]="イオナズン";
@hani[$i]=$tekiall; #
} #
if(@nowmp[$i]>=&osietemp($i,"バイオ") && &ok($i,17)==1){
@com[$i]="バイオ";
@hani[$i]=$tekiall;
} #
}
}
#技の発動
if(&ok($i,19)==1){ #
@com[$i]="ファイヤ";
@hani[$i]=$tekiall;
} #
if(&ok($i,10)==1){
@com[$i]="ブリザド";
@hani[$i]=$tekiall; #
} #
if(&ok($i,9)==1){
@com[$i]="サンダー";
@hani[$i]=$tekiall;
}
if(&ok($i,10)==1 && @f1com[$i] eq "ブリザド"){ #
@com[$i]="ブリザガ";
@hani[$i]=$tekiall;
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && &ikiteru2($teki0)==0){@hani[$i]=$teki0+1;}
}
for($j=$teki0;$j<=$teki0+1;$j++){
if(&ikiteru2($j)==1){
if(&ok($i,13)==1 && @ap2[$i]-@dp2[$j]<3){
@com[$i]="斬鉄剣";
@hani[$i]=$j; #
} #
#サイコロの利用
if(&ok($i,16)==1 && &hagure2($j)==0){
@com[$i]="サイコロ";
@hani[$i]=$j;
}
#？？？？の利用
if(&ok($i,1)==1 && @hp[$i]-@nowhp[$i]>=18 && &hagure2($j)==0){
@com[$i]="？？？？";
@hani[$i]=$j;
}
#マルチプルの利用
if(&ok($i,18)==1 && &hagure2($j)==0 && (@nowhp[$i]==57 || @nowhp[$i]==38 || @nowhp[$i]==51 || @nowhp[$i]==34 || @nowhp[$i]==52 || @nowhp[$i]==39 || @nowhp[$i]==26 || @nowhp[$i]==55 || @nowhp[$i]==44 || @nowhp[$i]==33 || @nowhp[$i]==22)){
@com[$i]="マルチプル";
@hani[$i]=$j;
}
}
}
#時限爆弾の利用
if(@kind[$i]==21){
@com[$i]="時限爆弾";
if(&ikiteru2($teki0)==1 && substr(@st[$teki0],6,1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && substr(@st[$teki0+1],6,1)==0){@hani[$i]=$teki0+1;}
} #
#仲間の利用
if(@kind[$i]==2){
$nakamatmp=&ran(1,4);
if($nakamatmp==1){@com[$i]="仲間チョコボ";}
if($nakamatmp==2){@com[$i]="仲間カーバンクル";}
if($nakamatmp==3){@com[$i]="仲間ピカチュー";}
if(&ikiteru2($teki0)==1){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1){@hani[$i]=$teki0+1;}
if($nakamatmp==4){
@com[$i]="仲間モーグリ";
@hani[$i]=$i;
}
}
if(&ok($i,9)==1 && &ran(1,100)>60){
@com[$i]="サンダガ";
@hani[$i]=$tekiall; #
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && &ikiteru2($teki0)==0){@hani[$i]=$teki0+1;}
} #
for($j=0;$j<=3;$j++){
if($i!=$j && @f1com[$j] eq "サンダガ" && @jobs[$i]==7){
@com[$i]="monoサンダガ";
@hani[$i]=$tekiall; #
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && &ikiteru2($teki0)==0){@hani[$i]=$teki0+1;}
}
if($i!=$j && @f1com[$j] eq "ファイガ" && @jobs[$i]==7){
@com[$i]="monoファイガ";
@hani[$i]=$tekiall; #
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && &ikiteru2($teki0)==0){@hani[$i]=$teki0+1;}
}
}
for($j=$teki0;$j<=$teki0+1;$j++){
if(&ikiteru2($j)==1){
#理力の杖
if(@item[$i]==13 && @nowmp[$i]>=3 && @mp[$i]-int(0.7*@mp[$j]+0.7*@dp2[$j])>10){
@com[$i]="理力の杖"; #
@hani[$i]=$j; #
} #
#毒針の利用
if(@item[$i]==12 && &hagure2($j)==1){
@com[$i]="毒針"; #
@hani[$i]=$j; #
} #
#
if(@jobs[$i]==8 && (@item[$j]==3 || @item[$j]==16)){
@com[$i]="狙って攻撃";
@hani[$i]=$j;
}
#ダメージをある程度与えれる時は普通攻撃
$dmtmp=@ap2[$i]-@dp2[$j]; #
if(@kind[$j]==18){$dmtmp=int(0.7*$dmtmp);}
if($dmtmp>=10 && &ikiteru2($j)==1){ #
@com[$i]="普通に攻撃"; #
@hani[$i]=$j;
if(@sp2[$i]>=50){
@com[$i]="連続攻撃"; #
@hani[$i]=$j; #
}
} #
if(@kind[$i]==16 && @sp2[$i]>=50){
@com[$i]="連続攻撃";
@hani[$i]=$j;
} #
for($k=0;$k<=3;$k++){
if(@ap2[$i]>=40 && $i!=$k && @f1com[$k] eq "連続攻撃" && @jobs[$i]==7){
@com[$i]="mono連続攻撃";
@hani[$i]=$j; #
}
}
#力をためる
if(@com[$i] eq "普通に攻撃" && &ok($i,12)==1 && @ap2[$i]-@dp2[$j]>10){
@com[$i]="力をためて攻撃"; #
@hani[$i]=$j;
} #
# if(@kind[$i]==12 && @ap2[$i]>40 && @ap2[&mikata7($i)]>30){
# @com[$i]="力を合わせて攻撃";
# @com[&mikata7($i)]="力を合わせる";
# @hani[$i]=$j;
# }
}
}#$j
if(@ap2[$i]>=50 && (@item[&teki7($i)]==16 || @item[&teki77($i)]==16) && &ikiteru2(&teki7($i)) && &ikiteru2(&teki77($i))){
@com[$i]="普通に攻撃";
@hani[$i]=$tekiall;
}
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==1){
if(@jobs[$i]==2 && &hagure2($teki0)==1 && &hagure2($teki0+1)==1){
@com[$i]="乱れ打ち";
@hani[$i]=$tekiall;
}
if(@jobs[$i]==2 && ((@item[&teki7($i)]==16 && substr(@st[&teki7($i)],12,1)==0) || (@item[&teki77($i)]==16 && substr(@st[&teki77($i)],12,1)==0))){
@com[$i]="乱れ打ち";
@hani[$i]=$tekiall;
}
}
#メタルきり
if(&ok($i,14)==1){
for($j=$teki0;$j<=$teki0+1;$j++){
if(&hagure2($j)==1 && &ikiteru2($j)==1){
@com[$i]="メタル斬り";
@hani[$i]=$j; #
}
}
}
#４ターンごとに補助魔法
if(($turn%5)==&ran(1,5) && substr(@st[$i],5,1)==0){
if(@nowmp[$i]>=&osietemp($i,"マヌーサ") && &ok($i,9)==1 && (@ap2[&teki7($i)]>=40 || @ap2[&teki77($i)]>=40) && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="マヌーサ"; #
@hani[$i]=$tekiall; #
} #
if(@nowmp[$i]>=&osietemp($i,"マホトーン") && &ok($i,18)==1 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="マホトーン";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"ラリホー") && &ok($i,20)==1 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="ラリホー";
@hani[$i]=$tekiall;
}
}
if($turn<5 && substr(@st[$i],5,1)==0){
if(substr(@st[$i],7,1)==0 && (&hagure2($teki0)==1 || &hagure2($teki0+1)==1) && @nowmp[$i]>=&osietemp($i,"ファイヤーウォール") && &ok($i,11)==1){
@com[$i]="ファイヤーウォール";
@hani[$i]=$mikataall;
}
if(substr(@st[$i],13,1)==0 && @nowmp[$i]>=&osietemp($i,"リレイズ") && @kind[$i]==22 && &ikiteru2(&mikata7($i))){
@com[$i]="リレイズ";
@hani[$i]=$i;
}
if(substr(@st[&mikata7($i)],13,1)==0 && @nowmp[$i]>=&osietemp($i,"リレイズ") && @kind[$i]==22 && &ikiteru2(&mikata7($i))){
@com[$i]="リレイズ";
@hani[$i]=&mikata7($i);
}
#ドラゴン相手にはフバーハ
if(@nowmp[$i]>=&osietemp($i,"ファイヤーウォール") && &ok($i,11)==1 && substr(@st[$i],7,1)==0 && (@kind[$teki0]==19 || @kind[$teki0+1]==19)){
@com[$i]="ファイヤーウォール";
@hani[$i]=$mikataall;
}
}
if(@kind[$i]==21){
@com[$i]="破導砲充填";
@hani[$i]=$i;
}
#ホイミの発動
if(substr(@st[$i],5,1)==0){
for($j=$mikata0;$j<=$mikata0+1;$j++){
if(@hp[$i]>0){
if(@nowhp[$j]/@hp[$j]<0.5 && &ikiteru2($j)==1){
if(@nowmp[$i]>=&osietemp($i,"ホイミ") && (&ok($i,3)==1 || &ok($i,4)==1)){
@com[$i]="ホイミ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"ベホイミ") && (&ok($i,3)==1 || &ok($i,4)==1)){
@com[$i]="ベホイミ";
@hani[$i]=$j;
}
}
if(@nowhp[$j]/@hp[$j]<0.3 && &ikiteru2($j)==1){
if(@nowmp[$i]>=&osietemp($i,"ベホイミ") && (&ok($i,3)==1 || &ok($i,4)==1)){
@com[$i]="ベホイミ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"ベホマ") && (&ok3($i,15)==1 || &ok($i,4)==1)){
@com[$i]="ベホマ";
@hani[$i]=$j;
}
}
if(@nowmp[$i]>=&osietemp($i,"ベホマ") && (&ok3($i,15)==1 || &ok($i,4)==1) && @nowhp[$j]/@hp[$j]<0.2 && &ikiteru2($j)==1){
@com[$i]="ベホマ";
@hani[$i]=$j;
}
if(@nowmp[$i]>=&osietemp($i,"ベホマラー") && (&ok($i,5)==1 || &ok($i,3)==1) && @nowhp[$mikata0]/@hp[$mikata0]<0.5 && @nowhp[$mikata0+1]/@hp[$mikata0+1]<0.5 && @nowhp[$mikata0]>0 && @nowhp[$mikata0+1]>0){
@com[$i]="ベホマラー";
@hani[$i]=$mikataall;
} #
if(@nowmp[$i]>=&osietemp($i,"ベホマラー") && (&ok($i,5)==1 || &ok($i,3)==1) && &ok($i,3)!=1 && &ok($i,4)!=1 && @nowhp[$j]/@hp[$j]<0.3 && &ikiteru2($j)==1){
@com[$i]="ベホマラー";
@hani[$i]=$mikataall;
}
if(@nowmp[$i]>=&osietemp($i,"ベホマズン") && (@kind[$i]==15 || &ok($i,5)==1) && @nowhp[$mikata0]/@hp[$mikata0]<0.3 && @nowhp[$mikata0+1]/@hp[$mikata0+1]<0.3 && @nowhp[$mikata0]>0 && @nowhp[$mikata0+1]>0){
@com[$i]="ベホマズン";
@hani[$i]=$mikataall;
}
if(@nowmp[$i]>=&osietemp($i,"ベホマズン") && (@kind[$i]==15 || &ok($i,5)==1) && &ok($i,3)!=1 && &ok($i,4)!=1 && @nowhp[$j]/@hp[$j]<0.2 && &ikiteru2($j)==1){
@com[$i]="ベホマズン";
@hani[$i]=$mikataall;
}
for($k=0;$k<=3;$k++){
if(@nowmp[$i]>=&osietemp($i,"ベホマズン") && $i!=$k && @f1com[$k] eq "ベホマズン" && @jobs[$i]==7 && @nowhp[$i]/@hp[$i]<0.5){
@com[$i]="monoベホマズン";
@hani[$i]=$mikataall; #
}
}
if(@nowmp[$i]>=&osietemp($i,"マテリアル") && @jobs[$i]==4 && @nowhp[$j]/@hp[$j]<0.5 && &ikiteru2($j)==1 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="マテリアル";
@hani[$i]=$i;
}
}
}
}
#マダンテ
#if(@nowhp[$i]<@hp[$i]*0.33 && @nowmp[$i]>=9 && @jobs[$i]==4 && substr(@st[$i],5,1)==0 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0 ){
# @com[$i]="マダンテ";
# @hani[$i]=$tekiall; #
#} #
#メガンテ
if(@nowhp[$i]<@hp[$i]*0.9 && @nowmp[$i]>=1 && @kind[$i]==17 && substr(@st[$i],5,1)==0 && @nowhp[&mikata7($i)]>0 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="メガンテ";
@hani[$i]=$tekiall; #
}
#ザオリクの利用
for($j=$mikata0;$j<=$mikata0+1;$j++){
if(@nowmp[$i]>=&osietemp($i,"エスナ") && &ok($i,22)==1 && substr(@st[$i],14,1)==1 && substr(@st[$i],5,1)==0){
@com[$i]="エスナ";
@hani[$i]=$j; #
}
if(@nowmp[$i]>=&osietemp($i,"ザオリク") && @jobs[$i]==3 && @nowhp[$j]<=0 && substr(@st[$i],5,1)==0){
@com[$i]="ザオリク";
@hani[$i]=$j; #
}
}
for($j=0;$j<=3;$j++){
if(@nowmp[$i]>=&osietemp($i,"ザオリク") && $i!=$j && @f1com[$j] eq "ザオリク" && @jobs[$i]==7 && @nowhp[&mikata7($i)]<=0){
@com[$i]="monoザオリク";
@hani[$i]=&mikata7($i); #
}
}
if(substr(@st[$i],15,1)==2 && (@nowhp[$teki0]<=18 && @nowhp[$teki0+1]<=18)){
@com[$i]="破導砲";
@hani[$i]=$tekiall;
}
if(substr(@st[$i],15,1)==3){
@com[$i]="破導砲";
@hani[$i]=$tekiall;
}
#ファーストターンでの実行
if($turn==1 && substr(@st[$i],5,1)==0){
if(@nowmp[$i]>=&osietemp($i,"ピオリム") && &ok($i,16)==1 && (@sp2[$i]>=40 || @sp2[&mikata7($i)]>=40)){
@com[$i]="ピオリム";
@hani[$i]=$mikataall;
}
if(@nowmp[$i]>=&osietemp($i,"ボミオス") && &ok($i,20)==1 && (@sp2[&teki7($i)]>=40 || @sp2[&teki77($i)]>=40) && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="ボミオス";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"ルカナン") && &ok($i,10)==1 && (@dp2[&teki7($i)]>=40 || @dp2[&teki77($i)]>=40) && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="ルカナン";
@hani[$i]=$tekiall;
}
if(@nowmp[$i]>=&osietemp($i,"スクルト") && &ok($i,11)==1 && (@dp2[$i]>=40 || @dp2[&mikata7($i)]>=40)){
@com[$i]="スクルト";
@hani[$i]=$mikataall;
}
if(@nowmp[$i]>=&osietemp($i,"トラキルト") && &ok($i,14)==1 && (@ap2[&teki7($i)]>=40 || @ap2[&teki77($i)]>=40) && @ap2[$i]<=40 && &hagure2($teki0)==0 && &hagure2($teki0+1)==0){
@com[$i]="トラキルト";
if(@ap2[&teki7($i)]>=40){@hani[$i]=&teki7($i);}
if(@ap2[&teki77($i)]>=40){@hani[$i]=&teki77($i);}
}
if(@nowmp[$i]>=&osietemp($i,"バイキルト") && &ok($i,13)==1 && (@ap2[$i]>=40 || @ap2[&mikata7($i)]>=40)){
@com[$i]="バイキルト";
if(@ap2[$i]>=40){@hani[$i]=$i;}
if(@ap2[&mikata7($i)]>=40){@hani[$i]=&mikata7($i);}
}
if(@nowmp[$i]>=&osietemp($i,"マイティガード") && @kind[$i]==1){
@com[$i]="マイティガード";
@hani[$i]=$i;
}
}#$turn=1
for($j=0;$j<=3;$j++){
if(@nowmp[$i]>=&osietemp($i,"マイティガード") && substr(@st[$i],0,1)==0 && $i!=$j && @f1com[$j] eq "マイティガード" && @jobs[$i]==7){
@com[$i]="monoマイティガード";
@hani[$i]=$i; #
}
}
if(@nowmp[$i]>=&osietemp($i,"ドラゴラム") && @kind[$i]==19 && substr(@st[$i],5,1)==0){
@com[$i]="ドラゴラム";
@hani[$i]=$i;
}
#メタル系を一撃で倒す
for($j=$teki0;$j<=1+$teki0;$j++){
if(&ikiteru2($j)==1){
if(@ap2[$i]-@dp2[$j]>=4 && &ikiteru2($j)==1 && (@kind[$j]==6 || @kind[$j]==7 || @kind[$j]==8)){
@com[$i]="普通に攻撃";
@hani[$i]=$j; #
}
#一撃で倒せる可能性がある時は普通攻撃
$dmtmp=@ap2[$i]-@dp2[$j];
if(@kind[$j]==18){$dmtmp=int(0.7*$dmtmp);}
if($dmtmp>=@nowhp[$j] && &ikiteru2($j)==1){
@com[$i]="普通に攻撃";
@hani[$i]=$j; #
if(@sp2[$i]>=50){
@com[$i]="連続攻撃"; #
@hani[$i]=$j; #
}
}
#SP100以上
if(@kind[$i]==16 && @sp2[$i]>=100){
@com[$i]="連続攻撃"; #
@hani[$i]=$j; #
}
#ナイフ
if(@item[$i]==15 && &ikiteru2($j)==1 && int(1.5*@ap2[$i]-@nowhp[$i]*@ap2[$i]/@hp[$i])-@dp2[$j]>10){
@com[$i]="スライムナイフ";
@hani[$i]=$j;
}
#力をためる（普通の攻撃では倒せない）
$dmtmp=int((@ap2[$i]-@dp2[$j])*1.2);
if(@kind[$j]==18){$dmtmp=int(0.7*$dmtmp);}
if($dmtmp>=@nowhp[$j] && @ap2[$i]-@dp2[$j]<@nowhp[$j] && &ikiteru2($j)==1 && &ok($i,12)==1){
@com[$i]="力をためて攻撃";
@hani[$i]=$j; #
}
#隼斬り
$dmtmp=int((@ap2[$i]-@dp2[$j])*0.8);
if(@kind[$j]==18){$dmtmp=int(0.7*$dmtmp);}
if($dmtmp>=@nowhp[$j] && &ikiteru2($j)==1 && &ok($i,14)==1){
@com[$i]="隼斬り";
@hani[$i]=$j; #
}
}
}#$j
# if(@com[&mikata7($i)] eq "力を合わせて攻撃"){
# @com[$i]="力を合わせる";
# @hani[$i]=$j;
# }
if(substr(@st[$i],8,1)==1){
@com[$i]="ファイガ";
@hani[$i]=$tekiall;
if(&ikiteru2($teki0)==1 && &ikiteru2($teki0+1)==0){@hani[$i]=$teki0;}
if(&ikiteru2($teki0+1)==1 && &ikiteru2($teki0)==0){@hani[$i]=$teki0+1;}
}
#マヒ、眠り、死、石化
if(substr(@st[$i],3,1)==1 || substr(@st[$i],11,1)==1 || @nowhp[$i]<=0 || substr(@st[$i],14,1)==1){
@com[$i]="";
@hani[$i]="";
}