| どうもクロです。
またインクル作っててIfコマンド関係のエラーが出て来るのですが
ちゃんとやっているつもりなのに、行かないんです。
ちょっと長いけど許してください。
探す:
If 斧 > 0 Tern
Talk システム
$(対象ユニット)は足元を探ってみた。
Talk システム
斧を見つけた！
End
Ask その場で装備しますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 斧
Talk システム
$(対象ユニット)は斧を装備した。
End
Set 斧 -1
Case 2
Item 斧
Talk システム
$(対象ユニット)達は斧を手に入れた。
End
Set 斧 -1
EndSw
ElseIf Info(マップ,X(対象ユニット),Y(対象ユニット)) = bush Tern
Talk システム
$(対象ユニット)は木をあさってみた。
Talk システム
枝を見つけた！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 枝
Talk システム
$(対象ユニット)は枝を持った。
End
Case 2
Item 枝
Talk システム
$(対象ユニット)達は枝を手に入れた。
End
EndSw
Else
If not (args(1) = "") Tern
If (args(1) = "石") Tern
Talk システム
$(対象ユニット)は足元を探ってみた。
End
Switch Rndam(4)
Case 1
Talk システム
石を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 石
Talk システム
$(対象ユニット)は石を持った。
End
Case 2
Item 石
Talk システム
$(対象ユニット)達は石を拾った。
End
EndSw
Case 2
Talk システム
岩を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 岩
Talk システム
$(対象ユニット)は岩を持った。
End
Case 2
Item 岩
Talk システム
$(対象ユニット)達は岩を拾った。
End
EndSw
Case 3
Talk システム
何も見つかりませんでした。
End
Case 4
Talk システム
何も見つかりませんでした。
End
EndSw
Else
Talk システム
$(対象ユニット)は足元を探ってみた。
End
あいてむ１ = args(1)
Switch Rndam(2)
Case 1
Talk システム
$(あいてむ１)を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット (あいてむ１)
Talk システム
$(対象ユニット)は$(あいてむ１)を持った。
End
Case 2
Item (あいてむ１)
Talk システム
$(対象ユニット)達は$(あいてむ１)を手に入れた。
End
EndSw
Case 2
Talk システム
何も見つかりませんでした。
End
EndSw
EndIf
EndIf
If not (args(2) = "") Tern
If (args(2) = "石") Tern
Talk システム
$(対象ユニット)は足元を探ってみた。
End
Switch Rndam(4)
Case 1
Talk システム
石を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 石
Talk システム
$(対象ユニット)は石を持った。
End
Case 2
Item 石
Talk システム
$(対象ユニット)達は石を拾った。
End
EndSw
Case 2
Talk システム
岩を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 岩
Talk システム
$(対象ユニット)は岩を持った。
End
Case 2
Item 岩
Talk システム
$(対象ユニット)達は岩を拾った。
End
EndSw
Case 3
Talk システム
何も見つかりませんでした。
End
Case 4
Talk システム
何も見つかりませんでした。
End
EndSw
Else
Talk システム
$(対象ユニット)は足元を探ってみた。
End
あいてむ２ = args(2)
Switch Rndam(2)
Case 1
Talk システム
$(あいてむ１)を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット (あいてむ２)
Talk システム
$(対象ユニット)は$(あいてむ２)を持ったした。
End
Case 2
Item (あいてむ２)
Talk システム
$(対象ユニット)達は$(あいてむ２)を手に入れた。
End
EndSw
Case 2
Talk システム
何も見つかりませんでした。
End
EndSw
EndIf
EndIf
If not (args(3) = "") Tern
If (args(3) = "石") Tern
Talk システム
$(対象ユニット)は足元を探ってみた。
End
Switch Rndam(4)
Case 1
Talk システム
石を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 石
Talk システム
$(対象ユニット)は石を持った。
End
Case 2
Item 石
Talk システム
$(対象ユニット)達は石を拾った。
End
EndSw
Case 2
Talk システム
岩を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 岩
Talk システム
$(対象ユニット)は岩を持った。
End
Case 2
Item 岩
Talk システム
$(対象ユニット)達は岩を拾った。
End
EndSw
Case 3
Talk システム
何も見つかりませんでした。
End
Case 4
Talk システム
何も見つかりませんでした。
End
EndSw
Else
Talk システム
$(対象ユニット)は足元を探ってみた。
End
あいてむ３ = args(3)
Switch Rndam(2)
Case 1
Talk システム
$(あいてむ３)を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット (あいてむ３)
Talk システム
$(対象ユニット)は$(あいてむ３)を持った。
End
Case 2
Item (あいてむ３)
Talk システム
$(対象ユニット)達は$(あいてむ３)を手に入れた。
End
EndSw
Case 2
Talk システム
何も見つかりませんでした。
End
EndSw
EndIf
EndIf
If not (args(4) = "") Tern
If (args(4) = "石") Tern
Talk システム
$(対象ユニット)は足元を探ってみた。
End
Switch Rndam(4)
Case 1
Talk システム
石を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 石
Talk システム
$(対象ユニット)は石を持った。
End
Case 2
Item 石
Talk システム
$(対象ユニット)達は石を拾った。
End
EndSw
Case 2
Talk システム
岩を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット 岩
Talk システム
$(対象ユニット)は岩を持った。
End
Case 2
Item 岩
Talk システム
$(対象ユニット)達は岩を拾った。
End
EndSw
Case 3
Talk システム
何も見つかりませんでした。
End
Case 4
Talk システム
何も見つかりませんでした。
End
EndSw
Else
Talk システム
$(対象ユニット)は足元を探ってみた。
End
あいてむ４ = args(4)
Switch Rndam(2)
Case 1
Talk システム
$(あいてむ４を拾った！
End
Ask その場で持ちますか？
はい
いいえ
End
Switch 選択
Case 1
Equip 対象ユニット (あいてむ４)
Talk システム
$(対象ユニット)は$(あいてむ４)を持った。
End
Case 2
Item (あいてむ４)
Talk システム
$(対象ユニット)達は$(あいてむ４)を手に入れた。
End
EndSw
Case 2
Talk システム
何も見つかりませんでした。
End
EndSw
EndIf
EndIf
EndIf
Return
誰か教えてください。
長くてだめだったら短くします。
|
新着情報