Oh, als Erweiterung ist es praktisch
Ich dachte einzeln ohne Tastatur... ups, wer lesen kann ist klar im Vorteil...
Kritik zurückgezogen!
lg chess
Oh, als Erweiterung ist es praktisch
Ich dachte einzeln ohne Tastatur... ups, wer lesen kann ist klar im Vorteil...
Kritik zurückgezogen!
lg chess
Wenns 2 Möglichkeiten zur Steuerung gibt, kanns ja auch 2 Möglichkeiten für Ultimative geben
Oh und noch was:
Wenn man rückwärts in ein Viereck reinfliegt, und immer weiter fliegt, dann wars das für einen, weil man fast sofort alle 3 Leben verliert...
Da vielleicht für 2 - 3 Sekunden nach Kontakt mit einem Viereck unbesiegbar werden wie bei dem PowerUp, nur halt kürzer?
Kenn ich so aus vielen Spielen.
lg chess
Ich finds auch immernoch gut und spiels sogar recht häufig
Aber... Superwaffe auf {ENTER} ist ein bisschen weit weg von WASD und der Maus... Das vielleicht auf {SPACE} (Kann man dann mit dem Daumen zünden) oder auf eine Maustaste legen, fänd ich ganz gut...
Sonst immernoch top, weiter so!
lg chess
Edit:
Ach ja, du wolltest ja was zu der Maussache hören...
Ich kann mir vorstellen, dass manche das ganz praktisch finden, aber ich benutze trotzdem weiterhin WASD.
Aber trotzdem gute Idee, bestimmt für viele nützlich
@Xor IE ist standartmäßig unter Win vorinstalliert, da gibts dann nicht wieder solche Fragen wie "Wo bekomm ich jetzt diesen Feuerfuchs her?" (Ok, das ist sehr unwahrscheinlich... aber möglich! ;))
@Protex Ich bin auch überzeugter Chromler, aber hin und wieder wird halt der Quellcode... wie oben dargestellt...
So, zum Thema:
Wir brauchen Infos vom TE.
lg chess
*hust hust*
Toller Quellcode
Lass mich raten: Google Chrome?
Lad den Quellcode mal mit IE (;)) hoch und schreib vielleicht mal einen kurzen Text, was denn dein Problem ist etc...
lg chess
Naja, ist ja jetzt nicht so eine große Sache...
Kurze Frage an den Threaderöffner: Willst du Hilfestellung oder eine fertige Lösung?
Glaub mir, wenn du dich für Ersteres entscheidest, wirst du auf mehr positive Antworten hoffen können
lg chess
Zitatoder ob man sich mit einer Blume bei seiner Freundin für den netten Abend bedankt.
Ah, ich schenk auch mal Blume meiner Freundin:D
Nein, Raupi hat Recht, das hier ist alles freiwillig.
Und wenn sind solche Amazon-Wunschlisten wirklich besser.
Aber... auch das brauchen wir ja nicht.
WIr helfen, weil wir helfen wollen, nicht weil wir eine Gegenleistung wollen.
Danke und genau, das ist der Sinn hinter der Sache!
Universell... Ursprünglich war das als eine Art... Szenarioplayer geplant, zb. "Du stehst vor einem alten Haus. Die Tür ist offen, auf der Treppe ist Blut. Was tust du?". Sieht man auch noch... Scenario etc..
Ich arbeite gerade an einem Geschichte-Paket und an einem AutoIt-Paket...
Mal gucken, wahrscheinlich wirds Morgen oder in einer Woche fertig, kommt drauf an...
Wird dann hier zum Download bereitgestellt, Rätselpakete von euch sind auch willkommen
lg chess
Also ich hab mir grad das hier zusammengecodet:
$STRING = InputBox("","String:")
$ToRemove = InputBox("","Zu entfernende Zeichenkette:")
$aArray = StringSplit($STRING,$ToRemove)
$counter=1
$Ergebnis=$aArray[$counter]
Do
$counter+=1
$Ergebnis&=$aArray[$counter] & $ToRemove
Until $counter = $aArray[0]
$Ergebnis=StringTrimRight($Ergebnis,1)
MsgBox(0,"",$Ergebnis)
lg chess
edit:
Zu spät & das wusste ich nicht, aber warum einfach, wenns auch umständlich geht?
Google doch mal, obs sowas gibt;)
Also ich hab das hier gefunden, kp obs hilft...
http://www.openligadb.de/
Wenns sowas nicht gibt, dann würde das wirklich sehr umständlich werden.... Hoffen wir mal!
lg chess
Ok, sicher ist sicher.
Lassen wirs, das fällt dann wahrscheinlich wirklich unter die Forumregeln...
Les meinen letzten Post nochmal genau durch, dann hast du zwar nix selbstgeschriebenes, aber... ich denke, dadrauf zu verweisen, ist ok, sonst bitte Beitrag löschen.
lg chess
Ich kenne LoL auch, und weiß, dass sowas ziemlich praktisch wäre, aber... Multiplayer.
Aber... ein Bot automatisiert doch normalerweise Vorgänge? Und illegal kann das hier in diesem Fall nicht sein, da es (zmd für die Viecher im Jungle) eine Android-App gibt, die das runterzählt. Eigentlich sogar mehrere, und im Market landet doch nichts illegales?
lg chess
Wo ist denn auch von Sounds die Rede?;)
Also ich habe von MsgBox() gesprochen...
Wie in meinem Skript, das dann halt da eine MsgBox kommt mit einer Nachricht..
lg chess
Cool, die Idee für eine Superwaffe find ich besser^^
Und... WASD geht, juhu... Beim letzten Mal gings mein ich nich, oder war das ein anderes Skript?;)
Es wird immer besser, mach weiter so, ich bin nämlich schon fast süüüüüchtig!
lg chess
Mit Random war ich auch schon am überlegen, aber...
öhm....
Beziehst du das jetzt auf die Fragenreihenfolge oder die Antwortenreihenfolge?
Weil... bei der Antwortreihenfolge (A,B,C & D) bin ich mir grade ein Random-Konzept am zusammenlegen, aber bei den Fragen sollte das extra nicht so sein, dafür gibts halt verschiedene Quiz-Packets (Bin grad noch welche am schreiben)
Bilder sind auch so eine Sache... da hast du Recht. Passt nicht so wirklich zu WWM... Ich meinte mit dem "vielleicht hilfts dir ja..." eigentlich was spezielles, nämlich die Möglichkeit, individuelle Texte zu definieren, sollte man die Frage richtig oder falsch beantworten... Ich fänds cool, noch mehr Jauch-Feeling, wenn der Typ mit einem redet^^
Und... Tastensteuerung fänd ich cool, also du drückst A, und Anwort A wird ausgewählt
Aber da könnte es dann vielleicht zu Fehlern kommen? Wenn ein Benutzer so auf die Tastatur haut?^^
Naja, musst du wissen!
Und noch was: Genaugenommen hab ich das Skript ja nicht für dich geschrieben oder so, das gammelt hier schon gut ein halbes Jahr auf der HDD rum...
Habs nur wegen dir jetzt hochgeladen, also brauchst du dich nicht bedanken..
Und jetzt wieder zu deinem Skript:
Sieht echt gut aus, hab beim 7. Versuch Jauch besiegt!!
Macht auf jedenfall Spaß das zu spielen!
lg chess
Wird gleich mal ausprobiert, und ich hab mein Skript mal hochgeladen
In meiner Signatur (UniRiddle), vielleicht hilfts dir ja...
lg chess
Ja, macht mir auch Spaß^^
Für das, was xXxProGamerxXx angesprochen hat, bin ich auch!
So eine Superwaffe wär echt cool.... z.B so ein Strahl, der alles mit einem Schlag kaputt haut und durch geht, also nicht bei der ersten Kollision aufhört.
Ist auf jedenfall cool!
lg chess
Ich speichere gerne ein paar Dateien, die meine Skripte erzeugen, im %TEMP%-Ordner... Ist zwar nicht gaaaaaanz so gut, funktioniert aber
lg chess
Söö, wer den Beitrag von Mr.SaxoI3eat gelesen hat (Wer wird Millionär?), der weiß, dass ich auch noch ein Rätselskript hier rum liegen hab
Das Beispielrätsel ist "hingekritzelt", ich denke, ich werde die Tage da mal was Vernünftiges machen... aber es geht ja um das Skript, nicht um die Fragen...
Von miraus könnt ihr auch eigene Scenarien verfassen und sie hier hochladen!
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: chesstiger
Script Function:
---
#ce ----------------------------------------------------------------------------
#include <StaticConstants.au3>
#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
Dim $FOLDERS
$FOLDERS = _FileListToArray(@ScriptDir & "\scenarios\","*",2)
$COUNTER_ONE = 0
$RETURN_FOLDER = ""
Do
$COUNTER_ONE+=1
$RETURN_FOLDER = $RETURN_FOLDER & '"' & $FOLDERS[$COUNTER_ONE] & '"' & @CR
Until $COUNTER_ONE = $FOLDERS[0]
While 1
$NAMEOFSCENE = InputBox("UniRiddle","Scenarioname:")
If @Error = 1 Then Exit
$SCENARIO = "scenarios\" & $NAMEOFSCENE & "\scene.ini"
If FileExists ($SCENARIO) Then ExitLoop
MsgBox(48,"UniRiddle","Scenario existiert nicht!" & @CR & @CR & "Verfügbare Scenarien:" & @CR & $RETURN_FOLDER)
WEnd
$COUNTER = 0
;MAINGUI
$MAINGUI = GUICreate("UniRiddle",300,300)
$NAME = GUICtrlCreateLabel("",15,0,270,25,$SS_CENTER)
GUICtrlSetFont($NAME,16)
$TITLEIMAGE = GUICtrlCreatePic("",100,50,100,100)
$DESCRIPTION = GUICtrlCreateLabel("",10,175,280,50,$SS_CENTER)
$AUTHOR = GUICtrlCreateLabel("",10,225,280,60,$SS_CENTER)
$GO = GUICtrlCreateButton("Beginnen",0,280,275,20)
$CREDITS = GUICtrlCreateButton("Info",275,280,25,20)
GUISetState()
GUICtrlSetData($NAME,IniRead($SCENARIO,"MAIN","NAME",0))
GUICtrlSetImage($TITLEIMAGE,"scenarios\" & $NAMEOFSCENE & "\pic\" & IniRead($SCENARIO,"MAIN","TITLEIMAGE",0))
GUICtrlSetData($DESCRIPTION,IniRead($SCENARIO,"MAIN","DESCRIPTION",0))
GUICtrlSetData($AUTHOR,"Autor: " & IniRead($SCENARIO,"MAIN","AUTHOR",0) & @CRLF & "Version: " & IniRead($SCENARIO,"MAIN","VERSION",0) & @CRLF & "Datum: " & IniRead($SCENARIO,"MAIN","DATE",0))
While 1
$mainmsg = GUIGetMsg()
Select
Case $mainmsg = $GO
ExitLoop
Case $mainmsg = $GUI_EVENT_CLOSE
Exit
Case $mainmsg = $CREDITS
MsgBox(32,"UniRiddle","UniRiddle ist ein Projekt von: chesstiger" & @CR & "Scenario-Ordner einfach nach 'scenarios' verschieben und den Namen bei der Startsequenz eingeben!" & @CR & @CR & "UniRiddle-Version: 0.2")
EndSelect
WEnd
GUIDelete($MAINGUI)
GUICreate("UniRiddle",300,300)
$QUEST = GUICtrlCreateLabel("QUEST",10,10,280,50)
$A = GUICtrlCreateButton("A",0,180,300,30)
$B = GUICtrlCreateButton("B",0,210,300,30)
$C = GUICtrlCreateButton("C",0,240,300,30)
$D = GUICtrlCreateButton("D",0,270,300,30)
$PIC = GUICtrlCreatePic("",100,50,100,100)
GUISetState()
$COUNT_SECTIONS = IniReadSectionNames($SCENARIO)
Do
$COUNTER+=1
_NewQuest("QUEST_" & $COUNTER)
Until $COUNTER = $COUNT_SECTIONS[0] - 1
MsgBox(0,"UniRiddle",IniRead($SCENARIO,"MAIN","WINTEXT",0))
Func _NewQuest($SECTION)
#cs
If IniRead($SCENARIO,$SECTION,"ENABLE",0) = 3 Then
GUICtrlSetState($D,$GUI_DISABLE)
EndIf
If IniRead($SCENARIO,$SECTION,"ENABLE",0) = 2 Then
GUICtrlSetState($A,$GUI_DISABLE)
GUICtrlSetState($D,$GUI_DISABLE)
EndIf
If IniRead($SCENARIO,$SECTION,"ENABLE",0) = 1 Then
GUICtrlSetState($B,$GUI_DISABLE)
GUICtrlSetState($C,$GUI_DISABLE)
GUICtrlSetState($D,$GUI_DISABLE)
EndIf
#ce
GUICtrlSetState($A,$GUI_DISABLE)
GUICtrlSetState($B,$GUI_DISABLE)
GUICtrlSetState($C,$GUI_DISABLE)
GUICtrlSetState($D,$GUI_DISABLE)
If StringInStr(IniRead($SCENARIO,$SECTION,"ENABLE","0"),"A") <> 0 Then GUICtrlSetState($A,$GUI_ENABLE)
If StringInStr(IniRead($SCENARIO,$SECTION,"ENABLE","0"),"B") <> 0 Then GUICtrlSetState($B,$GUI_ENABLE)
If StringInStr(IniRead($SCENARIO,$SECTION,"ENABLE","0"),"C") <> 0 Then GUICtrlSetState($C,$GUI_ENABLE)
If StringInStr(IniRead($SCENARIO,$SECTION,"ENABLE","0"),"D") <> 0 Then GUICtrlSetState($D,$GUI_ENABLE)
If IniRead($SCENARIO,$SECTION,"ENABLE","0") = "" Or IniRead($SCENARIO,$SECTION,"ENABLE","0") = "0" Then
GUICtrlSetState($A,$GUI_ENABLE)
GUICtrlSetState($B,$GUI_ENABLE)
GUICtrlSetState($C,$GUI_ENABLE)
GUICtrlSetState($D,$GUI_ENABLE)
EndIf
GUICtrlSetData($QUEST,IniRead($SCENARIO,$SECTION,"QUEST",0))
GUICtrlSetData($A,IniRead($SCENARIO,$SECTION,"A",0))
GUICtrlSetData($B,IniRead($SCENARIO,$SECTION,"B",0))
GUICtrlSetData($C,IniRead($SCENARIO,$SECTION,"C",0))
GUICtrlSetData($D,IniRead($SCENARIO,$SECTION,"D",0))
GUICtrlSetImage($PIC,"scenarios\" & $NAMEOFSCENE & "\pic\" & IniRead($SCENARIO,$SECTION,"PIC",0))
While 1
$msg = GUIGetMsg()
If WinActive("UniRiddle") <> 0 Then
If _IsPressed("41") Then
$ANSWER = "A"
Sleep(200)
ExitLoop
EndIf
If _IsPressed("42") Then
$ANSWER = "B"
Sleep(200)
ExitLoop
EndIf
If _IsPressed("43") Then
$ANSWER = "C"
Sleep(200)
ExitLoop
EndIf
If _IsPressed("44") Then
$ANSWER = "D"
Sleep(200)
ExitLoop
EndIf
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $A
$ANSWER = "A"
ExitLoop
Case $msg = $B
$ANSWER = "B"
ExitLoop
Case $msg = $C
$ANSWER = "C"
ExitLoop
Case $msg = $D
$ANSWER = "D"
ExitLoop
EndSelect
WEnd
If $ANSWER <> IniRead($SCENARIO,$SECTION,"NEXT",0) Then
If IniRead($SCENARIO,$SECTION,"ENDTEXT","0") = "AUTO" Then
MsgBox(0,"UniRiddle",IniRead($SCENARIO,"MAIN","ENDTEXT_AUTO",0))
ElseIf IniRead($SCENARIO,$SECTION,"ENDTEXT","0") <> "0" THen
MsgBox(0,"UniRiddle",IniRead($SCENARIO,$SECTION,"ENDTEXT",0))
EndIf
If IniRead($SCENARIO,"MAIN","DEBUG","FALSE") <> "TRUE" Then Exit
EndIf
If IniRead($SCENARIO,$SECTION,"NEXTTEXT","0") = "AUTO" Then
MsgBox(0,"UniRiddle",IniRead($SCENARIO,"MAIN","NEXTTEXT_AUTO",0))
ElseIf IniRead($SCENARIO,$SECTION,"NEXTTEXT","0") <> "0" Then
MsgBox(0,"UniRiddle",IniRead($SCENARIO,$SECTION,"NEXTTEXT",0))
EndIf
GUICtrlSetImage($PIC,"")
GUICtrlSetState($A,$GUI_ENABLE)
GUICtrlSetState($B,$GUI_ENABLE)
GUICtrlSetState($C,$GUI_ENABLE)
GUICtrlSetState($D,$GUI_ENABLE)
EndFunc
Edit: Mein Browser will grad nicht, der SC ist verhunzt
Und im Anhang das ganze nochmal als Zipfile, mit Beispiel etc...
lg chess
Update:
Ein klein wenig am Sourcecode verändert und UniRiddleEx.zip hochgeladen.
UniRiddleEx.zip enthält (bis jetzt) nur das Szenario "ctGeschichte", wird aber noch erweitert.
chess
....
Da ich keine Antwort bekommen hab, werd ich mein Skript die Tage mal hochladen
Ich hoffe du hast nichts dagegen, und siehst das nicht als Konkurrenz an....
LG chess