Initial full mirror of c:\VWE (source + assets + toolchain + outputs) via Git LFS

Complete disaster-recovery snapshot: engine/game source, game data assets,
VC6 toolchain + DX SDKs, build outputs, deployed game, and _UNUSED archive.
Large binaries in Git LFS; text preserved byte-for-byte (core.autocrlf=false,
no eol attributes). See RECOVERY.md for the one-clone rebuild procedure.

Gameleap/mw4/Content/ShellScripts/common_coop.script

@@ -0,0 +1,729 @@
+//
+//   for new coop version by jcem
+//
+#define fs_id					(-56789)
+
+// from here events
+#define fs_left					0x00010000
+#define fs_right				0x00020000
+#define fs_up					0x00040000
+#define fs_down					0x00080000
+
+#define fs_but1					101
+#define fs_but2					102
+#define fs_but3					103
+
+// var keys...
+#define fs_tab					209
+#define fs_ret					213
+#define fs_esc					227
+#define fs_space				232
+// to here events
+
+// from here events - internal
+#define fs_check_xval			1000
+#define fs_check_yval			1001
+#define fs_check_xdir			1002
+#define fs_check_ydir			1003
+// to here events - internal
+
+#define HORZ_ZONE_LEFT			(-600)
+#define HORZ_ZONE_LEFT2			(-300)
+#define HORZ_ZONE_RIGHT2		(+300)
+#define HORZ_ZONE_RIGHT			(+600)
+
+#define VERT_ZONE_UP			(-600)
+#define VERT_ZONE_UP2			(-300)
+#define VERT_ZONE_DOWN2			(+300)
+#define VERT_ZONE_DOWN			(+600)
+
+s_fscreen
+{
+	GUI_CREATE
+	{
+		// temp vars
+		int maskh
+		int maskv
+		int timeDiff
+		// id
+		int id = fs_id
+		int nJoystick = 0
+
+		location = -2000, -2000, 30000  // 30000 is almost top-most z-order value...
+		int width = 2000 + getresx() + 2000
+		int height = 2000 + getresy() + 2000
+		region = location.x,location.y to width,height
+
+		int time_delay = 150		// check every ##/60 sec
+		int time_initial = 300  // additional delay for the first time...
+		int time_cutoff = gettimex() + time_delay + time_initial
+
+		int fsm_isHorz = 0x00000100
+		int fsm_isHorz2 = 0x00000200
+		int fsm_isVert = 0x00000400
+		int fsm_isVert2 = 0x00000800
+
+		int fsm_left = fs_left
+		int fsm_right = fs_right
+		int fsm_up = fs_up
+		int fsm_down = fs_down
+
+		int fsm_left2 = 0x00001000
+		int fsm_right2 = 0x00002000
+		int fsm_up2 = 0x00004000
+		int fsm_down2 = 0x00008000
+
+		int fsm_repx = 0x00100000
+		int fsm_repy = 0x00200000
+
+		int fsm_2dircheck = 0x00400000
+
+		// detect left/right & up/down sam-time?
+		// default FALSE
+		// if FALSE then greater(in abs(...)) side will be returned
+		// if TRUE then both(horz,vert) side could be setted as a bit..
+		int flagDirsMask = fsm_left | fsm_right | fsm_up | fsm_down
+
+		int fsm_horzAll = fsm_left | fsm_left2 | fsm_right2 | fsm_right
+		int fsm_vertAll	= fsm_up | fsm_up2 | fsm_down2 | fsm_down
+		int CODE_INAVLID = fsm_horzAll | fsm_vertAll
+
+		int timeZoneCode = CODE_INAVLID // invalid value
+		int timeLast
+		int timeHorz
+		int timeHorz2
+		int timeVert
+		int timeVert2
+
+		int timeClickA = 10
+		int timeClickB = 800
+		int timeRepStart = 1000 // 485/60 second : for starting repeteating clicks
+		int timeRepDur = 750 // 30/60 second for repeteating clicks
+
+		int playBut1 = TRUE
+		int playBut2 = TRUE
+		int playBut3 = TRUE
+		int playHorz = FALSE
+		int playVert = FALSE
+
+		string strBut1 = SPATH "sfx_button7.wav"
+		string strBut2 = SPATH "sfx_button7.wav"
+		string strBut3 = SPATH "sfx_button7.wav"
+		string strHorz = SPATH "sfx_button7.wav"
+		string strVert = SPATH "sfx_button7.wav"
+
+		sound sndBut1
+		sound sndBut2
+		sound sndBut3
+		sound sndHorz
+		sound sndVert
+
+		// delay is frame based not time based
+		framerate = 30
+
+		focus(this)
+	}
+
+	GUI_INIT
+	{
+		region = 0,0 to width, height
+
+		timeZoneCode = CODE_INAVLID
+
+		sndBut1 = strBut1
+		sndBut2 = strBut2
+		sndBut3 = strBut3
+		sndHorz = strHorz
+		sndVert = strVert
+	}
+
+	LBUTTON_UPDATE
+	{
+		if (gettimex() >= time_cutoff)
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if (mouse.left == BUTTON_CLICKED)
+			{
+				if (playBut1)
+					play sndBut1, 1
+				mail(id, fs_but1, parent)
+			}
+		}
+	}
+
+	RBUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.right == BUTTON_CLICKED
+			{
+				if (playBut2)
+					play sndBut2, 1
+				mail(id, fs_but2, parent)
+			}
+		}
+	}
+
+	MBUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.middle == BUTTON_CLICKED
+			{
+				if (playBut3)
+					play sndBut3, 1
+				mail(id, fs_but3, parent)
+			}
+		}
+	}
+
+	HAT6BUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.hat6 == BUTTON_CLICKED
+			{
+				if (playVert)
+					play sndVert, 1
+				mail(id, fs_up, parent)
+			}
+		}
+	}
+
+	HAT7BUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.hat7 == BUTTON_CLICKED
+			{
+				if (playHorz)
+					play sndHorz, 1
+				mail(id, fs_left, parent)
+			}
+		}
+	}
+
+	HAT8BUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.hat8 == BUTTON_CLICKED
+			{
+				if (playVert)
+					play sndVert, 1
+				mail(id, fs_down, parent)
+			}
+		}
+	}
+
+	HAT9BUTTON_UPDATE
+	{
+		if gettimex() >= time_cutoff
+		{
+			//time_cutoff = gettimex() + time_delay
+
+			if mouse.hat9 == BUTTON_CLICKED
+			{
+				if (playHorz)
+					play sndHorz, 1
+				mail(id, fs_right, parent)
+			}
+		}
+	}
+
+	GUI_MAILBOX
+	{
+		int mx
+		int my
+
+		if sender == this
+		{
+			int m1
+			int m2
+
+			if getmessage() == fs_check_xval
+			{
+				mx = getmessage(1)
+				if (mx < HORZ_ZONE_LEFT)
+					return fsm_left
+				if (mx < HORZ_ZONE_LEFT2)
+					return fsm_left2
+				if (mx < HORZ_ZONE_RIGHT2)
+					return 0
+				if (mx < HORZ_ZONE_RIGHT)
+					return fsm_right2
+				return fsm_right
+			}
+			if getmessage() == fs_check_yval
+			{
+				my = getmessage(1)
+				if (my < VERT_ZONE_UP)
+					return fsm_up
+				if (my < VERT_ZONE_UP2)
+					return fsm_up2
+				if (my < VERT_ZONE_DOWN2)
+					return 0
+				if (my < VERT_ZONE_DOWN)
+					return fsm_down2
+				return fsm_down
+			}
+			if getmessage() == fs_check_xdir
+			{
+				mx = getmessage(1)
+				if mx & fsm_horzAll
+				{
+					if timeZoneCode & fsm_horzAll
+					{
+						m1 = mx & (fsm_left | fsm_left2)
+						m2 = timeZoneCode & (fsm_right | fsm_right2)
+						if m1 && m2
+							return 0
+
+						m1 = mx & (fsm_right | fsm_right2)
+						m2 = timeZoneCode & (fsm_left | fsm_left2)
+						if m1 && m2
+							return 0
+					}
+				}
+				return 1
+			}
+			if (getmessage() == fs_check_ydir)
+			{
+				my = getmessage(1)
+				if my & fsm_vertAll
+				{
+					if timeZoneCode & fsm_vertAll
+					{
+						m1 = my & (fsm_up | fsm_up2)
+						m2 = timeZoneCode & (fsm_down | fsm_down2)
+						if m1 && m2
+							return 0
+
+						m1 = my & (fsm_down | fsm_down2)
+						m2 = timeZoneCode & (fsm_up | fsm_up2)
+						if m1 && m2
+							return 0
+					}
+				}
+				return 1
+			}
+		}
+	}
+
+	GUI_EXECUTE
+	{
+	#if 0
+		int naJoyInfos[3 + 5]
+
+		callback($$CTCL_GetJoyInfo$$, nJoystick, naJoyInfos[0])
+
+		int nX = naJoyInfos[0]
+		int nY = naJoyInfos[1]
+		maskh = mail(fs_check_xval, nX, this)
+		maskv = mail(fs_check_yval, nY, this)
+		int timeCur = gettimex()
+
+		//spew "x: ", "%x", nX, "y: ", nY
+		//spew "maskh: ", maskh, "maskv: ", maskv, "time: ", timeCur
+
+		if timeZoneCode == CODE_INAVLID
+		{
+			//play sndHorz, 1
+
+			// initial processing...
+			timeZoneCode = maskh | maskv
+			timeLast = timeCur
+
+			timeHorz2 = 0
+			timeHorz = 0
+			if maskh & fsm_horzAll
+			{
+				if maskh & (fsm_left | fsm_right)
+				{
+					timeZoneCode |= fsm_isHorz
+					timeHorz = timeLast
+				}
+				timeZoneCode |= fsm_isHorz2
+				timeHorz2 = timeLast
+			}
+
+			timeVert = 0
+			timeVert2 = 0
+			if maskv & fsm_vertAll
+			{
+				if maskv & (fsm_up | fsm_down)
+				{
+					timeZoneCode |= fsm_isVert
+					timeVert = timeLast
+				}
+				timeZoneCode |= fsm_isVert2
+				timeVert2 = timeLast
+			}
+			return
+		}
+
+		int nRetCode = 0
+		int nOldHorz2 = timeHorz2
+		int nOldVert2 = timeVert2
+
+		// check left/right
+		if mail(fs_check_xdir, maskh, this)
+		{
+			// same direction
+			if maskh == 0
+			{
+				if timeZoneCode & fsm_isHorz
+				{
+					if timeClickA <= (timeCur - timeHorz2)
+					{
+						if (timeCur - timeHorz2) < timeClickB
+						{
+							nRetCode |= timeZoneCode & (fsm_left | fsm_right)
+						}
+					}
+				}
+				timeZoneCode &= ~(fsm_repx | fsm_horzAll | fsm_isHorz | fsm_isHorz2)
+				timeLast = timeCur
+				timeHorz2 = 0
+				timeHorz = 0
+			}
+
+			if maskh & (fsm_left | fsm_right)
+			{
+				if timeHorz
+				{
+					timeDiff = timeCur - timeHorz
+					if timeZoneCode & fsm_repx
+					{
+						if timeRepDur <= timeDiff
+						{
+							nRetCode |= maskh & (fsm_left | fsm_right)
+							timeLast = timeCur
+						}
+					}
+					else
+					{
+						if timeRepStart <= timeDiff
+						{
+							timeZoneCode |= fsm_repx
+							timeLast = timeCur
+							nRetCode |= maskh & (fsm_left | fsm_right)
+						}
+					}
+				}
+				else
+				{
+					timeZoneCode &= ~(fsm_repx | fsm_horzAll)
+					timeZoneCode |= (maskh | fsm_isHorz | fsm_isHorz2)
+					timeLast = timeCur
+					if !timeHorz2
+						timeHorz2 = timeLast
+					timeHorz = timeLast
+				}
+			}
+			if maskh & (fsm_left2 | fsm_right2)
+			{
+				timeZoneCode &= ~(fsm_repx | fsm_horzAll)
+				timeZoneCode |= (maskh | fsm_isHorz2)
+				timeLast = timeCur
+				if !timeHorz2
+					timeHorz2 = timeCur
+				timeHorz = 0
+			}
+		}
+		else
+		{
+			// invalid direction: you may moved stick too fast in both(left/right) direction
+			// new direction started as initial processing...
+			timeZoneCode &= ~(fsm_repx | fsm_horzAll | fsm_isHorz | fsm_isHorz2)
+			timeZoneCode |= (maskh | fsm_isHorz2)
+			timeLast = timeCur
+
+			timeHorz2 = timeLast
+			if maskh & (fsm_left | fsm_right)
+			{
+				timeZoneCode |= fsm_isHorz
+				timeHorz = timeLast
+			}
+			else
+				timeHorz = 0
+		}
+
+		// check up/down
+		if mail(fs_check_ydir, maskv, this)
+		{
+			// same direction
+			if maskv == 0
+			{
+				if timeZoneCode & fsm_isVert
+				{
+					if timeClickA <= (timeCur - timeVert2)
+					{
+						if (timeCur - timeVert2) < timeClickB
+						{
+							nRetCode |= timeZoneCode & (fsm_up | fsm_down)
+						}
+					}
+				}
+				timeZoneCode &= ~(fsm_repy | fsm_vertAll | fsm_isVert | fsm_isVert2)
+				timeLast = timeCur
+				timeVert2 = 0
+				timeVert = 0
+			}
+			if maskv & (fsm_up | fsm_down)
+			{
+				if timeVert
+				{
+					timeDiff = timeCur - timeVert
+					if timeZoneCode & fsm_repy
+					{
+						if timeRepDur <= timeDiff
+						{
+							nRetCode |= maskv & (fsm_up | fsm_down)
+							timeLast = timeCur
+						}
+					}
+					else
+					{
+						if timeRepStart <= timeDiff
+						{
+							timeZoneCode |= fsm_repy
+							timeLast = timeCur
+							nRetCode |= maskv & (fsm_up | fsm_down)
+						}
+					}
+				}
+				else
+				{
+					timeZoneCode &= ~(fsm_repy | fsm_vertAll)
+					timeZoneCode |= (maskv | fsm_isVert | fsm_isVert2)
+					timeLast = timeCur
+					if !timeVert2
+						timeVert2 = timeLast
+					timeVert = timeLast
+				}
+			}
+			else
+			{
+				if maskv & (fsm_up2 | fsm_down2)
+				{
+					timeZoneCode &= ~(fsm_repy | fsm_vertAll)
+					timeZoneCode |= (maskv | fsm_isVert2)
+					timeLast = timeCur
+					if !timeVert2
+						timeVert2 = timeLast
+					timeVert = 0
+				}
+			}
+		}
+		else
+		{
+			// invalid direction: you may moved stick too fast in both(up/down) direction
+			// new direction started as initial processing...
+			timeZoneCode &= ~(fsm_repy | fsm_vertAll | fsm_isVert | fsm_isVert2)
+			timeZoneCode |= (maskv | fsm_isVert2)
+			timeLast = timeCur
+
+			timeVert2 = timeLast
+			if maskv & (fsm_up | fsm_down)
+			{
+				timeZoneCode |= fsm_isVert
+				timeVert = timeLast
+			}
+			else
+				timeVert = 0
+		}
+
+#if 0
+		if nRetCode & (fsm_left | fsm_right)
+			spew "left or right"
+		if nRetCode & (fsm_up | fsm_down)
+			spew "up or down"
+#endif
+		nRetCode &= flagDirsMask
+		if nRetCode
+		{
+			int nHorz = nRetCode & (fsm_left | fsm_right)
+			int nVert = nRetCode & (fsm_up | fsm_down)
+
+			if !(flagDirsMask & fsm_2dircheck)
+			{
+				if nHorz && nVert
+				{
+					if nOldHorz2 <= nOldVert2
+					{
+						nRetCode &= (fsm_left | fsm_right)
+						nVert = FALSE
+					}
+					else
+					{
+						nRetCode &= (fsm_up | fsm_down)
+						nHorz = FALSE
+					}
+				}
+			}
+			if nHorz
+			{
+				if (playHorz)
+					play sndHorz, 1
+			}
+			if nVert
+			{
+				if (playVert)
+					play sndVert, 1
+			}
+			mail(id, nRetCode, parent)
+		}
+	#endif
+	}
+
+	GUI_DRAW
+	{
+	}
+	GUI_CHAR
+	{
+		// Check for the Escape key to resume mission
+		int ch = getchar()
+
+		if (ch == 0x09)
+		{
+			mail(id, fs_tab, parent)
+			return
+		}
+		if (ch == 0x0d) || (ch == 0x0a)
+		{
+			mail(id, fs_ret, parent)
+			return
+		}
+		if (ch == 27)
+		{
+			mail(id, fs_esc, parent)
+		}
+		if (ch == ' ')
+		{
+			mail(id, fs_space, parent)
+		}
+	}
+}
+
+s_invite_check
+{
+	GUI_CREATE
+	{
+        int nDoChallenge = 0
+    }
+    GUI_EXECUTE
+	{
+        if (nDoChallenge == 0) && callback($$CTCL_CheckCOOP$$)
+		{
+            int nCheck = callback($$CTCL_CheckInviteCOOP$$, 0)
+            if nCheck && (nCheck != 2)
+            {
+                if nCheck == 1
+                {
+                  if callback($$CTCL_GetType$$) == _ECTCL_CameraShip
+                  {
+                    callback($$CTCL_CheckInviteCOOP$$, 3)
+                  }
+                  else
+                  {
+#if 1 // TEST ROUTINE - rel
+                    script_run "Content\\ShellScripts\\gs_PauseModalCampaign.script", 0x2000
+#else // TEST ROUTINE - dbg
+                    callback($$CTCL_CheckInviteCOOP$$, 3)
+#endif
+                  }
+                    nCheck = callback($$CTCL_CheckInviteCOOP$$, 1)
+                }
+
+                if (nCheck == 3)
+                {
+                    nDoChallenge = 1
+                }
+            }
+        }
+    }
+}
+
+s_typewriter
+{
+	GUI_CREATE
+	{
+        // nReqCount: should be initialized as valid hop-count
+        // if nReqCount is 0, then text will be used...(no nStart, nEnd, nReqCount, nValues...)
+        int nReqCount = 0 // -1 at string end, -2 at int end
+
+        // if 0 < nReqCount then nReqCount numbers between nStart & nEnd will be calculated in nValues
+        // "nEnd <= nStart" could be possible... negative numbers is possible.
+        int nStart = 0
+        int nEnd = 0
+        int naValus[100]
+
+        // if nReqCount is 0, then text will be displayed at the end...
+        // text == "" could be possible...
+        string text
+
+        // if -1, then not initialized.. & after initialization nCount will be maxium display steps
+        // in string case, currently, nCount will be length$(text)
+        int nCount = -1
+
+        // current display step
+        // naValus[nCurIdx] or left$(text, nCurIdx)
+        // used internally, use result values at below...
+        int nCurIdx = 0 // should be 0 initially...
+
+        // result
+        int nResult = -1
+        string strResult = "!error"
+
+        framerate = 1
+    }
+    GUI_INIT
+    {
+        mail(0, this)
+    }
+	GUI_MAILBOX
+	{
+        if nReqCount < 0
+            return FALSE // already reach to the goal so use nResult/strResult(error case too, see above: -1 or !error)
+
+        if nReqCount == 0
+        { // as string
+            if nCount == -1
+            {
+                nCount = length$(text)
+            }
+            strResult = left$(text, nCurIdx)
+            if nCurIdx < nCount
+                nCurIdx++
+            else
+                nReqCount = -1 // reached to the goal, no more processing
+        }
+        else
+        {
+            if nCount == -1
+            {
+                nCount = callback($$CTCL_GetIncNums$$, nReqCount, nStart, nEnd, naValus[0]) - 1
+            }
+            nResult = naValus[nCurIdx]
+            strResult = conv$(nResult)
+            if nCurIdx < nCount
+                nCurIdx++
+            else
+                nReqCount = -2 // reached to the goal, no more processing
+        }
+
+        return TRUE
+    }
+}