トップ
新規
一覧
Farm
検索
ヘルプ
RSS
ログイン
装備関連強化の編集
!!改造 !1. スキルと略字の設定をします ,表記,説明 ,○○,二刀流のスキル ,××,限定解除二刀流のスキル ,□□,呪われたアイテムの略字 ,△△,呪われたアイテムが装備された状態と判断するための略字 !2. # Sub Use After # の修正 呪われたアイテムが装備が解除できないようにします。 step1. &splititem('i'); の下に ## Pre-CHK $c_w = $c_s = $c_a = $c_j = 0; foreach (0 .. $#items) { ($item,$sts,$price) = split(/△/,$items[$_]); if ($sts =~ /(Cd)/) { if ($sts =~ /(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw)/) { $c_w = 1 } elsif ($sts =~ /(Sh|Ys)/) { $c_s = 1 } elsif ($sts =~ /(Ar|Ya)/) { $c_a = 1 } elsif ($sts =~ /(Jw|Yt)/) { $c_j = 1 } } } を追加します。 step2. foreach (0 .. $#items) { ($item,$sts,$price) = split(/△/,$items[$_]); $iak = substr($sts,4,2); $idd = substr($sts,6,2); if ($sts =~ /Q[swat]/) { $nomsg = 1 } else { $nomsg = 0 } $sts =~ s/Q[swat]//g; if ($Fm{$_}) { に4行追加します↓ foreach (0 .. $#items) { ($item,$sts,$price) = split(/△/,$items[$_]); $iak = substr($sts,4,2); $idd = substr($sts,6,2); if ($sts =~ /Q[swat]/) { $nomsg = 1 } else { $nomsg = 0 } $sts =~ s/Q[swat]//g; ## ここから $curse = 0; if ($sts =~ /(△△)/) { &umsg('外') if !$Fm{$_}; $sts =~ s/$1//g; $Fm{$_} = 'on'; $curse = 1; } else { if ($Fm{$_}) { if ($c_w && $sts =~ /(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw)/) { &umsg('非'); $Fm{$_} = '' } elsif ($c_s && $sts =~ /(Sh|Ys)/) { &umsg('非'); $Fm{$_} = '' } elsif ($c_a && $sts =~ /(Ar|Ya)/) { &umsg('非'); $Fm{$_} = '' } elsif ($c_j && $sts =~ /(Jw|Yt)/) { &umsg('非'); $Fm{$_} = '' } } } ## ここまで if ($Fm{$_}) { !3. # Sub Use Message # の修正 メッセージを3つ追加します。 '呪',"おおっと! $itemは呪われていました", '外',"$itemは呪われているため外せません", '非',"既に呪われているため$itemは装備できません", !4. # Sub Arm # の修正 すこし大掛かりです。 STEP1. if ($sts =~ /Dh/ && $sp !~ /Oh/) { if ($ch !~ /Q[sw]/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= 'QwQs'; $sts .= 'QwQs'; } else { &umsg('両') } に追記、条件分岐を足します↓ if ($sts =~ /Dh/ && $sp !~ /Oh/) { if ($ch !~ /Q[sw]/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= 'QwQs'; $sts .= 'QwQs'; ## 追記 if ($sts =~ /□□/) { $sts .= '△△'; &umsg('呪') if !$curse } ## ここから } elsif ($ch !~ /××/ && $sp =~ /××/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= 'QwQs' . '××'; $sts .= 'QwQs'; if ($sts =~ /□□/) { $sts .= '△△'; &umsg('呪') if !$curse } ## ここまで } else { &umsg('両') } STEP2. } elsif ($ch !~ /$a2/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= $a2; $sts .= $a2; } else { &umsg('別') } に追記、条件分岐を足します↓ } elsif ($ch !~ /$a2/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= $a2; $sts .= $a2; ## 追記 $ch .= '××' if $a1 =~ /Sh|Ys/; ## 追記 if ($sts =~ /□□/) { $sts .= '△△'; &umsg('呪') if !$curse } ## ここから } elsif ($ch !~ /Qs/ && $sp =~ /○○/ || $ch !~ /××/ && $sp =~ /××/) { $ab += $iak; $db += $idd; &umsg('装') if !$nomsg; if ($a1 eq 'Bw') { $sp .= 'Qb' } if ($a1 eq 'Kt') { $sp .= 'Qk' } if ($a1 eq 'Ax') { $sp .= 'Qx' } if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' } $ch .= "$a2" . 'Qs' . '××'; $sts .= $a2; if ($sts =~ /□□/) { $sts .= '△△'; &umsg('呪') if !$curse } ## ここまで } else { &umsg('別') } 以上で修正完了です。 *作ってみたナリよ、キテレツ - Pse (2007年04月06日 14時40分02秒)
タイムスタンプを更新しない
添付ファイル
リネーム・コピー
リネーム
メッセージを残してリネーム
コピー
[
ヘルプ
]
Counter 685449
はじめに
SOS2 Wikiの使い方
コンテンツ
SOS2を設置する
SOS2を改造する
困ったときには
コラム
改造&FAQ
リファレンスマニュアル
機能別改造一覧
雑談
BBS
Masters Bar
公式BBS
サポート
サポートBBS
Link
リンク
SIONJamの改造ソース
設置サイトはこちらへ
検索
キーワード
AND
OR
ページ内容も含める
最近更新されたページ
雑談
Script of Saga II Wiki
パーティシステム
D2C風、レアアイテム生成システム
洋ゲー風、拾得アイテム強化プログラム
SOSIIを分割しよう
戦闘関連強化・特技&魔法
SOSII Check Script
乱数ロールプログラム
不具合情報
参照数の多いページ
Script of Saga II Wiki
(74715)
リンク
(16202)
SOS2を設置する
(12423)
雑談
(11883)
SOS2改造利用規約
(9738)