Beiträge von Renz

Zitat von Bookai

Funktioniert es eventuell mit:
meineid := GetPlayerId()

Der Fehlermeldung zufolge benötigt diese Funktion keine Parameter.

Das ist nicht ganz korrekt, in diesem fall trifft es zu aber der Error sagt das zuviele Parameter angegeben wurden, und nicht das keine Parameter benötigt werden

Zitat von TheBlueFireKing

Dann hat er wirklich was zu tun
---

Wieweit kennst du dich in C# aus?

Naja, das wird wohl ein Projekt für die Zukunft sein

hmm schwer zu sagen... Die Grundlagen (Natürlich nicht den Kompletten umfang) hab ich soweit drauf...
Aber Lerne halt dauern dazu, egal ob ich wie jetzt hier zuhause lese, oder auf der Arbeit^^
Ich bin da halt sehr hinterher, da ich wirkich bock drauf habe, aber meinen eigenen Fortschritt zu bewerten ist iwie grad schwierig für mich...

Zitat von Jo_Raww

Hey.Danke dir für die Schnelle hilfe!

Funktioniert Super

//edit

Code

SendInput {end}+{home}{Del}{Esc}

Heist also wenn ich nicht innerhalb von 5 Sekunden enter drücke löscht es die Die zeile?

Alles anzeigen

Ja richtig, Wenn in dem Zeitraum von 5 Sekunden keine Eingabe kommt wird das Errorlevel von Keywait auf 1 gesetzt und somit die offene Chatzeile gelöscht+geschlossen.

Zitat von Jo_Raww

Hallo.

Ich habe schon wieder eine frage zu AHK
und zwar habe ich das Problem das ich einen Keybind habe um jemanden zu orten
da muss ich natürlich noch die ID eingeben

Code

Numpad4:: 
SendInput t/orten{Space}
Suspend On
return

Der keybinde Funktioniert auch so wie er soll
er gibt in den Chat /orten ein und macht eine leertaste.
Darunter habe ich Suspend on geschrieben da ich eine ID eingeben muss und ich
binds belegt habe wie zum beispiel 1,2,3,4,5
Würde ich das nicht machen würde ich ja keine id 4 oderso eingeben können.

Das problem ist jetzt allerdings das es so die Keybinds Deaktiviert..
Also kann ich ja danach keine Keybinds mehr nutzen da ja alle aus sind.
Also habe ich mir überlegt es mit Suspend Off zu lösen. Problem dabei ist allerdings das ich dies ja auch nicht in den Befehl mit einbauen kann
da ich ja sonst erst alle Keybinds aktiviere und dann wieder Deaktiviere

Alles anzeigen

Numpad4:: 
SendInput t/orten{Space}
Suspend On
Keywait, Enter, D T5
if(ErrorLevel)
SendInput {end}+{home}{Del}{Esc}
Suspend off
return

Versuch das mal...
Keywait, Enter, D T5 Hier wird 5 Sekunden durch die T-Option auf den Tastendruck von Enter (D-Option) gewartet und dann wieder Suspend auf off gesetzt.

SendInput {end}+{home}{Del}{Esc} bewirkt das die Chatzeile gelöscht und geschlossen wird ohne das /orten abgesendet wird

Hallo,

Ich hab ma ne kleine Frage an euch...

Was könnte ich Scripten um richtig in cSharp rein zukommen?
Es sollte Anspruchsvoll aber dennoch nicht zu Komplex sein...

Bisher habe ich gemacht...
...einen Keybinder der Chatlog Read, Hotkeys, Hotstrings und ein kleines DirectX Overlay beinhaltet.
...ein Screen Capturing Tool für Videos und Bilder, basierend auf GDI+ mit Fps anzeige ingame.

Würde mich über ein paar Vorschläge freuen^^ Bin echt iwie Ratlos was ich machen soll...

Gruß

willste net direkt die Top10 voll machen?

Schonmal kompatibilitätsmodus auf XP oder Win 7 gestellt?

#NoTrayIcon


global SGName := "Einstellungen"
global MGName := "Keybinder by Carl Ohaia"


Gui, Add, Picture, x0 y0 w550 h350 , C:\Users\SirEscobar\Documents\firefighters-usa.png
Gui, Add, Edit, x142 y140 w50 h0 , Text
Gui, Add, Button, x452 y10 w50 h20 , Credits
Gui, Add, Button, x22 y40 w100 h20 geinstellungen, Einstellungen
Gui, Add, Edit, x882 y610 w-830 h-240 , Text
Gui, Add, Button, x22 y70 w100 h20 , Button
Gui, Add, Hotkey, x642 y40 w20 h0 , 
Gui, Add, UpDown, x372 y470 w850 h-490 , UpDown
Gui,Add, Button, x370 y90 w80 h20 gMainGuiSave, Speichern ; gSavetest bewirkt das ein Label in dem fall Savetest aufgerufen wird...
; Generated using SmartGUI Creator for SciTE
Gui, Show, w553 h348, %MGName%
return




einstellungen:
if(!WinExist(SGName))
{
	IniRead, Nickname, Daten.ini, Ingame Daten: , Nickname,Name Eintragen! ; Name aus der ini Datei auslesen und sie als Wert in
	IniRead, Editme, Daten.ini, Ingame Daten: , Editme,Name Eintragen! ; 2tes Editfeld
	Gui 2: Add, Edit, x12 y9 w150 h20 vUserName, %Nickname%
	Gui 2: Add, Edit, x12 y39 w150 h20 vEditme, %Editme%
	Gui 2: Add, Button, x12 y69 w150 h20 gSettingsSave, Speichern
	; Generated using SmartGUI Creator 4.0
	Gui 2: Show, x268 y138 h101 w174, %SGName%
}
else
{
	Gui 2: Destroy
}
Return






SettingsSave:
Gui 2: Submit, NoHide ;Hier fragst du alles aus dem Aktuellen Gui ab!
IniWrite, %UserName%, Daten.ini, Ingame Daten: , Nickname ; Name in die ini Datei eintragen
IniWrite, %Editme%, Daten.ini, Ingame Daten: , Editme ; 2tes Editfeld


MainGuiSave:
Gui, Submit, NoHide ;Hier fragst du alles aus dem Aktuellen Gui ab!
; Hier alle Iniwrites reinschreiben des Main Fenster
return




GuiClose:
ExitApp


Gui2Close:
WinHide,Einstellungen
return

Das würdest du dann so machen... Aber verstehe den Sinn dahinter nicht, da man die Guis per X Schliessen kann^^

Zitat von Carl Ohaia

Vielen Dank. Jetzt möchte ich nurnoch machen das diese Zwei Editboxen nur angezeigt werden,wenn ich auf Einstellungen klicke.Und auch wieder weggehen wenn ich nochmal draufklick.

Ja dann Hop hop, Mach den Anfang wenn du iwann nicht weiterkommst melde dich

Hab dir mal das von mir bisschen angepasst...Benutz am besten Url2Var... Habe diese Funktion überall benutzt und sie war immer schneller als UrlDownloadToFile()
Formatierung für die txt,php etc. Datei auf dem Webspace, Name1,Name2,Name3

Wenn du auf der Whitelist bist startet der Binder ganz normal...
Wenn nicht wird der Keybinder ohne Meldung geschlossen...

RegRead, SAMPName, HKEY_CURRENT_USER, Software\SAMP, PlayerName
Granted := False
UrlDownloadToVar("Link zur Whitelist.php hier eintragen", Whitelist_Values)
if(Whitelist_Values != "")
{
	Wl_Member := StrSplit(Whitelist_Values,",") ; Hier wird die Whitelist in ihre einzelnen Objekte geteilt. Delimiter ist , (Kommata)
	While(A_Index < Wl_Member.Max() || Granted = True)
	{
		if(InStr(Wl_Member[A_Index],SAMPName,True))
		{
                               Granted := True
			Whitelist_Values := ""
                               Index := Wl_Member.Min()
			Loop % Wl_Member.Length()
			Wl_Member[A_Index] := ""
		}
                if(A_Index == Wl_Member.Max()){
                Exitapp
                }
        }
}
Else
{
	MsgBox Abruf der Whitelist nicht möglich!
	ExitApp, [ ExitCode]
}


UrlDownloadToVar(URL, ByRef Result, UserAgent = "", Proxy = "", ProxyBypass = "") {
  ; Requires Windows Vista, Windows XP, Windows 2000 Professional, Windows NT Workstation 4.0,
  ; Windows Me, Windows 98, or Windows 95.
  ; Requires Internet Explorer 3.0 or later.
  hModule := DllCall("LoadLibrary", "Str", "wininet.dll") 
  AccessType := Proxy != "" ? 3 : 1
  ;INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration 
  ;INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net 
  ;INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy 
  ;INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS 
	io := DllCall("wininet\InternetOpenA" 
	, "Str", UserAgent ;lpszAgent 
	, "UInt", AccessType 
	, "Str", Proxy 
	, "Str", ProxyBypass 
	, "UInt", 0) ;dwFlags 
	iou := DllCall("wininet\InternetOpenUrlA" 
	, "UInt", io 
	, "Str", url 
	, "Str", "" ;lpszHeaders 
	, "UInt", 0 ;dwHeadersLength 
	, "UInt", 0x80000000 ;dwFlags: INTERNET_FLAG_RELOAD = 0x80000000 // retrieve the original item 
	, "UInt", 0) ;dwContext 
	If (ErrorLevel != 0 or iou = 0) { 
	  DllCall("FreeLibrary", "UInt", hModule) 
	  return 0 
	} 
	VarSetCapacity(buffer, 10240, 0)
	VarSetCapacity(BytesRead, 4, 0)
	Loop 
	{ 
	  ;http://msdn.microsoft.com/library/en-us/wininet/wininet/internetreadfile.asp
	  irf := DllCall("wininet\InternetReadFile", "UInt", iou, "UInt", &buffer, "UInt", 10240, "UInt", &BytesRead) 
	  VarSetCapacity(buffer, -1) ;to update the variable's internally-stored length
    BytesRead_ = 0 ; reset
	  Loop, 4  ; Build the integer by adding up its bytes. (From ExtractInteger-function)
      BytesRead_ += *(&BytesRead + A_Index-1) << 8*(A_Index-1) ;Bytes read in this very DllCall
    ; To ensure all data is retrieved, an application must continue to call the
    ; InternetReadFile function until the function returns TRUE and the lpdwNumberOfBytesRead parameter equals zero.
    If (irf = 1 and BytesRead_ = 0)
	    break
	  Else ; append the buffer's contents
	    Result .= SubStr(buffer, 1, BytesRead_) 
    /* optional: retrieve only a part of the file
    BytesReadTotal += BytesRead_
    If (BytesReadTotal >= 30000) ; only read the first x bytes
	    break                      ; (will be a multiple of the buffer size, if the file is not smaller; trim if neccessary)
	  */
	}
	DllCall("wininet\InternetCloseHandle",  "UInt", iou) 
	DllCall("wininet\InternetCloseHandle",  "UInt", io) 
	DllCall("FreeLibrary", "UInt", hModule)
}

Ne die UDF ist schon in ordnung^^
Sie erfüllt ihren Zweck

Zitat von H4rd_B4se

Ist es normal dass das Spiel nur 2,5GB Speicher belegt? In den Anforderungen steht nämlich 10GB.

Ja die meisten Spielehersteller/Publisher lassen sich noch etwas platz nach oben für kommende Updates etc.^^

Hab mir das Spiel auch mal runtergeladen und muss sagen das ich garnicht sotoll finde...
Es ist ja nur erkunden, paar komische Tiere töten und dann weiter zum nächsten planet, wo es dann wieder von vorne beginnt
Zum Glück hab ich es mir nicht gekauft...
Ich würde abwarten bis mehr Updates/Möglichkeiten für den Spieler kommen, weil so wie es im moment ist sind 60€ viel zu viel...

Zitat von robbi2304

cache_get_field_content_int("users", "Timeban", timestamp, "Name", name);

Kann auch sein das cache_get_field_content_int falsch ist aber das weiß ich eben so genau nicht

cache_get_field_content_int(row, const field_name[], connectionHandle = 1)
Guck dir mal die Parameter an... btw wo holst du dir den Cache? Sehe nirgends eine Datenbank abfrage...

Zitat von Jo_Raww

ja ich verwende API

meinst so?
Numpad1::IsChatOpen()SendInput t/orten{space}Return

//edit
Das Problem ist wenn ich SendInput {Enter} raus nehme funktioniert es zwar also ich drücke beim Dialog nimmer enter
das andere problem ist das dann wen ich diesen befehl nutze
Numpad4::SendInput t/orten{space}Suspendreturn

Der keybinder aus geht
und ich ihn mit diesem hier wieder starten muss
!0::SuspendSendInput t/me Pausiert/Aktiviert seinen Keybinder{enter}return

Kann es sein das der Keybinder ausgeht weil in dem Befehl Suspend steht?
denn bei anderen befehlen die direkt losgeschickt werden sollen geht er weiterhin.

Mein problem ist aber das bei dem /orten befehl
man nur ids eingeben kann
mittel Suspend habe ich ja vorübergehend deaktiviert das Hotkeys genutzt werden können

Wie könnte ich sonst noch alle anderen Keybinds für diese zeit deaktivieren?

Alles anzeigen

Numpad4::
if(IsChatOpen())
return
Sendinput, ID:{space}
Input, ortenid,V I M,{enter}
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
SendChat("/orten " ortenid)
return

Mach es so, habs net getestet aber sollte funktionieren...

Zitat von Jo_Raww

scheint mir aber so
habe mal alles ausgeklammert außer das und einen befehl
Wenn es drin ist passiert
Wenn ich aber alles andere aktiviere nur das eben rausmach drückt er beim öffnen eines Dialogs zb bei /help nicht einfach nochmal enter

//edit

Habe nochetwas rausgefunden
Da ich der meinung bin das es etwas damit zutun hat hab ich mir das nochmal genauer angesehen
NumpadEnter:: ;bei Numpadenter nichtEnter:: ;bei enter passiert der FehlerSuspend PermitSuspend OffSendInput {Enter}Hotkey, t, OnHotkey, Enter, OffHotkey, Escape, Offreturn

Alles anzeigen

Musst nur das SendInput {Enter} entfernen dann geht das, Solltest du eine Api verwenden brauchst du das ganze eh nicht, dann kannst du vor jedem Command etc einfach mit IsChatOpen() abfragen ob ein Chat/Dialog/Menü geöffnet ist...

Gruß

Zitat von datWeazel

Wenn es nur ums Üben geht, dann installier dir doch einfach lokal ne Datenbank.
Das ist aufjedenfall bequemer. Einfach XAMPP oder ähnliches und dann hast direkt nen mysql Server, webserver + phpmyadmin.

Gesagt, Getan!
Vielen Dank für den Hinweis^^

Hab mir XAMPP installiert, funktioniert alles wunderbar...

Gruß

Nabend,

Ich bin auf der suche nach einer Datenbank mit Externen Zugriff um bisschen mit C# und Mysql zu üben...
Hab vergessen mein Webspace zu verlängern und komme Montag erst wieder in die Stadt^^

Wäre nett wenn jemand eine Datebank übrig hat

Gruß
Renz

Hey, Ich mache seit ca. 6-7 Jahren Musik mit ein paar kollegen zusammen... Ich habe ziemlich viel erfahrung in sachen Equipment für das Produzieren von Songs in einem kleinen "Home-Studio" gesammelt. Wenn du möchtest schreib mir per PN mal eine Zeit, wann du Zeit hast, dann können wir uns im Ts darüber unterhalten, weil das zu schreiben, was da alles zusammen hängt, dauert zulange

Gruß
Renz

enum e_Vehicle
{
	VID,
	ID,
	Ownername[32],
	LastDriver[32],
	Second_Owner[32],
	Plate[32],
	ModelID,
	Color1,
	Color2,
	Nos,
	Float:vPosX,
	Float:vPosY,
	Float:vPosZ,
	Float:vPosA,
	Destroyed,
	engine, 
	lights, 
	alarm, 
	doors, 
	bonnet, 
	boot, 
	objective
};
new Vehicle[MAX_VEHICLES][e_Vehicle];

Sry vergessen mit einzufügen^^