Entwickler-Ecke

Freeware Projekte - Pokémon DamageCalculator 0.5


Hux - Mi 08.02.06 17:21
Titel: Pokémon DamageCalculator 0.5
Hoi Leutz...,

hab zum Spass mal des Teil hier geproggt, weil ich nix zu tun hatte...,
es berechnet den Schaden, den ein Pokemon erhält, wenn es von einem anderen angegriffen wird...
Achja, es geht hier um die Spiele POkemon Rot/Blau/Gelb bis Pokemon Smaragd...
Wer nicht weiss, was des is: http://www.pokemonexperte.dePokemonexperte.de


Marco D. - Mi 08.02.06 17:30
Ich habe früher zwar auch viel mit Pokemon zu tun gehabt (Gelbe und Goldene Edition) und ich habe fast die gesamte Serie gesehen, aber was ist der Ability-Boost? Wenn ich draufdrücke, dann kommt bei mir kein MessageDlg :roll:
Aber das Interface find ich cool --> 8) Die Werte kann ich nicht kontrollieren, aber ich denke mal, dass sie korrekt sind. Bleibt nur die Frage, nach dem Sinn dieses Programms... :wink:


Coder - Mi 08.02.06 17:32
Hey Cool Pokemon :mrgreen:
Ich bin ja mehr der Digimon Fan :D
Ich hab nur die blaue Edition gezockt.
Das Design ist jedenfalls mal net schlecht.
Was mir aufgefallen ist das zu Ability-Boost kein Hilfe angezeigt wird.


Hux - Do 09.02.06 14:08
Hi...!

Danke für euere Kritik und Hilfen...
Das mit dem Ability boost mach ich noch wenn ich zu Hause bin, hab's vergessen...
Also...
Ability Boost, das gibt es glaub erst ab Saphir/Rubin.
Gewaldro z.B. besitzt diese Fähikeit..., wenn es weniger als 1/10 KP hat, werden seine PflanzenAttacken verstärkt...

Greetz by Hux


Marco D. - Do 09.02.06 14:09
user profile iconHux hat folgendes geschrieben:
Hi...!

Danke für euere Kritik und Hilfen...
Das mit dem Ability boost mach ich noch wenn ich zu Hause bin, hab's vergessen...
Also...
Ability Boost, das gibt es glaub erst ab Saphir/Rubin.
Gewaldro z.B. besitzt diese Fähikeit..., wenn es weniger als 1/10 KP hat, werden seine PflanzenAttacken verstärkt...

Greetz by Hux


Achso :D

Ab Rubin/Saphir interessierte ich mich nicht mehr für die kleinen Abzocker aus Japan :mrgreen:


Schüler - Sa 07.10.06 15:26
Nicht schlecht wenn ich mal Fragen darf wie machst du es dass, das Bild so langsam aufaucht
bzw. wieder verschwindet?


hui1991 - Sa 07.10.06 16:25
@Schüler

Das geht ganz einfach, indem du Form1.AlphaBlend auf True setzt und Form1.AlphaBlendValue auf 0 und dann mit diesem COde es auf 255 setzt:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
procedure TForm1.FormPaint(Sender: TObject);
var
  x: Integer;
begin
  Form1.AlphaBlend:=True;
  For x:=0 to 255 do 
    Form1.AlphaBlendValue:=x;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  x:Integer;
begin
  Form1.AlphaBlend:=True;
  For x:=255 downto 0 do 
    Form1.AlphaBlendValue:=x;
end;


Hier ist 255 voll sichtbar und 0 unsichtbar.
Wenn Form1.AlphaBlend, False ist, dann ist es immer sichtbar egal welchen wert Form1.AlphaBlendValue hat. Hoffe das ist für dich geklärt.

MfG
hui1991


Schüler - Sa 07.10.06 16:33
jep danke


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!