pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

C pastebin - collaborative debugging tool View Help


Posted by dekz on Thu 4 Jun 10:45
report abuse | download | new post

  1. ;AutoHotkey
  2. ;CapsLock "mode"
  3. ;if caps lock is down it will act as if it is in edit mode, FPS style
  4. ;by dekz
  5.  
  6. $w::
  7. GetKeyState, state, CapsLock, T
  8. if state = D
  9.   Send,{Up}
  10. else
  11.   Send w
  12. return
  13.  
  14. $a::
  15. GetKeyState, state, CapsLock, T
  16. if state = D
  17.   Send,{Left}
  18. else
  19.   Send a
  20. return
  21.  
  22. $s::
  23. GetKeyState, state, CapsLock, T
  24. if state = D
  25.   Send,{Down}
  26. else
  27.   Send s
  28. return
  29.  
  30. $d::
  31. GetKeyState, state, CapsLock, T
  32. if state = D
  33.   Send,{Right}
  34. else
  35.   Send d
  36. return
  37.  
  38. ;comment line C style
  39. $f::
  40. GetKeyState, state, CapsLock, T
  41. if state = D
  42. {
  43.   Send,{Home}
  44.   Send,{NumPadDiv}
  45.   Send,{NumPadDiv}  
  46. }
  47. else
  48.   Send f
  49. return
  50.  
  51. ;Remove line
  52. $r::
  53. GetKeyState, state, CapsLock, T
  54. if state = D
  55. {
  56.   Send,{Home}
  57.   Send,{shift down}{End}{shift up}
  58.   Send,{Delete}  
  59. }
  60. else
  61.   Send r
  62. return
  63.  
  64. ;Home
  65. $q::
  66. GetKeyState, state, CapsLock, T
  67. if state = D
  68. {
  69.   Send,{Homes}
  70. }
  71. else
  72.   Send q
  73. return
  74.  
  75. ;End
  76. $e::
  77. GetKeyState, state, CapsLock, T
  78. if state = D
  79. {
  80.   Send,{End}
  81. }
  82. else
  83.   Send e
  84. return
  85.  
  86. ;Page Up
  87. $z::
  88. GetKeyState, state, CapsLock, T
  89. if state = D
  90. {
  91.   Send,{PgUp}
  92. }
  93. else
  94.   Send z
  95. return
  96.  
  97.  
  98. ;Page Down
  99. $x::
  100. GetKeyState, state, CapsLock, T
  101. if state = D
  102. {
  103.   Send,{PgDn}
  104. }
  105. else
  106.   Send x
  107. return

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with @@


Remember me so that I can delete my post