AVA MACRO CODE

#Region 
#AutoIt3Wrapper_Compression=4 
#AutoIt3Wrapper_UseUpx=n 
#AutoIt3Wrapper_Add_Constants=n 
#EndRegion 
GLOBAL CONST $FW_DONTCARE = 0 
GLOBAL CONST $FW_THIN = 100 
GLOBAL CONST $FW_EXTRALIGHT = 200 
GLOBAL CONST $FW_ULTRALIGHT = 200 
GLOBAL CONST $FW_LIGHT = 300 
GLOBAL CONST $FW_NORMAL = 400 
GLOBAL CONST $FW_REGULAR = 400 
GLOBAL CONST $FW_MEDIUM = 500 
GLOBAL CONST $FW_SEMIBOLD = 600 
GLOBAL CONST $FW_DEMIBOLD = 600 
GLOBAL CONST $FW_BOLD = 700 
GLOBAL CONST $FW_EXTRABOLD = 800 
GLOBAL CONST $FW_ULTRABOLD = 800 
GLOBAL CONST $FW_HEAVY = 900 
GLOBAL CONST $FW_BLACK = 900 
GLOBAL CONST $CF_EFFECTS = 256 
GLOBAL CONST $CF_PRINTERFONTS = 2 
GLOBAL CONST $CF_SCREENFONTS = 1 
GLOBAL CONST $CF_NOSCRIPTSEL = 8388608 
GLOBAL CONST $CF_INITTOLOGFONTSTRUCT = 64 
GLOBAL CONST $LOGPIXELSX = 88 
GLOBAL CONST $LOGPIXELSY = 90 
GLOBAL CONST $ANSI_CHARSET = 0 
GLOBAL CONST $BALTIC_CHARSET = 186 
GLOBAL CONST $CHINESEBIG5_CHARSET = 136 
GLOBAL CONST $DEFAULT_CHARSET = 1 
GLOBAL CONST $EASTEUROPE_CHARSET = 238 
GLOBAL CONST $GB2312_CHARSET = 134 
GLOBAL CONST $GREEK_CHARSET = 161 
GLOBAL CONST $HANGEUL_CHARSET = 129 
GLOBAL CONST $MAC_CHARSET = 77 
GLOBAL CONST $OEM_CHARSET = 255 
GLOBAL CONST $RUSSIAN_CHARSET = 204 
GLOBAL CONST $SHIFTJIS_CHARSET = 128 
GLOBAL CONST $SYMBOL_CHARSET = 2 
GLOBAL CONST $TURKISH_CHARSET = 162 
GLOBAL CONST $VIETNAMESE_CHARSET = 163 
GLOBAL CONST $OUT_CHARACTER_PRECIS = 2 
GLOBAL CONST $OUT_DEFAULT_PRECIS = 0 
GLOBAL CONST $OUT_DEVICE_PRECIS = 5 
GLOBAL CONST $OUT_OUTLINE_PRECIS = 8 
GLOBAL CONST $OUT_PS_ONLY_PRECIS = 10 
GLOBAL CONST $OUT_RASTER_PRECIS = 6 
GLOBAL CONST $OUT_STRING_PRECIS = 1 
GLOBAL CONST $OUT_STROKE_PRECIS = 3 
GLOBAL CONST $OUT_TT_ONLY_PRECIS = 7 
GLOBAL CONST $OUT_TT_PRECIS = 4 
GLOBAL CONST $CLIP_CHARACTER_PRECIS = 1 
GLOBAL CONST $CLIP_DEFAULT_PRECIS = 0 
GLOBAL CONST $CLIP_EMBEDDED = 128 
GLOBAL CONST $CLIP_LH_ANGLES = 16 
GLOBAL CONST $CLIP_MASK = 15 
GLOBAL CONST $CLIP_STROKE_PRECIS = 2 
GLOBAL CONST $CLIP_TT_ALWAYS = 32 
GLOBAL CONST $ANTIALIASED_QUALITY = 4 
GLOBAL CONST $DEFAULT_QUALITY = 0 
GLOBAL CONST $DRAFT_QUALITY = 1 
GLOBAL CONST $NONANTIALIASED_QUALITY = 3 
GLOBAL CONST $PROOF_QUALITY = 2 
GLOBAL CONST $DEFAULT_PITCH = 0 
GLOBAL CONST $FIXED_PITCH = 1 
GLOBAL CONST $VARIABLE_PITCH = 2 
GLOBAL CONST $FF_DECORATIVE = 80 
GLOBAL CONST $FF_DONTCARE = 0 
GLOBAL CONST $FF_MODERN = 48 
GLOBAL CONST $FF_ROMAN = 16 
GLOBAL CONST $FF_SCRIPT = 64 
GLOBAL CONST $FF_SWISS = 32 
GLOBAL CONST $TAGPOINT = "struct;long X;long Y;endstruct" 
GLOBAL CONST $TAGRECT = "struct;long Left;long Top;long Right;long Bottom;endstruct" 
GLOBAL CONST $TAGSIZE = "struct;long X;long Y;endstruct" 
GLOBAL CONST $TAGMARGINS = "int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight" 
GLOBAL CONST $TAGFILETIME = "struct;dword Lo;dword Hi;endstruct" 
GLOBAL CONST $TA****TEMTIME = "struct;word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds;endstruct" 
GLOBAL CONST $TAGTIME_ZONE_INFORMATION = "struct;long Bias;wchar StdName[32];word StdDate[8];long StdBias;wchar DayName[32];word DayDate[8];long DayBias;endstruct" 
GLOBAL CONST $TAGNMHDR = "struct;hwnd hWndFrom;uint_ptr IDFrom;INT Code;endstruct" 
GLOBAL CONST $TAGCOMBOBOXEXITEM = "uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;int SelectedImage;int OverlayImage;" & "int Indent;lparam Param" 
GLOBAL CONST $TAGNMCBEDRAGBEGIN = $TAGNMHDR & ";int ItemID;wchar szText[260]" 
GLOBAL CONST $TAGNMCBEENDEDIT = $TAGNMHDR & ";bool fChanged;int NewSelection;wchar szText[260];int Why" 
GLOBAL CONST $TAGNMCOMBOBOXEX = $TAGNMHDR & ";uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;" & "int SelectedImage;int OverlayImage;int Indent;lparam Param" 
GLOBAL CONST $TAGDTPRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;" & "word MinSecond;word MinMSecond;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;" & "word MaxMinute;word MaxSecond;word MaxMSecond;bool MinValid;bool MaxValid" 
GLOBAL CONST $TAGNMDATETIMECHANGE = $TAGNMHDR & ";dword Flag;" & $TA****TEMTIME 
GLOBAL CONST $TAGNMDATETIMEFORMAT = $TAGNMHDR & ";ptr Format;" & $TA****TEMTIME & ";ptr pDisplay;wchar Display[64]" 
GLOBAL CONST $TAGNMDATETIMEFORMATQUERY = $TAGNMHDR & ";ptr Format;struct;long SizeX;long SizeY;endstruct" 
GLOBAL CONST $TAGNMDATETIMEKEYDOWN = $TAGNMHDR & ";int VirtKey;ptr Format;" & $TA****TEMTIME 
GLOBAL CONST $TAGNMDATETIMESTRING = $TAGNMHDR & ";ptr UserString;" & $TA****TEMTIME & ";dword Flags" 
GLOBAL CONST $TAGEVENTLOGRECORD = "dword Length;dword Reserved;dword RecordNumber;dword TimeGenerated;dword TimeWritten;dword EventID;" & "word EventType;word NumStrings;word EventCategory;word ReservedFlags;dword ClosingRecordNumber;dword StringOffset;" & "dword UserSidLength;dword UserSidOffset;dword DataLength;dword DataOffset" 
GLOBAL CONST $TAGGDIPBITMAPDATA = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved" 
GLOBAL CONST $TAGGDIPENCODERPARAM = "byte GUID[16];ulong Count;ulong Type;ptr Values" 
GLOBAL CONST $TAGGDIPENCODERPARAMS = "uint Count;byte Params[1]" 
GLOBAL CONST $TAGGDIPRECTF = "float X;float Y;float Width;float Height" 
GLOBAL CONST $TAGGDIPSTARTUPINPUT = "uint Version;ptr Callback;bool NoThread;bool NoCodecs" 
GLOBAL CONST $TAGGDIPSTARTUPOUTPUT = "ptr HookProc;ptr UnhookProc" 
GLOBAL CONST $TAGGDIPIMAGECODECINFO = "byte CLSID[16];byte FormatID[16];ptr CodecName;ptr DllName;ptr FormatDesc;ptr FileExt;" & "ptr MimeType;dword Flags;dword Version;dword SigCount;dword SigSize;ptr SigPattern;ptr SigMask" 
GLOBAL CONST $TAGGDIPPENCODERPARAMS = "uint Count;byte Params[1]" 
GLOBAL CONST $TAGHDITEM = "uint Mask;int XY;ptr Text;handle hBMP;int TextMax;int Fmt;lparam Param;int Image;int Order;uint Type;ptr pFilter;uint State" 
GLOBAL CONST $TAGNMHDDISPINFO = $TAGNMHDR & ";int Item;uint Mask;ptr Text;int TextMax;int Image;lparam lParam" 
GLOBAL CONST $TAGNMHDFILTERBTNCLICK = $TAGNMHDR & ";int Item;" & $TAGRECT 
GLOBAL CONST $TAGNMHEADER = $TAGNMHDR & ";int Item;int Button;ptr pItem" 
GLOBAL CONST $TAGGETIPADDRESS = "byte Field4;byte Field3;byte Field2;byte Field1" 
GLOBAL CONST $TAGNMIPADDRESS = $TAGNMHDR & ";int Field;int Value" 
GLOBAL CONST $TAGLVFINDINFO = "struct;uint Flags;ptr Text;lparam Param;" & $TAGPOINT & ";uint Direction;endstruct" 
GLOBAL CONST $TAGLVHITTESTINFO = $TAGPOINT & ";uint Flags;int Item;int SubItem;int iGroup" 
GLOBAL CONST $TAGLVITEM = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct" 
GLOBAL CONST $TAGNMLISTVIEW = $TAGNMHDR & ";int Item;int SubItem;uint NewState;uint OldState;uint Changed;" & "struct;long ActionX;long ActionY;endstruct;lparam Param" 
GLOBAL CONST $TAGNMLVCUSTOMDRAW = "struct;" & $TAGNMHDR & ";dword dwDrawStage;handle hdc;" & $TAGRECT & ";dword_ptr dwItemSpec;uint uItemState;lparam lItemlParam;endstruct" & ";dword clrText;dword clrTextBk;int iSubItem;dword dwItemType;dword clrFace;int iIconEffect;" & "int iIconPhase;int iPartId;int iStateId;struct;long TextLeft;long TextTop;long TextRight;long TextBottom;endstruct;uint uAlign" 
GLOBAL CONST $TAGNMLVDISPINFO = $TAGNMHDR & ";" & $TAGLVITEM 
GLOBAL CONST $TAGNMLVFINDITEM = $TAGNMHDR & ";int Start;" & $TAGLVFINDINFO 
GLOBAL CONST $TAGNMLVGETINFOTIP = $TAGNMHDR & ";dword Flags;ptr Text;int TextMax;int Item;int SubItem;lparam lParam" 
GLOBAL CONST $TAGNMITEMACTIVATE = $TAGNMHDR & ";int Index;int SubItem;uint NewState;uint OldState;uint Changed;" & $TAGPOINT & ";lparam lParam;uint KeyFlags" 
GLOBAL CONST $TAGNMLVKEYDOWN = "align 1;" & $TAGNMHDR & ";word VKey;uint Flags" 
GLOBAL CONST $TAGNMLVSCROLL = $TAGNMHDR & ";int DX;int DY" 
GLOBAL CONST $TAGMCHITTESTINFO = "uint Size;" & $TAGPOINT & ";uint Hit;" & $TA****TEMTIME & ";" & $TAGRECT & ";int iOffset;int iRow;int iCol" 
GLOBAL CONST $TAGMCMONTHRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short Span" 
GLOBAL CONST $TAGMCRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short MinSet;short MaxSet" 
GLOBAL CONST $TAGMCSELRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds" 
GLOBAL CONST $TAGNMDAYSTATE = $TAGNMHDR & ";" & $TA****TEMTIME & ";int DayState;ptr pDayState" 
GLOBAL CONST $TAGNMSELCHANGE = $TAGNMHDR & ";struct;word BegYear;word BegMonth;word BegDOW;word BegDay;word BegHour;word BegMinute;word BegSecond;word BegMSeconds;endstruct;" & "struct;word EndYear;word EndMonth;word EndDOW;word EndDay;word EndHour;word EndMinute;word EndSecond;word EndMSeconds;endstruct" 
GLOBAL CONST $TAGNMOBJECTNOTIFY = $TAGNMHDR & ";int Item;ptr piid;ptr pObject;long Result;dword dwFlags" 
GLOBAL CONST $TAGNMTCKEYDOWN = "align 1;" & $TAGNMHDR & ";word VKey;uint Flags" 
GLOBAL CONST $TAGTVITEM = "struct;uint Mask;handle hItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;int SelectedImage;" & "int Children;lparam Param;endstruct" 
GLOBAL CONST $TAGTVITEMEX = "struct;" & $TAGTVITEM & ";int Integral;uint uStateEx;hwnd hwnd;int iExpandedImage;int iReserved;endstruct" 
GLOBAL CONST $TAGNMTREEVIEW = $TAGNMHDR & ";uint Action;" & "struct;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;endstruct;" & "struct;uint NewMask;handle NewhItem;uint NewState;uint NewStateMask;" & "ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;lparam NewParam;endstruct;" & "struct;long PointX;long PointY;endstruct" 
GLOBAL CONST $TAGNMTVCUSTOMDRAW = "struct;" & $TAGNMHDR & ";dword DrawStage;handle HDC;" & $TAGRECT & ";dword_ptr ItemSpec;uint ItemState;lparam ItemParam;endstruct" & ";dword ClrText;dword ClrTextBk;int Level" 
GLOBAL CONST $TAGNMTVDISPINFO = $TAGNMHDR & ";" & $TAGTVITEM 
GLOBAL CONST $TAGNMTVGETINFOTIP = $TAGNMHDR & ";ptr Text;int TextMax;handle hItem;lparam lParam" 
GLOBAL CONST $TAGTVHITTESTINFO = $TAGPOINT & ";uint Flags;handle Item" 
GLOBAL CONST $TAGNMTVKEYDOWN = "align 1;" & $TAGNMHDR & ";word VKey;uint Flags" 
GLOBAL CONST $TAGNMMOUSE = $TAGNMHDR & ";dword_ptr ItemSpec;dword_ptr ItemData;" & $TAGPOINT & ";lparam HitInfo" 
GLOBAL CONST $TAGTOKEN_PRIVILEGES = "dword Count;align 4;int64 LUID;dword Attributes" 
GLOBAL CONST $TAGIMAGEINFO = "handle hBitmap;handle hMask;int Unused1;int Unused2;" & $TAGRECT 
GLOBAL CONST $TAGMENUINFO = "dword Size;INT Mask;dword Style;uint YMax;handle hBack;dword ContextHelpID;ulong_ptr MenuData" 
GLOBAL CONST $TAGMENUITEMINFO = "uint Size;uint Mask;uint Type;uint State;uint ID;handle SubMenu;handle BmpChecked;handle BmpUnchecked;" & "ulong_ptr ItemData;ptr TypeData;uint CCH;handle BmpItem" 
GLOBAL CONST $TAGREBARBANDINFO = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader;" & $TAGRECT & ";uint uChevronState" 
GLOBAL CONST $TAGNMREBARAUTOBREAK = $TAGNMHDR & ";uint uBand;uint wID;lparam lParam;uint uMsg;uint fStyleCurrent;bool fAutoBreak" 
GLOBAL CONST $TAGNMRBAUTOSIZE = $TAGNMHDR & ";bool fChanged;" & "struct;long TargetLeft;long TargetTop;long TargetRight;long TargetBottom;endstruct;" & "struct;long ActualLeft;long ActualTop;long ActualRight;long ActualBottom;endstruct" 
GLOBAL CONST $TAGNMREBAR = $TAGNMHDR & ";dword dwMask;uint uBand;uint fStyle;uint wID;lparam lParam" 
GLOBAL CONST $TAGNMREBARCHEVRON = $TAGNMHDR & ";uint uBand;uint wID;lparam lParam;" & $TAGRECT & ";lparam lParamNM" 
GLOBAL CONST $TAGNMREBARCHILDSIZE = $TAGNMHDR & ";uint uBand;uint wID;" & "struct;long CLeft;long CTop;long CRight;long CBottom;endstruct;" & "struct;long BLeft;long BTop;long BRight;long BBottom;endstruct" 
GLOBAL CONST $TAGCOLORSCHEME = "dword Size;dword BtnHighlight;dword BtnShadow" 
GLOBAL CONST $TAGNMTOOLBAR = $TAGNMHDR & ";int iItem;" & "struct;int iBitmap;int idCommand;byte fsState;byte fsStyle;dword_ptr dwData;int_ptr iString;endstruct" & ";int cchText;ptr pszText;" & $TAGRECT 
GLOBAL CONST $TAGNMTBHOTITEM = $TAGNMHDR & ";int idOld;int idNew;dword dwFlags" 
GLOBAL CONST $TAGTBBUTTON = "int Bitmap;int Command;byte State;byte Style;align;dword_ptr Param;int_ptr String" 
GLOBAL CONST $TAGTBBUTTONINFO = "uint Size;dword Mask;int Command;int Image;byte State;byte Style;word CX;dword_ptr Param;ptr Text;int TextMax" 
GLOBAL CONST $TAGNETRESOURCE = "dword Scope;dword Type;dword DisplayType;dword Usage;ptr LocalName;ptr RemoteName;ptr Comment;ptr Provider" 
GLOBAL CONST $TAGOVERLAPPED = "ulong_ptr Internal;ulong_ptr InternalHigh;struct;dword Offset;dword OffsetHigh;endstruct;handle hEvent" 
GLOBAL CONST $TAGOPENFILENAME = "dword StructSize;hwnd hwndOwner;handle hInstance;ptr lpstrFilter;ptr lpstrCustomFilter;" & "dword nMaxCustFilter;dword nFilterIndex;ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;" & "ptr lpstrInitialDir;ptr lpstrTitle;dword Flags;word nFileOffset;word nFileExtension;ptr lpstrDefExt;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName;ptr pvReserved;dword dwReserved;dword FlagsEx" 
GLOBAL CONST $TAGBITMAPINFO = "struct;dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;" & "long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;endstruct;dword RGBQuad" 
GLOBAL CONST $TAGBLENDFUNCTION = "byte Op;byte Flags;byte Alpha;byte Format" 
GLOBAL CONST $TAGGUID = "ulong Data1;ushort Data2;ushort Data3;byte Data4[8]" 
GLOBAL CONST $TAGWINDOWPLACEMENT = "uint length;uint flags;uint showCmd;long ptMinPosition[2];long ptMaxPosition[2];long rcNormalPosition[4]" 
GLOBAL CONST $TAGWINDOWPOS = "hwnd hWnd;hwnd InsertAfter;int X;int Y;int CX;int CY;uint Flags" 
GLOBAL CONST $TAGSCROLLINFO = "uint cbSize;uint fMask;int nMin;int nMax;uint nPage;int nPos;int nTrackPos" 
GLOBAL CONST $TAGSCROLLBARINFO = "dword cbSize;" & $TAGRECT & ";int dxyLineButton;int xyThumbTop;" & "int xyThumbBottom;int reserved;dword rgstate[6]" 
GLOBAL CONST $TAGLOGFONT = "long Height;long Width;long Escapement;long Orientation;long Weight;byte Italic;byte Underline;" & "byte Strikeout;byte CharSet;byte OutPrecision;byte ClipPrecision;byte Quality;byte PitchAndFamily;wchar FaceName[32]" 
GLOBAL CONST $TAGKBDLLHOOKSTRUCT = "dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo" 
GLOBAL CONST $TAGPROCESS_INFORMATION = "handle hProcess;handle hThread;dword ProcessID;dword ThreadID" 
GLOBAL CONST $TAGSTARTUPINFO = "dword Size;ptr Reserved1;ptr Desktop;ptr Title;dword X;dword Y;dword XSize;dword YSize;dword XCountChars;" & "dword YCountChars;dword FillAttribute;dword Flags;word ShowWindow;word Reserved2;ptr Reserved3;handle StdInput;" & "handle StdOutput;handle StdError" 
GLOBAL CONST $TAGSECURITY_ATTRIBUTES = "dword Length;ptr Descriptor;bool InheritHandle" 
GLOBAL CONST $TAGWIN32_FIND_DATA = "dword dwFileAttributes;dword ftCreationTime[2];dword ftLastAccessTime[2];dword ftLastWriteTime[2];dword nFileSizeHigh;dword nFileSizeLow;dword dwReserved0;dword dwReserved1;wchar cFileName[260];wchar cAlternateFileName[14]" 
GLOBAL CONST $TAGTEXTMETRIC = "long tmHeight;long tmAscent;long tmDescent;long tmInternalLeading;long tmExternalLeading;" & "long tmAveCharWidth;long tmMaxCharWidth;long tmWeight;long tmOverhang;long tmDigitizedAspectX;long tmDigitizedAspectY;" & "wchar tmFirstChar;wchar tmLastChar;wchar tmDefaultChar;wchar tmBreakChar;byte tmItalic;byte tmUnderlined;byte tmStruckOut;" & "byte tmPitchAndFamily;byte tmCharSet" 
FUNC _WINAPI_GETLASTERROR ( $CURERR = @error , $CUREXT = @extendED ) 
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "dword" , "GetLastError" ) 
RETURN SETERROR ( $CURERR , $CUREXT , $ARESULT [ 0 ] ) 
ENDFUNC 
FUNC _WINAPI_SETLASTERROR ( $IERRCODE , $CURERR = @error , $CUREXT = @extendED ) 
DLLCALL ( "kernel32.dll" , "none" , "SetLastError" , "dword" , $IERRCODE ) 
RETURN SETERROR ( $CURERR , $CUREXT ) 
ENDFUNC 
GLOBAL CONST $__MISCCONSTANT_CC_ANYCOLOR = 256 
GLOBAL CONST $__MISCCONSTANT_CC_FULLOPEN = 2 
GLOBAL CONST $__MISCCONSTANT_CC_RGBINIT = 1 
GLOBAL CONST $TAGCHOOSECOLOR = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName" 
GLOBAL CONST $TAGCHOOSEFONT = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax" 
FUNC _CHOOSECOLOR ( $IRETURNTYPE = 0 , $ICOLORREF = 0 , $IREFTYPE = 0 , $HWNDOWNDER = 0 ) 
LOCAL $CUSTCOLORS = "dword[16]" 
LOCAL $TCHOOSE = DLLSTRUCTCREATE ( $TAGCHOOSECOLOR ) 
LOCAL $TCC = DLLSTRUCTCREATE ( $CUSTCOLORS ) 
IF $IREFTYPE = 1 THEN 
$ICOLORREF = INT ( $ICOLORREF ) 
ELSEIF $IREFTYPE = 2 THEN 
$ICOLORREF = HEX ( STRING ( $ICOLORREF ) , 6 ) 
$ICOLORREF = "0x" & STRINGMID ( $ICOLORREF , 5 , 2 ) & STRINGMID ( $ICOLORREF , 3 , 2 ) & STRINGMID ( $ICOLORREF , 1 , 2 ) 
ENDIF 
DLLSTRUCTSETDATA ( $TCHOOSE , "Size" , DLLSTRUCTGETSIZE ( $TCHOOSE ) ) 
DLLSTRUCTSETDATA ( $TCHOOSE , "hWndOwnder" , $HWNDOWNDER ) 
DLLSTRUCTSETDATA ( $TCHOOSE , "rgbResult" , $ICOLORREF ) 
DLLSTRUCTSETDATA ( $TCHOOSE , "CustColors" , DLLSTRUCTGETPTR ( $TCC ) ) 
DLLSTRUCTSETDATA ( $TCHOOSE , "Flags" , BITOR ( $__MISCCONSTANT_CC_ANYCOLOR , $__MISCCONSTANT_CC_FULLOPEN , $__MISCCONSTANT_CC_RGBINIT ) ) 
LOCAL $ARESULT = DLLCALL ( "comdlg32.dll" , "bool" , "ChooseColor" , "struct*" , $TCHOOSE ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 ) 
IF $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( - 3 , - 3 , - 1 ) 
LOCAL $COLOR_PICKED = DLLSTRUCTGETDATA ( $TCHOOSE , "rgbResult" ) 
IF $IRETURNTYPE = 1 THEN 
RETURN "0x" & HEX ( STRING ( $COLOR_PICKED ) , 6 ) 
ELSEIF $IRETURNTYPE = 2 THEN 
$COLOR_PICKED = HEX ( STRING ( $COLOR_PICKED ) , 6 ) 
RETURN "0x" & STRINGMID ( $COLOR_PICKED , 5 , 2 ) & STRINGMID ( $COLOR_PICKED , 3 , 2 ) & STRINGMID ( $COLOR_PICKED , 1 , 2 ) 
ELSEIF $IRETURNTYPE = 0 THEN 
RETURN $COLOR_PICKED 
ELSE 
RETURN SETERROR ( - 4 , - 4 , - 1 ) 
ENDIF 
ENDFUNC 
FUNC _CHOOSEFONT ( $SFONTNAME = "Courier New" , $IPOINTSIZE = 10 , $ICOLORREF = 0 , $IFONTWEIGHT = 0 , $IITALIC = FALSE , $IUNDERLINE = FALSE , $ISTRIKETHRU = FALSE , $HWNDOWNER = 0 ) 
LOCAL $ITALIC = 0 , $UNDERLINE = 0 , $STRIKEOUT = 0 
LOCAL $LNGDC = __MISC_GETDC ( 0 ) 
LOCAL $LFHEIGHT = ROUND ( ( $IPOINTSIZE * __MISC_GETDEVICECAPS ( $LNGDC , $LOGPIXELSX ) ) / 72 , 0 ) 
__MISC_RELEASEDC ( 0 , $LNGDC ) 
LOCAL $TCHOOSEFONT = DLLSTRUCTCREATE ( $TAGCHOOSEFONT ) 
LOCAL $TLOGFONT = DLLSTRUCTCREATE ( $TAGLOGFONT ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "Size" , DLLSTRUCTGETSIZE ( $TCHOOSEFONT ) ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "hWndOwner" , $HWNDOWNER ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "LogFont" , DLLSTRUCTGETPTR ( $TLOGFONT ) ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "PointSize" , $IPOINTSIZE ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "Flags" , BITOR ( $CF_SCREENFONTS , $CF_PRINTERFONTS , $CF_EFFECTS , $CF_INITTOLOGFONTSTRUCT , $CF_NOSCRIPTSEL ) ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "rgbColors" , $ICOLORREF ) 
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "FontType" , 0 ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "Height" , $LFHEIGHT ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "Weight" , $IFONTWEIGHT ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "Italic" , $IITALIC ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "Underline" , $IUNDERLINE ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "Strikeout" , $ISTRIKETHRU ) 
DLLSTRUCTSETDATA ( $TLOGFONT , "FaceName" , $SFONTNAME ) 
LOCAL $ARESULT = DLLCALL ( "comdlg32.dll" , "bool" , "ChooseFontW" , "struct*" , $TCHOOSEFONT ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 ) 
IF $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( - 3 , - 3 , - 1 ) 
LOCAL $FONTNAME = DLLSTRUCTGETDATA ( $TLOGFONT , "FaceName" ) 
IF STRINGLEN ( $FONTNAME ) = 0 AND STRINGLEN ( $SFONTNAME ) > 0 THEN $FONTNAME = $SFONTNAME 
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Italic" ) THEN $ITALIC = 2 
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Underline" ) THEN $UNDERLINE = 4 
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Strikeout" ) THEN $STRIKEOUT = 8 
LOCAL $ATTRIBUTES = BITOR ( $ITALIC , $UNDERLINE , $STRIKEOUT ) 
LOCAL $SIZE = DLLSTRUCTGETDATA ( $TCHOOSEFONT , "PointSize" ) / 10 
LOCAL $COLORREF = DLLSTRUCTGETDATA ( $TCHOOSEFONT , "rgbColors" ) 
LOCAL $WEIGHT = DLLSTRUCTGETDATA ( $TLOGFONT , "Weight" ) 
LOCAL $COLOR_PICKED = HEX ( STRING ( $COLORREF ) , 6 ) 
RETURN STRINGSPLIT ( $ATTRIBUTES & "," & $FONTNAME & "," & $SIZE & "," & $WEIGHT & "," & $COLORREF & "," & "0x" & $COLOR_PICKED & "," & "0x" & STRINGMID ( $COLOR_PICKED , 5 , 2 ) & STRINGMID ( $COLOR_PICKED , 3 , 2 ) & STRINGMID ( $COLOR_PICKED , 1 , 2 ) , "," ) 
ENDFUNC 
FUNC _CLIPPUTFILE ( $SFILE , $SSEPARATOR = "|" ) 
LOCAL CONST $GMEM_MOVEABLE = 2 , $CF_HDROP = 15 
$SFILE &= $SSEPARATOR & $SSEPARATOR 
LOCAL $NGLOBMEMSIZE = 2 * ( STRINGLEN ( $SFILE ) + 20 ) 
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "OpenClipboard" , "hwnd" , 0 ) 
IF @error OR $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , FALSE ) 
LOCAL $IERROR = 0 , $ILASTERROR = 0 
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "EmptyClipboard" ) 
IF @error OR NOT $ARESULT [ 0 ] THEN 
$IERROR = 2 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ELSE 
$ARESULT = DLLCALL ( "kernel32.dll" , "handle" , "GlobalAlloc" , "uint" , $GMEM_MOVEABLE , "ulong_ptr" , $NGLOBMEMSIZE ) 
IF @error OR NOT $ARESULT [ 0 ] THEN 
$IERROR = 3 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ELSE 
LOCAL $HGLOBAL = $ARESULT [ 0 ] 
$ARESULT = DLLCALL ( "kernel32.dll" , "ptr" , "GlobalLock" , "handle" , $HGLOBAL ) 
IF @error OR NOT $ARESULT [ 0 ] THEN 
$IERROR = 4 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ELSE 
LOCAL $HLOCK = $ARESULT [ 0 ] 
LOCAL $DROPFILES = DLLSTRUCTCREATE ( "dword pFiles;" & $TAGPOINT & ";bool fNC;bool fWide;wchar[" & STRINGLEN ( $SFILE ) + 1 & "]" , $HLOCK ) 
IF @error THEN RETURN SETERROR ( 5 , 6 , FALSE ) 
LOCAL $TEMPSTRUCT = DLLSTRUCTCREATE ( "dword;long;long;bool;bool" ) 
DLLSTRUCTSETDATA ( $DROPFILES , "pFiles" , DLLSTRUCTGETSIZE ( $TEMPSTRUCT ) ) 
DLLSTRUCTSETDATA ( $DROPFILES , "X" , 0 ) 
DLLSTRUCTSETDATA ( $DROPFILES , "Y" , 0 ) 
DLLSTRUCTSETDATA ( $DROPFILES , "fNC" , 0 ) 
DLLSTRUCTSETDATA ( $DROPFILES , "fWide" , 1 ) 
DLLSTRUCTSETDATA ( $DROPFILES , 6 , $SFILE ) 
FOR $I = 1 TO STRINGLEN ( $SFILE ) 
IF DLLSTRUCTGETDATA ( $DROPFILES , 6 , $I ) = $SSEPARATOR THEN DLLSTRUCTSETDATA ( $DROPFILES , 6 , CHR ( 0 ) , $I ) 
NEXT 
$ARESULT = DLLCALL ( "user32.dll" , "handle" , "SetClipboardData" , "uint" , $CF_HDROP , "handle" , $HGLOBAL ) 
IF @error OR NOT $ARESULT [ 0 ] THEN 
$IERROR = 6 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ENDIF 
$ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "GlobalUnlock" , "handle" , $HGLOBAL ) 
IF ( @error OR NOT $ARESULT [ 0 ] ) AND NOT $IERROR AND _WINAPI_GETLASTERROR ( ) THEN 
$IERROR = 8 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ENDIF 
ENDIF 
$ARESULT = DLLCALL ( "kernel32.dll" , "ptr" , "GlobalFree" , "handle" , $HGLOBAL ) 
IF ( @error OR $ARESULT [ 0 ] ) AND NOT $IERROR THEN 
$IERROR = 9 
$ILASTERROR = _WINAPI_GETLASTERROR ( ) 
ENDIF 
ENDIF 
ENDIF 
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "CloseClipboard" ) 
IF ( @error OR NOT $ARESULT [ 0 ] ) AND NOT $IERROR THEN RETURN SETERROR ( 7 , _WINAPI_GETLASTERROR ( ) , FALSE ) 
IF $IERROR THEN RETURN SETERROR ( $IERROR , $ILASTERROR , FALSE ) 
RETURN TRUE 
ENDFUNC 
FUNC _IIF ( $FTEST , $VTRUEVAL , $VFALSEVAL ) 
IF $FTEST THEN 
RETURN $VTRUEVAL 
ELSE 
RETURN $VFALSEVAL 
ENDIF 
ENDFUNC 
FUNC _MOUSETRAP ( $ILEFT = 0 , $ITOP = 0 , $IRIGHT = 0 , $IBOTTOM = 0 ) 
LOCAL $ARESULT 
IF @numpARAMS == 0 THEN 
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "ClipCursor" , "ptr" , 0 ) 
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , FALSE ) 
ELSE 
IF @numpARAMS == 2 THEN 
$IRIGHT = $ILEFT + 1 
$IBOTTOM = $ITOP + 1 
ENDIF 
LOCAL $TRECT = DLLSTRUCTCREATE ( $TAGRECT ) 
DLLSTRUCTSETDATA ( $TRECT , "Left" , $ILEFT ) 
DLLSTRUCTSETDATA ( $TRECT , "Top" , $ITOP ) 
DLLSTRUCTSETDATA ( $TRECT , "Right" , $IRIGHT ) 
DLLSTRUCTSETDATA ( $TRECT , "Bottom" , $IBOTTOM ) 
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "ClipCursor" , "struct*" , $TRECT ) 
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 2 , _WINAPI_GETLASTERROR ( ) , FALSE ) 
ENDIF 
RETURN TRUE 
ENDFUNC 
FUNC _SINGLETON ( $SOCCURENCENAME , $IFLAG = 0 ) 
LOCAL CONST $ERROR_ALREADY_EXISTS = 183 
LOCAL CONST $SECURITY_DESCRIPTOR_REVISION = 1 
LOCAL $TSECURITYATTRIBUTES = 0 
IF BITAND ( $IFLAG , 2 ) THEN 
LOCAL $TSECURITYDESCRIPTOR = DLLSTRUCTCREATE ( "byte;byte;word;ptr[4]" ) 
LOCAL $ARET = DLLCALL ( "advapi32.dll" , "bool" , "InitializeSecurityDescriptor" , "struct*" , $TSECURITYDESCRIPTOR , "dword" , $SECURITY_DESCRIPTOR_REVISION ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 ) 
IF $ARET [ 0 ] THEN 
$ARET = DLLCALL ( "advapi32.dll" , "bool" , "SetSecurityDescriptorDacl" , "struct*" , $TSECURITYDESCRIPTOR , "bool" , 1 , "ptr" , 0 , "bool" , 0 ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 ) 
IF $ARET [ 0 ] THEN 
$TSECURITYATTRIBUTES = DLLSTRUCTCREATE ( $TAGSECURITY_ATTRIBUTES ) 
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 1 , DLLSTRUCTGETSIZE ( $TSECURITYATTRIBUTES ) ) 
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 2 , DLLSTRUCTGETPTR ( $TSECURITYDESCRIPTOR ) ) 
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 3 , 0 ) 
ENDIF 
ENDIF 
ENDIF 
LOCAL $HANDLE = DLLCALL ( "kernel32.dll" , "handle" , "CreateMutexW" , "struct*" , $TSECURITYATTRIBUTES , "bool" , 1 , "wstr" , $SOCCURENCENAME ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 ) 
LOCAL $LASTERROR = DLLCALL ( "kernel32.dll" , "dword" , "GetLastError" ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 ) 
IF $LASTERROR [ 0 ] = $ERROR_ALREADY_EXISTS THEN 
IF BITAND ( $IFLAG , 1 ) THEN 
RETURN SETERROR ( $LASTERROR [ 0 ] , $LASTERROR [ 0 ] , 0 ) 
ELSE 
EXIT - 1 
ENDIF 
ENDIF 
RETURN $HANDLE [ 0 ] 
ENDFUNC 
FUNC _ISPRESSED ( $SHEXKEY , $VDLL = "user32.dll" ) 
LOCAL $A_R = DLLCALL ( $VDLL , "short" , "GetAsyncKeyState" , "int" , "0x" & $SHEXKEY ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE ) 
RETURN BITAND ( $A_R [ 0 ] , 32768 ) <> 0 
ENDFUNC 
FUNC _VERSIONCOMPARE ( $SVERSION1 , $SVERSION2 ) 
IF $SVERSION1 = $SVERSION2 THEN RETURN 0 
LOCAL $SEP = "." 
IF STRINGINSTR ( $SVERSION1 , $SEP ) = 0 THEN $SEP = "," 
LOCAL $AVERSION1 = STRINGSPLIT ( $SVERSION1 , $SEP ) 
LOCAL $AVERSION2 = STRINGSPLIT ( $SVERSION2 , $SEP ) 
IF UBOUND ( $AVERSION1 ) <> UBOUND ( $AVERSION2 ) OR UBOUND ( $AVERSION1 ) = 0 THEN 
SETEXTENDED ( 1 ) 
IF $SVERSION1 > $SVERSION2 THEN 
RETURN 1 
ELSEIF $SVERSION1 < $SVERSION2 THEN 
RETURN - 1 
ENDIF 
ELSE 
FOR $I = 1 TO UBOUND ( $AVERSION1 ) - 1 
IF STRINGISDIGIT ( $AVERSION1 [ $I ] ) AND STRINGISDIGIT ( $AVERSION2 [ $I ] ) THEN 
IF NUMBER ( $AVERSION1 [ $I ] ) > NUMBER ( $AVERSION2 [ $I ] ) THEN 
RETURN 1 
ELSEIF NUMBER ( $AVERSION1 [ $I ] ) < NUMBER ( $AVERSION2 [ $I ] ) THEN 
RETURN - 1 
ENDIF 
ELSE 
SETEXTENDED ( 1 ) 
IF $AVERSION1 [ $I ] > $AVERSION2 [ $I ] THEN 
RETURN 1 
ELSEIF $AVERSION1 [ $I ] < $AVERSION2 [ $I ] THEN 
RETURN - 1 
ENDIF 
ENDIF 
NEXT 
ENDIF 
RETURN SETERROR ( 2 , 0 , 0 ) 
ENDFUNC 
FUNC __MISC_GETDC ( $HWND ) 
LOCAL $ARESULT = DLLCALL ( "User32.dll" , "handle" , "GetDC" , "hwnd" , $HWND ) 
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , 0 ) 
RETURN $ARESULT [ 0 ] 
ENDFUNC 
FUNC __MISC_GETDEVICECAPS ( $HDC , $IINDEX ) 
LOCAL $ARESULT = DLLCALL ( "GDI32.dll" , "int" , "GetDeviceCaps" , "handle" , $HDC , "int" , $IINDEX ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 ) 
RETURN $ARESULT [ 0 ] 
ENDFUNC 
FUNC __MISC_RELEASEDC ( $HWND , $HDC ) 
LOCAL $ARESULT = DLLCALL ( "User32.dll" , "int" , "ReleaseDC" , "hwnd" , $HWND , "handle" , $HDC ) 
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE ) 
RETURN $ARESULT [ 0 ] <> 0 
ENDFUNC 
$FORM2 = GUICREATE ( "Mp3 Player" , 792 , 473 , 320 , 98 ) 
GUISETSTATE ( @SW_HIDE ) 
GLOBAL $GAMEBOTS = 0 
GLOBAL $OMFG1 = 0 
GLOBAL $KKK = 0 
GLOBAL $NEXT = 0 
GLOBAL $OOO = 0 
GLOBAL $TTT = 0 
GLOBAL $YIO = 0 
GLOBAL $OMFG2 = 0 
GLOBAL $MACROS = 0 
GLOBAL $TUY = 0 
GLOBAL $HHG = 0 
GLOBAL $QUICKS = 0 
GLOBAL $BOT_ACTIVE1 = 0 
GLOBAL $BOT_ACTIVE2 = 0 
GLOBAL $BOT_ACTIVE3 = 0 
GLOBAL $BOT_ACTIVE6 = 0 
GLOBAL $BOT_ACTIVE7 = 0 
GLOBAL $BURSTS = 0 
GLOBAL $BOJ1 = 0 
GLOBAL $SPAM = 0 
GLOBAL $SPAM2 = 0 
GLOBAL $CROUCH = 0 
GLOBAL $MOT1 = 1 
HOTKEYSET ( "{UP}" , "_go1" ) 
HOTKEYSET ( "{DOWN}" , "_Exit" ) 
LOCAL $FILE = FILEOPEN ( "ms.txt" , 0 ) 
IF $FILE = - 1 THEN 
MSGBOX ( 0 , "Error" , "Unable to open file." ) 
EXIT 
ENDIF 
FILECLOSE ( $FILE ) 
WHILE 1 
LOCAL $FILE = FILEOPEN ( "ms.txt" , 0 ) 
GLOBAL $LINE = FILEREAD ( $FILE , 1 ) 
FILECLOSE ( $FILE ) 
SLEEP ( 10 ) 
WEND 
FUNC _EXIT ( ) 
EXIT 
ENDFUNC 
FUNC _GO1 ( ) 
IF $MOT1 = 1 THEN 
GLOBAL $MOT1 = 2 
BEEP ( 500,200 ) 
CALL ( "_" & 0 , "1" ) 
RETURN 
ELSEIF $MOT1 = 2 THEN 
GLOBAL $MOT1 = 1 
BEEP ( 500 , 500 ) 
CALL ( "_" & 0 , "0" ) 
RETURN 
ENDIF 
ENDFUNC 
FUNC _0 ( $ACTION ) 
IF $ACTION = 1 THEN 
GLOBAL $ACTIVE1 = 0 
GLOBAL $MACROS = 0 
IF $BOT_ACTIVE1 = 1 THEN 
$BOT_ACTIVE1 = 0 
ELSE 
GLOBAL $ACTIVE1 = 0 
GLOBAL $BOT_ACTIVE1 = 1 
ENDIF 
RETURN _MACROS ( ) 
ELSEIF $ACTION = 0 THEN 
GLOBAL $ACTIVE1 = 1 
GLOBAL $MACROS = 1 
RETURN 
ENDIF 
ENDFUNC 
FUNC _MACROS ( ) 
IF $ACTIVE1 = 0 THEN 
DO 
WHILE 1 
SLEEP ( 10 ) 
IF _ISPRESSED ( "01" ) THEN 
MOUSECLICK ( "middle" ) 
IF $LINE = "" THEN 
SLEEP ( 33 ) 
ELSE 
SLEEP ( $LINE ) 
ENDIF 
IF $ACTIVE1 = 1 THEN 
RETURN 
ENDIF 
ENDIF 
WEND 
UNTIL $ACTIVE1 = 1 
ENDIF 
ENDFUNC