レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

新・くだらない質問にもマジレスするスレ3

339：名無しさん(ザコ)：2014/03/29(土) 20:53:17 ID:Q3NJplDU0: 援護とか一切考えなくていいならこんな感じかなぁ

動作確認とかしてないから、動かす前にちゃんと書式とかヘルプで確認してください。
根本的に間違ってたらごめん

#※半減させる武器には"半"属性が付いているものとする
#※イベントで切り払いやＳ防御をSetSkillすることがある場合には対応してない
#※切り払いレベルによる相殺にも対応してない
##↓以下インクル

#攻撃前に特殊能力レベルを半減させる
*攻撃全全:
Call 特殊能力レベル半減解除処理 //念のため
Call 特殊能力レベル半減処理対象ユニットＩＤ対象ユニット使用武器番号相手ユニットＩＤ
Call 特殊能力レベル半減処理相手ユニットＩＤ相手ユニット使用武器番号対象ユニットＩＤ
Exit

#処理本体
特殊能力レベル半減処理:
If Info("ユニット",Args(1),"武器",Args(2),"属性所有","半") Then
　Local 半減パイロット = PilotID(Args(3)
　Set 半減フラグ[半減パイロット] //解除する時のためにフラグを立てておく
　SetSkill 半減パイロット "切り払い" (Skill(半減パイロット,"切り払い") / 2)
SetSkill 半減パイロット "Ｓ防御" (Skill(半減パイロット,"Ｓ防御") / 2)
EndIf
Return

#終わったら特殊能力レベルを戻す
*攻撃後全全:
*破壊全:
*エピローグ:
Call 特殊能力レベル半減解除処理
Exit

特殊能力レベル半減解除処理:
If Count(半減フラグ) > 0 Then
　Local i
　ForEach i In 半減フラグ
　　If Level(i) > 0 Then
　　　ClearSkill i "切り払い"
　　　ClearSkill i "Ｓ防御"
　　EndIf
　Next
　Unset 半減フラグ
EndIf
Return

掲示板管理者へ連絡無料レンタル掲示板