Pokémon DamageCalculator 0.5

Hux · Beiträge: 171

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: www.pokemonexperte.dePokemonexperte.de

Einloggen, um Attachments anzusehen!

Marco D. · Verfasst: 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 -->

Die Werte kann ich nicht kontrollieren, aber ich denke mal, dass sie korrekt sind. Bleibt nur die Frage, nach dem Sinn dieses Programms... :wink:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Hey Cool Pokemon :mrgreen:

Ich bin ja mehr der Digimon Fan

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 · Beiträge: 171

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. · Verfasst: Do 09.02.06 14:09

Hux 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

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

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Schüler · Beiträge: 183

Nicht schlecht wenn ich mal Fragen darf wie machst du es dass, das Bild so langsam aufaucht
bzw. wieder verschwindet?

_________________
Das Leben ist ein Scheiß Spiel aber es hat eine hammer Grafik und grenzt an realismuss.

hui1991 · Verfasst: 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:

markieren

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 · Beiträge: 183

jep danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme