用 script 编写 远程传送装置 + 详细中文注释 ----- Part1

loveltzzm

受网友qjyuio鼓舞，我希望再向大家介绍一点script。辐射里的script其实并不复杂，只要掌握了基本命令，你就能编出任何你想要的效果。

在辐射的世界里，只要你会写script，就没有你做不出的东西。

我希望能够通过这样一些帖子让大家认识到script的魅力。本贴主题以我自己在MiniHideout里重写的 远程传送系统 为例。我那个远程传送系统是通过学习地下掩体后，将其做了一些简化和改动。

以下内容是MiniHideout里的 远程传送端 script

==============

红色字体表示重要注释
蓝色字体强调命令

==============

INT MenuLevel         \ 建立MenuLevel这个ID
INT Button               \ 建立Button这个ID
INT RunIT                \ 建立RunITl这个ID
INT TeleportSTART   \ 建立TeleportSTART这个ID，传送开始阶段
INT TeleportEND      \ 建立TeleportEND这个ID，传送结束阶段

INT表示建立的意思，效果类似Short

REF TeleportLocation   \ 建立 TeleportLocation 坐标

FLOAT Timer       \ 设立时间浮点

Begin OnActivate Player                                         \ 开始
    IF TeleportSTART == 0 && TeleportEND == 0     \ 如果满足 TeleportSTART和TeleportEND为0
        Set RunIt to 1                                               \ 设RunIt值为1
        Set MenuLevel to 1                                        \ 设MenuLevel值为1，实际效果为：进入1级菜单
        showmessage MHTeleportDeviceMenu02         \ 显示MHTeleportDeviceMenu02这条message
    Endif                                                                \ 如果条件结束
END                                                                     \ 全部句柄结束

script一开始设定的值如果没有特殊强调外一般为0。所以IF后面的语句直接成立，RunIt和MenuLevel被改成1
Set RunIt to 1、Set MenuLevel to 1 和 showmessage MHTeleportDeviceMenu02，三者并列，即当if条件满足时，三者同时触发

Begin GameMode                                                  \ 游戏模式开始
    IF RunIt == 1                                                   \ 如果 RunIt = 1
        IF MenuLevel == 1                                        \ 如果 MenuLevel = 1
            ;===Main Menu===                                 \ ; 这个分号表示解释的意思，分好后面同一行的内容不会被当做script语句计算
            Set Button to GetButtonPressed                  \ 令button值 = getbuttonpressed值

（getbuttonpressed表示在显示的message里鼠标选择的选项。0表示第一个，1表示第二个，如此类推）
   
            If Button == -1                                          \ getbuttonpressed 的计数从-1开始。-1表示什么都不选
                Return                                                   \ 返回
            elseif Button == 0                                      \ 此外当button=0，即message选第一个选项
                ;===Teleport to Field===                      \ 传送到野外
                Set TeleportLocation to MHTeleportFieldMarkerREF                      \ 设置目标传送地为MHTeleportFieldMarkerREF

（MHTeleportFieldMarkerREF是一个坐标，代表你在野外所在地。通过set，令TeleportLocation等于不同的坐标点，可以将玩家传动到任意位置）

                Set TeleportSTART to 1                            \ 设置TeleportSTART为1（表示传送开始）
                Set RunIt to 2                                         \ 设置RunIt为2（将开始远程传送阶段）

            elseif Button == 1                                                \ 即message选第二个选项
                ;===Custom Location Menu===                       \ 自定义传送目的地
                ShowMessage MHTeleportCustomLocations          \ 显示MHTeleportCustomLocations这条message
                Set MenuLevel to 2                                           \ 实际效果为：进入2级菜单

            else                                                                     \ 其他情况（即第三个选项）
                ;===Exit===                                                  \ ; 退出
                Set RunIt to 0                                                  \ 实际效果即为退出
                Set MenuLevel to 0                                           \ 实际效果即为退出
            endif                                                                   \ 如果条件 结束


        elseif MenuLevel == 2                                              \ 进入2级菜单

（实际上在上面显示MHTeleportCustomLocations这条message时即已经开始，这里是为了新引入一个getbuttonpressed值）

            ;===Custom Locations Menu===                         \ 自定义地点

            Set Button to GetButtonPressed                             \ 令button值 = getbuttonpressed值

            If Button == -1
                Return

            elseif Button == 0 ;Location 1                                        \ message第一个选项
                Set TeleportLocation to MHCustomTeleMarkerREF01     \ 定义TeleportLocation为MHCustomTeleMarkerREF01
                Set TeleportSTART to 1                                              \ 设置TeleportSTART为1（表示传送开始）
                Set RunIt to 2                                                           \ 设置RunIt为2（将开始远程传送阶段）

            elseif Button == 1 ;Location 2                                         \ message第二个选项
                Set TeleportLocation to MHCustomTeleMarkerREF02      \ 定义TeleportLocation为MHCustomTeleMarkerREF02
                Set TeleportSTART to 1                                               \ 设置TeleportSTART为1（表示传送开始）
                Set RunIt to 2                                                            \ 设置RunIt为2（将开始远程传送阶段）

            elseif Button == 2 ;Location 3                                         \ message第三个选项
                Set TeleportLocation to MHCustomTeleMarkerREF03      \ 定义TeleportLocation为MHCustomTeleMarkerREF03
                Set TeleportSTART to 1                                               \ 设置TeleportSTART为1（表示传送开始）
                Set RunIt to 2                                                            \  设置RunIt为2（将开始远程传送阶段

            elseif Button == 3                                                           \ message第四个选项
                Showmessage MHTeleportDeviceMenu02                       \ 显示上一级菜单，即MHTeleportDeviceMenu02这条message
               （实际上message即充当了菜单的作用）
                Set MenuLevel to 1
                Return

（除了第四个选项外，一旦选中前三个选项，传送都将开始。而如果选择第四个选项，则返回到上一级菜单，即要么直接传送到野外，要么退出传送）

            endif
        endif

    elseIf RunIt == 2                                                     \ 当RunIt = 2 时，传送阶段开始

        IF TeleportSTART                                                 \ 如果TeleportSTART = 1，传送开始阶段开始
           （此一条件与上面一条件RunIt=2并列）
            Player.PlaceAtMe EHTeleportEffects                   \ 在玩家身上汇聚EHTeleportEffects这个效果
            EHTeleportEffectsREF.Enable                            \ EHTeleportEffects这个效果开启
            DisablePlayerControls 1 1 1 1 0 1 1                   \ 禁止玩家控制

（DisablePlayerControls 1 1 1 1 0 0 0  后面7个数字分别表示 移动、哔哔小子、战斗、第三人称、看、文字、潜行）

            Set Timer to 3                                                \ 设置浮动时间值 3
            imod EHFadetoWhite                                       \ 视觉效果 EHFadetoWhite
            Playsound MHTeleportSound                            \ 播放声音 MHTeleportSound
            Set TeleportSTART to 0                                   \ 关闭TeleportSTART
            Set TeleportEND to 1                                      \ 开启TeleportEND
            Return
        endif
   
        If TeleportEND                                                    \ 如果TeleportEND  = 1，传送结束阶段开始
            EHTeleportEffectsREF.Disable                           \ EHTeleportEffects这个效果关闭
            EnablePlayerControls                                       \ 允许玩家控制
            imod Addiction01ISFX                                      \ 视觉效果 Addiction01ISFX  
            Player.MoveTo TeleportLocation                        \ 把玩家传送到TeleportLocation这个地方
            Set TeleportEND to 0                                       \ 关闭TeleportEND
            Set RunIt to 0                                                 \ 全部流程结束
            Return
        endif

    endif
END

===============

总结：

此文主要讲解了show message和getbuttonpressed两条语句之间的关系，尤其是getbuttonpressed和message里的选项之间的联系基本构成了大部分大型mod的主体。

这两条命令共同组成了大部分大型script的主体框架。

===============

关于message的上文补充

当MenuLevel = 1，这里记为1级菜单，实际在geck中如下显示



当MenuLevel = 2，这里记为2级菜单，实际在geck中如下显示



可见getbuttonpressed的值即为对应的index，这就是两者的联动关系

===============

关于MHCustomTeleMarkerREF01-03

这不是一个指令，这是object。具体是 World Object - Static - XMaker 这个对象，调去后重建的object ID

关于XMaker顺便说一句，是个很常见Object，很多mod都用到了它