DrifterBars: WAR Add-On for Warextdll

[PharmerPhale]

ALL releases and information has been moved to the Warhacker forums.

[xdarkaix]

Dude.... You are... god.. /worship , now i dont have to alt tab out to do everything <3 +Rep for u when i can

Ideas: Make it so it can macro more than 1 script command, so you can do multiple script casts at 1 time (if thats possible)

Edit: I tried making a macro with this, it works, it will use multiple lines of script, but it trys to cast them all at the same time so with out a script to wait a few seconds it will not work

[rockman319]

You are awesome!

Edit:
Here's my version of DrifterBars.lua.

NOTE: Only speed, flymode, mark and recall works HansW, help

Original Features:
-Speed button: toggles between "legit" (1), "flee" (1.2999) and "zoom!" (3)
-Mark and Recall buttons: self explanatory

Additional Features:
-Wall button: toggles between wallhack on and off
-LOS button: toggles between LOShack on and off
-Grnd button: toggles between Groundhack on and off
-NFD button: toggles between NoFallDamage on and off (note: this is s4lly's 2nd version, not first)
-Lazrs button: toggles between Lazarus on and off (note: Lazarus here means respawn at corpse location, turn off when changing zone)
note: changing zone means any zone including scenarios
-FlyMd button: toggles between FlyMode() on and off - very fun but very bannable, move w/ wasd z and space.

Soon (I hope):
-Eagle button (Eagle eye) - toggle button between max (500), 750, 1000, 1500, 2000, 2500 and 3000 then back to 500
-FlyN button (Float North) FlyW, FlyE and FlyS (Float West East South) -- not a toggle button
-FlyU button (Float Up) and maybe Dn (Down)
-more Marks n Recalls (need 8 buttons lol)

Version 1.02b - May 21st 2009

----------------------------------------------------------------------------------
-- DrifterBars v0.2
-- Written by PharmerPhale for use with HansW's DLL
-- http://www.mmowned.com/forums/warhammer-online-exploits-bots-programs/
----------------------------------------------------------------------------------

----------------------------------------------------------------------------------
-- Global Variables
----------------------------------------------------------------------------------
DrifterBars = {}

----------------------------------------------------------------------------------
-- Local Variables
----------------------------------------------------------------------------------
IsShowing = true
Recal = {}
SpeedHack = 0
WallHack = false
LOSHack = false
GroundHack = false
NFD = false
Lazarus = false

----------------------------------------------------------------------------------
-- DrifterBars Functions
----------------------------------------------------------------------------------

function DrifterBars.Init()
	-- Set window for use
	CreateWindow("DrifterBars", true)  
	WindowSetShowing("DrifterBars", true)
	WindowSetTintColor("DrifterBarsBg", 220, 220, 220)
	LabelSetText("DrifterBarsDisplay", L"DrifterBars v0.2 for WarExtDLL")
	ButtonSetText("DrifterBarsButtonOne", L"Speed")
	ButtonSetText("DrifterBarsButtonTwo", L"Wall")
	ButtonSetText("DrifterBarsButtonThree", L"LOS")
	ButtonSetText("DrifterBarsButtonFour", L"Grnd")
	ButtonSetText("DrifterBarsButtonFive", L"NFD")
	ButtonSetText("DrifterBarsButtonSix", L"Lazrs")
	ButtonSetText("DrifterBarsButtonSeven", L"FlyMd")
	ButtonSetText("DrifterBarsButtonEight", L"Mark")
	ButtonSetText("DrifterBarsButtonNine", L"Recall")
	ButtonSetText("DrifterBarsButtonTen", L"none")
	WindowSetDimensions("DrifterBars", 540, 140)
	WindowSetDimensions("DrifterBarsTitleBar", 545, 30)
	WindowSetDimensions("DrifterBarsDisplay", 545, 20)
	CreateWindow("DrifterBarsToggle", true)
	WindowSetShowing("DrifterBarsToggle", true )
	ButtonSetText("DrifterBarsToggleButton", L"DB")
end 

function DrifterBars.Close() -- close function for X button on gui
	WindowSetShowing("DrifterBars", false)
	IsShowing = false
end

function DrifterBars.DBB() -- Toggle function for minimap button
	if IsShowing == true then
		WindowSetShowing("DrifterBars", false)
		IsShowing = false
	else
		WindowSetShowing("DrifterBars", true)
		IsShowing = true
	end
end

function DrifterBars.ButtonOne()
	if SpeedHack == 0 then
		EA_ChatWindow.Print(L"Speed: Flee")
		SetSpeed(1.2999)
		SpeedHack = 1
	elseif SpeedHack == 1 then
		EA_ChatWindow.Print(L"Speed: Zoom!")
		SetSpeed(3)
		SpeedHack = 2
	else
		EA_ChatWindow.Print(L"Speed: Legit")
		SetSpeed(1)
		SpeedHack = 0
	end
end

function DrifterBars.ButtonTwo()
	if WallHack == false then
		WallHack = true
		EA_ChatWindow.Print(L"WallHack: on")
		WriteMemEx(0x506F89, 3, 0xeb7a)

	else
		WallHack = false
		EA_ChatWindow.Print(L"WallHack: off")
		WriteMemEx(0x506F89, 3, 0x7a34)
	end
end

function DrifterBars.ButtonThree()
	if LOSHack == false then
		LOSHack = true
		EA_ChatWindow.Print(L"LOSHack: on")
		WriteMemEx(0x53bccf, 1, 0xeb)
	else
		LOSHack = false
		EA_ChatWindow.Print(L"LOSHack: off")
		WriteMemEx(0x53bccf, 1, 0x74)
	end
end

function DrifterBars.ButtonFour()
	if GroundHack == false then
		GroundHack = true
		EA_ChatWindow.Print(L"GroundHack: on")
		WriteMemEx(0x50fb14, 3, 0x909090)
	else
		GroundHack = false
		EA_ChatWindow.Print(L"GroundHack: off")
		WriteMemEx(0x50fb14, 3, 0x8b4e2c)
	end
end

function DrifterBars.ButtonFive()
	if NFD == false then
		NFD = true
		EA_ChatWindow.Print(L"NoFallDamage: on")
		WriteMemEx(0x50fc42, 3, 0x90909090)
		WriteMemEx(0x50fc46, 1, 0x90)
	else
		NFD = false
		EA_ChatWindow.Print(L"NoFallDamage: off")
		WriteMemEx(0x50fc42, 3, 0xE8D60FFA)
		WriteMemEx(0x50fc46, 1, 0xFF)
	end
end

function DrifterBars.ButtonSix()
	if Lazarus == false then
		Lazarus = on
		EA_ChatWindow.Print(L"Lazarus: on")
		WriteMemEx(0x5057d7, 3, 0x90909090)
		WriteMemEx(0x5057da, 3, 0x90F30F10)
		WriteMemEx(0x5057de, 3, 0x450C9090)
		WriteMemEx(0x5057e2, 3, 0x909090)
	else
		Lazarus = off
		EA_ChatWindow.Print(L"Lazarus: off")
		WriteMemEx(0x5057d7, 3, 0xF30F1146)
		WriteMemEx(0x5057da, 3, 0x24F30F10)
		WriteMemEx(0x5057de, 3, 0x450CF30F)
		WriteMemEx(0x5057e2, 3, 0x114628)
	end
end

function DrifterBars.ButtonSeven()
	EA_ChatWindow.Print(L"FlyMode()")
	FlyMode()
end

function DrifterBars.ButtonEight()
	EA_ChatWindow.Print(L"TeleHack: Home Coordinates Set.")
	Recal.x = GetPlayer().x
	Recal.y = GetPlayer().y
	Recal.z = GetPlayer().z
end

function DrifterBars.ButtonNine()
	if Recal.x then
		Teleport(Recal.x, Recal.y, Recal.z)
		EA_ChatWindow.Print(L"TeleHack: Recalled to Home Coordinates.")
	else
		EA_ChatWindow.Print(L"TeleHack: No Home Coordinates Found.")
	end
end

function DrifterBars.ButtonTen()
	EA_ChatWindow.Print(L"ButtonTen")
	-- add your own DLL lovin' code here
end

[rockman319]

Oh Pharm, what happens when I click [x] to close? It's gone... how do I bring it back up? (besides /reloadui that is)

[PharmerPhale]

If you have libslash addon just type /DrifterBars in warhammer, im working on a minimap toggle button.

[rockman319]

If you have libslash addon just type /DrifterBars in warhammer, im working on a minimap toggle button.

Yes that works, thanks.

I updated my thing to v1.01d and only Speed works. Others don't.
The addresses are all correct... what could be it?

HansW?

Thanks.

[PharmerPhale]

Moving forward to v0.2 LibSlash is no longer required. /DrifterSpeed should no longer work. There's a button on the right labeled "DB" that can be used to show/hide the main DrifterBars window.

[rockman319]

Very nice update (v0.2).
I have also updated mine to v0.2b.

Ones working: speed, flymd, mark, recall

[PharmerPhale]

Here's my version of DrifterBars.lua... etc etc etc

I do plan on adding the features you mentioned. I'm off for a bit but I'll be back soon.

[rockman319]

Ok sorry .

Edit:
Found a bug... window title disappears when you move it...

Edit:
Hm not anymore... weird. Oh well.

[s4lly]

DrifterBars.xml with 15 buttons

<Interface xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="../../Interface.xsd">
   <Scripts>
      <Script file="DrifterBars.lua" />
   </Scripts>
   <Windows>
		<Window name="DrifterBars" handleinput="true" movable="true" popable="false">
			<Size>
	            <AbsPoint x="375" y="124" />
			</Size>
			<Anchors>
	            <Anchor point="center" relativePoint="center" relativeTo="Root">
	               <AbsPoint x="0" y="0" />
	            </Anchor>
			</Anchors>	
			<Windows>
				<Window name="$parentTitleBar" inherits="EA_TitleBar_Default">
					<Size>
						<AbsPoint x="380" y="30"/>
					</Size>
					<Anchors>
						<Anchor point="top" relativePoint="top" relativeTo="$parent">
							<AbsPoint x="0" y="0"/>
						</Anchor>
					</Anchors>
				</Window>	
				<Label name="$parentTitle" inherits="EA_Label_DefaultSubHeading" textalign="center">
					<Size>
						<AbsPoint x="370" y="20"/>
					</Size>
					<Anchors>
						<Anchor point="top" relativePoint="top" relativeTo="$parent">
							<AbsPoint x="0" y="7"/>
						</Anchor>
					</Anchors>
					<Color r="190" g="190" b="190" a="255"/>
				</Label>
                <FullResizeImage name="$parentBg" inherits="EA_FullResizeImage_MetalFill">
					<Anchors>
						<Anchor point="bottomleft" relativePoint="topleft" relativeTo="$parentTitleBar" />
						<Anchor point="bottomright" relativePoint="bottomright" relativeTo="$parent" />
					</Anchors>
                </FullResizeImage>         
                <FullResizeImage name="$parentFrame" inherits="EA_FullResizeImage_DefaultFrame" >
                    <Anchors>
                        <Anchor point="topright" relativePoint="topright" relativeTo="$parentBg" />
                        <Anchor point="bottomleft" relativePoint="bottomleft" relativeTo="$parentBg"  />
                    </Anchors>
                </FullResizeImage>
				<Label name="$parentDisplay" inherits="EA_Label_DefaultText" textalign="center">
					<Size>
						<AbsPoint x="370" y="20"/>
					</Size>
					<Anchors>
						<Anchor point="top" relativePoint="top" relativeTo="$parentBg">
							<AbsPoint x="0" y="-22"/>
						</Anchor>
					</Anchors>
					<Color r="255" g="255" b="255" a="255"/>
				</Label>
				<Button name="$parentButtonOne" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonOne"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-210"  y="-110"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonTwo" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonTwo"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-105"  y="-110"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonThree" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonThree"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="0"  y="-110"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonFour" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonFour"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="105"  y="-110"/>
						</Anchor>
					</Anchors>
				</Button>
				<Button name="$parentButtonFive" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonFive"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="210"  y="-110"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonSix" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonSix"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-210" y="-60"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonSeven" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonSeven"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-105" y="-60"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonEight" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonEight"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="0" y="-60"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButtonNine" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonNine"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="105" y="-60"/>
						</Anchor>
					</Anchors>
				</Button>
				<Button name="$parentButtonTen" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.ButtonTen"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="210" y="-60"/>
						</Anchor>
					</Anchors>
				</Button>   
								<Button name="$parentButton11" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.Button11"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-210" y="-10"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButton12" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.Button12"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="-105" y="-10"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButton13" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.Button13"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="0" y="-10"/>
						</Anchor>
					</Anchors>
				</Button>   
				<Button name="$parentButton14" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.Button14"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="105" y="-10"/>
						</Anchor>
					</Anchors>
				</Button>
				<Button name="$parentButton15" inherits="EA_Button_DefaultResizeable">
					<EventHandlers>
						<EventHandler event="OnLButtonUp" function="DrifterBars.Button15"/>
					</EventHandlers>
					<Size>
						<AbsPoint x="100" y="40"/>
					</Size>
					<Anchors>
						<Anchor point="bottom" relativePoint="bottom" relativeTo="$parent">
							<AbsPoint x="210" y="-10"/>
						</Anchor>
					</Anchors>
				</Button>
                <Button name="$parentClose" inherits="EA_Button_DefaultWindowClose" >
                    <EventHandlers>
                        <EventHandler event="OnLButtonUp" function="DrifterBars.Close" />
                    </EventHandlers>
					<Anchors>
						<Anchor point="topright" relativePoint="topright" relativeTo="$parentTitleBar" />
					</Anchors>
                </Button>
			</Windows>
		</Window>
   </Windows>
</Interface>

If you needed a few more rockman

[rockman319]

Well who don't . Thanks, S4lly.

[PharmerPhale]

Update to 0.3 for AutoRez feature.

Still havn't had any luck with other hacks, atleast not in the way intended by HansW.

[PharmerPhale]

Found a bug... window title disappears when you move it...

Had this happen to me once also. Lol... unfortunatly if I can't reproduce the problem it would be impossible to fix. Let me know if you figure anything out about it. :confused:

[PharmerPhale]

So I've created the click-to-teleport... Hah, it can be done!

What other hacks did you get working rockman? I wanted to fill up some more of the buttons before this release.