Programers look! you know yah want to!

[RatedX]

Insane hasent posted any thing in a few months cause hes working 2 jobs but he took 20 min to do this i got this from 3cho site

Originally Posted by Insane

I saw a simple post at 0x33 with a neat thing for silkroad so i took 20 min and heres a tool taht shows stats like trainshow.bat for isro bot but i cant seem to get it to refresh u can fix it if you want or not eather way i dont have mutch time these days to mess around with stuff,you could allso change the collors of the progress bars if you want.......


well heres waht got me to make this

Here is the code for it(way better then the example one he made.....)

#include <GUIConstants.au3>
#include "_silkroadtool.au3"

Local $pidSRO = WinGetProcess("SRO_Client")
; Declare the inital values for HP etc...
$HP = _CurrentHP($pidSRO)
$HP_MAX = _MaxHP($pidSRO)
$MP = _CurrentMP($pidSRO)
$MP_MAX = _MaxMP($pidSRO)
$X_Pos =  _PositionX($pidSRO)
$Y_Pos = _PositionY($pidSRO)

;Calculate the Percenage
$MP_PERCENT = Round($MP / $MP_MAX * 100, 0)
$HP_PERCENT = Round($HP / $HP_MAX * 100, 0)




;Create the GUI
$MAIN_GUI = GUICreate("Silkroad Online", 575, 50,350,-25)
;Create a lable to tell us what we are seeing
GUICtrlCreateLabel("HP", 8, 8, 19, 17)
;Create the progress to show us what we are seeing
$HP_PROGRESS = GUICtrlCreateProgress(32, 6, 125, 15)
;Set the limit of it to 100.
GUICtrlSetLimit(-1, 100, 0)
;Set the progress to show the % of the field.
GUICtrlSetData(-1, $HP_PERCENT)
;Do the same for MP
$HP_STATS = GUICtrlCreateLabel($HP & "/" & $HP_MAX, 200, 8, 75, 17)
GUICtrlCreateLabel("MP", 8, 30, 20, 17)
$MP_PROGRESS = GUICtrlCreateProgress(32, 28, 125, 15)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlSetData(-1, $MP_PERCENT)
$MP_STATS = GUICtrlCreateLabel($MP & "/" & $MP_MAX, 200,30,75,17)
GUICtrlCreateLabel("Level: " & _Level($pidSRO),300,8,50,17)
GUICtrlCreateLabel("Pos:" & $X_Pos & "," & $Y_Pos,300,30,100,17)
$hide = GUICtrlCreateButton("Hide",400,15,50,20)
GUICtrlSetOnEvent(-1, "hideClick")
$show = GUICtrlCreateButton("Show",450,15,50,20)
GUICtrlSetOnEvent(-1, "showClick")
$exit = GUICtrlCreateButton("Exit",525,15,50,20)
GUICtrlSetOnEvent(-1, "exitClick")
;Show our GUI
GUISetState(@SW_SHOW)

;Start the message loop
While 1
;Get the message
    $nMsg = GUIGetMsg()
;Start the switch...case...event loop
    Switch $nMsg
  ;If $nMsg = to the exit button then
        Case $GUI_EVENT_CLOSE
      ;Exit
            Exit
    EndSwitch
WEnd

Func showClick ()
    WinSetState($pidSRO,"",@SW_SHOW)
EndFunc

Func hideClick ()
    WinSetState($pidSRO,"",@SW_HIDE)
EndFunc

Func exitClick ()
Exit
EndFunc

[TomaCukor]

nice stuff


what u wanna do with it ?

[YetAnotherSRObot]

Thanks for the post. Saved me a bit of time.

[windragon]

Originally Posted by YetAnotherSRObot

Thanks for the post. Saved me a bit of time.

I hope that you don't work only to your bot and read only to GpZ cause a lot of useful things that can save you lots of "bit of time" I hope to see the first release of your bot soon ^_^ .
Let me know if you need someone to make some guides for it I'll be glad to do that :D

Windragon

[RatedX]

Its updateing now!!!!!!!!!!!!! Insanes teh man!

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_icon=..\..\..\..\My Documents\SRO Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include "_silkroadtool.au3"

Local $pidSRO = WinGetProcess("SRO_Client")
$Delay = 1000
$tDelay = 0
; Declare the inital values for HP etc...
createGui()
setGui()


;Start the message loop
While 1
;Get the message
    $tDelay = $tDelay +1 
    if $tDelay = $Delay Then
        $tDelay = 0
        setGui()
    EndIf 
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func createGui()
    Global $MAIN_GUI = GUICreate("Silkroad Online", 575, 50,350,-25)
    WinSetOnTop($MAIN_GUI, "", 1)
    ;Create a lable to tell us what we are seeing
    GUICtrlCreateLabel("HP", 8, 8, 19, 17)
    ;Create the progress to show us what we are seeing
    Global $HP_PROGRESS = GUICtrlCreateProgress(32, 6, 125, 15)
    ;Set the limit of it to 100.
    GUICtrlSetLimit(-1, 100, 0)
    ;Do the same for MP
    Global $HP_STATS = GUICtrlCreateLabel("200/200", 200, 8, 75, 17)
    GUICtrlCreateLabel("MP", 8, 30, 20, 17)
    Global $MP_PROGRESS = GUICtrlCreateProgress(32, 28, 125, 15)
    GUICtrlSetLimit(-1, 100, 0)
    Global $MP_STATS = GUICtrlCreateLabel("200/200", 200,30,75,17)
    Global $Level_STATS = GUICtrlCreateLabel("Level: 0",300,8,50,17)
    Global $Pos_STATS = GUICtrlCreateLabel("Pos: 0 , 0",300,30,100,17)
    Global $Hide = GUICtrlCreateButton("Hide",400,15,50,20)
    GUICtrlSetOnEvent(-1, "HideClick")
    Global $Show = GUICtrlCreateButton("Show",450,15,50,20)
    GUICtrlSetOnEvent(-1, "ShowClick")
    Global $Exit = GUICtrlCreateButton("Exit",525,15,50,20)
    GUICtrlSetOnEvent(-1, "ExitClick")
    ;Show our GUI
    GUISetState(@SW_SHOW)
EndFunc 




Func setGui()
    $Level = _Level($pidSRO)
    $HP = _CurrentHP($pidSRO)
    $HP_MAX = _MaxHP($pidSRO)
    $MP = _CurrentMP($pidSRO)
    $MP_MAX = _MaxMP($pidSRO)
    $X_Pos =  _PositionX($pidSRO)
    $Y_Pos = _PositionY($pidSRO)    
    ;Calculate the Percenage
    $MP_PERCENT = Round($MP / $MP_MAX * 100, 0)
    $HP_PERCENT = Round($HP / $HP_MAX * 100, 0)
    
    ;Set the progress to show the % of the field.
    GuiCtrlsetdata($HP_STATS, $HP  & "/" & $HP_Max)
    GUICtrlSetData($HP_PROGRESS, $HP_PERCENT)
    Guictrlsetdata($MP_STATS, $MP & "/" & $MP_MAX)
    GUICtrlSetData($MP_PROGRESS, $MP_PERCENT)
    GuiCtrlSetData($Level_STATS,"Level: " & $Level)
    GuiCtrlSetData($Pos_STATS,"Pos: " & $X_Pos & " , " & $Y_Pos)
EndFunc 

Func ShowClick ()
    WinSetState("SRO_Client", "", @SW_SHOW)
EndFunc

Func HideClick ()
    WinSetState("SRO_Client", "", @SW_HIDE)
EndFunc

Func ExitClick ()
    Exit
EndFunc

RatedX added 140 Minutes and 35 Seconds later...< --- Please use the edit button in the future--- >

working great XD