Beiträge von moritz1243

moritz1243

Guten Abend,

ich möchte hier mein Lan-Script präsentieren . Damit ist es möglich einfach lan bzw multiplayer Spiele zu erstellen und da ich gerade ein multiplayer mit der irrlicht engine mache brauchte ich dieses script. Ich hoffe ihr habt noch Ideen oder verbesserungsvorschläge.

Spoiler anzeigen

[autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Global Const $Action_Host = 0
Global Const $Action_Join = 1

[/autoit] [autoit][/autoit] [autoit]

Global Const $PacketBuffer = 128

[/autoit] [autoit][/autoit] [autoit]

Global $Host_Socket

[/autoit] [autoit][/autoit] [autoit]

Global $IP_Host = @IPAddress1

[/autoit] [autoit][/autoit] [autoit]

Global $Socket

[/autoit] [autoit][/autoit] [autoit]

Func _server_start($iAction)

[/autoit] [autoit][/autoit] [autoit]

TCPStartUp()

[/autoit] [autoit][/autoit] [autoit]

If $iAction = $Action_Host Then

;Erstellt einen Socket
$Host_Socket = TCPListen($IP_Host, 65432, 100)
If $Host_Socket = -1 Then Return 0
;Wartet bis ein User gejoint hat
Do
$Socket = TCPAccept($Host_Socket)
Until $Socket >= 0

[/autoit] [autoit][/autoit] [autoit]

Return 1
Else
;Versucht eine Verbindung mit dem Host Server herzustellen
Local $IP_Join = InputBox("IP","Geben sie die Server IP ein")
For $trye = 1 To 10 Step 1
ToolTip("Beitretten... #" & 11 - $trye)
$Socket = TCPConnect($IP_Join, 65432 )
If $Socket <> -1 Then ExitLoop
Sleep(100)
Next
ToolTip("")
Return 1
EndIf

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Server_end()

TCPCloseSocket($Socket)
TCPShutdown()

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Server_send_receive($idata)

TCPSend($Socket, $idata)
If @error then Return 0

Return TCPRecv($Socket, $PacketBuffer, 1)

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _create_lan_packet($iarray)

[/autoit] [autoit][/autoit] [autoit]

Local $string

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($iarray) - 1 Step 1
$string &= $iarray[$i] & "*"
Next

[/autoit] [autoit][/autoit] [autoit]

Return StringToBinary($String)

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _decode_lan_packet($ipacket)

Return StringSplit(BinaryToString($ipacket), "*")

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

moritz1243

Neue Version - Jetzt ist sortieren möglich(nach Alhabet, nach zeilzeit, wie oft gespielt)

moritz1243

Ja das mit der kreisbewegung kommt noch aber erstmal eine sortierfunktion gut wäre auch wenn ihr dann ne skizze oder sowas macht -damit ich das leichter verstehe. - Kreisbewegung bekommt man wenn man in der ini flow_type auf 0 stetzt zumindest geht das in die richtung

moritz1243

Ich habe es jetzt auch angepasst:-) siehe zwei posts vorher

moritz1243

Sehr gut - wo sind denn da fehler drin? - Es wirkt sehr abgehackt. Aber das lässt sich beheben Es wirkt flüssiger wenn du in Zeile 280 und 299 ne Pause einbaust Sleep(10).

So habe jetzt das ganze script der funktion angepasst und es funktioniert jetzt einwandfrei :

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#Include <Constants.au3>
#include <GuiConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <Array.au3>
#include <WinAPI.au3>
#include <GuiConstantsEx.au3>
#include <Color.au3>
#include <IrrlichtPluginUtils.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Opt ('MouseCoordMode', 0)

[/autoit] [autoit][/autoit] [autoit]

HotKeySet('{Esc}', '_Ende')

[/autoit] [autoit][/autoit] [autoit]

Global Const $opt_binken = False
Global Const $opt_spiegelung = True

[/autoit] [autoit][/autoit] [autoit]

Global $Titel = "Spiele Center by Moritz1243 ;-)"

[/autoit] [autoit][/autoit] [autoit]

Global Const $INI = @ScriptDir & "\Info.ini"
Global Const $CONFIG = @ScriptDir & "\Config.ini"
Global Const $Bilder_dir = @ScriptDir & "\Bilder\"
Global Const $Spiel_dir = @ScriptDir & "\Verknüpfungen\"

[/autoit] [autoit][/autoit] [autoit]

Global $datei[1][1], $icon[1], $name[1], $position, $mouse_pos, $mouse_pos_now, $max, $bewegung, $bewegung_letzte
Global $button_autostart, $button_exit
Local $aktuelles_spiel, $letztes_spiel, $spiel_blinken
Local $Icon_Position[1]
Global $Icon_Distance = 30

[/autoit] [autoit][/autoit] [autoit]

Local $msg
;Local $Font = "Comic Sans MS"
Local $Font = "Arial"

[/autoit] [autoit][/autoit] [autoit]

Global $icolor_red = Number(IniRead(@scriptdir & "\config.ini","Config","Hintergrund Farbe Rot",-1))
Global $icolor_green = Number(IniRead(@scriptdir & "\config.ini","Config","Hintergrund Farbe Gruen",-1))
Global $icolor_blue = Number(IniRead(@scriptdir & "\config.ini","Config","Hintergrund Farbe Blau",-1))
If $icolor_red = -1 Then
IniWrite($CONFIG,"Config","Hintergrund Farbe Rot",64)
IniWrite($CONFIG,"Config","Hintergrund Farbe Gruen",64)
IniWrite($CONFIG,"Config","Hintergrund Farbe Blau",255)
$icolor_red = 64
$icolor_green = 64
$icolor_blue = 255
EndIf

[/autoit] [autoit][/autoit] [autoit]

Global $switch[4]

[/autoit] [autoit][/autoit] [autoit]

Global $Reload

[/autoit] [autoit][/autoit] [autoit]

Global $width = 1024
Global $height = 600

[/autoit] [autoit][/autoit] [autoit]

Global $Flow_type = IniRead($CONFIG,"Config","Flow Type",-1)
If $Flow_type = -1 Then
IniWrite($CONFIG,"Config","Flow Type",1)
$Flow_type = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

Global $Window_type = IniRead($CONFIG,"Config","Window_type",-1)
If $Window_type = -1 Then
IniWrite($CONFIG,"Config","Window_type",1)
$Window_type = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

Global $BK_type = IniRead($CONFIG,"Config","BK_type",-1)
If $BK_type = -1 Then
IniWrite($CONFIG,"Config","BK_type",1)
$BK_type = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $Window_type = 0 Then Global $Hwnd = CreateLayeredDevice("SpieleCenter", 0,@DesktopHeight * 1 / 8, @DesktopWidth, @DesktopHeight * 6 / 8,255, 0, 128, 0 )
If $Window_type = 1 Then Global $Hwnd = CreateDevice($EDT_DIRECT3D9, 1024, 600, 16, 0, 0, 0)
If $Window_type = 2 Then Global $Hwnd = CreateDevice($EDT_DIRECT3D9, @DesktopWidth,@DesktopHeight, 32, True, 0, 0)
SetWindowCaption($Titel)
WinSetOnTop($Hwnd, "", 1 )

[/autoit] [autoit][/autoit] [autoit]

Global $Timer_aktive = IniRead($CONFIG,"Config","Timer",-1)
If $Timer_aktive = -1 Then
IniWrite($CONFIG,"Config","Timer",1)
$Timer_aktive = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $compare[2]

[/autoit] [autoit][/autoit] [autoit]

Global $Camera = AddCameraSceneNode(0, 0, 0, 250, 0, 0, 0)

[/autoit] [autoit][/autoit] [autoit]

Global $Light1 = AddLightSceneNode( 0, -1000, 1000, -1000, 0, 0, 0, 0 )
Global $SLight = AddNewSLight( 1, 50, 1, 500, 3000, $ELT_POINT)
SetSLightSpecularColor( $SLight, 0.1, 0.1, 0.1 )
SetLightData( $Light1, $SLight )

[/autoit] [autoit][/autoit] [autoit]

Global $Light2 = AddLightSceneNode( 0, 1000, 1000, 1000, 0, 0, 0, 0 )
SetLightData( $Light2, $SLight )

[/autoit] [autoit][/autoit] [autoit]

Global $Bilder[1]
Global $Node[1]
Global $Node_Back[1]
Global $Bilder_alpha[1]

[/autoit] [autoit][/autoit] [autoit]

Global $search_txt

[/autoit] [autoit][/autoit] [autoit]

Global $Info_Text = AddStaticText("", 422, 200, 602, 400); [, Border [, WordWrap [, iParent [, FillBackground ]]]] )
Global $Button_Einstellungen = AddImage(GetTexture($Bilder_dir & "einstellungen.png"), $width - 58, $height - 58)

[/autoit] [autoit][/autoit] [autoit]

draw(0)
Global $anzahl_spiele
Spiele_laden()

[/autoit] [autoit][/autoit] [autoit]

Global $Particle[1][4]
Global $Node_Particle[1]
Global $Anzahl_Particle = 120
Global $Partikel_onoff = IniRead($CONFIG,"Config","Partikel",-1)
If $Partikel_onoff = -1 Then
IniWrite($CONFIG,"Config","Partikel",1)
$Partikel_onoff = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $Partikel_onoff = 1 Then _particle_create()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

ReDim $icon[$max + 1]
ReDim $name[$max + 1]
ReDim $Icon_Position[$max + 1]

[/autoit] [autoit][/autoit] [autoit]

draw(0)

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable("_bus",12)

[/autoit] [autoit][/autoit] [autoit]

While True

[/autoit] [autoit][/autoit] [autoit]

If WinActive($Titel) Then

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("0D") Then Spiel_starten($aktuelles_spiel)

[/autoit] [autoit][/autoit] [autoit]

; $compare[0] = GUICtrlRead($search)

[/autoit] [autoit][/autoit] [autoit]

If $compare[0] <> $compare[1] Then
$compare[1] = $compare[0]
;If $compare[0] <> "search" And $compare[0] <> "" Then

For $i = 0 To $Max Step 1

$search_txt = $compare[0]

[/autoit] [autoit][/autoit] [autoit]

If StringLeft($datei[$i][2],StringLen($compare[0])) = StringLeft($compare[0],StringLen($compare[0])) Then
$Bewegung = $Icon_Distance * -$i
$position = $bewegung
;draw($Bewegung)
$aktuelles_spiel = Int((-$bewegung + 15) / $Icon_Distance)
If $aktuelles_spiel > $max - 1 Then $aktuelles_spiel = $max - 1
If $aktuelles_spiel < 0 Then $aktuelles_spiel = 0
; GUICtrlSetData($info_titel, $datei[$aktuelles_spiel][2])
ExitLoop
EndIf

Next
;EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed ("01") Then

$mouse_pos_now = MouseGetPos()

If $mouse_pos_now[0] > $width - 58 And $mouse_pos_now[0] < $width - 10 Then
If $mouse_pos_now[1] > $height - 58 And $mouse_pos_now[1] < $height - 10 Then einstellungen()
EndIf

If Mod(-$Bewegung,$Icon_Distance) = 0 Then
SetText($info_text,"")
SetRotation($Node[$aktuelles_spiel],0,0,0)
EndIf

$mouse_pos = MouseGetPos(0)
Local $coll = GetSceneNodeFromScreenCoordinatesBB(MouseGetPos(0),MouseGetPos(1))

For $i = 0 To $max Step 1
If $coll = $Node[$i] Or $coll = $Node_Back[$i] Then Spiel_starten($i)
Next

$position = $bewegung

[/autoit] [autoit][/autoit] [autoit]

Do
$mouse_pos_now = MouseGetPos(0)

[/autoit] [autoit][/autoit] [autoit]

$bewegung = ($mouse_pos_now - $mouse_pos) + $position
If $bewegung < -($max - 1) * $Icon_Distance Then $bewegung = -($max - 1) * $Icon_Distance
If $bewegung > 0 Then $bewegung = 0
ConsoleWrite($bewegung & @CRLF)
$aktuelles_spiel = Int((-$bewegung + 15) / $Icon_Distance)
If $aktuelles_spiel > $max - 1 Then $aktuelles_spiel = $max - 1
If $aktuelles_spiel < 0 Then $aktuelles_spiel = 0

If $aktuelles_spiel <> $letztes_spiel Then

$letztes_spiel = $aktuelles_spiel

EndIf

If $bewegung <> $bewegung_letzte Then
$bewegung_letzte = $bewegung
ConsoleWrite($bewegung & @CRLF)
draw($Bewegung)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Sleep(5)

[/autoit] [autoit][/autoit] [autoit]

Until Not _IsPressed ("01")

[/autoit] [autoit][/autoit] [autoit]

; $position = $bewegung

EndIf

If _IsPressed ("02") Then
$mouse_pos = MouseGetPos(0)
Local $coll = GetSceneNodeFromScreenCoordinatesBB(MouseGetPos(0),MouseGetPos(1))

[/autoit] [autoit][/autoit] [autoit]

_center_aktuelles_Spiel()

$aktuelles_spiel = Int((-$bewegung + 15) / $Icon_Distance)
For $i = 0 To $max Step 1
If $coll = $Node[$i] Then;-329 49 < 70

For $deg = 0 To 180 Step 5
BeginScene(True, True, 0, $icolor_red,$icolor_green,$icolor_blue)
SetRotation($Node[$aktuelles_spiel],0,$deg,0)
SceneDraw()
GuiDraw()
EndScene()
Sleep(5)
Next

Local $process = StringSplit ($datei[$aktuelles_spiel][0], "\")
Local $Spielzeit = IniRead(@ScriptDir & "\info.ini","Log",$process[$process[0]],0)
SetText($info_text,"Spiel: " & $datei[$aktuelles_spiel][2] & @LF _
& @LF _
& "Spielzeit: " & _sec_to_time_string($Spielzeit) & @LF _
& "Gespielt: " & IniRead(@ScriptDir & "\info.ini","Spiele",$datei[$aktuelles_spiel][2],0) - 1 & " mal" & @LF _
& "Dateipfad: " & $datei[$aktuelles_spiel][0])
EndIf

If $coll = $Node_Back[$i] Then
SetText($info_text,"")
For $deg = 180 To 360 Step 5
BeginScene(True, True, 0, $icolor_red,$icolor_green,$icolor_blue)
SetRotation($Node[$aktuelles_spiel],0,$deg,0)
SceneDraw()
GuiDraw()
EndScene()
Sleep(5)
Next
EndIf
Next

EndIf

If _IsPressed("27") then ; Durchblättern links
sleep(50)
_center_aktuelles_Spiel()
ConsoleWrite($bewegung & @CRLF)
If $bewegung=0 then
do
$bewegung -=10
draw($bewegung)
until $bewegung= -($max - 1) * $Icon_Distance
;draw($bewegung)
Else
for $i = 1 to 10
$bewegung += $Icon_Distance / 10
Draw($bewegung)
Sleep(10)
next
EndIf

[/autoit] [autoit][/autoit] [autoit]

endif

If _IsPressed("25") then ; Durchblättern links
sleep(50)
_center_aktuelles_Spiel()
ConsoleWrite($bewegung & @CRLF)
If $bewegung=-($max - 1) * $Icon_Distance then
do
$bewegung +=10
draw($bewegung)
until $bewegung=0
;draw($bewegung)
Else
for $i = 1 to 10
$bewegung -= $Icon_Distance / 10
Draw($bewegung)
Sleep(10)
next
EndIf

[/autoit] [autoit][/autoit] [autoit]

endif
; draw($Bewegung)

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

Sleep(5)

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Spiele_laden()

[/autoit] [autoit][/autoit] [autoit]

Local $search, $desti, $compare

; $Ordner = FileSelectFolder("Ordner wählen", "",2)
; $Ordner = "C:\Dokumente und Einstellungen\Moritz\Desktop\Spiele"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local $isearch = FileFindFirstFile($Spiel_dir & "*.lnk")
If $isearch = -1 Then Return 0

[/autoit] [autoit][/autoit] [autoit]

While True
Local $type = FileFindNextFile($isearch)
If @error Then ExitLoop
$anzahl_spiele += 1
WEnd

FileClose($search)

[/autoit] [autoit][/autoit] [autoit]

$search = FileFindFirstFile($Spiel_dir & "*.lnk")

[/autoit] [autoit][/autoit] [autoit]

While 1

ReDim $datei[$max + 1][5]
ReDim $Bilder[$max + 1]
ReDim $Bilder_alpha[$max + 1]
ReDim $node[$max + 1]
ReDim $Node_Back[$max + 1]

$datei[$max][0] = FileFindNextFile($search)
If @error Then ExitLoop
$datei[$max][1] = $datei[$max][1]
$datei[$max][2] = StringTrimRight ($datei[$max][0], 4)

If IniRead($INI,"Spiele",$datei[$max][2],0) = 0 Then
$Reload = True
IniWrite($INI,"Spiele",$datei[$max][2],1)
EndIf

If StringRight ($datei[$max][0],3) = "lnk" Then
$desti = FileGetShortcut($Spiel_dir & $datei[$max][0])
$datei[$max][0] = $desti[0]
$datei[$max][1] = $desti[1]
$datei[$max][3] = $desti[4]
$datei[$max][4] = $desti[5]
EndIf

$Node[$max] = AddCubeSceneNode(100)
$Node_Back[$max] = AddCubeSceneNode(101,$Node[$max])
SetMaterialTexture($Node_Back[$max], 0, GetTexture($Bilder_dir & "\back.jpg"))
SetPosition($Node_Back[$max],0,0,-5)
SetScale($Node[$max], 1, 1.5, 0.1)
$Bilder[$max] = GetTexture($Bilder_dir & "\" & $datei[$max][2] & ".jpg")
SetMaterialTexture($Node[$max], 0, $Bilder[$max])
SetMaterialFlag($Node[$max], $EMF_LIGHTING, 0 )

SetScale($Node[$max], 1, 1.5, 0.1)

; $Bilder[$max] = _GDIPlus_ImageLoadFromFile($Ordner & "\temp\" & $datei[$max][2] & ".jpg")
; $Bilder_alpha[$max] = _GDIPlus_ImageLoadFromFile($Ordner & "\temp\" & $datei[$max][2] & "_alpha.jpg")

; MsgBox(0,"",$bilder[$max])

$max += 1
ToolTip("Load ... " & Int($max / $anzahl_spiele * 100) & "%")
WEnd

ToolTip("")
; _ArrayDisplay($datei)

FileClose($search)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Draw($wegi)

[/autoit] [autoit][/autoit] [autoit]

BeginScene(True, True, 0, $icolor_red,$icolor_green,$icolor_blue)

; $icolor_red = Mod($icolor_red + random(0,5,1),255)
; $icolor_green = Mod($icolor_green + random(0,5,1),255)
; $icolor_blue = Mod($icolor_blue + random(0,5,1),255)

[/autoit] [autoit][/autoit] [autoit]

Local $pi_div_180 = 4 * ATan(1) / 180
Local $xi, $yi

[/autoit] [autoit][/autoit] [autoit]

Local $aktuelles = Int((-$bewegung + 15) / $Icon_Distance)

[/autoit] [autoit][/autoit] [autoit]

Switch $flow_type

[/autoit] [autoit][/autoit] [autoit]

Case 0

$Icon_Distance = 30

For $i = 0 To $max Step 1

[/autoit] [autoit][/autoit] [autoit]

$Icon_Position[$i] = $wegi + $i * $Icon_Distance

If $Icon_Position[$i] > -90 And $Icon_Position[$i] < 90 Then

SetVisible($Node[$i], 1)

$xi = Sin (-$Icon_Position[$i] * $pi_div_180) * 200
$yi = Cos (-$Icon_Position[$i] * $pi_div_180) * 60

[/autoit] [autoit][/autoit] [autoit]

SetPosition( $Node[$i], $xi / 2 * 8/10,0,$yi)

[/autoit] [autoit][/autoit] [autoit]

Else
SetVisible($Node[$i], 0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 1

$Icon_Distance = 70

For $i = 0 To $max Step 1

; If $Icon_Position[$i] > -90 And $Icon_Position[$i] < 0 Then $bewegung += 1

$Icon_Position[$i] = $wegi + $i * $Icon_Distance

; If $i > $aktuelles Then $Icon_Position[$i] += 50
; If $i < $aktuelles Then $Icon_Position[$i] -= 50

; If $Icon_Position[$i] > -45 And $Icon_Position[$i] < 0 Then
; $bewegung += 1
; ElseIf $Icon_Position[$i] < 45 And $Icon_Position[$i] > 0 Then
; $bewegung -= 1
; EndIf

If $Icon_Position[$i] > -90 And $Icon_Position[$i] < 90 Then

SetRotation($Node[$i],0,-$Icon_Position[$i],0)
SetPosition($Node[$i],$Icon_Position[$i],0,(90 - Abs($Icon_Position[$i])) / 2)

ElseIf $Icon_Position[$i] > 0 Then
SetRotation($Node[$i],0,-90,0)
SetPosition($Node[$i],$Icon_Position[$i],0,0)
Else
SetRotation($Node[$i],0,90,0)
SetPosition($Node[$i],$Icon_Position[$i],0,0)
EndIf

Next

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

SceneDraw( )
GuiDraw( )

[/autoit] [autoit][/autoit] [autoit]

EndScene( )

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Bus()
BeginScene(True, True, 0, $icolor_red,$icolor_green,$icolor_blue)

If $BK_type = 1 Then _bk_change_color()
If $Partikel_onoff = 1 Then _particle()

SceneDraw()
GuiDraw()

[/autoit] [autoit][/autoit] [autoit]

EndScene()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Spiel_starten($iSpiel)
If MsgBox(4,"","Wollen Sie " & $datei[$iSpiel][2] & " wirklich starten?") = 6 Then
IniWrite($INI,"Spiele",$datei[$iSpiel][2],IniRead($INI,"Spiele",$datei[$iSpiel][2],1) + 1)

[/autoit] [autoit][/autoit] [autoit]

ShellExecute($datei[$iSpiel][0],"",$datei[$iSpiel][1])
FileDelete(@scriptdir & "\commandline.cl")
If $Timer_aktive = 1 Then
Local $string = StringSplit ($datei[$iSpiel][0], "\")
FileWrite(@scriptdir & "\commandline.cl",$String[$string[0]])
ShellExecute("timer.exe","",@ScriptDir)
EndIf
Exit
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _bk_change_color()

If $switch[3] = 0 Then
$switch[3] = 5
If $switch[0] = 0 Then
$icolor_red += 1
Else
$icolor_red -= 1
EndIf
If $icolor_red >= 255 Then
$icolor_red = 255
$switch[0] = 1
EndIf
If $icolor_red <= 0 Then
$icolor_red = 0
$switch[0] = 0
EndIf
If $switch[1] = 0 Then
$icolor_green += 2
Else
$icolor_green -= 2
EndIf
If $icolor_green >= 255 Then
$icolor_green = 255
$switch[1] = 1
EndIf
If $icolor_green <= 0 Then
$icolor_green = 0
$switch[1] = 0
EndIf
If $switch[2] = 0 Then
$icolor_blue += 3
Else
$icolor_blue -= 3
EndIf
If $icolor_blue >= 255 Then
$icolor_blue = 255
$switch[2] = 1
EndIf
If $icolor_blue <= 0 Then
$icolor_blue = 0
$switch[2] = 0
EndIf
Else
$switch[3] -= 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Einstellungen()

[/autoit] [autoit][/autoit] [autoit]

AdlibDisable()

[/autoit] [autoit][/autoit] [autoit]

Local $Gui_Ein = GUICreate("Einstellungen",280,400)

Local $check_partikel = GUICtrlCreateCheckbox("Partikel",10,10,200,20)
If IniRead($CONFIG,"Config","Partikel",0) = 1 Then GUICtrlSetState($check_partikel, $GUI_CHECKED)
Local $check_bkchange = GUICtrlCreateCheckbox("Hintergrundfarbenwechsel",10,50,200,20)
If IniRead($CONFIG,"Config","BK_type",0) = 1 Then GUICtrlSetState($check_bkchange, $GUI_CHECKED)
Local $check_timer = GUICtrlCreateCheckbox("Timer",10,90,200,20)
If IniRead($CONFIG,"Config","Timer",0) = 1 Then GUICtrlSetState($check_timer, $GUI_CHECKED)
Local $button_save = GUICtrlCreateButton("Speichern",100,300,80,40)

GUICtrlCreateLabel("BK Farbe",150,135,50,20)
Local $input_c_red = GUICtrlCreateInput($icolor_red,10,130,40,20)
Local $input_c_green = GUICtrlCreateInput($icolor_green,60,130,40,20)
Local $input_c_blue = GUICtrlCreateInput($icolor_blue,110,130,40,20)

Local $set[4]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While True
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $button_save
If GUICtrlRead($check_partikel) = 4 Then
$set[0] = 0
Else
$set[0] = 1
EndIf
IniWrite($CONFIG,"Config","Partikel",$set[0])
If $Partikel_onoff <> $set[0] Then
If $Partikel_onoff = 0 Then
_particle_create()
Else
_particle_delete()
EndIf
$Partikel_onoff = $set[0]
EndIf

If GUICtrlRead($check_bkchange) = 4 Then
$set[1] = 0
Else
$set[1] = 1
EndIf
IniWrite($CONFIG,"Config","BK_type",$set[1])
$BK_type = $set[1]

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($check_timer) = 4 Then
$set[2] = 0
Else
$set[2] = 1
EndIf
IniWrite($CONFIG,"Config","Timer",$set[2])
$Timer_aktive = $set[2]

$icolor_red = Number(GUICtrlRead($input_c_red))
$icolor_green = Number(GUICtrlRead($input_c_green))
$icolor_blue = Number(GUICtrlRead($input_c_blue))
IniWrite(@scriptdir & "\config.ini","Config","Hintergrund Farbe Rot",$icolor_red)
IniWrite(@scriptdir & "\config.ini","Config","Hintergrund Farbe Gruen",$icolor_green)
IniWrite(@scriptdir & "\config.ini","Config","Hintergrund Farbe Blau",$icolor_blue)

EndSwitch
WEnd
GUIDelete($Gui_Ein)
AdlibEnable("_bus",12)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _center_aktuelles_Spiel()

While Mod(-$Bewegung,$Icon_Distance) <> 0
If Mod(-$Bewegung,$Icon_Distance) < $Icon_Distance / 2 Then
$Bewegung += 1
Else
$Bewegung -= 1
EndIf
draw($Bewegung)
; ToolTip($Bewegung & " Mod: " & Mod(-$Bewegung,$Icon_Distance) & " < " & $Icon_Distance)
WEnd

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _particle_create()

[/autoit] [autoit][/autoit] [autoit]

ReDim $Node_Particle[$Anzahl_Particle]
ReDim $Particle[$Anzahl_Particle][4]

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To 119 Step 1

$Node_Particle[$i] = AddCubeSceneNode(Random(1,4,1))
; $Node_Particle[$i] = AddSphereSceneNode(Random(1,2,1), 20)
$particle[$i][0] = Random(-200,200,1)
$particle[$i][1] = Random(-200,200,1)
$particle[$i][2] = Random(-200,300,1)
$particle[$i][3] = Random(1,4,1)
SetPosition($Node_Particle[$i],$particle[$i][0],$particle[$i][1],-$particle[$i][2])
Next

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _particle()

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($particle) - 1 Step 1

If $particle[$i][2] < -300 Then ; Wenn es auf der z-achse kleiner also -200 ist
$particle[$i][0] = Random(-200,200,1)
$particle[$i][1] = Random(-200,200,1)
$particle[$i][2] = Random(200,300,1)
$particle[$i][3] = Random(1,4,1)
Else
$particle[$i][2] -= $particle[$i][3]
EndIf

SetPosition($Node_Particle[$i],$particle[$i][0],$particle[$i][1],-$particle[$i][2])

Next

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _particle_delete()
For $i = 0 To UBound($Node_Particle) - 2 Step 1
Remove($Node_Particle[$i])
Next
SetVisible($Node_Particle[UBound($Node_Particle) - 1],0)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Bild_Suche($iTitel)

[/autoit] [autoit][/autoit] [autoit]

_IEErrorHandlerRegister ()

[/autoit] [autoit][/autoit] [autoit]

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 480, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

_IENavigate ($oIE, "http://images.google.de/")
$oForm = _IEFormGetObjByName($oIE, "f")
$oQuery = _IEFormElementGetObjByName($oForm, "q")
_IEFormElementSetValue($oQuery, $iTitel)
_IEFormSubmit($oForm)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://images.google.de/")
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

GUIDelete()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _sec_to_time_string($isec)
Local $string = Int($isec / 3600) & " h " & Int(Mod($isec,3600) / 60) & " min " & Mod(Mod($isec,3600),60) & " sec"
Return $string
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Ende()
Exit
EndFunc

[/autoit]

moritz1243

Jaja wenns denn jetzt geht dann ist es ja okey

moritz1243

Wäre es nicht sinnvoll das Spiel mit der A2D UdF zu machen? die ist mit directx und unterstützt bilder sprites text und linen und striche dann könnte man vollbild und all sowas machen

moritz1243

Es gibt nur 2 ich habe den download getestet oder?? hat noch jemand anders den fehler

moritz1243

was ist denn wenn man mehr als 4 Bilder hat - es gib sowas ähnliches in der Ini bei Flow_type auf 1 und im script zeil 379 die fehlerhaft variable einfach löschen - geht das so in die richtung?

moritz1243

Kannst du mal nen bsp bild für deine idee machen mit pfeilen, welche die bewegung zeigen?

moritz1243

Update neue Version jetzt mit Optionen

moritz1243

Sehr gute Ideen einigen davon hatte ich auch schon kann mir jemand sagen wie ich das mit den fenster mache, also ob das aktiv ist? Das mit den Optionen mache ich auf jeden Fall und die Sortierung ist zwar etwas komplitzierter aber möglich. Denke das ich das die Tage machen werde.

moritz1243

Update neue Version Jetzt stehen auf der Rückseite der Spiele die informationen - einfach rechtsklick auf das Spiel

moritz1243

Ja ich fand mit etwas bewegung sieht es besser aus Aber ich mache noch ne Option in der ini dafür und später auch noch ein optionsmenü

moritz1243

An der Farbe arbeite ich noch

moritz1243

Klar - Anregungen sind immer gut und ich hoffe auch noch mehr vorschläge zu bekommen.

moritz1243

Komisch, die links sollten gar nicht auf rapidshare gehen - naja jetzt geht es

moritz1243

so ich habe es jetzt nochmal hochgeladen aber dieses mal hier im forum

moritz1243

Oh die hatte ich vergessen geht das compilte script denn - ich habe das script bei rapidshare hochgeladem da die maximale größe hier im forum 1mb ist

moritz1243

Neu Version nun mit der Irrlicht ENgine:-)

Beiträge von moritz1243

Lan UDF für multiplayer spiele

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

SuperMario Gameplay und Download

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher

Game Launcher