Beiträge von Renz

Renz · 4. Juni 2016

Brainfuck

#UseHook 
#SingleInstance force
#IfWinActive , GTA:SA:MP


~q::
while GetKeyState("q",p)
{
 Click
 sleep 250 
 Click
 sleep 250 
 Click
 sleep 250 
 Click
 sleep 250 
 Click down
 sleep 250 
 Click up
 sleep 250 
 Send {2 down}{2 up}
}
return

Alles anzeigen

Probiers mal hiermit
Ist ungetestet sollte aber funktionieren, Das gibt's Gratis Wenn es net geht sag bescheid...

Renz · 31. Mai 2016

Hey, ach Pns... Da haben die anderen nix von...
Ich kann dir propellerhead Reason 4.0 ans herz legen... Damit mache ich meine Beats wenn ich welche mache...

Fruityloops ist auch nicht schlecht und für dich evtl sogar besser geeignet als anfänger...

Gruß

Renz · 28. Mai 2016

Hey Fishy's

Ich hab ein dickes Problem, ich hab SAMP gestartet, wärent des Starts wurde das bild komisch verzerrt und mit Roten Punkten übersäht, und ich bekamm einen Bluscreen.

Wenn ich jetzt meinen Pc starte sieht das ganze so aus (Bild unten).

Hat jemand eine idee?

Gruß
Renz

Bild:
(Nach dem starten erscheint das Maimboardlogo dann kommt dieser Bildschirm.)

Renz · 6. Mai 2016

Zitat von Inf1nity.

Ich habe das problem das er meine API.dll nicht findet könnte ich mir helfen?

Code

#Include API.ahk
#UseHook
#Persistent
#SingleInstance Force
#IfWinActive GTA:SA:MP
#NoEnv


SetTimer, Tode, 150
SetTimer, KillZähler, 150
SetTimer, kd, 138000




~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return
NumpadEnter::
Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return
Escape::
Suspend Permit
Suspend Off
SendInput {Escape}
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




EigeneBefehle:


:?:/p::
Suspend
SendInput Schoenen guten Tag sie Sprechen mit LikeZ{enter}
SendInput tWie kann ich ihnen weiterhelfen{?}{enter}
return


:?:/ab::
Suspend
SendInput /p{enter}
SendInput tGuten Tag sie sprechen mit der Mailbox von LikeZ{enter}
SendInput tVersuchen sie es Später erneut bitte {!}{enter}
SendInput t/h{enter}
return


:?:/bg::
Suspend
SendInput /buygun{enter}
SendInput /buy{enter}
return


:?:/fd::
Suspend
SendInput /find{space}
return








Zusatz:


U::
FormatTime,Uhrzeit, HH:mm:ss
SendInput t/me schaut auf die Uhrzeit. (%Uhrzeit%) {Enter}
return


F12::
Suspend Toggle 
return


:?:/STP::
Suspend Permit
SendInput Stoppuhr Gestartet.{enter}
Zeit=0
Loop,
{
	Zeit++
	IniWrite,%Zeit% ,Daten.ini ,Einstellungen,Sek
	KeyWait, F8, D T1
	If !ErrorLevel
     {
		IniRead,Zeit,Daten.ini,Einstellungen,Sek
		Min=%Zeit% 
          Min/=60
          Min1=%Min%
          Min1*=60
          Sek=%Zeit%
          Sek-=%Min%
		  SendInput, t Stopuhr gestoppt{!} (%Min%Min - %Zeit%Sek){enter}
		  break
     }}
return




Befehle:


C::
SendInput t/carlock {enter}
return


M::
SendInput t/motor {enter}
SendInput t/licht {enter}
return


Z::
SendInput t/enter {enter}
SendInput t/exit {enter}
SendInput t/vaexit {enter}
SendInput t/vaenter {enter}
return




























kd:
IniRead, deaths, Daten.ini, Tote, deaths
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"[Durchschnitt]: Deine Deaths= " deaths " ")
AddChatMessage(0xFFFFF,"[Durchschnitt]: Deine Kills= " kills " ")
return




Tode:
GetChatLine(0, Chatline1)
if(InStr(Chatline1, "Du sitzt in keinem Fahrzeug oder bist nicht der Fahrer."))
{
IniRead, deaths, Daten.ini, Tote, deaths
deaths++
IniWrite, %deaths%, Daten.ini, Tote, deaths
AddChatMessage(0xFFFFF,"[Todeszähler]: Dies war dein Tod Nummer: " deaths)
}
return


KillZähler:
GetChatLine(0, Chatline1)
if(InStr(Chatline1, "Du sitzt in keinem Fahrzeug oder bist nicht der Fahrer."))
{
IniRead, kills, Daten.ini, Kills, kills
kills++
IniWrite, %kills%, Daten.ini, Kills, kills
AddChatMessage(0xFFFFFF,"{CD0000}[Keybinder]{FF8C00}: Dies war dein Kill Nummer: " kills)
}
return


:?:/kills::
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Kills= " kills " ")
return


:?:/deaths::
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Tote= " deaths " ")
return


:?:/kd::
IniRead, deaths, Daten.ini, Tote, deaths
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Tode=" deaths " Deine Kills= " kills ".")
return

Alles anzeigen

Ich danke

Hast du den Pfad zur dll in der .AHK DAtei angegeben?

Renz · 29. April 2016

Du musst auch die länge des ausgegebenen Strings angeben bei GetZoneName()

also so

Code

GZ:
GetZoneName(MyZone,32)
TextSetString(GZOV, "GZ: " MyZone)
return

Renz · 29. April 2016

Kannste ne Datenbank von mir haben wenn du möchtest

Renz · 12. April 2016

Brainfuck

Gui, Add, Text, x10 y10 w80 h20 , Passwort
Gui, Add, Edit, x+5 y10 w130 h20 vPasswort,


Gui, Add, Button, x11 y+10 w210 h30 gLogin, Login
Gui, Show, x161 w237, Login
Return


GuiClose:
ExitApp


Login:
If(Passwort == "Test")
Gosub Start
else
Exitapp
Return


Start:
;
;-
;--
;---
;----
;----- Gui, Includes etc!
;----
;---
;--
;-
;

Alles anzeigen

Renz · 12. April 2016

Poste bitte mal dein komplettes Script hier in das Thema.

Renz · 2. April 2016

Brainfuck

SetTimer, ReadChat, 100
ReadChat:
FileRead, Chat, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
If InStr(chat, "Gehalts-Check")
{
	AddChatMessage("{2E9AFE}[Keybinder] {FFFFFF}: Du hast insgesamt $" todayVerdienst " und " todayEXP "EXP auf " todayLinien " Linien erhalten.")
	AddChatMessage("{2E9AFE}[Keybinder] {FFFFFF}: Deine Einstellungen wurde durch den Payday soeben zurückgesetzt.")
	todayVerdient = 0
	todayEXP = 0
	todayLinien = 0	
	FileRead,log_Backup, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	Backup := log_Backup
	Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	FileAppEnd,`n%Backup%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog_backup.txt
}
If InStr(chat, "Du kannst das Fahrzeug mit /motor starten. Die Scheinwerfer können mit /licht angeschaltet werden.")
{
	SendChat("/lock")
	SendChat("/licht")
	SendChat("/motor")
	FileRead,log_Backup, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	Backup := log_Backup
	Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	FileAppEnd,`n%Backup%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog_backup.txt
}
;* Du erhälst am nächsten Payday 2900$ gutgeschrieben. Erhaltene Exp: 1
If InStr(chat, "am nächsten Payday ") AND InStr(chat, "Erhaltene Exp:")
{
	RegExMatch(chat, "Payday (.*)\$ .* Exp\: (.*)\.", var_)
	AddChatMessage("{2E9AFE}[Keybinder] {FFFFFF}: Buslinie erfolgreich beendet.")
	AddChatMessage("{2E9AFE}[Keybinder] {FFFFFF}: Verdienst: $" var_1 " & EXP: " var_2 ".")
	globalVerdienst += var_1
	globalEXP += var_2
	globalLinien++
	IniWrite, %globalVerdienst%, %ini%, Informationen, globalVerdienst
	IniWrite, %globalEXP%, %ini%, Informationen, globalEXP
	IniWrite, %globalLinien%, %ini%, Informationen, globalLinien
	todayVerdienst += var_1
	todayEXP += var_2
	todayLinien++
	GuiControl, , textStats, Heute:`nVerdienst: %todayVerdienst%`nEXP: %todayEXP%`nLinien: %todayLinien%`n`nGlobal:`nVerdienst: $%globalVerdienst%`nEXP: %globalEXP%`nLinien: %globalLinien%
	;AddChatMessage("{2E9AFE}** Linienfahrt beendet, neue Buslinie 1 wird ausgewählt.")
	FileRead,log_Backup, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	Backup := log_Backup
	Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	FileAppEnd,`n%Backup%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog_backup.txt
}
return

Alles anzeigen

Versuchs mal so, GetChatline() kann ich nicht empfehlen. Mach das lieber selber mit FileRead und einem Chatlog Backup

Renz · 23. März 2016

Ach Tut mir Leid ich habs voll vergessen -.-

Brainfuck

ausrechnen := PlayerInput("[Ausrechnen] Gib die Summe ein: ")
ausrechnen_1 := Round(ausrechnen / 100 * 5)
ausrechnen_2 := Round(ausrechnen - 2 * ausrechnen_1)
AddChatMessage("{B45F04}Keybinder:{FFFFFF} Spenden gesamt: " ThousandsSep(ausrechnen,".") " Euro || Geld für die Fratkionskasse: " ThousandsSep(ausrechnen_1,".") " Euro")
AddChatMessage("{B45F04}Keybinder:{FFFFFF} Geld für einen selbst: " ThousandsSep(ausrechnen_1,".") " Euro")
AddChatMessage("{B45F04}Keybinder:{FFFFFF} Geld fürs Event: " ThousandsSep(ausrechnen_2,".") " Euro")


ThousandsSep(x, s=",") {
   return RegExReplace(x, "(?(?<=\.)(*COMMIT)(*FAIL))\d(?=(\d{3})+(\D|$))", "<span class="redactor-ie-paste"></span>" s)
}

Alles anzeigen

Renz · 21. März 2016

Sry Falsch verstanden, Ich helf dir morgen dabei

Renz · 19. März 2016

Zitat von elias5656

#Edit

so habe jetz eine neue API (https://github.com/Suchty112/S…RX-SAMP-0.3.7RC3/SAMP.ahk)
mit dieser bekomme ich zwar keinen Crash mehr aber immer wen ich die ID eingebe passiert einfach nichts mehr.

@Jan.
@Renz
könnt ihr mir sagen welche API ihr nutzt?

C

SetWorkingDir %A_ScriptDir%
#include %A_ScriptDir%\SAMP.ahk
Stopit=0
Hotkey, Enter, Off
Hotkey, Escape, Off
return


+T::
~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return


~NumpadEnter::
~Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


~Escape::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




;#########################################################################################################






    :?:/find::
    Suspend Permit
    SendInput, ID:{Space}
    Input, Variable, V I M, {Enter}
	SendInput {end}+{home}{Del}{Esc}
    Loop, 40 
    { 
     if (stopit==1)
      {
      stopit = 0
      break
      }
     SendChat("/finden " Variable "")
    Sleep, 1000 
    } 
    return
    f10::
    stopit := 1
    return

Alles anzeigen

Ich kanns leider nicht testen weil meine Grafikkarte abgeschmiert ist... Aber so müsste es gehen

Brainfuck

SetWorkingDir %A_ScriptDir%
#include %A_ScriptDir%\SAMP.ahk
Stopit=0
Hotkey, Enter, Off
Hotkey, Escape, Off
return


+T::
~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return


~NumpadEnter::
~Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


~Escape::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




;#########################################################################################################






    :?:/find::
    Suspend Permit
	FindID := ""
    SendInput, ID:{Space}
    Input, FindID, V I M, {Enter}
	SendInput {end}+{home}{Del}{Esc}
	If(FindID != "")
	{
		Loop, 40 
		{ 
		 if (stopit==1)
		  {
		  stopit = 0
		  break
		  }
		 SendChat("/finden " FindID "")
		Sleep, 1000 
		} 
	}
    return

	f10::
    stopit := 1
    return

Alles anzeigen

Renz · 18. März 2016

Hast du ganz oben im Script #Warn drin stehen?

Entfern das mal

oder

Schreib unter deine Includes

Stopit=0

oder

Code

:?:/find::
 Suspend Permit
Stopit=0
SendInput, ID:{Space}
Input, Variable, V I M, {Enter}
Loop, 40 
{ 
 if stopit = 1
  {
  stopit = 0
  break
  }
 SendChat("/finden " Variable "")
Sleep, 1000 
} 
return
f10::
 stopit = 1
return

Alles anzeigen

Renz · 18. März 2016

Brainfuck

:?:/find::
 Suspend Permit




SendInput, ID:{Space}
Input, Variable, V I M, {Enter}
SendInput {end}+{home}{Del}{Esc}




 #Hier soll sich der Chat öffnen und man wird aufgefordert eine ID einzugeben diese soll #in einer oben definierten Variable gespeichert werden.
Loop, 40 
{ 
 if stopit = 1
  {
  stopit = 0
  break
  }
 SendChat("/finden %Variable%") #Hier soll der Befehl mit der Variable ausgegeben werden.
Sleep, 1000 
} 
return


f10::
 stopit = 1
return

Alles anzeigen

Renz · 17. März 2016

@Snap_pulse Nice

Dafür brauchste rein 0 kentnisse....
Hotkey+Sendinput....
____________________________________________________________
Kannste was mit,

IF
Else
Loopen
variablen,
Globale Variablen
Funktions Interne Variablen
Ausdruck oder Traditionell

bla bla bla... anfangen?

Und das sind eig noch nichtmal die Min. Anforderungen^^

Dann kommt noch

FileRead,
RegExMatch(),
Parsen,
AHK Integrierte Variablen (A_Index zb.),
MAthematische Aktionen(++,--,*,/,Round,Float)

Die Liste geht noch viel viel länger weiter...

https://ragnar-f.github.io/
Über diese Seite hab ich AHK gelernt
Learning by doing ist die Divise

Helfe dir gerne bei Fragen, kannst auch gerne aufs Ts kommen oder halt weiter per Forum...

Gruß

Renz · 16. März 2016

Das machst du mit Overlays, aber du solltest erstmal generell die grundlagen von AHK lernen bevor du mit Overlays etc anfängst

Renz · 16. März 2016

Zitat von Snap_pulse

perfekt der startet nun ob er geht muss ich später ausprobieren
vllt eine sache noch könnteste mir ein tipp geben wie ich ein sound bekomme wenn ein auftrag angenommen wird? @Renz

Klar

Das machste per

Code

SoundBeep, Frequenzhöhe, Dauer des beeps

Damit bekommst du einen vom System generierten Sound

oder

Code

SoundPlay, %A_Scriptdir%\Sound.wav

Damit kannste einen Sound abspielen den du als .wav auf dem Pc hast

Im anhang haste mal so einen kleinen Sound

Solltest du Probleme haben melde dich einfach wieder

Renz · 16. März 2016

Brainfuck

ListLines, off
SetBatchLines -1


#Persistent
#UseHook
#NoEnv
#SingleInstance force
#IfWinActive, GTA:SA:MP
#include API.ahk


ini = %A_ScriptDir%\Bestatter.ini
IniRead, Hotkey, %ini%, Hotkeys, Hotkey
IniRead, Text, %ini%, Texte, Text
gosub, Hotkeydefine


Gui, Add, Button, x11 y44 w170 h40 gsave, Speichern
Gui, Add, Hotkey, x111 y14 w70 h20 vHotkey, %Hotkey%
Gui, Add, Text, x11 y14 w100 h20 , Take Corpse ->
Gui, Show, x333 y291 h100 w196, Auto. Take Corpse
Return


GuiClose:
ExitApp


Save:
Gui,Submit, NoHide
HHotkey := Hotkey
IniWrite, %HHotkey%, %ini%, Hotkeys, Hotkey
HTexte := Text
IniWrite, %HTexte%, %ini%, Texte, Text
gosub, Hotkeydefine
Reload
return


Hotkeydefine:
 HHotkey := Hotkey
 Hotkey, ~%HHotkey%, Label, UseErrorlevel
return


Label:
If(IsChatOpen())
return
 IniRead, Toter, Bestatter.ini, Leiche:, Toter
 SendChat("/takecorpse " Toter)
sleep 1050
return


:?:/Duty::
Suspend Permit
Settimer, Bestatter, 1
showGameText("Bestatter Schleife | Aktiv", 2000, 5) 
Duty := 1
suspend off
return


:?:/offduty::
Suspend Permit
Sendinput {enter}
Settimer, Bestatter, off
showGameText("Bestatter Schleife | Inaktiv", 2000, 5)
Duty := 0
suspend off
return
bestatter:
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
IfInString, Chatlog, Gib '/accept corpse' ein, um den Auftrag anzunehmen!
{
	RegExMatch(Chatlog, " (.*) ist in (.*) gestorben" ,Leiche)
	SendChat("/accept corpse")
	iniwrite, %Leiche1%, Bestatter.ini, Leiche:, Toter
	FileRead,log_Backup, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	Backup := log_Backup
	Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	FileAppEnd,`n%Backup%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog_backup.txt
	FileAppend , [%A_Hour%:%A_Min%:%A_Sec%] - Kill - Opfer: %Opfer%`n, %A_Scriptdir%\Log.txt
}
Return

Alles anzeigen

Könnte sein das es an deiner AddChatmessage() Funktion liegt...
Versuchs mal mitm GameText...
Probier es mal so aus

Renz · 16. März 2016

Zitat von Snap_pulse

@Renzjetzt hab ich ein problem mit der bestatter schleife

error too few parameters üassed to function.

specifically: addchatmessage ("Bestatter schleife | Aktiv")

line #
---> 1099: addchatmessage(Bestatter Schleife | Aktiv")
the program will exit

Alles anzeigen

addchatmessage("Bestatter Schleife | Aktiv") Ein anfühurungszeichen fehlt

Renz · 16. März 2016

Zitat von Snap_pulse

ok ein problem ich kann es compilen aber wenn ich ihn starten will kommt das

Error: Call to nonexistent function.

Specifically: IsInChat())

Line#
----> 1090: if (IsInChat())

The program will exit

Alles anzeigen

Mach mal aus IsInChat(), IsChatOpen() ich glaube so heißt die Funktion in der SAMP-API

Beiträge von Renz

Kleines Waffen-Kombo Script [AutoIT oder AHK]

[Suche] Professionelle Programme(+) für Beats

Bios Fehler? - Schw. Bildschrim mit weißen zeichen.

[SAMMELTHREAD] Kleine Coding Fragen

AHK | Overlay Problem

Suche Datenbank für SAMP (Free)

AHK.Passwort

[AHK] Fehler mit GUI

[AHK] ReadChat funktioniert nicht

[AHK] Umrechnen mit Zahlen, Korrekte Anzeige der Zahlen

[AHK] Umrechnen mit Zahlen, Korrekte Anzeige der Zahlen

Keybinder AHK loop

Keybinder AHK loop

Keybinder AHK loop

Hilfe beim bestatter keybinder

Hilfe beim bestatter keybinder

Hilfe beim bestatter keybinder

Hilfe beim bestatter keybinder

Hilfe beim bestatter keybinder

Hilfe beim bestatter keybinder