Beiträge von zombie36

3 posts sind zwar zwei zuviel des guten, aber ich muss das nochmal pushen..

bin nicht einen schritt weitergekommen.. schaffs immernochnicht zugänge zuzulassen
die version mit der do schleife - kein erfolg
adlib version - kein erfolg

Zitat

Du könntest ja durch ein Adlib Register immer Zugänge zulassen und so auch immer anzeigen lassen wie viele gerade mitspielen.

wie würde das im grunde aussehen?

hab mir übrigens die TCP udf angeguckt die ich oben verlinkt habe und sie funktioniert bei mir nicht (nur als info)

ich denke ich mach irgendeinen gravierenden denkfehler weshalb ich mich nicht von der stelle bewege

wär über hilfe sehr glücklich

frohe weihnachten und schöne feiertage

Zitat von BadBunny

AutoIt-QuellcodeCode kopieren

1
2
3

Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

Das würde bedeuten er wartet bis 1ne person beitritt, aber Poker spielt man bekanntlich ja mit mehreren.
Du könntest ja durch ein Adlib Register immer Zugänge zulassen und so auch immer anzeigen lassen wie viele gerade mitspielen.

Alles anzeigen

ich hab diese funktion für jeden seat und einen jeweils anderen port geschrieben..
sodass er für jeden seat auf genau einen spieler wartet

das kartengeben läuft folgendermaßen ab:

global $aDeck

For $i = 0 To 3
For $j = 0 To 12
$aDeck[$i * 13 + $j] = $aSuit[$i] & $j + 1
Next
Next
$aCopyDekc = $aDeck

func _dealCard ()
local $tRand = random(0,$ideckcount,1)
local $iCard = $aCopyDeck[$tRand]
$aCopyDeck[$tRand] = $acopyDeck[$ideckCount]
$iDeckCount -= 1
return $iCard
EndFunc

mein script funktioniert soweit, dass ich flop/turn/river und Holecards für eine runde in der console ausgebe (für jeden spieler wo nicht "None" in $aSeat ist.

häng mein script man an

ich versteh nämlich nciht so ganz was ich machen soll^^ sry

Hallo ich bins wieder

der Titel verräts:

ich möchte ein neues Bild aus mehreren einzelbildern erzeugen, sodass diese (deckend) auf einer "Unterlage" (=Basisbild) angezeigt werden

hab mir die GDIPlus funktionen angeguckt aber ich habs nich hinbekommen

zu anschauungszwecken hab ich noch ein paar Bilder mit hochgeladen, sowie das gewünschte endresultat

danke schonmal für die unterstützung
rollen wir die antworten mal von hinten nach vorne auf:

Zitat von Sortoc

Würde dir empfehlen du gestalltest erstmal den "Server" ohne Tcp sprich du schreibst ihn so das er Mischen,Kartengeben,das Blatt auswerten,den Einsatz regeln usw. ohne die Daten der Clients machen kann. Sprich das Spiel im "offline" Modus.

da es sich hierbei um Poker handelt, ist ein offline modus nicht notwendig (es kann ja nur multiplayer gespielt werden)

hab die funktionen die ich brauche schon (für n spieler werden n*2 karten gegeben, im server in $aKarten gespeichert und dem clienten wird dann eine spielernummer zugewiesen (sagen wir m) sodass er dann vom Server $aKatzen[m] ausliest

Zitat von BadBunny

Wüsstest du denn wie du das machst oder hast du noch keinen Plan?

also vom Grundgerüst in etwa so:

ich dachte mir, dass der Server jedem Seat ein Attribut zuweist (offen, besetzt mit Spieler "xyz")
außerdem werden die Karten nicht an die Spieler, sondern die Plätze 1 bis 5 verteilt

dazu bräuchte ich eine funktion, die überprüft, ob dieser Seat besetzt ist (= ob ein socket mit der Tischnummer existiert)

Jeder Platz representiert also eine mögliche Verbindung

SO << HIER EIN UPDATE >>

Ich hab jetzt für jeden Platz eine TCPFunktion geschrieben und mit Adlibregister() eingebunden
so sieht das beispielsweise mit Seat0 aus:

global $aSeat[1] = ["None"] ;none = nicht besetzt, IPadress = besetzt
global $PORTSeat0 = 660 ;port für Seat 0
global $Socket0 = TCPListen(@IPAddress1, $PORTSeat0) ;socket für seat 0

func _tcpSeat0()
Switch $aSeat[0]
case string("None") ;wenn der Seat nicht besetzt ist
Local $ConnectedSocket
Do
$ConnectedSocket = TCPAccept($Socket) ;warte auf anfrage
Until $ConnectedSocket <> -1
local $ClientIP = SocketToIP($ConnectedSocket) ;Hier wird die IP vom clienten zurückgegeben
$aSeat[0] = $ClientIP
case Else;wenn der Seat allerdings besetzt ist
$recv = TCPRecv( $ConnectedSocket, 2048 ) ;wenn eine Nachricht eintrifft
If @error Then
$aSeat[0] = "None"
Else
_TCPTranslate($recv) ;interpretiere die daten und ändere variablen im script
EndIf
EndSwitch
EndFunc

wenn jetzt aber alle paar ms der TCP verkehr überprüft wird (über einen jeweils anderen Port obv) weiß ich nciht obd as zu Problemen führen kann

haltet mich auf wenn ihr könnt haha

E2:

sah zwar schön aus aber wenn ich jetzt mit einem der 5 ports connecte, erhält der Server keine Nchricht

um das zu überprüfen hab ich in das obige script folgendes hinzugefügt:

func _TCPTranslate ($sMsg)
ConsoleWrite($sMsg)
EndFunc

und der client sieht so aus:

könnte das an der do - schleife im adlib "_tcpSeat0" liegen? hängt sich das vllt irgendwie auf oder so?
wenn ich meinem script vorgaukle, dass Spieler connected sind (durch manuelles ändern des eintrags in $aSeat) funktioniert es wunderbar, ich brauch also ne alternative für das ständige abfragen nach neuen paketen

Halli halloo,

Also mein Plan ist folgender: ein Kartenspiel, das komplett in Scite geschrieben wurde, soll über netzwerk die vorgänge simulieren, die live ablaufen würden.

Ich kannte mich mit TCP bisher überhauptnicht aus und hab mir ein paar Grundkenntnisse über Tutorials und die Autoit Hilfe angeeignet, sodass ich folgende Idee bekommen habe:

Der Host des Spiels wird den Server Starten und somit ein neues Spiel öffnen.
Der Server wird den Dealer (=Kartengeber in Poker) simulieren, d.h. er übernimmt das "mischen", austeilen, berechnung der einsätze und des topfs, sowie die Auswertung der Hand zum schluss

Außerdem muss überprüft werden, ob neue spieler an den tisch gekommen sind.

Jeder weitere Spieler (=Gast) empfängt dann vom Server informationen über seine eigene Hand und die ausgeteilten Gemeinschaftskarten, worauf es eine Setzrunde gibt (=jeder Gast sendet Pakete zurück, die der Server auswertet

Das Spiel besteht somit aus der server.exe, dem client.exe und ggf. einer lobby

ich möchte mich aber nicht einfach aufs script stürzen und am ende einen sourcesalat produzieren

da ich wie gesagt noch ziemlich neu in der materie bin würde ich mich über feedback freuen.
Haltet ihr eine solche "Arbeitsaufteilung" für Server & Client für sinnvoll, wenn nein, warum nicht?

Stimmt es dass sich der Host auch als client mit dem server verbinden muss?

ich hab das gefühl meine lösung ist recht umständlich zu realisieren.

Für jeden etwas stichhaltigen Hinweis gibts nen Freudensprung, versprochen !
Lg

-> wenn ich demnächst anfange, das Script zu schreiben, werd ich nochmal ein paar Ausschnitte posten
bis dahin

nicht ganz...
ich habe das ass als "1" definiert, es ist von der wertigkeit her aber z.T die höchste karte.

_arraysort packt das ass nach ganz hinten..
ich versuch das mal zu fixen sollte doch drin sein

abgesehn davon war dein post aber echt hilfreich, danke dafür
ich hatte mich davor schon an arraysort probiert aber deine aufteilung war der schlüssel

lieben gruß

hm habs nochmal versucht aber vergeblich..

in das obere script möchte ich also eine art

func _compare()
Local $aCheck[$iPlayerNr][6], $aTmp
for $i = 0 to $iPlayerNr -1
$aTmp = _sd_get_hand($i)
$aCheck[$i][0] = $aTmp[0]
for $j = 1 to UBound($aTmp) -1
$aCheck[$i][$j] = $aTmp[$j];aCheck[n][m] -> n = spielerID,[m] = handreturn
Next
Next
_ArrayDisplay($aCheck)

$best_hand = ""
return $BEST_HAND ;die da wäre.......?
endfunc

einbauen

das problem dabei ist dass es sich immer um zufallsvariablen handelt die eine feste position innerhalb des arrays haben..
deshalb versteh ich auch nicht wie du das mit dem _arraySort meinst..

die funktionen sind ein ganzer happen an zeilen, ich dachte eventuell könnte man das mithilfe von stringregexp() beschleunigen?
leider kenn ich mich kaum damit aus und die hilfedatei verrät mir:

Zitat

Caution: bad regular expressions can produce a quasi-infinite loop hogging the CPU, and can even cause a crash.- AutiIt Help

das schreckt mich als laien doch ein wenig ab

ps. da ich mich bereit erkläre einen großteil zeitaufwendiger schreibarbeit zur verfügung zu stellen würde ich mich freuen, wenn weiterentwicklungen (im fall der fälle) hier gepostet werden

der array ist schon sortiert, undzwar nach stärke, je höher der integer an der jeweiligen stelle, desto besser die hand

ich brauch nur eine möglichkeit zu definieren dass

global $aX[2]
$aX[0] = 2
$aX[1] = 3
...
...
...

global $aY[2]
$aY[0] = 2
$aY[1] = 2
...
...
...

schlägt, denn
$aX[0] =$aY[0]
aber $aX[1] > $aY[1]

und das für beliebig viele arrays mit 3 - 6 elementen
ich hab versucht in den 2 versionen die ich geposted hab 2 möglichst unterschiedliche formen zu benutzen, um mit dem llösungsansatz etwas flexibler zu sein

EDIT: ich erläutere nochmal das prinzip.
im ersten post hab ich die version vorgestellt, die $Werte[PlayerId][m*,n**,o***] speichert
m*: der wert der hand. 0 für nichts, 1 für ein paar, 2 für 2 paare, [...] 9 für royal flush
n**:bei zwei paaren daserste paar, bei einem paar der wert des pärchens
o***: bei einem paar die höchste beikarte, bei zweipaaren das zweiet pärchen
und so weiter

im zweiten post hab ich alle m*'s und n**'s etc.zu einem string zusammengefasst, in der reinfolge 1.intger = spieler1, 2. integer = spieler2 (...)

und wieder ein stückchen weiter gekommen =)
der erste angezeigte array ist der gleiche wie in der vorherigen funktion
der zweite array ist umgewandelt, sodass er nurnoch eindimensional ist und in [0] alle [x][0] elemente auflistet, in [1] alle [x][1] etc.pp.

kommt man jetzt evtl mit stringregexp weiter? wie würde eine entsprechende funktion aussehen?

hoffe ihr seid noch aktiv dabei =)

danke für die bisherige und zukünftige hilfe & LG

hab mal nen stückchen kot dazugepackt..

der letzte _arraydisplay befehl soll die siegerhand ausspucken
funktioniert mit dem ersten element auch wunderbar,
nur wie kann ich das 2. und 3. und n.te element überprüfen?

EDIT: wie ichi das seh gibt es für fixe werte zu viele mögliche kombinationen

#include <Array.au3>

;zu testzwecken:
global $iPlayerNr = 3

func _sd_get_hand($playerNr) ;zu testzwecken
Switch($playerNr)
case 0
global $aTmp[3]
$aTmp[0] = 3
$aTmp[1] = 7
$aTmp[2] = 1
return $aTmp
case 1
global $aTmp[4]
$aTmp[0] = 2
$aTmp[1] = 7
$aTmp[2] = 1
$aTmp[3] = 5
return $aTmp
case 2
global $aTmp[5]
$aTmp[0] = 5
$aTmp[1] = 3
$aTmp[2] = 1
$aTmp[3] = 13
$aTmp[4] = 5
return $aTmp
EndSwitch
EndFunc

func _compare ()
Local $aCheck[$iPlayerNr][6]
for $i = 0 to $iPlayerNr -1
$aTmp = _sd_get_hand($i) ;returnwert ist ein eindimensionaler array mit den kartenwerten (siehe oben)
$aCheck[$i][0] = $aTmp[0]
for $j = 1 to UBound($aTmp) -1
$aCheck[$i][$j] = $aTmp[$j] ;aCheck[n][m] -> n = spielerID,[m] = hand
Next
Next

_ArrayDisplay($aCheck,"Gesammelte Hände")

local $iCheck = $aCheck[0][0] ; =3 im test
local $iWinner
local $aHand[6]
for $k = 0 to $iPlayerNr - 1 ;für jeden spieler wird
if $aCheck[$k][0] > $iCheck Then ;der erste wert ausgelesen und wenn > $iCheck
$iCheck = $aCheck[$k][0] ;dann wird $iCheck aktualisiert,
$iWinner = $k ;die Hand wird zum (temporären) sieger erklärt
for $l = 0 to UBound($aCheck) -1 ;und
$aHand[$l] = $aCheck[$k][$l] ;die Hand in $aHand kopiert
Next
EndIf
Next
_ArrayDisplay($aHand, "Siegerhand")
EndFunc

_compare()

ich versteh deine frage nicht
also die 2. dimension besteht aus sovielen elementen wie die hand zum definieren braucht, also für jeden wert einen anderen index (kein string, der alle werte enthält, meinst du das mit der "spalte"?)

da weder spielerzahl noch die elemente der 2. dimension konstant sind kann ich mit

If $aWert[0][0] > $aWert[1][0] Then

keine allgemeingültige funktion erstellen.

habs jedenfalls bisher nicht hinbekommen

hallo liebe gemeinschaft

ich bin nichtmehr ganz fit im kopf und komm zu keiner lösung, daher würde ich mich über unterstützung freuen

ich versuche, pokerhände zu simulieren, dazu speichere ich entsprechende Werte im array $aWert, welcher zweidimensional ist (dimension 1 = spieler zuordnung [0-n], dimension 2 = Informationen über gemachte Hand)

die zweite dimension besteht aus verschiedenvielen elementen, je nach Hand,zwecks eindeutiger zuordnung

beispiel:
ein Straightflush(=7) mit 10 als höchster Karte für spieler "n" wird in 2 elementen definiert: $aWert = [n][7,10]

zwei paare(=2) (zehner und neuner) mit hoher Karte Ass (=1) für spieler "m" ist somit:
$aWert[m][2,10,9,1]

jetzt möchte ich für alle spieler überprüfen, wer denn die beste hand hällt (wer also als ersten wert der 2. dimension den höchsten wert erreicht hat, bei gleichstand sollte der 2. wert überprüft werden, bei gleichstand der dritte, .....

ich hab das gefühl ich hab mir mit meiner array-declarierung selbst ein grab geschaufelt, da ich bemi besten iwllen nicht drauf komme wie ich diese vergleichen soll

so far
lieben gruß

ein kurzer hoffnungsschimmer, weiterzukommen...:D

aber nope, @error bleibt 0

es müsste halt am connection string liegen.

den classname "AD0DB.connection" habe ich aus dem englischen forum übernommen, könnte hier eventuell ein fehler liegen? (ich weiß nicht was da genau passiert aber @error is 0 )

am besten du postest mal den quelltext, vorher kann ich nicht weiter helfen
(hab im obrigen post noch ne alternative hinzugefügt)

processExists überprüft ob der launcher gestartet ist.
allerdings kann die programm.exe so auch ohne launcher gestartet werden, solange der launcher irgendwo im hintergrund offen ist

Edit:
sollte das programm nur über den launcher gestartet werden hätte ich folgende provisorische idee:

in den launcher packst du in die _runProgramm () (die funktion mit der du programm.exe startest) folgendes (brauchst noch #Include <File.au3>):

_FileCreate("launch.temp")
<== hier kommt der befehl run("programm.exe") ==>
filedelete("launch.temp")

das erzeugt die datei launch.temp, bis das programm ausgeführt wird

und im programm überprüfen wir ob die launch.temp existiert (== ob programm.exe über den launcher aufgerufen wurde) mithilfe von

if fileexists($filepath & "launch.temp") = 0 then
msgbox(0,"Upps","Programmstart nur über Launcher möglich")
exit
endif

das hatte ich auch schon versucht (undzwar mit Avi2Dvd) allerdings hatte ich bisher immer probleme damit, den audiostream der videos zu laden. ich konnte also nur das video ohne ton abspielen lassen
außerdem bin ich nicht so richtig hinter die menuerstellung gestiegen

könntest du mir andere programme empfehlen, mit denen ich mir das resultat auch als vorschau anzeigen lassen kann?

hab den con string durch

"User ID=postgres;Password=dbpass;Host=localhost;Port=5432;Database=dbname;"
bzw
"Driver={PostgreSQL};Server=localhost;Port=5432;Database=dbname;Uid=postgres;Pwd=dbpass;"

ersetzt aber der fehler bleibt der gleiche
ich hab schon verschiedene arten ausprobiert aber bekomme stets die gleiche fehlermeldung

update: im englischen forum hab ich folgenden hinweis gefunden:

Zitat

you have to setup a Data Source Name or DSN in ODBC administration

And instead of connecting to a driver...

$oConnstr = "DRIVER={PostgreSQL ANSI};DATABASE=myDb;SERVER=myServer;Port=5432;Uid=myUid;Pwd=myPwd"

...you connect to the DSN....

$oConnstr = "DSN=PostgreSQLxxx;DATABASE=myDb;SERVER=myServer;Port=5432;Uid=myUid;Pwd=myPwd"

leider weiß ich nicht was ich machen soll (erster satz ?)
wie erstelle ich den "DSN in ODBC administration" :pinch:

E: hab herausgefunden wie ich den DSN erstellen kann (Systemsteuerung - Verwaltung) aber auch hier ist enie verbindung zur datenbank nciht möglich
die daten sind aber 100% richtig, da ich über ein anderes programm die daten erfasse

gruß

Hallo liebe Bastler Community

Ich stehe etwas unter Zeitdruck, ein Weihnachtsgeschenk fertig zu stellen, da dachte ich vielleicht gehts mit vereinten kräften schneller voran

Prolog:

Ich habe diverse Videos im .avi und .swf format und möchte diese über ein AutoIT GUI einfach zugänglich machen (am liebsten als activeX element im GUI selbst)

folgende Probleme:
1) nach dem einbinden der .html kann ich das video nciht skalieren, es wird also nur ein bildausschnitt angezeigt (ich hab den JWplayer source code verwendet)

2.) bei meheren stunden laufzeit nehmen die .avi videos viel zu viel speicher in anspruch (weshalb ich gerne auf alternativen wie .swf umsteigen möchte)

So nun zu meinem Ziel:

Das AutoIT GUI soll als eine art DVD Menu verwendet werden, in dem Man mithilfe von Buttons das gewünschte video auswählt um es dann abzuspielen.

Priorität hierbei haben Übersichtlichkeit, Geschwindigkeit und Speicherplatz (da das ganze am ende auf CD(s)/DVD(s) landen wird

Ich würd mich über ideen freuen, welches videoformat ich verwenden sollte, wie ich die videos starten sollte (also über externen player / activeX / ..),Wie ich das Programm lauffähiger mache, Wie ich daten besser auswerte und was auch immer euch in den kopf kommt

bin offen für kritik und hoffe inständig auf feedback / hilfe

bisher nutzen die buttons nur provisorisch der auswahl des videos und der playbutton ($play) um die funktion _vidcreate zu testen

Ich hoffe soweit hab ich mich verständlich ausgedrückt
Vielen Dank im Voraus für jede noch so unnütze Kleinigkeit

lieben Gruß aus Berlin

Hab meine au3 mitgeliefert.

info.ini
@scriptdir & "\data"
==> sektionen "titel" und "url", key = $vidID

Hallo alle beisammen!

Entschuldigt dass ich in dieses forum poste aber der link zum datenbanken subforum funktioniert nicht.

ich versuche mithilfe der funktion

auf eine datenbank zuzugreifen (dbname)

bekomme aber immer den fehler

AutoIt Scripte\test.au3 (11) : ==> The requested action with this object has failed.:
$oConn.Open($db_Settings)
$oConn.Open($db_Settings)^ ERROR

hab den fehler schon häufig gelesen aber noch keine antwort finden können
ich verwende Scite(AI3), ist diese version eventuell nicht dafür geeignet?

gibt es funktionierende UDF's für PostgreSQL befehle? (ich hab aus dem forum eine getestet, bei der ich dasselbe problem hatte)

vielen dank für die antworten im vorraus und lieben gruß