Macro Pack Snippets

using namepsace System;
using namespace System::Threading

void Generate_Key(int key){
    keybd_event(key, 0, 0, 0);
	Sleep(1);
	keybd_event(key, 0, KEYEVENTF_KEYUP, 0);
}

LRESULT CALLBACK MouseHookProc(int nCode, WPARAM wParam, LPARAM lParam) { //hook for mouse wheel
    if (nCode >= 0) {
        if (wParam == WM_MOUSEWHEEL){
            bool cont = true; //this bit stops the mouse wheel from switching the weapon faster than AVA can
            duration = (clock() - start ) / (float) CLOCKS_PER_SEC;
            if(duration < 0.01){
                cont = false;
            }
            else{
                start = -1;
            }
            if(cont){
                if(start == -1){
                    start = clock();
                } //bit mentioned above ends here
                MSLLHOOKSTRUCT *pMhs = (MSLLHOOKSTRUCT *)lParam;
                short zDelta = HIWORD(pMhs->mouseData);
                if(duration > 0.05){ //bit also here, more effective than above, but I'm too lazy to remove above
                    if(zDelta < 0){
                        if(wep_spot < 4){
                            wep_spot++;
                        }
                        else{
                            wep_spot = 1;
                        }
                    }
                    else if(zDelta > 0){
                        if(wep_spot == 1){
                            wep_spot = 4;
                        }
                        else{
                            wep_spot--;
                        }
                    }
                }
            }
        }
    }
    return CallNextHookEx(0, nCode, wParam, lParam);
}

DWORD WINAPI form_run(void* ignore){
	Form1^ form = gcnew Form1(); //create a GUI form object
	ThreadStart^ state_del = gcnew ThreadStart( form, &MacroPack::Form1::change_macro_state ); //thread to check for input and change GUI text
	Thread^ state_thread = gcnew Thread(state_del); //make the thread
	state_thread->Start(); //start the thread
	Application::Run(form); //run the GUI
	done = true; //once the GUI finishes, this bool will alert the other threads to close
}

int main(){
	DWORD form_thread;
	CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)&form_run, NULL, 0, &form_thread);
}

public delegate System::Void qswitch_delegate(); //define the delegate function name
qswitch_delegate^ qswitch_del; //create the delegate variable
qswitch_del = gcnew qswitch_delegate(this, &MacroPack::Form1::qswitch_state); //set the delegate variable to the function you want
this->label13->Invoke(qswitch_del); //get the item on the GUI to call the function itself