Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

cursor

By: a guest on May 13th, 2011  |  syntax: None  |  size: 5.67 KB  |  views: 742  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. 001: madtoggle = 0
  2. 004: Return (7.21)
  3. 005: if madtoggle = 0
  4. 007: SetSystemCursor("anicursor.ani")  
  5. 020: BlankCursor := 0, SystemCursor := 0, FileCursor := 0  
  6. 022: SystemCursors = 32512IDC_ARROW,32513IDC_IBEAM,32514IDC_WAIT,32515IDC_CROSS,32516IDC_UPARROW,32640IDC_SIZE,32641IDC_ICON,32642IDC_SIZENWSE,32643IDC_SIZENESW,32644IDC_SIZEWE,32645IDC_SIZENS,3264
  7. 027: if Cursor =
  8. 032: if SubStr( Cursor,1,4 ) = "IDC_"  
  9. 051: if FileExist( Cursor )  
  10. 053: SplitPath,Cursor,,,Ext
  11. 054: if Ext = ico
  12. 056: if Ext in cur,ani
  13. 057: uType := 0x2
  14. 063: FileCursor = 1
  15. 064: }
  16. 070: if CursorHandle <> Error
  17. 072: Loop,Parse,SystemCursors,,
  18. 074: if BlankCursor = 1
  19. 082: if SystemCursor = 1
  20. 091: if FileCursor = 1
  21. 093: Type = FileCursor
  22. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  23. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  24. 097: }
  25. 098: }
  26. 074: if BlankCursor = 1
  27. 082: if SystemCursor = 1
  28. 091: if FileCursor = 1
  29. 093: Type = FileCursor
  30. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.14)
  31. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  32. 097: }
  33. 098: }
  34. 074: if BlankCursor = 1
  35. 082: if SystemCursor = 1
  36. 091: if FileCursor = 1
  37. 093: Type = FileCursor
  38. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.07)
  39. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  40. 097: }
  41. 098: }
  42. 074: if BlankCursor = 1
  43. 082: if SystemCursor = 1
  44. 091: if FileCursor = 1
  45. 093: Type = FileCursor
  46. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  47. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  48. 097: }
  49. 098: }
  50. 074: if BlankCursor = 1
  51. 082: if SystemCursor = 1
  52. 091: if FileCursor = 1
  53. 093: Type = FileCursor
  54. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  55. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  56. 097: }
  57. 098: }
  58. 074: if BlankCursor = 1
  59. 082: if SystemCursor = 1
  60. 091: if FileCursor = 1
  61. 093: Type = FileCursor
  62. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.05)
  63. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  64. 097: }
  65. 098: }
  66. 074: if BlankCursor = 1
  67. 082: if SystemCursor = 1
  68. 091: if FileCursor = 1
  69. 093: Type = FileCursor
  70. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.11)
  71. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  72. 097: }
  73. 098: }
  74. 074: if BlankCursor = 1
  75. 082: if SystemCursor = 1
  76. 091: if FileCursor = 1
  77. 093: Type = FileCursor
  78. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.07)
  79. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  80. 097: }
  81. 098: }
  82. 074: if BlankCursor = 1
  83. 082: if SystemCursor = 1
  84. 091: if FileCursor = 1
  85. 093: Type = FileCursor
  86. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  87. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  88. 097: }
  89. 098: }
  90. 074: if BlankCursor = 1
  91. 082: if SystemCursor = 1
  92. 091: if FileCursor = 1
  93. 093: Type = FileCursor
  94. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.02)
  95. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  96. 097: }
  97. 098: }
  98. 074: if BlankCursor = 1
  99. 082: if SystemCursor = 1
  100. 091: if FileCursor = 1
  101. 093: Type = FileCursor
  102. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  103. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  104. 097: }
  105. 098: }
  106. 074: if BlankCursor = 1
  107. 082: if SystemCursor = 1
  108. 091: if FileCursor = 1
  109. 093: Type = FileCursor
  110. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.15)
  111. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  112. 097: }
  113. 098: }
  114. 074: if BlankCursor = 1
  115. 082: if SystemCursor = 1
  116. 091: if FileCursor = 1
  117. 093: Type = FileCursor
  118. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 )
  119. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  120. 097: }
  121. 098: }
  122. 074: if BlankCursor = 1
  123. 082: if SystemCursor = 1
  124. 091: if FileCursor = 1
  125. 093: Type = FileCursor
  126. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.14)
  127. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  128. 097: }
  129. 098: }
  130. 074: if BlankCursor = 1
  131. 082: if SystemCursor = 1
  132. 091: if FileCursor = 1
  133. 093: Type = FileCursor
  134. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.11)
  135. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  136. 097: }
  137. 098: }
  138. 074: if BlankCursor = 1
  139. 082: if SystemCursor = 1
  140. 091: if FileCursor = 1
  141. 093: Type = FileCursor
  142. 094: %Type%%A_Index% := DllCall( "LoadImageA", UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10 ) (0.13)
  143. 096: DllCall( "SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr( A_Loopfield, 1, 5 ) )  
  144. 097: }
  145. 098: }
  146. 099: }
  147. 100: }
  148. 008: madtoggle = 1
  149. 009: Return (5.48)
clone this paste RAW Paste Data