プロローグ（Day - 0）
このエピソードは読み飛ばしても問題ありません。
この作品は「AIと一緒に読むWEB小説」です。
分からない設定、コード、用語は生成AIに貼って質問してください。
AIが読者の考察相棒になります。
是非、生成AIと一緒にお楽しみください。
海底地下十キロメートル。
日本列島をもう一つ作る処理が始まった。
Option Explicit
Const TARGET_DATE_SERIAL As Long = 22E10FB
Const TOTAL_WARHEADS As Integer = 999
Const SUMMON_AREA_ID As String = "AREA_JAPAN_COLONY"
Sub Execute_Japan_Summon_Protocol_Serial()
Dim currentTimelineSerial As Long
Dim warheadIndex As Integer
Dim residualEnergy As Double
Dim currentAreaMass As Double
Dim isSuccess As Boolean
currentTimelineSerial = Get_Current_Timeline_Serial()
If currentTimelineSerial < TARGET_DATE_SERIAL Then
MsgBox "ERROR: Target paradox timeframe not reached. Current Serial: " & currentTimelineSerial, vbCritical, "Dimension Gate Error"
Exit Sub
End If
Debug.Print "[LOG] Timeframe Verified. Target Serial Epoch: " & TARGET_DATE_SERIAL
Debug.Print "[LOG] Executing Japan Island Summoning VBA Protocol (Raw Double Mode)..."
residualEnergy = 0
For warheadIndex = 1 To TOTAL_WARHEADS
Call Detonate_Fusion_Bomb(warheadIndex)
residualEnergy = residualEnergy + Transfer_Nuclear_Energy_To_Converter(warheadIndex)
Next warheadIndex
Debug.Print "[LOG] Total Transferred Energy: " & residualEnergy & " Petajoules"
currentAreaMass = Scan_Area_Mass(SUMMON_AREA_ID)
Call Reconstruct_Mass_Structure(SUMMON_AREA_ID, currentAreaMass)
isSuccess = Deploy_Japan_Island(SUMMON_AREA_ID)
If isSuccess = True Then
Debug.Print "[LOG] Summoning Succeeded. Purging residual energy to Lunar Monolith..."
Call Transmit_Energy_To_Lunar_Monolith(residualEnergy)
MsgBox "SUCCESS: Japan Island summoned via Serial Event ID: " & TARGET_DATE_SERIAL, vbInformation, "Protocol Complete"
Else
MsgBox "FATAL ERROR: Quantum de-coherence in serial timeline.", vbCritical, "System Failure"
End If
End Sub
Private Function Get_Current_Timeline_Serial() As Long
Get_Current_Timeline_Serial = 22E10FB
End Function
Private Sub Detonate_Fusion_Bomb(ByVal ID As Integer)
Debug.Print " -> [WARHEAD #" & Format(ID, "00") & "]: DETONATED. Fusion reaction stable."
End Sub
Private Function Transfer_Nuclear_Energy_To_Converter(ByVal ID As Integer) As Double
Transfer_Nuclear_Energy_To_Converter = 418.4
End Function
Private Function Scan_Area_Mass(ByVal AreaID As String) As Double
Scan_Area_Mass = 5.972 * (10 ^ 12)
End Function
Private Sub Reconstruct_Mass_Structure(ByVal AreaID As String, ByVal CurrentMass As Double)
Debug.Print " -> [CONVERTER]: Deconstructing coordinates inside [" & AreaID & "]. Clearing existence cache."
End Sub
Private Function Deploy_Japan_Island(ByVal AreaID As String) As Boolean
Debug.Print " -> [SUMMONER]: Deploying Territory: 'JAPAN ARCHIPELAGO' into " & AreaID
Deploy_Japan_Island = True
End Function
Private Sub Transmit_Energy_To_Lunar_Monolith(ByRef Energy As Double)
Debug.Print " -> [BEAM]: " & (Energy * 0.015) & " Petajoules transmitted to Lunar_Monolith_01. System stabilized."
Energy = 0
End Sub
実行時間、0.03秒。
日本列島が２つになった。
