I try move dialog to cursor position when enter command /mdialog
PHP:
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
REPEAT
wait 0
UNTIL samp.Available()
Dialog.Create(0@, "Hack Pack ")
Dialog.SetRECT(0@, 1@, 7@, 260, 150)
/// Dialog Background color
Dialog.SetBackgroundColor(0@, -16777216)
/// Dialog check Box
Dialog.AddCheckBox(0@, 1, "{FF0000}test 1", 10, 10, 200, 20)
Dialog.AddCheckBox(0@, 2, "{FF0000}test 2", 10, 35, 200, 20)
Dialog.AddCheckBox(0@, 3, "{FF0000}test 3", 10, 60, 200, 20)
Dialog.AddCheckBox(0@, 4, "{FF0000}test 4", 10, 85, 200, 20)
Dialog.AddButton(0@, 5, "Close", 80, 110, 70, 20)
/// Dialog CheckBox colors
Dialog.SetCheckBoxColor(0@, 1, -15952405)
Dialog.SetCheckBoxColor(0@, 2, -15952405)
Dialog.SetCheckBoxColor(0@, 3, -15952405)
Dialog.SetCheckBoxColor(0@, 4, -15952405)
/// Dialog set not visibile
dialog.SetVisible(0@,0)
0B34: "test" @ShowDialog
0B34: "mdialog" @Move_Dialog
WHILE TRUE
wait 0
IF
Dialog.IsVisible(0@)
THEN
SAMP.ToggleCursor(1)
IF
0B81: dialog 0@ pop_event_to 2@ control_id_to 3@
THEN
IF AND
3@ == 5 // ID
2@ == 257 // pressed
THEN
Dialog.SetVisible(0@,0)
SAMP.ToggleCursor(0)
ELSE
//nothing
END
END
END // END Dialog.IsVisible(0@)
END /// END WHILE TRUE
:ShowDialog
Dialog.SetVisible(0@, 1)
0B43:
:Move_Dialog
0B12: 8@ = 8@ XOR TRUE
WHILE 8@ == TRUE
0B5E: get_cursor_pos 1@ 7@
0AF5: write_string 1@ to_ini_file "Cleo\INI\Sarg.ini" section "Dialog Position" key "Position xy"
0AF5: write_string 7@ to_ini_file "Cleo\INI\Sarg.ini" section "Dialog Position" key "Position z"
END
0B43: