eLmoXis
Ultrafunkula
Also,
da ich mich die Tage so sehr gefreut habe, wie hier mit Onlinepiraten umgegangen wird, dachte ich mir, ich zeige mal ein Beispiel, wie viel verdammte arbeit in einem Programm steckt.
Da ich hier kein Code-Feld habe, muss ich die textdatei anhängen, da der Quelltext von folgendem "Spiel", welches ich mal im Hauptfenster gescreent habe, sonst den Post sprengen würde.
sry, falls ich jemandem damit auf den nerv gehe, aber ich wollte das einfach mal loswerden, denn viele downloader die man reden hört argumentieren damit, dass es doch dumm ist, für etwas zu zahlen, was man auch gratis haben kann, aber GRATIS is das sicher nicht, menschen arbeiten tag für tag hart an software und ihr klaut ihnen den Lohn, bzw. den Umsatz!
Achja, ich bin noch totaler Anfänger, darum ist der QT nicht perfekt geschrieben. Aber denkt mal drüber nach, was man damit machen kann, nen knopf drücken zum würfeln und sich die werte ausrechnen lassen, die man halt eintragen will und das wars... Und das sind schon 300.000+ zeichen. -.-
Hier mal was nettes, die Meldung die kam, als den Text posten wollte:
Der Text, den du eingegeben hast, besteht aus 346325 Zeichen und ist damit zu lang. Bitte kürze den Text auf die maximale Länge von 13300 Zeichen.
Hier ein Miniauszug aus dem QT:
{ 1000000142;CommandButton;2970;12210;2200;550;
Name=Kn;
ParentControl=1000000063;
InFrame=Yes;
CaptionML=DEU=Kniffel;
OnPush=VAR
i@1000000000 : Integer;
BEGIN
IF Kn = 0 THEN BEGIN
FOR i := 1 TO 6 DO BEGIN
IF (Augenhaeufigkeit = 5) THEN BEGIN
Kn:= 50;
END;
END;
END;
CurrForm.wuerfeln.ENABLED(FALSE);
// CurrForm.NS.VISIBLE(TRUE);
wurfverwertet:=TRUE;
IF wurfverwertet=TRUE THEN BEGIN
CLEAR(Augenhaeufigkeit);
// CurrForm.NS.ENABLED(TRUE);
END;
CurrForm.L”schbutton18.ENABLED(FALSE);
CurrForm.Kn.ENABLED(FALSE);
Spielerwechsel;
END;
}
{ 1000000143;CommandButton;2970;12760;2200;550;
Name=Ch;
ParentControl=1000000063;
InFrame=Yes;
CaptionML=DEU=Chance;
OnPush=VAR
i@1000000000 : Integer;
BEGIN
IF Ch = 0 THEN BEGIN
FOR i := 1 TO 6 DO
Dieses hier beschreibt die Funktion, die das Spiel wieder auf den Ursprungszustand zurücksetzt, das heißt, das man wieder von vorne anfangen kann, mehr machen die folgenden Zeilen NICHT:
PROCEDURE ButtonReset@1000000026();
BEGIN
UpdateHighscores;
TimerCounter := 10;
CurrForm.L”schbutton.ENABLED(TRUE);
CurrForm.L”schbutton2.ENABLED(TRUE);
CurrForm.L”schbutton3.ENABLED(TRUE);
CurrForm.L”schbutton4.ENABLED(TRUE);
CurrForm.L”schbutton5.ENABLED(TRUE);
CurrForm.L”schbutton6.ENABLED(TRUE);
CurrForm.L”schbutton7.ENABLED(TRUE);
CurrForm.L”schbutton8.ENABLED(TRUE);
CurrForm.L”schbutton9.ENABLED(TRUE);
CurrForm.L”schbutton10.ENABLED(TRUE);
CurrForm.L”schbutton11.ENABLED(TRUE);
CurrForm.L”schbutton12.ENABLED(TRUE);
CurrForm.L”schbutton13.ENABLED(TRUE);
CurrForm.L”schbutton14.ENABLED(TRUE);
CurrForm.L”schbutton15.ENABLED(TRUE);
CurrForm.L”schbutton16.ENABLED(TRUE);
CurrForm.L”schbutton17.ENABLED(TRUE);
CurrForm.L”schbutton18.ENABLED(TRUE);
CurrForm.L”schbutton19.ENABLED(TRUE);
CurrForm.L”schbutton21.ENABLED(TRUE);
CurrForm.L”schbutton22.ENABLED(TRUE);
CurrForm.L”schbutton23.ENABLED(TRUE);
CurrForm.L”schbutton24.ENABLED(TRUE);
CurrForm.L”schbutton25.ENABLED(TRUE);
CurrForm.L”schbutton26.ENABLED(TRUE);
CurrForm.L”schbutton27.ENABLED(TRUE);
CurrForm.einerB2.ENABLED(TRUE);
CurrForm.zweierB2.ENABLED(TRUE);
CurrForm.dreierB2.ENABLED(TRUE);
CurrForm.viererB2.ENABLED(TRUE);
CurrForm.fuenferB2.ENABLED(TRUE);
CurrForm.sechserB2.ENABLED(TRUE);
CurrForm.einerB.ENABLED(TRUE);
CurrForm.zweierB.ENABLED(TRUE);
CurrForm.dreierB.ENABLED(TRUE);
CurrForm.viererB.ENABLED(TRUE);
CurrForm.fuenferB.ENABLED(TRUE);
CurrForm.sechserB.ENABLED(TRUE);
CurrForm.Pasch3.ENABLED(TRUE);
CurrForm.Pasch32.ENABLED(TRUE);
CurrForm.Pasch4.ENABLED(TRUE);
CurrForm.Pasch42.ENABLED(TRUE);
CurrForm.klST.ENABLED(TRUE);
CurrForm.klST2.ENABLED(TRUE);
CurrForm.grST.ENABLED(TRUE);
CurrForm.grST2.ENABLED(TRUE);
CurrForm.FH.ENABLED(TRUE);
CurrForm.FH2.ENABLED(TRUE);
CurrForm.Kn.ENABLED(TRUE);
CurrForm.Kn2.ENABLED(TRUE);
CurrForm.Ch.ENABLED(TRUE);
CurrForm.Ch2.ENABLED(TRUE);
CurrForm.Punktevergleich.VISIBLE(FALSE);
CurrForm.WZ.VISIBLE(TRUE);
CurrForm.wuerfeln.ENABLED(TRUE);
CurrForm.Punkt11.VISIBLE(FALSE);
CurrForm.Punkt12.VISIBLE(FALSE);
CurrForm.Punkt13.VISIBLE(FALSE);
CurrForm.Punkt14.VISIBLE(FALSE);
CurrForm.Punkt15.VISIBLE(FALSE);
CurrForm.Punkt16.VISIBLE(FALSE);
CurrForm.Punkt17.VISIBLE(FALSE);
CurrForm.Punkt21.VISIBLE(FALSE);
CurrForm.Punkt22.VISIBLE(FALSE);
CurrForm.Punkt23.VISIBLE(FALSE);
CurrForm.Punkt24.VISIBLE(FALSE);
CurrForm.Punkt25.VISIBLE(FALSE);
CurrForm.Punkt26.VISIBLE(FALSE);
CurrForm.Punkt27.VISIBLE(FALSE);
CurrForm.Punkt31.VISIBLE(FALSE);
CurrForm.Punkt32.VISIBLE(FALSE);
CurrForm.Punkt33.VISIBLE(FALSE);
CurrForm.Punkt34.VISIBLE(FALSE);
CurrForm.Punkt35.VISIBLE(FALSE);
CurrForm.Punkt36.VISIBLE(FALSE);
CurrForm.Punkt37.VISIBLE(FALSE);
CurrForm.Punkt41.VISIBLE(FALSE);
CurrForm.Punkt42.VISIBLE(FALSE);
CurrForm.Punkt43.VISIBLE(FALSE);
CurrForm.Punkt44.VISIBLE(FALSE);
CurrForm.Punkt45.VISIBLE(FALSE);
CurrForm.Punkt46.VISIBLE(FALSE);
CurrForm.Punkt47.VISIBLE(FALSE);
CurrForm.Punkt51.VISIBLE(FALSE);
CurrForm.Punkt52.VISIBLE(FALSE);
CurrForm.Punkt53.VISIBLE(FALSE);
CurrForm.Punkt54.VISIBLE(FALSE);
CurrForm.Punkt55.VISIBLE(FALSE);
CurrForm.Punkt56.VISIBLE(FALSE);
CurrForm.Punkt57.VISIBLE(FALSE);
CurrForm.Wuerfel1.VISIBLE(FALSE);
CurrForm.Wuerfel1lock.VISIBLE(FALSE);
CurrForm.Wuerfel2.VISIBLE(FALSE);
CurrForm.Wuerfel2lock.VISIBLE(FALSE);
CurrForm.Wuerfel3.VISIBLE(FALSE);
CurrForm.Wuerfel3lock.VISIBLE(FALSE);
CurrForm.Wuerfel4.VISIBLE(FALSE);
CurrForm.Wuerfel4lock.VISIBLE(FALSE);
CurrForm.Wuerfel5.VISIBLE(FALSE);
CurrForm.Wuerfel5lock.VISIBLE(FALSE);
CurrForm.Ampelgrau.VISIBLE(TRUE);
CurrForm.ampelgruen.VISIBLE(FALSE);
CurrForm.Ampelgelb.VISIBLE(FALSE);
CurrForm.ampelrot.VISIBLE(FALSE);
END;
PROCEDURE Punktevergleich@1000000050();
BEGIN
IF (Endstand <> 0) AND (Endstand2 <> 0) THEN
CurrForm.Punktevergleich.VISIBLE(TRUE);
IF (Endstand = 0) AND (Sieger = 0) THEN
CurrForm.Punktevergleich.VISIBLE(TRUE);
END;
da ich mich die Tage so sehr gefreut habe, wie hier mit Onlinepiraten umgegangen wird, dachte ich mir, ich zeige mal ein Beispiel, wie viel verdammte arbeit in einem Programm steckt.
Da ich hier kein Code-Feld habe, muss ich die textdatei anhängen, da der Quelltext von folgendem "Spiel", welches ich mal im Hauptfenster gescreent habe, sonst den Post sprengen würde.
sry, falls ich jemandem damit auf den nerv gehe, aber ich wollte das einfach mal loswerden, denn viele downloader die man reden hört argumentieren damit, dass es doch dumm ist, für etwas zu zahlen, was man auch gratis haben kann, aber GRATIS is das sicher nicht, menschen arbeiten tag für tag hart an software und ihr klaut ihnen den Lohn, bzw. den Umsatz!
Achja, ich bin noch totaler Anfänger, darum ist der QT nicht perfekt geschrieben. Aber denkt mal drüber nach, was man damit machen kann, nen knopf drücken zum würfeln und sich die werte ausrechnen lassen, die man halt eintragen will und das wars... Und das sind schon 300.000+ zeichen. -.-
Hier mal was nettes, die Meldung die kam, als den Text posten wollte:
Der Text, den du eingegeben hast, besteht aus 346325 Zeichen und ist damit zu lang. Bitte kürze den Text auf die maximale Länge von 13300 Zeichen.
Hier ein Miniauszug aus dem QT:
{ 1000000142;CommandButton;2970;12210;2200;550;
Name=Kn;
ParentControl=1000000063;
InFrame=Yes;
CaptionML=DEU=Kniffel;
OnPush=VAR
i@1000000000 : Integer;
BEGIN
IF Kn = 0 THEN BEGIN
FOR i := 1 TO 6 DO BEGIN
IF (Augenhaeufigkeit = 5) THEN BEGIN
Kn:= 50;
END;
END;
END;
CurrForm.wuerfeln.ENABLED(FALSE);
// CurrForm.NS.VISIBLE(TRUE);
wurfverwertet:=TRUE;
IF wurfverwertet=TRUE THEN BEGIN
CLEAR(Augenhaeufigkeit);
// CurrForm.NS.ENABLED(TRUE);
END;
CurrForm.L”schbutton18.ENABLED(FALSE);
CurrForm.Kn.ENABLED(FALSE);
Spielerwechsel;
END;
}
{ 1000000143;CommandButton;2970;12760;2200;550;
Name=Ch;
ParentControl=1000000063;
InFrame=Yes;
CaptionML=DEU=Chance;
OnPush=VAR
i@1000000000 : Integer;
BEGIN
IF Ch = 0 THEN BEGIN
FOR i := 1 TO 6 DO
Dieses hier beschreibt die Funktion, die das Spiel wieder auf den Ursprungszustand zurücksetzt, das heißt, das man wieder von vorne anfangen kann, mehr machen die folgenden Zeilen NICHT:
PROCEDURE ButtonReset@1000000026();
BEGIN
UpdateHighscores;
TimerCounter := 10;
CurrForm.L”schbutton.ENABLED(TRUE);
CurrForm.L”schbutton2.ENABLED(TRUE);
CurrForm.L”schbutton3.ENABLED(TRUE);
CurrForm.L”schbutton4.ENABLED(TRUE);
CurrForm.L”schbutton5.ENABLED(TRUE);
CurrForm.L”schbutton6.ENABLED(TRUE);
CurrForm.L”schbutton7.ENABLED(TRUE);
CurrForm.L”schbutton8.ENABLED(TRUE);
CurrForm.L”schbutton9.ENABLED(TRUE);
CurrForm.L”schbutton10.ENABLED(TRUE);
CurrForm.L”schbutton11.ENABLED(TRUE);
CurrForm.L”schbutton12.ENABLED(TRUE);
CurrForm.L”schbutton13.ENABLED(TRUE);
CurrForm.L”schbutton14.ENABLED(TRUE);
CurrForm.L”schbutton15.ENABLED(TRUE);
CurrForm.L”schbutton16.ENABLED(TRUE);
CurrForm.L”schbutton17.ENABLED(TRUE);
CurrForm.L”schbutton18.ENABLED(TRUE);
CurrForm.L”schbutton19.ENABLED(TRUE);
CurrForm.L”schbutton21.ENABLED(TRUE);
CurrForm.L”schbutton22.ENABLED(TRUE);
CurrForm.L”schbutton23.ENABLED(TRUE);
CurrForm.L”schbutton24.ENABLED(TRUE);
CurrForm.L”schbutton25.ENABLED(TRUE);
CurrForm.L”schbutton26.ENABLED(TRUE);
CurrForm.L”schbutton27.ENABLED(TRUE);
CurrForm.einerB2.ENABLED(TRUE);
CurrForm.zweierB2.ENABLED(TRUE);
CurrForm.dreierB2.ENABLED(TRUE);
CurrForm.viererB2.ENABLED(TRUE);
CurrForm.fuenferB2.ENABLED(TRUE);
CurrForm.sechserB2.ENABLED(TRUE);
CurrForm.einerB.ENABLED(TRUE);
CurrForm.zweierB.ENABLED(TRUE);
CurrForm.dreierB.ENABLED(TRUE);
CurrForm.viererB.ENABLED(TRUE);
CurrForm.fuenferB.ENABLED(TRUE);
CurrForm.sechserB.ENABLED(TRUE);
CurrForm.Pasch3.ENABLED(TRUE);
CurrForm.Pasch32.ENABLED(TRUE);
CurrForm.Pasch4.ENABLED(TRUE);
CurrForm.Pasch42.ENABLED(TRUE);
CurrForm.klST.ENABLED(TRUE);
CurrForm.klST2.ENABLED(TRUE);
CurrForm.grST.ENABLED(TRUE);
CurrForm.grST2.ENABLED(TRUE);
CurrForm.FH.ENABLED(TRUE);
CurrForm.FH2.ENABLED(TRUE);
CurrForm.Kn.ENABLED(TRUE);
CurrForm.Kn2.ENABLED(TRUE);
CurrForm.Ch.ENABLED(TRUE);
CurrForm.Ch2.ENABLED(TRUE);
CurrForm.Punktevergleich.VISIBLE(FALSE);
CurrForm.WZ.VISIBLE(TRUE);
CurrForm.wuerfeln.ENABLED(TRUE);
CurrForm.Punkt11.VISIBLE(FALSE);
CurrForm.Punkt12.VISIBLE(FALSE);
CurrForm.Punkt13.VISIBLE(FALSE);
CurrForm.Punkt14.VISIBLE(FALSE);
CurrForm.Punkt15.VISIBLE(FALSE);
CurrForm.Punkt16.VISIBLE(FALSE);
CurrForm.Punkt17.VISIBLE(FALSE);
CurrForm.Punkt21.VISIBLE(FALSE);
CurrForm.Punkt22.VISIBLE(FALSE);
CurrForm.Punkt23.VISIBLE(FALSE);
CurrForm.Punkt24.VISIBLE(FALSE);
CurrForm.Punkt25.VISIBLE(FALSE);
CurrForm.Punkt26.VISIBLE(FALSE);
CurrForm.Punkt27.VISIBLE(FALSE);
CurrForm.Punkt31.VISIBLE(FALSE);
CurrForm.Punkt32.VISIBLE(FALSE);
CurrForm.Punkt33.VISIBLE(FALSE);
CurrForm.Punkt34.VISIBLE(FALSE);
CurrForm.Punkt35.VISIBLE(FALSE);
CurrForm.Punkt36.VISIBLE(FALSE);
CurrForm.Punkt37.VISIBLE(FALSE);
CurrForm.Punkt41.VISIBLE(FALSE);
CurrForm.Punkt42.VISIBLE(FALSE);
CurrForm.Punkt43.VISIBLE(FALSE);
CurrForm.Punkt44.VISIBLE(FALSE);
CurrForm.Punkt45.VISIBLE(FALSE);
CurrForm.Punkt46.VISIBLE(FALSE);
CurrForm.Punkt47.VISIBLE(FALSE);
CurrForm.Punkt51.VISIBLE(FALSE);
CurrForm.Punkt52.VISIBLE(FALSE);
CurrForm.Punkt53.VISIBLE(FALSE);
CurrForm.Punkt54.VISIBLE(FALSE);
CurrForm.Punkt55.VISIBLE(FALSE);
CurrForm.Punkt56.VISIBLE(FALSE);
CurrForm.Punkt57.VISIBLE(FALSE);
CurrForm.Wuerfel1.VISIBLE(FALSE);
CurrForm.Wuerfel1lock.VISIBLE(FALSE);
CurrForm.Wuerfel2.VISIBLE(FALSE);
CurrForm.Wuerfel2lock.VISIBLE(FALSE);
CurrForm.Wuerfel3.VISIBLE(FALSE);
CurrForm.Wuerfel3lock.VISIBLE(FALSE);
CurrForm.Wuerfel4.VISIBLE(FALSE);
CurrForm.Wuerfel4lock.VISIBLE(FALSE);
CurrForm.Wuerfel5.VISIBLE(FALSE);
CurrForm.Wuerfel5lock.VISIBLE(FALSE);
CurrForm.Ampelgrau.VISIBLE(TRUE);
CurrForm.ampelgruen.VISIBLE(FALSE);
CurrForm.Ampelgelb.VISIBLE(FALSE);
CurrForm.ampelrot.VISIBLE(FALSE);
END;
PROCEDURE Punktevergleich@1000000050();
BEGIN
IF (Endstand <> 0) AND (Endstand2 <> 0) THEN
CurrForm.Punktevergleich.VISIBLE(TRUE);
IF (Endstand = 0) AND (Sieger = 0) THEN
CurrForm.Punktevergleich.VISIBLE(TRUE);
END;