wow! respekt! ich wär ja schon froh, hätt ich überhaupt rayquaza *grr.. blödes vieh!*
shiny heisst:das das pokemon sehr selten ist und eine andere farbe hat
mfg chris343
mfg chris343
*hust* Das heißt Himmelturm XD
ich denke mal er hat einfach glück gehabt, das Rayquaza
shiny ist...
ich denke mal er hat einfach glück gehabt, das Rayquaza
shiny ist...
Yep, shiny Gluraks sind auch schwarz. Wenn die deutschen Pokémon-Codes endlich da sind, werd ich mir vermutlich ein shiny Glumanda fangen.
Phoenix
Phoenix
Sieht man schon ob Rayquaza Shiny ist, wenn man es noch nicht angeklickt hat, oder ist das immer grün?
Frag nicht mich, ich hab keine Ahnung.
Aber ich bin froh überhaupt ein Ray zu haben.
Aber ich bin froh überhaupt ein Ray zu haben.
Trotzdem würde ich es gerne wissen. Es ist nämlich ziemlich doof wenn es ständig anklicken müsste um zu erkennen ob es Shiny ist oder nicht. Ich bitte um eine Antwort.
Es ist immer grün, erst wenn man es angeklickt hat ist es shiny, also schwarz.
Ok, danke! Das wollte ich nur wissen. Nicht das ich tausendmal an und aus mache ohne es unzuklicken und dann feststelle ich hätte es doch besser angeklickt. 

Ich werde, wenn ich Rubin das nächste Mal spiele, auch mal versuchen mir ein paar shiny Legendaries zu holen.
@ Chris343:
War dein Rayquaza zufällig shiny oder hast du davor gespeichert und es mehrmals versucht? Falls letzteres, wieviele Versuche hast du dafür gebraucht?
Phoenix
@ Chris343:
War dein Rayquaza zufällig shiny oder hast du davor gespeichert und es mehrmals versucht? Falls letzteres, wieviele Versuche hast du dafür gebraucht?
Phoenix
Also, ich habe es mal versucht:
nach 100 versuchen (und zwei roten Daumen) habe ich nicht mehr gezählt, aber noch weiter versucht, aber ohne Erfolg...
nach 100 versuchen (und zwei roten Daumen) habe ich nicht mehr gezählt, aber noch weiter versucht, aber ohne Erfolg...
Ich war auf meiner saphir bereits 3 tage im gange und nichts. Kein schönes schwarzes shiny rayquaza.
Bei mir war es beim 70ten Versuch shiny. Es hat fast ne halbe Stunde und über 50 Timerbälle gebraucht, bis ich es gefangen hatte. Ich habe auch versucht ein shiny Registeel zufangen, aber es nach über 300 Versuchen dann aufgegeben und so gefangen.
ja das is im himmelturm rechts von flossbrun. und jetzt hilf mir wie is der shyny code für gold und der für gluanda (für X-ploder)
http://wald.heim.at/wienerwald/551818/pokedex/shiny/groudon.gif so sieht das aus
ganz meine meinung ich finds auch nicht schön, aber viele shiny pokémon sehen nicht so toll aus, vor allem die neuen
ich hab shiny
latias
rayquazan
und
kyogre
ich hab ein glück wie kein anderer
oder?
latias
rayquazan
und
kyogre
ich hab ein glück wie kein anderer
oder?
#ifndef Class_UnitH
#define Class_UnitH
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
typedef unsigned long Block[3];
ShortString LongToHex(unsigned long LNum);
class TMemBlock {
public:
unsigned long TrainerID;
ShortString TrainerName, Name;
bool Marker1, Marker2, Marker3, Marker4;
unsigned Item,Species,Happiness;
unsigned long Exp;
unsigned Move1,Move2,Move3,Move4;
unsigned PPUp1,PPUp2,PPUp3,PPUp4;
unsigned Ball, Lv, Route;
bool Pokerus;
unsigned IV_HP, IV_Att, IV_Def, IV_Speed, IV_SpA, IV_SpD;
unsigned Eff_HP, Eff_Att, Eff_Def, Eff_Speed, Eff_SpA, Eff_SpD;
unsigned Cool, Beauty, Cute, Smart,Tough, Feel;
unsigned Nature, Gender;
bool Shiny;
bool Egg;
bool AllRibbons;
int Personality;
unsigned long XORKey;
//-----
bool IsFromFile;
ShortString Pattern;
ShortString CodeBlock[20];
unsigned long CheckSum;
Block BlockA,BlockB,BlockC,BlockD;
unsigned long Map;
void CreateCodeBlock();
void ReadFile(AnsiString FileName);
void ExtractCodeBlock();
void Reset();
int ItemShift(int ItNo);
int SpecShift(int SpNo);
bool IsInGender(int GendMod,int LastMap);
ShortString LetterConvert(char ch);
};
#define Class_UnitH
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
typedef unsigned long Block[3];
ShortString LongToHex(unsigned long LNum);
class TMemBlock {
public:
unsigned long TrainerID;
ShortString TrainerName, Name;
bool Marker1, Marker2, Marker3, Marker4;
unsigned Item,Species,Happiness;
unsigned long Exp;
unsigned Move1,Move2,Move3,Move4;
unsigned PPUp1,PPUp2,PPUp3,PPUp4;
unsigned Ball, Lv, Route;
bool Pokerus;
unsigned IV_HP, IV_Att, IV_Def, IV_Speed, IV_SpA, IV_SpD;
unsigned Eff_HP, Eff_Att, Eff_Def, Eff_Speed, Eff_SpA, Eff_SpD;
unsigned Cool, Beauty, Cute, Smart,Tough, Feel;
unsigned Nature, Gender;
bool Shiny;
bool Egg;
bool AllRibbons;
int Personality;
unsigned long XORKey;
//-----
bool IsFromFile;
ShortString Pattern;
ShortString CodeBlock[20];
unsigned long CheckSum;
Block BlockA,BlockB,BlockC,BlockD;
unsigned long Map;
void CreateCodeBlock();
void ReadFile(AnsiString FileName);
void ExtractCodeBlock();
void Reset();
int ItemShift(int ItNo);
int SpecShift(int SpNo);
bool IsInGender(int GendMod,int LastMap);
ShortString LetterConvert(char ch);
};
#include <IniFiles.hpp>
#include <math.hpp>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form
#include <vcl.h>1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ComboBox1->ItemIndex = 0;
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
ComboBox4->ItemIndex = 0;
ComboBox5->ItemIndex = 0;
ComboBox6->ItemIndex = 0;
ComboBox7->ItemIndex = 0;
ComboBox8->ItemIndex = 0;
ComboBox9->ItemIndex = 0;
ComboBox10->ItemIndex = 0;
ComboBox11->ItemIndex = 0;
ComboBox12->ItemIndex = 0;
ComboBox13->ItemIndex = 0;
ComboBox14->ItemIndex = 0;
ComboBox15->ItemIndex = 0;
ComboBox16->ItemIndex = 0;
ComboBox17->ItemIndex = 0;
TIniFile *OptFile = new TIniFile(ExtractFilePath(Application->ExeName)+IniNm);
bool i=1;
i = OptFile->ReadBool("General","Format",1);
Edit1->Text=IntToStr(OptFile->ReadInteger("Poke","TrainerID1",9892));
Edit25->Text=IntToStr(OptFile->ReadInteger("Poke","TrainerID2",27864));
Edit5->Text= OptFile->ReadString("Poke","TrainerName","XAKEP");
if (i){
RadioButton1->Checked = true;
RadioButton2->Checked = false;
}else{
RadioButton2->Checked = true;
RadioButton1->Checked = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MemBlock.Egg = CheckBox7->Checked;
if (!MemBlock.Egg){
MemBlock.TrainerID=StrToInt(Edit1->Text)*65536+StrToInt(Edit25->Text);
MemBlock.TrainerName = Edit5->Text;
if(Edit6->Text == "")Edit6->Text = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
MemBlock.Name = Edit6->Text;
MemBlock.Species =MemBlock.SpecShift(ComboBox1->ItemIndex+1);
MemBlock.Exp = StrToInt(Edit3->Text);
MemBlock.Happiness = StrToInt(Edit24->Text);
MemBlock.Ball = (ComboBox3->ItemIndex+1)*8;
MemBlock.Route = ComboBox4->ItemIndex;
MemBlock.Lv = StrToInt(Edit2->Text);
MemBlock.Item = MemBlock.ItemShift(ComboBox2->ItemIndex);
MemBlock.Move1 = ComboBox5->ItemIndex;
MemBlock.Move2 = ComboBox6->ItemIndex;
MemBlock.Move3 = ComboBox7->ItemIndex;
MemBlock.Move4 = ComboBox8->ItemIndex;
MemBlock.PPUp1 = ComboBox9->ItemIndex;
MemBlock.PPUp2 = ComboBox10->ItemIndex;
MemBlock.PPUp3 = ComboBox11->ItemIndex;
MemBlock.PPUp4 = ComboBox12->ItemIndex;
MemBlock.IV_HP = StrToInt(Edit4->Text);
MemBlock.IV_Att = StrToInt(Edit8->Text);
MemBlock.IV_Def = StrToInt(Edit10->Text);
MemBlock.IV_SpA = StrToInt(Edit12->Text);
MemBlock.IV_SpD = StrToInt(Edit14->Text);
MemBlock.IV_Speed = StrToInt(Edit16->Text);
MemBlock.Eff_HP = StrToInt(Edit7->Text);
MemBlock.Eff_Att = StrToInt(Edit9->Text);
MemBlock.Eff_Def = StrToInt(Edit11->Text);
MemBlock.Eff_SpA = StrToInt(Edit13->Text);
MemBlock.Eff_SpD = StrToInt(Edit15->Text);
MemBlock.Eff_Speed = StrToInt(Edit17->Text);
MemBlock.Nature = ComboBox13->ItemIndex;
MemBlock.Gender = ComboBox14->ItemIndex;
MemBlock.Cool = StrToInt(Edit18->Text);
MemBlock.Beauty = StrToInt(Edit19->Text);
MemBlock.Cute = StrToInt(Edit20->Text);
MemBlock.Smart = StrToInt(Edit21->Text);
MemBlock.Tough = StrToInt(Edit22->Text);
MemBlock.Feel = StrToInt(Edit23->Text);
MemBlock.Shiny = CheckBox6->Checked;
MemBlock.Pokerus = CheckBox1->Checked ;
MemBlock.Marker1 = CheckBox2->Checked;
MemBlock.Marker2 = CheckBox3->Checked;
MemBlock.Marker3 = CheckBox4->Checked;
MemBlock.Marker4 = CheckBox5->Checked;
MemBlock.Personality = ComboBox17->ItemIndex;
MemBlock.AllRibbons = CheckBox8->Checked;
}
else
{
MemBlock.TrainerID=StrToInt(Edit1->Text)*65536+StrToInt(Edit25->Text);
MemBlock.TrainerName = Edit5->Text;
MemBlock.Name = "EGG";
MemBlock.Species =MemBlock.SpecShift(ComboBox1->ItemIndex+1);
MemBlock.Exp = 0;
MemBlock.Happiness = 0;
MemBlock.Ball = 0;
MemBlock.Route = 0;
MemBlock.Lv = 0;
MemBlock.Item = 0;
MemBlock.Move1 = ComboBox5->ItemIndex;
MemBlock.Move2 = ComboBox6->ItemIndex;
MemBlock.Move3 = ComboBox7->ItemIndex;
MemBlock.Move4 = ComboBox8->ItemIndex;
MemBlock.PPUp1 = 0;
MemBlock.PPUp2 = 0;
MemBlock.PPUp3 = 0;
MemBlock.PPUp4 = 0;
MemBlock.IV_HP = StrToInt(Edit4->Text);
MemBlock.IV_Att = StrToInt(Edit8->Text);
MemBlock.IV_Def = StrToInt(Edit10->Text);
MemBlock.IV_SpA = StrToInt(Edit12->Text);
MemBlock.IV_SpD = StrToInt(Edit14->Text);
MemBlock.IV_Speed = StrToInt(Edit16->Text);
MemBlock.Eff_HP = 0;
MemBlock.Eff_Att = 0;
MemBlock.Eff_Def = 0;
MemBlock.Eff_SpA = 0;
MemBlock.Eff_SpD = 0;
MemBlock.Eff_Speed = 0;
MemBlock.Nature = ComboBox13->ItemIndex;
MemBlock.Gender = ComboBox14->ItemIndex;
MemBlock.Cool = 0;
MemBlock.Beauty = 0;
MemBlock.Cute = 0;
MemBlock.Smart = 0;
MemBlock.Tough = 0;
MemBlock.Feel = 0;
MemBlock.Shiny = CheckBox6->Checked;
MemBlock.Pokerus = CheckBox1->Checked;
MemBlock.Marker1 = CheckBox2->Checked;
MemBlock.Marker2 = CheckBox3->Checked;
MemBlock.Marker3 = CheckBox4->Checked;
MemBlock.Marker4 = CheckBox5->Checked;
MemBlock.Personality = ComboBox17->ItemIndex;
MemBlock.AllRibbons = 0;
}
//
MemBlock.CreateCodeBlock();
//
Memo1->Lines->Clear();
if (RadioButton1->Checked){
for (int i=0;i<20;i++){
Memo1->Lines->Add((AnsiString)LongToHex(33751204+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+":"+MemBlock.CodeBlock);
}}else
{
Memo1->Lines->Add("000025BB 000A");
Memo1->Lines->Add("1000042C 0007");
Memo1->Lines->Add("");
AnsiString a,b;
for (int i=0;i<20;i++){
a="";
b="";
a=a+MemBlock.CodeBlock[5]+MemBlock.CodeBlock[6]+MemBlock.CodeBlock[7]+MemBlock.CodeBlock[8];
b=b+MemBlock.CodeBlock[1]+MemBlock.CodeBlock[2]+MemBlock.CodeBlock[3]+MemBlock.CodeBlock[4];
Memo1->Lines->Add((AnsiString)LongToHex(2181234852+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+" "+a);
Memo1->Lines->Add((AnsiString)LongToHex(2181234854+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+" "+b);}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit4->Text = IntToStr(31);
Edit7->Text = IntToStr(255);
Edit8->Text = IntToStr(31);
Edit9->Text = IntToStr(255);
Edit10->Text = IntToStr(31);
Edit11->Text = IntToStr(255);
Edit12->Text = IntToStr(31);
Edit13->Text = IntToStr(255);
Edit14->Text = IntToStr(31);
Edit15->Text = IntToStr(255);
Edit16->Text = IntToStr(31);
Edit17->Text = IntToStr(255);
ComboBox13->ItemIndex=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ComboBox9->ItemIndex = 3;
ComboBox10->ItemIndex = 3;
ComboBox11->ItemIndex = 3;
ComboBox12->ItemIndex = 3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
CheckBox2->Checked = 1;
CheckBox3->Checked = 1;
CheckBox4->Checked = 1;
CheckBox5->Checked = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
CheckBox2->Checked = 0;
CheckBox3->Checked = 0;
CheckBox4->Checked = 0;
CheckBox5->Checked = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox7Click(TObject *Sender)
{
ComboBox2->Enabled = !(CheckBox7->Checked);
ComboBox3->Enabled = !(CheckBox7->Checked);
ComboBox4->Enabled = !(CheckBox7->Checked);
ComboBox9->Enabled = !(CheckBox7->Checked);
ComboBox10->Enabled = !(CheckBox7->Checked);
ComboBox11->Enabled = !(CheckBox7->Checked);
ComboBox12->Enabled = !(CheckBox7->Checked);
CheckBox8->Enabled = !(CheckBox7->Checked);
Edit3->Enabled = !(CheckBox7->Checked);
Edit24->Enabled = !(CheckBox7->Checked);
Edit7->Enabled = !(CheckBox7->Checked);
Edit9->Enabled = !(CheckBox7->Checked);
Edit2->Enabled = !(CheckBox7->Checked);
Edit6->Enabled = !(CheckBox7->Checked);
Edit11->Enabled = !(CheckBox7->Checked);
Edit13->Enabled = !(CheckBox7->Checked);
Edit15->Enabled = !(CheckBox7->Checked);
Edit17->Enabled = !(CheckBox7->Checked);
Edit18->Enabled = !(CheckBox7->Checked);
Edit19->Enabled = !(CheckBox7->Checked);
Edit20->Enabled = !(CheckBox7->Checked);
Edit21->Enabled = !(CheckBox7->Checked);
Edit22->Enabled = !(CheckBox7->Checked);
Edit23->Enabled = !(CheckBox7->Checked);
Button4->Enabled = !(CheckBox7->Checked);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *OptFile = new TIniFile(ExtractFilePath(Application->ExeName)+IniNm);
bool i=0;
i=RadioButton1->Checked;
OptFile->WriteBool("General","Format",i);
OptFile->WriteInteger("Poke","TrainerID1",StrToInt(Edit1->Text));
OptFile->WriteInteger("Poke","TrainerID2",StrToInt(Edit25->Text));
OptFile->WriteString("Poke","TrainerName",Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Application->MessageBoxA("This will reset ALL values. Continue?","R/S calc",MB_OKCANCEL)==IDOK){
//if (Application->MessageBoxA("ÂÑÅ çíà÷åíèÿ áóäóò ñáðîøåíû. Ïðîäîëæèòü?","R/S calc",MB_OKCANCEL)==IDOK){
ComboBox1->ItemIndex = 0;
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
ComboBox4->ItemIndex = 0;
ComboBox5->ItemIndex = 0;
ComboBox6->ItemIndex = 0;
ComboBox7->ItemIndex = 0;
ComboBox8->ItemIndex = 0;
ComboBox9->ItemIndex = 0;
ComboBox10->ItemIndex = 0;
ComboBox11->ItemIndex = 0;
ComboBox12->ItemIndex = 0;
ComboBox13->ItemIndex = 0;
ComboBox14->ItemIndex = 0;
ComboBox15->ItemIndex = 0;
ComboBox16->ItemIndex = 0;
Edit1->Text="0";
Edit2->Text="1";
Edit3->Text="0";
Edit4->Text="0";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="0";
Edit8->Text="0";
Edit9->Text="0";
Edit10->Text="0";
Edit11->Text="0";
Edit12->Text="0";
Edit13->Text="0";
Edit14->Text="0";
Edit15->Text="0";
Edit16->Text="0";
Edit17->Text="0";
Edit18->Text="0";
Edit19->Text="0";
Edit20->Text="0";
Edit21->Text="0";
Edit22->Text="0";
Edit23->Text="0";
Edit24->Text="0";
Edit25->Text="0";
CheckBox1->Checked = false;
CheckBox2->Checked = false;
CheckBox3->Checked = false;
CheckBox4->Checked = false;
CheckBox5->Checked = false;
CheckBox6->Checked = false;
CheckBox7->Checked = false;
}
}
//---------------------------------------------------------------------------
#include <math.hpp>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form
#include <vcl.h>1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ComboBox1->ItemIndex = 0;
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
ComboBox4->ItemIndex = 0;
ComboBox5->ItemIndex = 0;
ComboBox6->ItemIndex = 0;
ComboBox7->ItemIndex = 0;
ComboBox8->ItemIndex = 0;
ComboBox9->ItemIndex = 0;
ComboBox10->ItemIndex = 0;
ComboBox11->ItemIndex = 0;
ComboBox12->ItemIndex = 0;
ComboBox13->ItemIndex = 0;
ComboBox14->ItemIndex = 0;
ComboBox15->ItemIndex = 0;
ComboBox16->ItemIndex = 0;
ComboBox17->ItemIndex = 0;
TIniFile *OptFile = new TIniFile(ExtractFilePath(Application->ExeName)+IniNm);
bool i=1;
i = OptFile->ReadBool("General","Format",1);
Edit1->Text=IntToStr(OptFile->ReadInteger("Poke","TrainerID1",9892));
Edit25->Text=IntToStr(OptFile->ReadInteger("Poke","TrainerID2",27864));
Edit5->Text= OptFile->ReadString("Poke","TrainerName","XAKEP");
if (i){
RadioButton1->Checked = true;
RadioButton2->Checked = false;
}else{
RadioButton2->Checked = true;
RadioButton1->Checked = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MemBlock.Egg = CheckBox7->Checked;
if (!MemBlock.Egg){
MemBlock.TrainerID=StrToInt(Edit1->Text)*65536+StrToInt(Edit25->Text);
MemBlock.TrainerName = Edit5->Text;
if(Edit6->Text == "")Edit6->Text = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
MemBlock.Name = Edit6->Text;
MemBlock.Species =MemBlock.SpecShift(ComboBox1->ItemIndex+1);
MemBlock.Exp = StrToInt(Edit3->Text);
MemBlock.Happiness = StrToInt(Edit24->Text);
MemBlock.Ball = (ComboBox3->ItemIndex+1)*8;
MemBlock.Route = ComboBox4->ItemIndex;
MemBlock.Lv = StrToInt(Edit2->Text);
MemBlock.Item = MemBlock.ItemShift(ComboBox2->ItemIndex);
MemBlock.Move1 = ComboBox5->ItemIndex;
MemBlock.Move2 = ComboBox6->ItemIndex;
MemBlock.Move3 = ComboBox7->ItemIndex;
MemBlock.Move4 = ComboBox8->ItemIndex;
MemBlock.PPUp1 = ComboBox9->ItemIndex;
MemBlock.PPUp2 = ComboBox10->ItemIndex;
MemBlock.PPUp3 = ComboBox11->ItemIndex;
MemBlock.PPUp4 = ComboBox12->ItemIndex;
MemBlock.IV_HP = StrToInt(Edit4->Text);
MemBlock.IV_Att = StrToInt(Edit8->Text);
MemBlock.IV_Def = StrToInt(Edit10->Text);
MemBlock.IV_SpA = StrToInt(Edit12->Text);
MemBlock.IV_SpD = StrToInt(Edit14->Text);
MemBlock.IV_Speed = StrToInt(Edit16->Text);
MemBlock.Eff_HP = StrToInt(Edit7->Text);
MemBlock.Eff_Att = StrToInt(Edit9->Text);
MemBlock.Eff_Def = StrToInt(Edit11->Text);
MemBlock.Eff_SpA = StrToInt(Edit13->Text);
MemBlock.Eff_SpD = StrToInt(Edit15->Text);
MemBlock.Eff_Speed = StrToInt(Edit17->Text);
MemBlock.Nature = ComboBox13->ItemIndex;
MemBlock.Gender = ComboBox14->ItemIndex;
MemBlock.Cool = StrToInt(Edit18->Text);
MemBlock.Beauty = StrToInt(Edit19->Text);
MemBlock.Cute = StrToInt(Edit20->Text);
MemBlock.Smart = StrToInt(Edit21->Text);
MemBlock.Tough = StrToInt(Edit22->Text);
MemBlock.Feel = StrToInt(Edit23->Text);
MemBlock.Shiny = CheckBox6->Checked;
MemBlock.Pokerus = CheckBox1->Checked ;
MemBlock.Marker1 = CheckBox2->Checked;
MemBlock.Marker2 = CheckBox3->Checked;
MemBlock.Marker3 = CheckBox4->Checked;
MemBlock.Marker4 = CheckBox5->Checked;
MemBlock.Personality = ComboBox17->ItemIndex;
MemBlock.AllRibbons = CheckBox8->Checked;
}
else
{
MemBlock.TrainerID=StrToInt(Edit1->Text)*65536+StrToInt(Edit25->Text);
MemBlock.TrainerName = Edit5->Text;
MemBlock.Name = "EGG";
MemBlock.Species =MemBlock.SpecShift(ComboBox1->ItemIndex+1);
MemBlock.Exp = 0;
MemBlock.Happiness = 0;
MemBlock.Ball = 0;
MemBlock.Route = 0;
MemBlock.Lv = 0;
MemBlock.Item = 0;
MemBlock.Move1 = ComboBox5->ItemIndex;
MemBlock.Move2 = ComboBox6->ItemIndex;
MemBlock.Move3 = ComboBox7->ItemIndex;
MemBlock.Move4 = ComboBox8->ItemIndex;
MemBlock.PPUp1 = 0;
MemBlock.PPUp2 = 0;
MemBlock.PPUp3 = 0;
MemBlock.PPUp4 = 0;
MemBlock.IV_HP = StrToInt(Edit4->Text);
MemBlock.IV_Att = StrToInt(Edit8->Text);
MemBlock.IV_Def = StrToInt(Edit10->Text);
MemBlock.IV_SpA = StrToInt(Edit12->Text);
MemBlock.IV_SpD = StrToInt(Edit14->Text);
MemBlock.IV_Speed = StrToInt(Edit16->Text);
MemBlock.Eff_HP = 0;
MemBlock.Eff_Att = 0;
MemBlock.Eff_Def = 0;
MemBlock.Eff_SpA = 0;
MemBlock.Eff_SpD = 0;
MemBlock.Eff_Speed = 0;
MemBlock.Nature = ComboBox13->ItemIndex;
MemBlock.Gender = ComboBox14->ItemIndex;
MemBlock.Cool = 0;
MemBlock.Beauty = 0;
MemBlock.Cute = 0;
MemBlock.Smart = 0;
MemBlock.Tough = 0;
MemBlock.Feel = 0;
MemBlock.Shiny = CheckBox6->Checked;
MemBlock.Pokerus = CheckBox1->Checked;
MemBlock.Marker1 = CheckBox2->Checked;
MemBlock.Marker2 = CheckBox3->Checked;
MemBlock.Marker3 = CheckBox4->Checked;
MemBlock.Marker4 = CheckBox5->Checked;
MemBlock.Personality = ComboBox17->ItemIndex;
MemBlock.AllRibbons = 0;
}
//
MemBlock.CreateCodeBlock();
//
Memo1->Lines->Clear();
if (RadioButton1->Checked){
for (int i=0;i<20;i++){
Memo1->Lines->Add((AnsiString)LongToHex(33751204+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+":"+MemBlock.CodeBlock);
}}else
{
Memo1->Lines->Add("000025BB 000A");
Memo1->Lines->Add("1000042C 0007");
Memo1->Lines->Add("");
AnsiString a,b;
for (int i=0;i<20;i++){
a="";
b="";
a=a+MemBlock.CodeBlock[5]+MemBlock.CodeBlock[6]+MemBlock.CodeBlock[7]+MemBlock.CodeBlock[8];
b=b+MemBlock.CodeBlock[1]+MemBlock.CodeBlock[2]+MemBlock.CodeBlock[3]+MemBlock.CodeBlock[4];
Memo1->Lines->Add((AnsiString)LongToHex(2181234852+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+" "+a);
Memo1->Lines->Add((AnsiString)LongToHex(2181234854+i*4+80*ComboBox16->ItemIndex+2400*ComboBox15->ItemIndex)+" "+b);}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit4->Text = IntToStr(31);
Edit7->Text = IntToStr(255);
Edit8->Text = IntToStr(31);
Edit9->Text = IntToStr(255);
Edit10->Text = IntToStr(31);
Edit11->Text = IntToStr(255);
Edit12->Text = IntToStr(31);
Edit13->Text = IntToStr(255);
Edit14->Text = IntToStr(31);
Edit15->Text = IntToStr(255);
Edit16->Text = IntToStr(31);
Edit17->Text = IntToStr(255);
ComboBox13->ItemIndex=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ComboBox9->ItemIndex = 3;
ComboBox10->ItemIndex = 3;
ComboBox11->ItemIndex = 3;
ComboBox12->ItemIndex = 3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
CheckBox2->Checked = 1;
CheckBox3->Checked = 1;
CheckBox4->Checked = 1;
CheckBox5->Checked = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
CheckBox2->Checked = 0;
CheckBox3->Checked = 0;
CheckBox4->Checked = 0;
CheckBox5->Checked = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox7Click(TObject *Sender)
{
ComboBox2->Enabled = !(CheckBox7->Checked);
ComboBox3->Enabled = !(CheckBox7->Checked);
ComboBox4->Enabled = !(CheckBox7->Checked);
ComboBox9->Enabled = !(CheckBox7->Checked);
ComboBox10->Enabled = !(CheckBox7->Checked);
ComboBox11->Enabled = !(CheckBox7->Checked);
ComboBox12->Enabled = !(CheckBox7->Checked);
CheckBox8->Enabled = !(CheckBox7->Checked);
Edit3->Enabled = !(CheckBox7->Checked);
Edit24->Enabled = !(CheckBox7->Checked);
Edit7->Enabled = !(CheckBox7->Checked);
Edit9->Enabled = !(CheckBox7->Checked);
Edit2->Enabled = !(CheckBox7->Checked);
Edit6->Enabled = !(CheckBox7->Checked);
Edit11->Enabled = !(CheckBox7->Checked);
Edit13->Enabled = !(CheckBox7->Checked);
Edit15->Enabled = !(CheckBox7->Checked);
Edit17->Enabled = !(CheckBox7->Checked);
Edit18->Enabled = !(CheckBox7->Checked);
Edit19->Enabled = !(CheckBox7->Checked);
Edit20->Enabled = !(CheckBox7->Checked);
Edit21->Enabled = !(CheckBox7->Checked);
Edit22->Enabled = !(CheckBox7->Checked);
Edit23->Enabled = !(CheckBox7->Checked);
Button4->Enabled = !(CheckBox7->Checked);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *OptFile = new TIniFile(ExtractFilePath(Application->ExeName)+IniNm);
bool i=0;
i=RadioButton1->Checked;
OptFile->WriteBool("General","Format",i);
OptFile->WriteInteger("Poke","TrainerID1",StrToInt(Edit1->Text));
OptFile->WriteInteger("Poke","TrainerID2",StrToInt(Edit25->Text));
OptFile->WriteString("Poke","TrainerName",Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Application->MessageBoxA("This will reset ALL values. Continue?","R/S calc",MB_OKCANCEL)==IDOK){
//if (Application->MessageBoxA("ÂÑÅ çíà÷åíèÿ áóäóò ñáðîøåíû. Ïðîäîëæèòü?","R/S calc",MB_OKCANCEL)==IDOK){
ComboBox1->ItemIndex = 0;
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
ComboBox4->ItemIndex = 0;
ComboBox5->ItemIndex = 0;
ComboBox6->ItemIndex = 0;
ComboBox7->ItemIndex = 0;
ComboBox8->ItemIndex = 0;
ComboBox9->ItemIndex = 0;
ComboBox10->ItemIndex = 0;
ComboBox11->ItemIndex = 0;
ComboBox12->ItemIndex = 0;
ComboBox13->ItemIndex = 0;
ComboBox14->ItemIndex = 0;
ComboBox15->ItemIndex = 0;
ComboBox16->ItemIndex = 0;
Edit1->Text="0";
Edit2->Text="1";
Edit3->Text="0";
Edit4->Text="0";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="0";
Edit8->Text="0";
Edit9->Text="0";
Edit10->Text="0";
Edit11->Text="0";
Edit12->Text="0";
Edit13->Text="0";
Edit14->Text="0";
Edit15->Text="0";
Edit16->Text="0";
Edit17->Text="0";
Edit18->Text="0";
Edit19->Text="0";
Edit20->Text="0";
Edit21->Text="0";
Edit22->Text="0";
Edit23->Text="0";
Edit24->Text="0";
Edit25->Text="0";
CheckBox1->Checked = false;
CheckBox2->Checked = false;
CheckBox3->Checked = false;
CheckBox4->Checked = false;
CheckBox5->Checked = false;
CheckBox6->Checked = false;
CheckBox7->Checked = false;
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include "Class_Unit.h"
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
const AnsiString IniNm="rs-calc.ini";
class TForm1 : public TForm
{
__published: // IDE-managed Components
TGroupBox *GroupBox1;
TEdit *Edit1;
TLabel *Label1;
TLabel *Label2;
TEdit *Edit5;
TLabel *Label3;
TEdit *Edit6;
TLabel *Label4;
TComboBox *ComboBox1;
TGroupBox *GroupBox2;
TMemo *Memo1;
TGroupBox *GroupBox3;
TComboBox *ComboBox2;
TLabel *Label5;
TComboBox *ComboBox3;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TComboBox *ComboBox4;
TEdit *Edit2;
TLabel *Label9;
TComboBox *ComboBox5;
TLabel *Label10;
TComboBox *ComboBox6;
TLabel *Label11;
TComboBox *ComboBox7;
TLabel *Label12;
TComboBox *ComboBox8;
TLabel *Label13;
TComboBox *ComboBox9;
TComboBox *ComboBox10;
TComboBox *ComboBox11;
TComboBox *ComboBox12;
TLabel *Label14;
TLabel *Label15;
TLabel *Label16;
TLabel *Label17;
TLabel *Label18;
TEdit *Edit3;
TLabel *Label19;
TGroupBox *GroupBox4;
TEdit *Edit4;
TLabel *Label20;
TEdit *Edit7;
TLabel *Label21;
TLabel *Label22;
TLabel *Label23;
TEdit *Edit8;
TEdit *Edit9;
TLabel *Label24;
TEdit *Edit10;
TEdit *Edit11;
TLabel *Label25;
TEdit *Edit12;
TEdit *Edit13;
TLabel *Label26;
TEdit *Edit14;
TEdit *Edit15;
TLabel *Label27;
TEdit *Edit16;
TEdit *Edit17;
TLabel *Label28;
TEdit *Edit18;
TLabel *Label29;
TEdit *Edit19;
TLabel *Label30;
TEdit *Edit20;
TLabel *Label31;
TEdit *Edit21;
TLabel *Label32;
TEdit *Edit22;
TLabel *Label33;
TEdit *Edit23;
TLabel *Label34;
TCheckBox *CheckBox1;
TGroupBox *GroupBox5;
TCheckBox *CheckBox2;
TCheckBox *CheckBox3;
TCheckBox *CheckBox4;
TCheckBox *CheckBox5;
TCheckBox *CheckBox6;
TComboBox *ComboBox13;
TLabel *Label35;
TLabel *Label36;
TGroupBox *GroupBox6;
TButton *Button1;
TButton *Button2;
TButton *Button3;
TGroupBox *GroupBox7;
TMainMenu *MainMenu1;
TEdit *Edit24;
TLabel *Label40;
TEdit *Edit25;
TButton *Button4;
TGroupBox *GroupBox8;
TComboBox *ComboBox15;
TLabel *Label41;
TLabel *Label42;
TComboBox *ComboBox16;
TButton *Button5;
TButton *Button6;
TCheckBox *CheckBox7;
TRadioButton *RadioButton1;
TRadioButton *RadioButton2;
TCheckBox *CheckBox8;
TComboBox *ComboBox14;
TLabel *Label37;
TComboBox *ComboBox17;
TLabel *Label38;
TStatusBar *StatusBar1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcall Button6Click(TObject *Sender);
void __fastcall CheckBox7Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
TMemBlock MemBlock;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include "Class_Unit.h"
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
const AnsiString IniNm="rs-calc.ini";
class TForm1 : public TForm
{
__published: // IDE-managed Components
TGroupBox *GroupBox1;
TEdit *Edit1;
TLabel *Label1;
TLabel *Label2;
TEdit *Edit5;
TLabel *Label3;
TEdit *Edit6;
TLabel *Label4;
TComboBox *ComboBox1;
TGroupBox *GroupBox2;
TMemo *Memo1;
TGroupBox *GroupBox3;
TComboBox *ComboBox2;
TLabel *Label5;
TComboBox *ComboBox3;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TComboBox *ComboBox4;
TEdit *Edit2;
TLabel *Label9;
TComboBox *ComboBox5;
TLabel *Label10;
TComboBox *ComboBox6;
TLabel *Label11;
TComboBox *ComboBox7;
TLabel *Label12;
TComboBox *ComboBox8;
TLabel *Label13;
TComboBox *ComboBox9;
TComboBox *ComboBox10;
TComboBox *ComboBox11;
TComboBox *ComboBox12;
TLabel *Label14;
TLabel *Label15;
TLabel *Label16;
TLabel *Label17;
TLabel *Label18;
TEdit *Edit3;
TLabel *Label19;
TGroupBox *GroupBox4;
TEdit *Edit4;
TLabel *Label20;
TEdit *Edit7;
TLabel *Label21;
TLabel *Label22;
TLabel *Label23;
TEdit *Edit8;
TEdit *Edit9;
TLabel *Label24;
TEdit *Edit10;
TEdit *Edit11;
TLabel *Label25;
TEdit *Edit12;
TEdit *Edit13;
TLabel *Label26;
TEdit *Edit14;
TEdit *Edit15;
TLabel *Label27;
TEdit *Edit16;
TEdit *Edit17;
TLabel *Label28;
TEdit *Edit18;
TLabel *Label29;
TEdit *Edit19;
TLabel *Label30;
TEdit *Edit20;
TLabel *Label31;
TEdit *Edit21;
TLabel *Label32;
TEdit *Edit22;
TLabel *Label33;
TEdit *Edit23;
TLabel *Label34;
TCheckBox *CheckBox1;
TGroupBox *GroupBox5;
TCheckBox *CheckBox2;
TCheckBox *CheckBox3;
TCheckBox *CheckBox4;
TCheckBox *CheckBox5;
TCheckBox *CheckBox6;
TComboBox *ComboBox13;
TLabel *Label35;
TLabel *Label36;
TGroupBox *GroupBox6;
TButton *Button1;
TButton *Button2;
TButton *Button3;
TGroupBox *GroupBox7;
TMainMenu *MainMenu1;
TEdit *Edit24;
TLabel *Label40;
TEdit *Edit25;
TButton *Button4;
TGroupBox *GroupBox8;
TComboBox *ComboBox15;
TLabel *Label41;
TLabel *Label42;
TComboBox *ComboBox16;
TButton *Button5;
TButton *Button6;
TCheckBox *CheckBox7;
TRadioButton *RadioButton1;
TRadioButton *RadioButton2;
TCheckBox *CheckBox8;
TComboBox *ComboBox14;
TLabel *Label37;
TComboBox *ComboBox17;
TLabel *Label38;
TStatusBar *StatusBar1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcall Button6Click(TObject *Sender);
void __fastcall CheckBox7Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
TMemBlock MemBlock;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
#include <vcl.h>
#pragma hdrstop
USERES("rs_calc.res");
USEFORM("Unit1.cpp", Form1);
USEUNIT("Class_Unit.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "R/S pokemon calculator";
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
#pragma hdrstop
USERES("rs_calc.res");
USEFORM("Unit1.cpp", Form1);
USEUNIT("Class_Unit.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "R/S pokemon calculator";
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
gist du gestört
oder ist das das ding dinger
der daten dingsda
genau das kann ich auch
pokemon$§%&//// ==?)=(/&/&$%&$&%construction
§$!!!bla?)%%$/bla&bla(
/////;;;;;;;;;:::::::bla-- bla-_____ bla
und so weiter ist doch egal!!
was soll der schrott
sage es und leugne nicht
SAG ES SAG ES!!!!!
es brigt halt nichts das weis ich jetzt schon
oder ist das das ding dinger
der daten dingsda
genau das kann ich auch
pokemon$§%&//// ==?)=(/&/&$%&$&%construction
§$!!!bla?)%%$/bla&bla(
/////;;;;;;;;;:::::::bla-- bla-_____ bla
und so weiter ist doch egal!!
was soll der schrott
sage es und leugne nicht
SAG ES SAG ES!!!!!
es brigt halt nichts das weis ich jetzt schon
Logge dich ein um einen Beitrag zu schreiben.