Tiberian Sun WASD Solution. Topic is solved

[Despot Aspid]

Good Day!

C&C Tiberian Sun has no keys to scroll map. Only RButton + MouseMove or edge scrolling. It is not comfortable.

Help me please make a script that will [hold down the right mouse button and move the mouse to the left] while button [a] is pressed. I need an example.
I tried the script myself, but it's terrible and moves jerkily.

Code: Select all

Send "{RButton down}"
Sleep(15)
MouseMove -1000, 0, 0, "R"
Send "{RButton up}"
Sleep(15)

[Mod edit: Added [code][/code] tags. Please use them yourself when posting code!]

[Despot Aspid]

This is better but cursor disappears and reappears. It's annoying.

Code: Select all

a::
{
MouseGetPos &xpos, &ypos
	Loop
	{
	MouseMove -1, 0, 100, "R"	
	if (!GetKeyState("a", "P"))
		{
		MouseMove xpos, ypos
		break
		}
	}
}

And I think this problem can't be solved...
Sorry for my English.


[Mod edit: Added [code][/code] tags. Please use them yourself when posting code!]

[boiler]

@Despot Aspid — The moderators have been adding [code][/code] tags to your posts. Please use them yourself when posting code on the forum! Thank you.

[Noitalommi_2]

@Despot Aspid

Hi.

Scrolling is a bit awkward in this game, so I couldn't find a better solution. This script lacks smooth scrolling in all 8 directions, but at least it works in four directions and the scrolling speed is constant.

Code: Select all

#Requires AutoHotkey >=2.0
#SingleInstance

S := Speed := 20
Keys := Map("w", "Up",
			"a", "Left",
			"s", "Down",
			"d", "Right")

For Key, Direction in Keys
	Hotkey Key, ScrollMap.Bind(Direction)
ScrollMap(D, K) {

	BlockInput "MouseMove"
	SendEvent("{RButton down}")
	Loop 2
		Mousemove(D = "Up" || D = "Down" ? 0
				: D = "Left" ? -S : D = "Right" ? S : 0
				, D = "Left" || D = "Right" ? 0
				: D = "Up" ? -S : D = "Down" ? S : 0
				,, "R" )
	KeyWait(K)
		SendEvent("{RButton up}")
	BlockInput "MouseMoveOff"
}