2ちゃんねるの製作相談スレで公開されていたサンプルを元に弄った物なんですが、まだ不具合があるということで、バグ撲滅のために記事にしてみます。(記事にしないと眺める機会がなくなる＠＠

糞長いので追記に記入します。
宜しければbugfixにご協力お願いします。
bug以外に、もっと良いのあんじゃね？ってのがありましたら、コメントお願いします。

武器収納時に他の武器を装備すると落ちたり。
落ちなくてもインベントリに残ってしまうってのは見辛いですよね。
なので、二刀モデルを装備していない時は削除する。
begin OnUnequip Who
if Who.GetEquipped aaLaevatainDM == 0 && Who.IsWeaponOut == 0 && Who.GetItemCount aaLaevatainDM = 1)
Who.removeitem aaLaevatainDM 1
↑を二刀モデルの一番下に加えれば問題ない…はず？
でもそのまま入れたらクラッシュしそうだなーｗ
結果は明日報告します。
私の場合二刀を使っていてCTDしたこと無いので、それは解決できません。(何回も言ってますけどｗ


右手武器に付けるスクリプト
ScriptName aaaAutoEquipLaevatainOH

ref Who
short ExcF
float ExtTmr

begin OnAdd
set Who to GetContainer
if ( Who.IsActor != 0 )
set ExcF to 1
else
set ExcF to 0
endif
end

begin GameMode
if ( ExcF != 0 )
set ExtTmr to ExtTmr + GetSecondsPassed
if ( ExtTmr < 0.2 )
return
else
set ExtTmr to 0
endif
endif

if (Who.GetEquipped aaLaevatainOnehand == 1 && Who.IsWeaponOut == 0)
if (Who.GetEquipped aaLaevatainOffhand == 1)
message " "
message " "
if (Who.GetEquipped aaLaevatainOffhand == 1)
Who.UnequipItem aaLaevatainOffhand
endif

if (Who.GetItemCount aaLaevatainDM == 0)
message " "
message " "
Who.AddItem aaLaevatainDM 1
endif
message " "
message " "
Who.EquipItem aaLaevatainDM
endif

elseif (Who.GetEquipped aaLaevatainOnehand == 1 && Who.IsWeaponOut == 1 && Who.IsShieldOut == 0)

if (Who.GetItemCount aaLaevatainOffhand > 0)
message " "
message " "
Who.EquipItem aaLaevatainOffhand
endif

if (Who.GetItemCount aaLaevatainDM > 0)
message " "
message " "
Who.RemoveItem aaLaevatainDM 1
endif
endif
End

左手武器に付けるスクリプト
scn aaaLaevatainOffHandScript

ref Who
short ExcF
float ExtTmr

begin OnEquip
set Who to GetContainer
if ( Who.IsActor != 0 )
set ExcF to 1
else
set ExcF to 0
endif
end

begin OnEquip who
if ( ExcF != 0 )
set ExtTmr to ExtTmr + GetSecondsPassed
if ( ExtTmr < 0.2 )
return
else
set ExtTmr to 0
endif
endif

if (Who.GetEquipped aaLaevatainDM == 1)
message " "
message " "
Who.UnequipItem aaLaevatainOffhand

elseif ((Who.GetEquipped aaLaevatainOnehand == 1) && Who.IsWeaponOut == 0)
message " "
message " "
Who.UnequipItem aaLaevatainOffhand

if (Who.GetItemCount aaLaevatainDM == 0)
message " "
message " "
Who.AddItem aaLaevatainDM 1
endif

message " "
message " "
Who.EquipItem aaLaevatainDM

endif

end

二刀モデルに付けるスクリプト
ScriptName aaaLaevatainOnehandDualsc

ref Who
short ExcF
float ExtTmr

begin OnAdd
set Who to GetContainer
if ( Who.IsActor != 0 )
set ExcF to 1
else
set ExcF to 0
endif
end

begin GameMode
if ( ExcF != 0 )
set ExtTmr to ExtTmr + GetSecondsPassed
if ( ExtTmr < 0.2 )
return
else
set ExtTmr to 0
endif
endif

if ((Who.GetEquipped aaLaevatainDM == 1) && Who.IsWeaponOut == 1)
message " "
message " "
Who.EquipItem aaLaevatainOnehand

elseif (Who.GetEquipped aaLaevatainOnehand == 0 && Who.GetEquipped aaLaevatainDM == 0 && Who.GetItemCount aaLaevatainDM > 0)
message " "
message " "
Who.RemoveItem aaLaevatainDM 1
endif

End



オマケ
鎌と、斧と刀ができました。
斧はnikoroshiさんのそのままお借りしてます。
ミスラは双斧じゃなかったんで、１本でいいかな。
問題は防具…。



SSは鎌です。背負った位置をもう少し下げた方がそれっぽいんですけど、あまり端っこもって振り回すのも変なんだよなー。


あまりドーンと出しちゃうとプレイする時のwktkがなくなってしまうのでチラチラ。