Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Autohotkey

By: a guest on May 4th, 2012  |  syntax: Autohotkey  |  size: 12.15 KB  |  hits: 122  |  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. ;#IfWinActive, GTA:SA:MP and isInChat()
  2.  
  3.  
  4. ;#UseHook
  5. ;#SingleInstance, Force
  6. #include %A_ScriptDir%\SAMP.ahk
  7.  
  8.  
  9.  
  10. spielername := getUsername()
  11. initZonesAndCities()
  12.  
  13. ;;//--------------PW------------//
  14. pw := "oamtkb"
  15. InputBox, pass, Passwortabfrage, Herzlich Willkommen bitte geben sie das Passwort ein. Sie haben genau 3 Versuche!, HIDE
  16. if (pass!=pw)
  17.  
  18.  
  19. InputBox, pass, Passwortabfrage 2, Ihr eingegebenes Passwort war leider Falsch.                       Sie haben noch 2 Versuche!, Hide
  20. if (pass!=pw)
  21.  
  22. InputBox, pass, Passwortabfrage 1, Ihr eingegebenes Passwort war leider Falsch.                       Sie haben noch 1 Versuch!, Hide
  23. if (pass!=pw)
  24. {
  25. MsgBox,, Keybinder wird geschlossen, Das Programm schließt sich nun von Automatisch, das sie das Passwort falsch eingegeben haben!
  26. Exitapp
  27. }
  28.  
  29. ;//----------------------------------------[ Update Anfang ]-----------------------------------------//
  30. version := 0.1
  31.  
  32. Filedelete,update.bat
  33.  
  34. UrlDownloadToFile,http://www.oamtkb.pytalhost.at/versionsupdate.txt, versionsupdate.txt
  35. FileRead, newver, versionsupdate.txt
  36. UrlDownloadToFile,http://www.oamtkb.pytalhost.at/news.txt, news.txt
  37. FileRead, news, news.txt
  38. UrlDownloadToFile,http://www.oamtkb.pytalhost.at/update.txt, update.txt
  39. FileRead, update, update.txt
  40.  
  41.  
  42.  
  43. MsgBox, 4,Wichtige Information, Mit diesem Keybinder kann unser Vorstand, euch Informationen schicken, möchtet ihr diese lesen?
  44. IfMsgBox, Yes
  45.         {
  46.        MsgBox, 0,Wichtige Information vom Chief, %news%
  47.            
  48.  
  49.        
  50.         }
  51. FileDelete, versionsupdate.txt
  52. FileDelete,news.txt
  53.  
  54.  
  55. if (version < newver)
  56.  {
  57.         newververfügbar := 1
  58.         MsgBox, 4,KeyBinder Update vorhanden,Es ist eine aktuellere Version deines Keybinders verfügbar, (Version %newver%).`nMöchtest du diese jetzt herunterladen?
  59.         IfMsgBox, Yes
  60.         {
  61.  
  62.                 MsgBox, 64, Update Download, Das Update wird nun heruntergeladen ,dies kann bis zu 20 Sekunden dauern...
  63.                 Urldownloadtofile,http://www.oamtkb.pytalhost.at/oamt-keybinder.exe, %A_ScriptName%.new
  64.                 BatchFile=
  65.                 (
  66.                 Ping 127.0.0.1
  67.                 Del "%A_ScriptName%"
  68.                 Rename "%A_ScriptName%.new" "%A_ScriptName%"
  69.                 cd "%A_ScriptFullPath%"
  70.                 "%A_ScriptName%"
  71.                 Del update.bat
  72.                 )
  73.  
  74.                 FileDelete,update.bat
  75.                 FileAppend,%BatchFile%,update.bat
  76.                 MsgBox, 64, Update ausführen, Das Update wird nun ausgeführt...bitte warten...
  77.                 Run,update.bat,hide
  78.                 Exitapp
  79.                 }
  80.         }
  81. else
  82.   {
  83.         newververfí±ží²¡r := 0
  84.    
  85. }
  86. ;//----------------------------------------[ Update Ende ]-----------------------------------------//
  87.  
  88. ;//------------------Name--------------------//
  89. ;IfNotExist, %A_ScriptDir%\infos ;hier gucken wir ob es den Ordner schon gibt
  90. ;{
  91. ;FileCreateDir, %A_ScriptDir%\infos ; Wenn es ihn noch nicht gibt, wird er erstellt
  92. ;}
  93. ;Gui, Add, Edit, x10 y10 w100 h20 vName, Name: ;// Fí²Ší°Žamens Eingabe
  94. ;IniWrite, %Name%, nickname.ini, User, Name
  95. ;IniRead, nickname.ini, User, Name
  96.  
  97. ;IniRead, Namespeicher, %A_ScriptDir%\infos\nickname.txt, NickName:, NickName eingeben ;Hier wird die .ini ausgelesen
  98. ;Gui, 1:Add, Edit, x11 y335 w120 h20 vnickname,Dein Nickname ;Hier erstellen wir das Textfeld
  99. ;Gui, 1:Add, Button, x141 y335 w120 h20 gSpeicher,Speichern ;Hier erstellen wir den Button
  100. ;IniWrite, %nickname%, %A_ScriptDir%\infos\nickname.txt, NickName:, Dein Name ;Hier wird in die .ini geschrieben
  101. ;IniRead, Name, %A_MyDocuments%\infos\nickname.ini, NickName:, NName ;Hier lesen wir abermals die .ini aus
  102. ;Speicher: ;hier legen wir fest, was passiert wenn wir den button drí±Ží»¥n
  103. ;GuiControlGet, Namespeicher ,Name
  104.  
  105.  
  106.  
  107. ;Numpad5:: ; die Taste 1 wird belegt
  108. ;suspend on ; das Script pausieren
  109. ;GuiControlGet, text ; den Text aus dem Eingabefeld "holen"
  110.  
  111. ;//------------------GUI-----------------//
  112.  
  113.  
  114. Gui, Show, x30 y40 h360 w500, Ordnungsamt KeyBinder by Cireyses.cirus
  115.  
  116. Gui, Add, Edit, x10 y10 w280 h20 ReadOnly, Willkommen bei dem KeyBinder von Cireyses.cirus
  117.  
  118. Gui, Add, Edit, x10 y40 w350 h20 ReadOnly, Berechtigte Leute die den KeyBinder Updaten dürfen: Cireyses.cirus
  119. Gui, Add, Edit, x10 y70 w200 h20 ReadOnly, Fraktion: San Fierro Ordnungsamt
  120. Gui, Add, Edit, x10 y100 w200 h20 ReadOnly, Leader: MaLa und Doug_Heffernen
  121. Gui, Add, Edit, x10 y325 w100 h20 ReadOnly, Version: %newver%
  122.  
  123.  
  124. Gui, Add, Edit, x10 y130 w480 h80 ReadOnly,Befehle:`nAllgemeines:`n /code - /code
  125.  
  126. Gui, Add, Edit, x10 y220 w480 h100 ReadOnly,Updates:                                                                                                                                                       %update%
  127.  
  128.  
  129.  
  130. ;//---------------------(Variablen)--------------------//
  131. ;|________ Duty Abfrage ________|
  132. duty := 3
  133. notduty := 1
  134. IsDuty := notduty
  135. ifDuty := 2
  136. ;|________ Text Aussagen _______|
  137. ;----------------------[ Zeit Abfrage ]--------------------//
  138. tag := "Tag"
  139. nacht := "Abend"
  140. Zeit := tag
  141.  
  142. :?:/zeit::
  143. SetTimer, zeit , 1000 ; Jede Minuten Uhrzeit abfragen
  144. addMessageToChatWindow("{FF7800}Ab jetzt wird immer überprüft ob es Tag's oder Abend's ist.")
  145. SendInput {enter}
  146. Goto, zeit
  147. return
  148.        
  149. zeit:
  150. FormatTime,UZeit,,HH.mm
  151. ;if UZeit between 18.00 and 06.00
  152. ;{
  153.         ;Zeit := nacht
  154.        
  155. ;}
  156. ;else if UZeit between 06.01 and 17.59
  157. ;{
  158. ;       Zeit := tag
  159.        
  160. ;}
  161. If (A_Hour>18) or (A_Hour<6)
  162. Zeit:=nacht
  163. else
  164. Zeit:=tag
  165. return
  166.  
  167.  
  168.  
  169.  
  170. ;//-----------------------| Befehle |-------------------------//
  171.  
  172. :?:/befehle::
  173. addMessageToChatWindow("__Alle Befehle die du benutzen kannst__")
  174. addMessageToChatWindow("Allgemein:")
  175. addMessageToChatWindow("/code - /code")
  176. addMessageToChatWindow("Punkte:")
  177. addMessageToChatWindow("/gp - /sp - /sk")
  178. addMessageToChatWindow("Sonstiges:")
  179. addMessageToChatWindow("/uhr - /info - /zeit -/ab - /anruf")
  180. addMessageToChatWindow("__Alle Tasten die du nutzen kannst__")
  181. addMessageToChatWindow("(Minustaste) = Autoschließen | 1 = Begrüßen | 2 = Strafkatalog")
  182. addMessageToChatWindow("3 = Verabschieden | Num9 = Memberliste | Num1 = /m Platz machen | Num3 = Rechst ran")
  183. addMessageToChatWindow("Num4 = Verkehrskontrolle | Num6 = Platz räumen | Num* = TuV prüfen | Num+ = Neon an/aus")
  184. SendInput {enter}
  185. return
  186.  
  187.  
  188. ;//-----------Ort-------//
  189. #NoEnv
  190. #SingleInstance force
  191. initZonesAndCities()
  192. return
  193.  
  194.  
  195. ;//------------[ Sonstiges ]---------//
  196.  
  197.  
  198. :?:/info::
  199. coords := getCoordinates()
  200. position := calculateZone(coords[1], coords[2], coords[3]) . " - " . calculateCity(coords[1], coords[2], coords[3])
  201. addMessageToChatWindow("{FFFF00}===| Mitarbeiterausweis |===")
  202. addMessageToChatWindow("{FFFF00}Mitarbeiter: {00FFC8}" . getUsername() . "{FFFF00}.")
  203. addMessageToChatWindow("{FFFF00}Fahrzeug: {00FFC8}" . getVehicleHealth() . "HP{FFFF00}.")
  204. addMessageToChatWindow("{FFFF00}Standort: {00FFC8}" . position . "{FFFF00}.")
  205. addMessageToChatWindow("{FFFF00}Leben: {00FFC8}" . GetPlayerHealth() . "{FFFF00}.")
  206. addMessageToChatWindow("{FFFF00}____________________________")
  207. SendInput {enter}
  208. return
  209.  
  210.  
  211. :?:/uhr::
  212. Suspend Permit
  213. SendInput /uhr{Enter} ; damit er Ingame abhebt
  214. FormatTime,Uhrzeit, HH:mm:ss
  215. SendInput t/me schaut auf sein iPhone. (%Uhrzeit%) {Enter}
  216. return
  217.        
  218. ;//---------------------[ Telefon Befehle ]------------------//
  219.  
  220. :?:/anruf::
  221. SendInput /p{enter}
  222. SendInput tGuten Tag, Sie haben das Ordnungsamt angerufen, ich {enter}
  223. SendInput theisse %spielername%, wie kann ich ihnen helfen{?} {enter}
  224. return
  225.  
  226. :?:/ab::
  227. SendInput /p{enter}
  228. SendInput tGuten Tag, Sie haben das Ordnungsamt angerufen, das ist der {enter}
  229. SendInput tAnrufbeantworter von %spielername%, ich bin leider derzeit nicht erreichbar. {enter}
  230. SendInput tBitte rufen sie doch einen meiner Kollegen an, vielen Dank.{enter}
  231. SendInput t/h{enter}
  232. SendInput {enter}
  233. return
  234. ;//.....................................//
  235.  
  236. ;------------------ Strafkatalog ---------------------//
  237. :?:/sk::
  238. addMessageToChatWindow("{FFFA00}/allsk ( Allgemeines Strafkatalog )")
  239. addMessageToChatWindow("{FFFA00}/sonsk ( Sonstige Strafkatalog )")
  240. addMessageToChatWindow("{FFFA00}/flugsk ( Fluggeräte Strafkatalog )")
  241. addMessageToChatWindow("{FFFA00}/carsk ( Auto Strafkatalog )")
  242. addMessageToChatWindow("{FFFA00}/bikesk ( Bike Strafkatalog )")
  243. SendInput {enter}
  244. return
  245. :?:/allsk::
  246. addMessageToChatWindow("{FFD200}Allgemein:")
  247. addMessageToChatWindow("{FFFFFF}Fahren abs. der Strasse ({00FFDC} 2.000$ {FFFFFF}/{FFFA00} 4P {FFFFFF})")
  248. addMessageToChatWindow("{FFFFFF}Fahren auf der Falschen Strasseseite ({00FFDC} 2.500$ {FFFFFF}/{FFFA00} 5P {FFFFFF})")
  249. addMessageToChatWindow("{FFFFFF}Fahren auf den Gleissen ({00FFDC} 2.500$ {FFFFFF}/{FFFA00} 6P {FFFFFF})")
  250. addMessageToChatWindow("{FFFFFF}Fahren ohe Licht ca. 21 Uhr ({00FFDC} 1.000$ {FFFFFF}/{FFFA00} 3P {FFFFFF})")
  251. addMessageToChatWindow("{FFFFFF}Fahren ohne Licht bei schlechtem Wetter ({00FFDC} 1.000$ {FFFFFF}/{FFFA00} 3P {FFFFFF})")
  252. addMessageToChatWindow("{FFFFFF}Fahren ohne TüV ({00FFDC} 10.000$ {FFFFFF}/{FFFA00} 6P {FFFFFF})")
  253. addMessageToChatWindow("{FFFFFF}Fahren auf dem Flugfeld ({FFFA00} 3P {FFFFFF})")
  254. SendInput {enter}
  255. return
  256.  
  257. :?:/sonsk::
  258. addMessageToChatWindow("{FFD200}Sonstiges:")
  259. addMessageToChatWindow("{FFFFFF}Falschparken ({FFFA00} 4P {FFFFFF})")
  260. addMessageToChatWindow("{FFFFFF}Unfallverursachung ({00FFDC} 2.000$ {FFFFFF}/{FFFA00} 4P {FFFFFF})")
  261. addMessageToChatWindow("{FFFFFF}Sachbeschaedigung ({00FFDC} 50-2.000$ {FFFFFF}/{FFFA00} 1 Wanted {FFFFFF})")
  262. SendInput {enter}
  263. return
  264.  
  265. :?:/flugsk::
  266. addMessageToChatWindow("{FFD200}Fluggeraete:")
  267. addMessageToChatWindow("{FFFFFF}Tiefflug ({00FFDC} 5.000$ {FFFFFF}/{FFFA00} 10P {FFFFFF})")
  268. addMessageToChatWindow("{FFFFFF}Landen ({00FFDC} 7.500$ {FFFFFF}/{FFFA00} 10P {FFFFFF})")
  269. addMessageToChatWindow("{FFFFFF}Starten/Landen ohne Erlaubnis ({FFFA00} 5P {FFFFFF})")
  270. addMessageToChatWindow("{FFFFFF}Starten/Landen abs. der Rollbahn ({FFFA00} 9P {FFFFFF})")
  271. addMessageToChatWindow("{FFFFFF}Starten/Landen von der falschen Richtung ({FFFA00} 4P {FFFFFF})")
  272. SendInput {enter}
  273. return
  274.  
  275. :?:/carsk::
  276. addMessageToChatWindow("{FFD200}Autos:")
  277. addMessageToChatWindow("{FFFFFF}Benutzung von Lachgaseinspritzung ({00FFDC} 4.000$ {FFFFFF}/{FFFA00} 6P {FFFFFF})")
  278. addMessageToChatWindow("{FFFFFF}Benutzung von Unterbodenbeleuchtungen ({00FFDC} 3.000$ {FFFFFF}/{FFFA00} 4P {FFFFFF})")
  279. addMessageToChatWindow("{FFFFFF}Fahren mit illegaler Signalanlage ({00FFDC} 65.000$ {FFFFFF}/{FFFA00} 10P {FFFFFF})")
  280. SendInput {enter}
  281. return
  282.  
  283. :?:/bikesk::
  284. addMessageToChatWindow("{FFD200}Bikes:")
  285. addMessageToChatWindow("{FFFFFF}Fahren ohne Helm ({00FFDC} 1.000$ {FFFFFF}/{FFFA00} 3P {FFFFFF})")
  286. SendInput {enter}
  287. return
  288.  
  289. :?:/gp::
  290. SendInput /givepoints {home}{right 13}
  291. return
  292.  
  293. :?:/sp::
  294. SendInput /seepoints {home}{right 13}
  295. return
  296.  
  297.  
  298.  
  299. #If not isInChat()
  300. numpad5::
  301.  
  302. sendChatMessage("/duty")
  303. if(ifDuty<IsDuty){
  304.         sendChatMessage("/f << Geht nun ausser Dienst.")
  305.         IsDuty := notduty
  306.         showGameText("Deine ~r~Schicht ~w~ist nun vorbei.", 3000, 5)
  307. }
  308. else
  309. {
  310. sendChatMessage("/f << Geht nun in Dienst.")
  311. IsDuty := duty 
  312.         showGameText("Deine ~r~Schicht ~w~fäng nun an.", 3000, 5)
  313. }
  314.  
  315. return
  316.  
  317.  
  318. ;//----------------[ Befehle Begrí°¿íµ®g ]----------//
  319. 9::
  320. SendInput tGuten %Zeit%, Sie haben das Ordnungsamt gerufen, wie kann ich ihnen helfen? {enter}
  321. return
  322.  
  323. 0::
  324. Sendinput tIch wünsche ihnen eine Gute Weiterfahrt und kommen Sie sicher an Ihr Ziel an, Schönen %Zeit% noch.{enter}
  325. return
  326.  
  327. ß::
  328. Sendinput tIch wünsche ihnen eine Gute Weiterfahrt und achten sie bitte an StVO, Schönen %Zeit% noch.{enter}
  329. return
  330.  
  331. -::
  332. SendInput t/lock {enter}
  333. return
  334.  
  335. ;//----------------[ Befehle Megaphone ]----------//
  336.  
  337. Numpad1::
  338. SendInput t/m San Fierro Ordnungsamt - Bitte räumen sie {>}{>}{>} SOFORT {<}{<}{<} die Straße{!}{enter}
  339. return
  340.  
  341. Numpad3::
  342. SendInput t/m San Fierro Ordnungsamt - Fahren Sie {>}{>}{>} SOFORT {<}{<}{<} rechts ran{!}{enter}
  343. return
  344.  
  345. NumPad4::
  346. SendInput t/m San Fierro Ordnungsamt - Allgemeine Verkehrskontrolle, fahren sie {>}{>}{>} SOFORT {<}{<}{<} rechts ran{!}{enter}
  347. return
  348.  
  349. NumPad6::
  350. SendInput t/m San Fierro Ordnungsamt - Räumen sie {>}{>}{>} SOFORT {<}{<}{<} den Platz{!}{enter}
  351. return
  352.  
  353. ;//------------[ Sonstiges ]---------//
  354. NumPad9::
  355. sendChatMessage("/members")
  356. return
  357.  
  358. NumPad7::
  359. SendChatMessage("/calls")
  360. return
  361.  
  362. NumpadMult::
  363. SendChatMessage("/me überprüft den TüV")
  364. SendChatMessage("/vinfo")
  365. return
  366.  
  367. NumpadAdd::
  368. SendChatMessage("/neon")
  369. return
  370.  
  371. GuiClose: ; Wenn das X angeklickt wird
  372. ExitApp ; Dann beendeíº›
create a new version of this paste RAW Paste Data