Home > ★MOD導入・作成HowTo > NPCを復活させるScript

NPCを復活させるScript

NPCを復活させるScript

本当はページめくりも付け加えて1人のNPCにまとめたいんです・・・

--------------------------------------------
ScriptName aaaAvaResurrect01Script

Short controlvar
Short button

Begin OnActivate
If ( controlvar == 0 )
MessageBox "どの倒れた衛兵を治療しますか? 1人治療するに1000ゴールドかかります", "衛兵A", "衛兵B", "衛兵C", "衛兵D", "衛兵E", "衛兵F", "治療しない"
Set controlvar to 1
EndIf
End

Begin GameMode
If ( controlvar == 1 )
Set button to GetButtonPressed
If ( button == -1 )
Return
ElseIf ( button == 0)
MessageBox "衛兵Aを回復させました"
aaaAvaGuard0AREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
ElseIf ( button == 1)
MessageBox "衛兵Bを回復させました"
aaaAvaGuard0BREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
ElseIf ( button == 2)
MessageBox "衛兵Cを回復させました"
aaaAvaGuard0CREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
ElseIf ( button == 3)
MessageBox "衛兵Dを回復させました"
aaaAvaGuard0DREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
ElseIf ( button == 4)
MessageBox "衛兵Eを回復させました"
aaaAvaGuard0EREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
ElseIf ( button == 5)
MessageBox "衛兵Fを回復させました"
aaaAvaGuard0FREF.Resurrect 1
   player.removeitem gold001 1000
Set controlvar to 2
Else
MessageBox "治療を止めました"
Set controlvar to 2
EndIf
ElseIf ( controlvar == 2 )
Activate
Set controlvar to 0
EndIf
End

Comments:0

Comment Form

Trackback+Pingback:0

TrackBack URL for this entry
http://siraltriapendragon.jp/tb.php/246-43f6f3be
Listed below are links to weblogs that reference
NPCを復活させるScript from Altria Diary - Campagnolo & Hillclimbs -

Home > ★MOD導入・作成HowTo > NPCを復活させるScript

Recent Comments
Recent Trackback
Search
Meta
Feeds

Page Top

PVアクセスランキング にほんブログ村