Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
help me please i dont know how to arrange this....
#1
i wanna put my macro on a dialog so it can be easy to use but i have no idea on it Cry Cry
this is the dialog i make...
Macro Macro3
Code:
Copy      Help
;
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 112 96 "NEALBOT"
;3 Button 0x54032000 0x0 6 74 48 14 "ON"
;4 Button 0x54032000 0x0 58 74 48 14 "OFF"
;5 ListBox 0x54230101 0x200 8 10 96 48 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2040400 "*" "" "" ""

str controls = "5"
str lb5
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

this is the macro i wanna put but i want to Start by clicking "ON" and stop it by clicking "OFF"...

Macro NEALBot Ver.3
Code:
Copy      Help
int w1=act(win("CABAL" "D3D Window"))
Speak "Nealbot. has been, activated!" 0.4
OnScreenDisplay "NealBot Activated" 2 0 0 0 30 450 4
wait 3
rep
,rig 871 601 w1 1 ;; 'CABAL'
,ifk(v) break ;;if pressed key v, exit the rep loop
,key z3x
,wait 2
,ifk(v) break ;;if pressed key v, exit the rep loop
,key 4x
,wait 2
,ifk(v) break ;;if pressed key v, exit the rep loop
,key z5x0
,wait 2
,ifk(v) break ;;if pressed key v, exit the rep loop
help me how to arrange this please.. :?: :?:
#2
Add below sel wParam.

Code:
Copy      Help
,case 3
,mac "NEALBot Ver.3"
,case 4
,EndThread "NEALBot Ver.3"
#3
thnx sir it works but i can't turn it off because the dialog is close when i click the ON button and even i click e X button on top it starts the macro
what would i do not to close dialog even if macro is running??
sorry for my english.
#4
Function Macro3
Code:
Copy      Help
;
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 112 96 "NEALBOT"
;3 Button 0x54032000 0x0 6 74 48 14 "ON"
;4 Button 0x54032000 0x0 58 74 48 14 "OFF"
;5 ListBox 0x54230101 0x200 8 10 96 48 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2040400 "*" "" "" ""

str controls = "5"
str lb5
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 3
,mac- "NealBot Ver.2"
,case 4
,EndThread "NealBot Ver.2"
sel wParam
,case IDOK
,case IDCANCEL
ret 1
what can i do so the dialog didn't close??
i cant turn the macro off
#5
"NEALBot Ver.3" runs when "Macro3" ends because both are macros and don't have "Run simultaneously" property. Look in Properties. You can select "Run simultaneously" or convert to function.
#6
THNX IT WORKS NOW SIR!!! Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
but i have still 1 more question Smile
how can i make work of this where can i put another macro??
Function Macro3
Code:
Copy      Help
;
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 112 96 "NEALBOT"
;3 Button 0x54032000 0x0 6 74 48 14 "ON"
;4 Button 0x54032000 0x0 58 74 48 14 "OFF"
;5 ComboBox 0x54230243 0x0 8 14 96 213 ""
;6 Button 0x54012003 0x0 8 54 44 10 "AutoLoot"
;END DIALOG
;DIALOG EDITOR: "" 0x2040400 "*" "" "" ""

str controls = "5 6"
str cb5 c6Aut

cb5="&NEALBOT[]NEALAUTOLOOT[]NEALAUTOSHOUT"

if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 3
,mac "NealBot_Ver_2"
,case 4
,EndThread "NealBot_Ver_2"
sel wParam
,case IDOK
,case IDCANCEL
ret 1

the other macro is this cb5="&NEALBOT[]NEALAUTOLOOT[]NEALAUTOSHOUT"
and also where can i put the macro of this 6 Button 0x54012003 0x0 8 54 44 10 "AutoLoot"
thnx sir more power!! Big Grin Big Grin Big Grin
#7
Macro Macro2766
Code:
Copy      Help
,case 3
,CB_SelectedItem id(5 hDlg) _s
,mac _s

Similar for EndThread.

Quote:and also where can i put the macro of this 6 Button 0x54012003 0x0 8 54 44 10 "AutoLoot"
In dialog editor select the control and click toolbar button "Events", OK.


Forum Jump:


Users browsing this thread: 1 Guest(s)