Golbez Posted May 20, 2007 Posted May 20, 2007 (edited) try runescape... I could help you with them.. cus i play it quite a bit.. Btw weres the fixed code u sspoke about.... and plz do the gui when button pressed ... plz... now im going to bed cus its now 1:16 AM rs sucks lol played that 2 so does wow and linage/linage2 ok all buttons work... send what you want for the text edit: code that ive improved on expandcollapse popup#include <Constants.au3> #include <Guiconstants.au3> #NoTrayIcon Opt("GuiOnEventMode", 1) Global $main, $TITLE_LABEL Dim $LeftPos, $ExampleLabel, $main, $LeftPos, $ok, $ok1, $ok2, $ok3, $ok4, $ok5, $ok6, $ok7, $info maingui() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $ok2 Then GUISetState (@SW_HIDE,$main) GUISetState (@SW_SHOW,$info) EndIf If $msg = $ok Then GUISetState (@SW_SHOW,$main) GUISetState (@SW_HIDE,$info) EndIf Sleep(100) WEnd Func maingui() $Main = _GuiDragableCreate("Oblivion Helper", 235, 400, -1, -1) GUISetBkColor(0xffffff) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 5, 23, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetColor(-1, 0xDD0000) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 5, 46, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlCreateGroup("Oblivion", 30, 335, 110, 50) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") $ok = GUICtrlCreateButton ("Close", 160, 350, 60, 30) GUICtrlSetOnEvent(-1, "Quit") $ok1 = GUICtrlCreateButton("Run", 40, 350, 90, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlCreateGroup("Oblivion Help Files", 0, 80, 235, 250) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetState ($ok1, $GUI_FOCUS) $ok2 = GUICtrlCreateButton("How to Increase Your Level", 5, 95, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok2, 'switchguis') $ok3 = GUICtrlCreateButton("Advantages of Leveling", 5, 135, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok3, 'switchguis') $ok4 = GUICtrlCreateButton("Raising Attributes", 5, 175, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok4, 'switchguis') $ok5 = GUICtrlCreateButton("The Leveling Problem (TLP)", 5, 215, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok5, 'switchguis') $ok6 = GUICtrlCreateButton("Overcoming TLP", 5, 255, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok6, 'switchguis') $ok7 = GUICtrlCreateButton("Additional info about leveling", 5, 295, 225, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok7, 'switchguis') DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 300, "long", 0x10+0x10000) GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit", $main) EndFunc Func Oblivion() run("Oblivion.exe") quit() EndFunc ;******************* info files Func IncreaseL() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("How to Increase Your Level", 393, 120, 193, 115) $label = GUICtrlCreateLabel("Your character qualifies for an increase in character level after improving any combination of major Skills by a total of 10 points. You need to rest on a bed for the level-up to take effect. How many minor skills you have increased during this time does not influence when you level. ", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Advantages() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Advantages of Leveling", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Raising() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Raising Attributes", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Leveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("The Leveling Problem (TLP)", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Overcoming() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Overcoming TLP", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Morinfoleveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Additional info about leveling", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc ;******************* Func switchguis() Switch @GUI_CtrlId Case $ok2 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', IncreaseL()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok3 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Advantages()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok4 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Raising()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok5 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Leveling()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok6 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Overcoming()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok7 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Morinfoleveling()) GUISetState(@SW_SHOW, HWnd($Main)) EndSwitch EndFunc Func Quit() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 300, "long", 0x10+0x10000) Exit EndFunc ;************************************************************* dont change unless need be Func _GuiDragableCreate($Title="", $Width=300, $Height=200, $Left=-1, $Top=-1, $Style=-1, $exStyle=-1, $Parent=0) Local $SetStyle = $WS_POPUPWINDOW+$Style, $SetExStyle = $WS_EX_DLGMODALFRAME+$exStyle If $Style = -1 Then $SetStyle = $WS_POPUPWINDOW If $exStyle = -1 Then $SetExStyle = $WS_EX_DLGMODALFRAME Local $hWnd = GUICreate($Title, $Width, $Height, $Left, $Top, $SetStyle, $SetexStyle, $Parent) GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "DragEvent") $Title_Label = GUICtrlCreateLabel($Title, 0, 0, 235, 22, $SS_CENTER) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetResizing(-1, 512) GUICtrlSetFont(-1, 12, 700, 0, "Daedric") GUICtrlSetBkColor(-1, 0xCCCCCC) Local $X_Button = GUICtrlCreateButton(" X ", 213, 0, 22, 22) GUICtrlSetFont(-1, 10, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Quit") Local $Mim_Button = GUICtrlCreateButton(" - ", 0, 0, 22, 22) GUICtrlSetFont(-1, 13, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "MimimizeGui") Return $hWnd EndFunc Func DragEvent() DragWindow($main) EndFunc Func DragWindow($hWnd) Local $MousePos = MouseGetPos() Local $hWndPos = WinGetPos($hWnd) Local $WinPos[2], $IsPressed[1], $OpenDll, $GuiCurInfo[5] $WinPos[0] = $MousePos[0]-$hWndPos[0] $WinPos[1] = $MousePos[1]-$hWndPos[1] $OpenDll = DllOpen("user32.dll") $GuiCurInfo = GUIGetCursorInfo($hWnd) If $OpenDll <> -1 And ($GuiCurInfo[4] = 0 Or $GuiCurInfo[4] = $Title_Label) Then Do $hWndPos = MouseGetPos() WinMove($hWnd, '', $hWndPos[0]-$WinPos[0], $hWndPos[1]-$WinPos[1]) Sleep(20) $IsPressed = DllCall($OpenDll, "int", "GetAsyncKeyState", "int", '0x01') Until @error Or BitAND($IsPressed[0], 0x8000) <> 0x8000 EndIf DllClose($OpenDll) EndFunc Func MimimizeGui() GUISetState(@SW_MINIMIZE, $main) EndFunc Edited May 20, 2007 by Golbez
SalazarCheats Posted May 20, 2007 Author Posted May 20, 2007 here is the website that has it all on...http://www.uesp.net/wiki/Oblivion:Levelingthe have subheading above it so it should be easy to fighure out which is which Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes
SalazarCheats Posted May 20, 2007 Author Posted May 20, 2007 (edited) ok i changed my script just a little bit...the only problem is... i ahve messed up spme were and now some of the buttons arnt working...Can u copy this script and test all of the buttons...Oh yea and at the very bottom there is a button named "Will be avable in next Version" can u make this lkike it used to be... Pic's hereold version:new verison:New version: ater change text button is pressed:i want the button at the bottom to be like the old version... and it all needs to work... excpet the last button when should be unclickble...Added:1) Minamize animation...2) Quit hotkey( with animation)3) maxmize button (working) (removed- stoped working)4) A run button (runs oblivion- next to exit button)5) new button (changes text)6) changed text GUI( love it) (problem once changed nothing wil work)7) all woking buttons... (problems with fitting text on it)Changed:1) Animation times2) Size(not much)3) Were stuff is(no much just a few spaces here and there)4) Button sizesTryed:N/AHere is latest code:expandcollapse popup#include <Constants.au3> #include <Guiconstants.au3> Opt("GuiOnEventMode", 1) Global $main, $TITLE_LABEL Dim $LeftPos, $ExampleLabel, $main, $LeftPos, $ok, $ok1, $ok2, $ok3, $ok4, $ok5, $ok6, $ok7, $info maingui() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $ok2 Then GUISetState (@SW_HIDE,$main) GUISetState (@SW_SHOW,$info) EndIf If $msg = $ok Then GUISetState (@SW_SHOW,$main) GUISetState (@SW_HIDE,$info) EndIf Sleep(100) WEnd Func maingui() $Main = _GuiDragableCreate("Oblivion Helper", 275, 425, -1, -1) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 38, 23, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlCreateGroup("Oblivion", 5, 335, 110, 50) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") $ok = GUICtrlCreateButton ("Close", 160, 335, 100, 30) GUICtrlSetOnEvent(-1, "Quit") GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) $ok1 = GUICtrlCreateButton("Run", 10, 350, 90, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlCreateGroup("Oblivion Help Files", 5, 80, 265, 250) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetState ($ok1, $GUI_FOCUS) $ok2 = GUICtrlCreateButton("How to Increase Your Level", 10, 95, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok2, 'switchguis') $ok3 = GUICtrlCreateButton("Advantages of Leveling", 10, 135, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok3, 'switchguis') $ok4 = GUICtrlCreateButton("Raising Attributes", 10, 175, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok4, 'switchguis') $ok5 = GUICtrlCreateButton("The Leveling Problem (TLP)", 10, 215, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok5, 'switchguis') $ok6 = GUICtrlCreateButton("Overcoming TLP", 10, 255, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok6, 'switchguis') $ok7 = GUICtrlCreateButton("Additional info about leveling", 10, 295, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok7, 'switchguis') $ok = GUICtrlCreateButton ("Change Text", 160, 365, 100, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlSetOnEvent(-1, "Swap") $ok8 = GUICtrlCreateButton("Will be avable in next Version", 25, 400, 225, 22) GUICtrlSetFont(-1, 9, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 300, "long", 0x10+0x10000) GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit", $main) EndFunc Func Oblivion() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $Main, "long", 2500, "long", 0x10+0x10000) run("Oblivion.exe") EndFunc ;******************* change text Func Swap() $OptGOEM = Opt('GUIONEVENTMODE', 0) $Second = _GuiDragableCreate("Oblivion Helper", 275, 425, -1, -1) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 38, 23, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetColor(-1, 0xDD0000) $button = GUICtrlCreateButton("Change text back", 115, 365, 155, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $Second) GUICtrlCreateGroup("Oblivion", 5, 335, 110, 50) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") $ok = GUICtrlCreateButton ("Close", 115, 335, 155, 30) GUICtrlSetOnEvent(-1, "Quit") GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetColor(-1, 0xDD0000) $ok1 = GUICtrlCreateButton("Run", 10, 350, 90, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlCreateGroup("Oblivion Help Files", 5, 80, 265, 250) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetState ($ok1, $GUI_FOCUS) $ok2 = GUICtrlCreateButton("How to Increase Your Level", 10, 95, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok2, 'switchguis') $ok3 = GUICtrlCreateButton("Advantages of Leveling", 10, 135, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok3, 'switchguis') $ok4 = GUICtrlCreateButton("Raising Attributes", 10, 175, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok4, 'switchguis') $ok5 = GUICtrlCreateButton("The Leveling Problem (TLP)", 10, 215, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok5, 'switchguis') $ok6 = GUICtrlCreateButton("Overcoming TLP", 10, 255, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok6, 'switchguis') $ok7 = GUICtrlCreateButton("Additional info about leveling", 10, 295, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok7, 'switchguis') $ok8 = GUICtrlCreateButton("Will be avable in next Version", 25, 400, 225, 22) GUICtrlSetFont(-1, 9, 700, 0, "Daedric") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlSetOnEvent(-1, "Swap") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit", $main) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($Second)) Return $OptGOEM Case $button GUIDelete(HWnd($Second)) Return $OptGOEM EndSwitch WEnd EndFunc ;******************* info files Func IncreaseL() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("How to Increase Your Level", 393, 120, 193, 115) $label = GUICtrlCreateLabel("Your character qualifies for an increase in character level after improving any combination of major Skills by a total of 10 points. You need to rest on a bed for the level-up to take effect. How many minor skills you have increased during this time does not influence when you level. ", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Advantages() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Advantages of Leveling", 393, 180, 193, 115) $label = GUICtrlCreateLabel("A key aspect of Oblivion is that when you level, the strength of your opponents increases: the level of any NPCs will be higher, and you will encounter more difficult creatures. On the other hand, there are many advantages to leveling. Maximizing these advantages will allow you to keep ahead of the enemies. Your health increases. You get to raise 3 attributes, by up to 5 points each. Many improvements are only possible by increasing your attributes: Maximum weapon damage is only possible by increasing Strength and Agility Maximum Magicka requires increased Intelligence; magicka regeneration depends upon Willpower. Increased maximum encumbrance requires increased Strength. Fatigue is dependent upon several attributes. All Daedric Quests have a level requirement. The equipment you can obtain is dependent upon your level: The amount of gold you find is level-dependent. The quality of Weapons and Armor is level-dependent (in stores, in chests, and taken from enemies). Many quest rewards are more powerful at higher levels. The strength of randomly-found enchanted items is level dependent (e.g., Weapons and Armor). The enchanted items you can make yourself are more powerful: the availability of Grand Soul Gems is level-dependent, and the power of Sigil Stones is level-dependent. Better quality alchemy equipment is only available at higher levels. Also, many ingredients are effectively only available at higher levels, because they are obtained from higher-level creatures. ", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 147, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Raising() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Raising Attributes", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Leveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("The Leveling Problem (TLP)", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Overcoming() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Overcoming TLP", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Morinfoleveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Additional info about leveling", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc ;******************* Func switchguis() Switch @GUI_CtrlId Case $ok2 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', IncreaseL()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok3 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Advantages()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok4 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Raising()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok5 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Leveling()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok6 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Overcoming()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok7 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Morinfoleveling()) GUISetState(@SW_SHOW, HWnd($Main)) EndSwitch EndFunc Func Quit() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 4500, "long", 0x10+0x10000) Exit EndFunc ;************************************************************* dont change unless need be Func _GuiDragableCreate($Title="", $Width=300, $Height=200, $Left=-1, $Top=-1, $Style=-1, $exStyle=-1, $Parent=0) Local $SetStyle = $WS_POPUPWINDOW+$Style, $SetExStyle = $WS_EX_DLGMODALFRAME+$exStyle If $Style = -1 Then $SetStyle = $WS_POPUPWINDOW If $exStyle = -1 Then $SetExStyle = $WS_EX_DLGMODALFRAME Local $hWnd = GUICreate($Title, $Width, $Height, $Left, $Top, $SetStyle, $SetexStyle, $Parent) GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "DragEvent") $Title_Label = GUICtrlCreateLabel($Title, 0, 0, 275, 22, $SS_CENTER) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetResizing(-1, 512) GUICtrlSetFont(-1, 12, 700, 0, "Daedric") GUICtrlSetBkColor(-1, 0xCCCCCC) Local $X_Button = GUICtrlCreateButton("X", 253, 0, 22, 22) GUICtrlSetFont(-1, 10, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Quit") Local $Mim_Button = GUICtrlCreateButton("~", 0, 0, 22, 22) GUICtrlSetFont(-1, 13, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "MimimizeGui") Local $Max_Button = GUICtrlCreateButton("Run", 217, 0, 35, 22) GUICtrlSetFont(-1, 5, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") Return $hWnd EndFunc Func DragEvent() DragWindow($main) EndFunc Func DragWindow($hWnd) Local $MousePos = MouseGetPos() Local $hWndPos = WinGetPos($hWnd) Local $WinPos[2], $IsPressed[1], $OpenDll, $GuiCurInfo[5] $WinPos[0] = $MousePos[0]-$hWndPos[0] $WinPos[1] = $MousePos[1]-$hWndPos[1] $OpenDll = DllOpen("user32.dll") $GuiCurInfo = GUIGetCursorInfo($hWnd) If $OpenDll <> -1 And ($GuiCurInfo[4] = 0 Or $GuiCurInfo[4] = $Title_Label) Then Do $hWndPos = MouseGetPos() WinMove($hWnd, '', $hWndPos[0]-$WinPos[0], $hWndPos[1]-$WinPos[1]) Sleep(20) $IsPressed = DllCall($OpenDll, "int", "GetAsyncKeyState", "int", '0x01') Until @error Or BitAND($IsPressed[0], 0x8000) <> 0x8000 EndIf DllClose($OpenDll) EndFunc Func MimimizeGui() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 2000, "long", 0x10+0x10000) GUISetState(@SW_MINIMIZE, $main) EndFuncplease help...And can u edit this script NOT one u already have!!!and the post the new version of this one!!! Edited May 20, 2007 by SalazarCheats Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes
SalazarCheats Posted May 20, 2007 Author Posted May 20, 2007 Golbez r=are you still helping me or have u gone! Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes
Golbez Posted May 20, 2007 Posted May 20, 2007 (edited) Golbez r=are you still helping me or have u gone! im here i was with my girl friend for the day edit: ill let you play with the text thing.. im not sure how to fix it and im hungry so if you dont get it ill try to get it later expandcollapse popup#include <Constants.au3> #include <Guiconstants.au3> Opt("GuiOnEventMode", 1) Global $main, $TITLE_LABEL Dim $LeftPos, $ExampleLabel, $main, $LeftPos, $ok, $ok1, $ok2, $ok3, $ok4, $ok5, $ok6, $ok7, $ok8, $ok9, $button, $info, $Second, $game $game = "C:\Program Files\\Oblivion.exe" maingui() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $ok2 Then GUISetState (@SW_HIDE,$main) GUISetState (@SW_SHOW,$info) EndIf If $msg = $ok Then GUISetState (@SW_SHOW,$main) GUISetState (@SW_HIDE,$info) EndIf Sleep(100) WEnd Func maingui() $Main = _GuiDragableCreate("Oblivion Helper", 275, 425, -1, -1) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 38, 23, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlCreateGroup("Oblivion", 5, 335, 110, 50) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") $ok = GUICtrlCreateButton ("Close", 160, 335, 100, 30) GUICtrlSetOnEvent(-1, "Quit") GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) $ok1 = GUICtrlCreateButton("Run", 10, 350, 90, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlCreateGroup("Oblivion Help Files", 5, 80, 265, 250) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetState ($ok1, $GUI_FOCUS) $ok2 = GUICtrlCreateButton("How to Increase Your Level", 10, 95, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok2, 'switchguis') $ok3 = GUICtrlCreateButton("Advantages of Leveling", 10, 135, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok3, 'switchguis') $ok4 = GUICtrlCreateButton("Raising Attributes", 10, 175, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok4, 'switchguis') $ok5 = GUICtrlCreateButton("The Leveling Problem (TLP)", 10, 215, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok5, 'switchguis') $ok6 = GUICtrlCreateButton("Overcoming TLP", 10, 255, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok6, 'switchguis') $ok7 = GUICtrlCreateButton("Additional info about leveling", 10, 295, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok7, 'switchguis') $ok8 = GUICtrlCreateButton("Will be avable in next Version", 25, 400, 225, 22) GUICtrlSetFont(-1, 9, 700, 0, "Monotype Corsiva") ;GUICtrlSetOnEvent(-1, "Oblivion") $ok9 = GUICtrlCreateButton ("Change Text", 160, 365, 100, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlSetOnEvent(-1, "Swap") DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 300, "long", 0x10+0x10000) GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit", $main) EndFunc ;******************* change text Func Swap() $OptGOEM = Opt('GUIONEVENTMODE', 0) $Second = _GuiDragableCreate("Oblivion Helper", 275, 425, -1, -1) $ExampleLabel = GUICtrlCreateLabel("Welcome to Oblivion helper ", 38, 23, 230, 20) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetColor(-1, 0xDD0000) $button = GUICtrlCreateButton("Change text back", 115, 365, 155, 30) GUICtrlSetFont(-1, 12, 600, 0, "Monotype Corsiva") GUICtrlSetColor(-1, 0xDD0000) GUICtrlSetOnEvent(-1, "switchguis") ;******************************************************************************************** GUICtrlCreateGroup("Oblivion", 5, 335, 110, 50) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") $ok = GUICtrlCreateButton ("Close", 115, 335, 155, 30) GUICtrlSetOnEvent(-1, "Quit") GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetColor(-1, 0xDD0000) $ok1 = GUICtrlCreateButton("Run", 10, 350, 90, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlCreateGroup("Oblivion Help Files", 5, 80, 265, 250) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUICtrlSetState ($ok1, $GUI_FOCUS) $ok2 = GUICtrlCreateButton("How to Increase Your Level", 10, 95, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok2, 'switchguis') $ok3 = GUICtrlCreateButton("Advantages of Leveling", 10, 135, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok3, 'switchguis') $ok4 = GUICtrlCreateButton("Raising Attributes", 10, 175, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok4, 'switchguis') $ok5 = GUICtrlCreateButton("The Leveling Problem (TLP)", 10, 215, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok5, 'switchguis') $ok6 = GUICtrlCreateButton("Overcoming TLP", 10, 255, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok6, 'switchguis') $ok7 = GUICtrlCreateButton("Additional info about leveling", 10, 295, 255, 30) GUICtrlSetFont(-1, 12, 600, 0, "Daedric") GUISetOnEvent(-3, 'Quit') GUICtrlSetOnEvent($ok7, 'switchguis') $ok8 = GUICtrlCreateButton("Will be avable in next Version", 25, 400, 225, 22) GUICtrlSetFont(-1, 9, 700, 0, "Daedric") GUICtrlSetOnEvent(-1, "Oblivion") GUICtrlSetOnEvent(-1, "Swap") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit", $main) EndFunc ;******************* info files Func IncreaseL() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("How to Increase Your Level", 393, 120, 193, 115) $label = GUICtrlCreateLabel("Your character qualifies for an increase in character level after improving any combination of major Skills by a total of 10 points. You need to rest on a bed for the level-up to take effect. How many minor skills you have increased during this time does not influence when you level. ", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Advantages() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Advantages of Leveling", 393, 310, 193, 115) $label = GUICtrlCreateLabel("A key aspect of Oblivion is that when you level, the strength of your opponents increases: the level of any NPCs will be higher, and you will encounter more difficult creatures. On the other hand, there are many advantages to leveling. Maximizing these advantages will allow you to keep ahead of the enemies. Your health increases. You get to raise 3 attributes, by up to 5 points each. Many improvements are only possible by increasing your attributes: Maximum weapon damage is only possible by increasing Strength and Agility Maximum Magicka requires increased Intelligence; magicka regeneration depends upon Willpower. Increased maximum encumbrance requires increased Strength. Fatigue is dependent upon several attributes. All Daedric Quests have a level requirement. The equipment you can obtain is dependent upon your level: The amount of gold you find is level-dependent. The quality of Weapons and Armor is level-dependent (in stores, in chests, and taken from enemies). Many quest rewards are more powerful at higher levels. The strength of randomly-found enchanted items is level dependent (e.g., Weapons and Armor). The enchanted items you can make yourself are more powerful: the availability of Grand Soul Gems is level-dependent, and the power of Sigil Stones is level-dependent. Better quality alchemy equipment is only available at higher levels. Also, many ingredients are effectively only available at higher levels, because they are obtained from higher-level creatures. ", 8, 8, 378, 258) $button = GUICtrlCreateButton("Return to Main Menu", 227, 265, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Raising() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Raising Attributes", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Leveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("The Leveling Problem (TLP)", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Overcoming() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Overcoming TLP", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc Func Morinfoleveling() $OptGOEM = Opt('GUIONEVENTMODE', 0) $gui = GUICreate("Additional info about leveling", 393, 120, 193, 115) $label = GUICtrlCreateLabel("text here", 8, 8, 378, 57) $button = GUICtrlCreateButton("Return to Main Menu", 232, 80, 153, 33, 0) GUICtrlSetOnEvent(-1, "maingui") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE, "maingui", $gui) While 1 Switch GUIGetMsg() Case - 3 GUIDelete(HWnd($gui)) Return $OptGOEM Case $button GUIDelete(HWnd($gui)) Return $OptGOEM EndSwitch WEnd EndFunc ;******************* Other Functions Func switchguis() Switch @GUI_CtrlId Case $ok2 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', IncreaseL()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok3 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Advantages()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok4 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Raising()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok5 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Leveling()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok6 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Overcoming()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok7 GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', Morinfoleveling()) GUISetState(@SW_SHOW, HWnd($Main)) Case $ok9 GUISetState(@SW_HIDE, HWnd($Second)) Opt('GUIONEVENTMODE', Swap()) GUISetState(@SW_SHOW, HWnd($Second)) Case $button GUISetState(@SW_HIDE, HWnd($Main)) Opt('GUIONEVENTMODE', maingui()) GUISetState(@SW_SHOW, HWnd($Main)) EndSwitch EndFunc Func Oblivion() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $Main, "long", 2500, "long", 0x10+0x10000) run($game) exit EndFunc Func Quit() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 4500, "long", 0x10+0x10000) Exit EndFunc ;******************* dont change unless need be Func _GuiDragableCreate($Title="", $Width=300, $Height=200, $Left=-1, $Top=-1, $Style=-1, $exStyle=-1, $Parent=0) Local $SetStyle = $WS_POPUPWINDOW+$Style, $SetExStyle = $WS_EX_DLGMODALFRAME+$exStyle If $Style = -1 Then $SetStyle = $WS_POPUPWINDOW If $exStyle = -1 Then $SetExStyle = $WS_EX_DLGMODALFRAME Local $hWnd = GUICreate($Title, $Width, $Height, $Left, $Top, $SetStyle, $SetexStyle, $Parent) GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "DragEvent") $Title_Label = GUICtrlCreateLabel($Title, 0, 0, 275, 22, $SS_CENTER) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetResizing(-1, 512) GUICtrlSetFont(-1, 12, 700, 0, "Daedric") GUICtrlSetBkColor(-1, 0xCCCCCC) Local $X_Button = GUICtrlCreateButton("X", 253, 0, 22, 22) GUICtrlSetFont(-1, 10, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Quit") Local $Mim_Button = GUICtrlCreateButton("~", 0, 0, 22, 22) GUICtrlSetFont(-1, 13, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "MimimizeGui") Local $Max_Button = GUICtrlCreateButton("Run", 217, 0, 35, 22) GUICtrlSetFont(-1, 5, 700, 0, "Monotype Corsiva") GUICtrlSetOnEvent(-1, "Oblivion") Return $hWnd EndFunc Func DragEvent() DragWindow($main) EndFunc Func DragWindow($hWnd) Local $MousePos = MouseGetPos() Local $hWndPos = WinGetPos($hWnd) Local $WinPos[2], $IsPressed[1], $OpenDll, $GuiCurInfo[5] $WinPos[0] = $MousePos[0]-$hWndPos[0] $WinPos[1] = $MousePos[1]-$hWndPos[1] $OpenDll = DllOpen("user32.dll") $GuiCurInfo = GUIGetCursorInfo($hWnd) If $OpenDll <> -1 And ($GuiCurInfo[4] = 0 Or $GuiCurInfo[4] = $Title_Label) Then Do $hWndPos = MouseGetPos() WinMove($hWnd, '', $hWndPos[0]-$WinPos[0], $hWndPos[1]-$WinPos[1]) Sleep(20) $IsPressed = DllCall($OpenDll, "int", "GetAsyncKeyState", "int", '0x01') Until @error Or BitAND($IsPressed[0], 0x8000) <> 0x8000 EndIf DllClose($OpenDll) EndFunc Func MimimizeGui() DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $main, "long", 2000, "long", 0x10+0x10000) GUISetState(@SW_MINIMIZE, $main) EndFunc edit2: just to let you know you have to have the font to see it.. i dont have thos fonts so i cant see the words in that font.. it all looks like comic sans to me Edited May 20, 2007 by Golbez
SalazarCheats Posted May 20, 2007 Author Posted May 20, 2007 can you sort out the last script plz and make it work... and post the edited sacript of that one... not one u already have!!! Thanks cya 2morrow Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes
Golbez Posted May 20, 2007 Posted May 20, 2007 can you sort out the last script plz and make it work... and post the edited sacript of that one... not one u already have!!!Thanks cya 2morrowlook at it.. it is the script you sent
Moderators SmOke_N Posted May 21, 2007 Moderators Posted May 21, 2007 can you sort out the last script plz and make it work... and post the edited sacript of that one... not one u already have!!!Thanks cya 2morrowWhat a waste of breath and effort you are.... Telling someone to sort out your problem... you should be begging them. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
Golbez Posted May 21, 2007 Posted May 21, 2007 What a waste of breath and effort you are.... Telling someone to sort out your problem... you should be begging them.hence y im letting him figure out this text thing.. ive made almost the whole thing
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now