- Beiträge: 137
- Dank erhalten: 2
LegWizard und Legends 3
12 Jahre 2 Monate her #4302
von Boone
Die goldene Regel: Wer das Gold hat macht die Regel!
LegWizard und Legends 3 wurde erstellt von Boone
Hat jemand von euch auch ein Problem mit dem LegWizard bei RI088?
Ich lösche schon immer die R88x-files aus dem Results-Ordner.
Aber der Wizard bricht immer mit "Ungültiger Prozessaufruf ..." ab.
Wenn ihn mehrmals laufen lässt übernimmt er irgendwann die 209er-Werte aber es stehen unsinnige Werte in den Feldern.
Ich benutze Excel 2010 auf Win7 64-Bit.
Gruß
Klaus
Ich lösche schon immer die R88x-files aus dem Results-Ordner.
Aber der Wizard bricht immer mit "Ungültiger Prozessaufruf ..." ab.
Wenn ihn mehrmals laufen lässt übernimmt er irgendwann die 209er-Werte aber es stehen unsinnige Werte in den Feldern.
Ich benutze Excel 2010 auf Win7 64-Bit.
Gruß
Klaus
Die goldene Regel: Wer das Gold hat macht die Regel!
Bitte Anmelden um der Konversation beizutreten.
12 Jahre 2 Monate her #4316
von Boone
Die goldene Regel: Wer das Gold hat macht die Regel!
Boone antwortete auf Aw: LegWizard und Legends 3
Benutzt sonst niemand den LegWizard oder läuft bei euch alles im grünen Bereich?
Bei mir erscheint ein Fehler an dieser Stellen:
'Aus den Character Events werden neu aufgestelle Lairs geholt
Private Sub CEvents(j, Dateiname, ZAT)
With Application.ActiveWorkbook.ActiveSheet
For j = j + 1 To .UsedRange.Rows.Count
' Cecken, ob Lairs "nachgewachsen" sind
Pos = 0
If InStr(.Cells(j, 1).Value, "A young wind parrot comes by") > 0 Then
Pos = 3
Suchtext = "has just set up"
ProbeText = "young wind parrot"
End If
If InStr(.Cells(j, 1).Value, "You notice in the distance") > 0 Then
Pos = 17
Suchtext = "setting up"
ProbeText = "notice in the distance"
End If
If InStr(.Cells(j, 1).Value, "An excited peasant informs you") > 0 Then
Pos = 37
Suchtext = "has set up"
ProbeText = "excited peasant informs"
End If
If Pos > 0 Then
ProbeText = ZAT & Chr(10) & ProbeText
j = j + 1
LangText = Mid(.Cells(j, 1).Value, Pos) & .Cells(j + 1, 1).Value
Pos = InStr(LangText, Suchtext)
###### If Pos = 0 Then Stop -> hier wird der Fehler angezeigt #######
Rasse = Mid(LangText, 1, Pos - 2)
Pos = InStr(LangText, "lair ( F ")
If Pos = 0 Then Stop
Force = Val(Mid(LangText, Pos + 9))
If Force = 0 Then Stop
x = 0
y = 0
GET_PROV x, y, Plane, Dateiname, False, LangText '*UPR*
If x = 0 Or y = 0 Then Stop
INS_FORCE Dateiname, Force, "Lair", ZAT, x, y, Plane, 0, Rasse, "", "", "", ProbeText '*UPR*
End If ' Neues Lair aufgetaucht
' Abbruch bei [=-=-=-=-=
If InStr(.Cells(j, 1).Value, "[=-=-=-=-=") = 1 Then Exit For
Next j
End With 'offenes Text-File
End Sub 'CEvents
Wenn ich in der VB-Konsole dann auf Weioter drücke (F5), erscheint ein Fenster in dem steht:
Fehlerfenster:
Microsoft Visual Basic for Applications
Ungültiger Prozeduraufrufoder ungültiges Argument
Danach geht nichts mehr.
Ich bin selber ja der vollkommen ahnungslose was VB angeht.
Wenn mir da jemand unter die Arme greifen könne wäre das toll.
Gruß
Klaus
Bei mir erscheint ein Fehler an dieser Stellen:
'Aus den Character Events werden neu aufgestelle Lairs geholt
Private Sub CEvents(j, Dateiname, ZAT)
With Application.ActiveWorkbook.ActiveSheet
For j = j + 1 To .UsedRange.Rows.Count
' Cecken, ob Lairs "nachgewachsen" sind
Pos = 0
If InStr(.Cells(j, 1).Value, "A young wind parrot comes by") > 0 Then
Pos = 3
Suchtext = "has just set up"
ProbeText = "young wind parrot"
End If
If InStr(.Cells(j, 1).Value, "You notice in the distance") > 0 Then
Pos = 17
Suchtext = "setting up"
ProbeText = "notice in the distance"
End If
If InStr(.Cells(j, 1).Value, "An excited peasant informs you") > 0 Then
Pos = 37
Suchtext = "has set up"
ProbeText = "excited peasant informs"
End If
If Pos > 0 Then
ProbeText = ZAT & Chr(10) & ProbeText
j = j + 1
LangText = Mid(.Cells(j, 1).Value, Pos) & .Cells(j + 1, 1).Value
Pos = InStr(LangText, Suchtext)
###### If Pos = 0 Then Stop -> hier wird der Fehler angezeigt #######
Rasse = Mid(LangText, 1, Pos - 2)
Pos = InStr(LangText, "lair ( F ")
If Pos = 0 Then Stop
Force = Val(Mid(LangText, Pos + 9))
If Force = 0 Then Stop
x = 0
y = 0
GET_PROV x, y, Plane, Dateiname, False, LangText '*UPR*
If x = 0 Or y = 0 Then Stop
INS_FORCE Dateiname, Force, "Lair", ZAT, x, y, Plane, 0, Rasse, "", "", "", ProbeText '*UPR*
End If ' Neues Lair aufgetaucht
' Abbruch bei [=-=-=-=-=
If InStr(.Cells(j, 1).Value, "[=-=-=-=-=") = 1 Then Exit For
Next j
End With 'offenes Text-File
End Sub 'CEvents
Wenn ich in der VB-Konsole dann auf Weioter drücke (F5), erscheint ein Fenster in dem steht:
Fehlerfenster:
Microsoft Visual Basic for Applications
Ungültiger Prozeduraufrufoder ungültiges Argument
Danach geht nichts mehr.
Ich bin selber ja der vollkommen ahnungslose was VB angeht.
Wenn mir da jemand unter die Arme greifen könne wäre das toll.
Gruß
Klaus
Die goldene Regel: Wer das Gold hat macht die Regel!
Bitte Anmelden um der Konversation beizutreten.
12 Jahre 2 Monate her #4318
von Iljiijli
Iljiijli antwortete auf Aw: LegWizard und Legends 3
Hallo,
Der erste Stop ist ein Check-Stop, soweit ich mich jetzt erinnern kann, kommt der nur bei der Startaufstellung zum tragen, grundsätzlich ist das aber kein Fehler.
Der Fehler ungültiger Prozeduraufruf lässt darauf schließen, dass das Auswertungsfile in Legends 3 wohl geändert wurde ... d.h. man muss sich gegebenenfalls das Parsing, das dem Wizard zugrunde liegt neu ansehen und adaptieren.
D.h. mit anderen Worten - LegendsWizard 2.xx wird für Legends 3 nicht funktionieren. => LegendsWizard 3.0 wird notwendig werden ...
Ich werd mich mal darum kümmern, wenn ich wieder Zeit habe, was aber sicher nicht sehr bald sein wird ...
Gruß
Chri
Der erste Stop ist ein Check-Stop, soweit ich mich jetzt erinnern kann, kommt der nur bei der Startaufstellung zum tragen, grundsätzlich ist das aber kein Fehler.
Der Fehler ungültiger Prozeduraufruf lässt darauf schließen, dass das Auswertungsfile in Legends 3 wohl geändert wurde ... d.h. man muss sich gegebenenfalls das Parsing, das dem Wizard zugrunde liegt neu ansehen und adaptieren.
D.h. mit anderen Worten - LegendsWizard 2.xx wird für Legends 3 nicht funktionieren. => LegendsWizard 3.0 wird notwendig werden ...
Ich werd mich mal darum kümmern, wenn ich wieder Zeit habe, was aber sicher nicht sehr bald sein wird ...
Gruß
Chri
Bitte Anmelden um der Konversation beizutreten.
12 Jahre 2 Monate her #4322
von Boone
Die goldene Regel: Wer das Gold hat macht die Regel!
Boone antwortete auf Aw: LegWizard und Legends 3
Danke Chris für die Antwort.
Vielleicht gibt es ja jemanden der sich noch mit VB auskennt.
Ich frage mich wie man Legends spielen kann ohne LegWizard???
Gruß
Klaus
Vielleicht gibt es ja jemanden der sich noch mit VB auskennt.
Ich frage mich wie man Legends spielen kann ohne LegWizard???
Gruß
Klaus
Die goldene Regel: Wer das Gold hat macht die Regel!
Bitte Anmelden um der Konversation beizutreten.
12 Jahre 2 Monate her #4323
von Iljiijli
Iljiijli antwortete auf Aw: LegWizard und Legends 3
Hallo Klaus
... also ich erinner mich noch daran meine Züge mit Füllfeder auf Papierbögen gemacht zu haben ... Und das Spiel war genauso fesselnd, spannend und erfolgreich
Ich bin sicher es geht auch ohne LegWizard ^^
Und für alle Fälle macht RapidSearch vieles leichter und das ist FreeWare
Schöne Woche
Chri
... also ich erinner mich noch daran meine Züge mit Füllfeder auf Papierbögen gemacht zu haben ... Und das Spiel war genauso fesselnd, spannend und erfolgreich
Ich bin sicher es geht auch ohne LegWizard ^^
Und für alle Fälle macht RapidSearch vieles leichter und das ist FreeWare
Schöne Woche
Chri
Bitte Anmelden um der Konversation beizutreten.
12 Jahre 2 Monate her #4326
von Akir Noon
Nimm das Leben nicht so ernst, du kommst da sowieso nicht lebend raus!
Akir Noon antwortete auf Aw: LegWizard und Legends 3
Hi Leute.
Mit dem LegWizard gibt es nicht nur Probleme mit dem Aufstellungszug...
Da sind einige größere Probleme:
- Specialevents
- Sichtungen
- Provinzdaten
...
Ich habe da schon einige Zeit investiert, das Parsing grade zu ziehen, komme allerdings nur hin und wieder im Büro dazu.
Ich kann schon einige Züge wieder normal einlesen, muss aber noch diverse Events umbauen, habe noch keine 209er getestet usw.
Wenn jemand meine aktuelle Version zum Weiterarbeiten haben mag, einfach bescheid sagen. Ansonsten werde ich da demnächst (wohl ab Oktober) wieder dran weiter arbeiten.
Frage an Michael: Das ist ja dein Code, kein GPL o.ä. im Code notiert... kann ich den Wizard dann hier einfach freigeben? Oder sollte ich das wegen Urheberrechten lieber über dich machen?
Mit dem LegWizard gibt es nicht nur Probleme mit dem Aufstellungszug...
Da sind einige größere Probleme:
- Specialevents
- Sichtungen
- Provinzdaten
...
Ich habe da schon einige Zeit investiert, das Parsing grade zu ziehen, komme allerdings nur hin und wieder im Büro dazu.
Ich kann schon einige Züge wieder normal einlesen, muss aber noch diverse Events umbauen, habe noch keine 209er getestet usw.
Wenn jemand meine aktuelle Version zum Weiterarbeiten haben mag, einfach bescheid sagen. Ansonsten werde ich da demnächst (wohl ab Oktober) wieder dran weiter arbeiten.
Frage an Michael: Das ist ja dein Code, kein GPL o.ä. im Code notiert... kann ich den Wizard dann hier einfach freigeben? Oder sollte ich das wegen Urheberrechten lieber über dich machen?
Nimm das Leben nicht so ernst, du kommst da sowieso nicht lebend raus!
Bitte Anmelden um der Konversation beizutreten.
Moderatoren: Alarion
Ladezeit der Seite: 0.140 Sekunden