Global Variable

void selectBtnOnClick
var 
uGame:tclunit;
{

  if ((nameEdit.Text <> '') && (countryEdit.Text <> '')) 
  {
    uGame=tclunit.Create;
    SelectForm.clHide;
    //uGame adlı ünite yönlendirilir. GlobalVariableString seçilen karaktere göre değişir.
  if (charIndex==0)
  {

    Clomosy.GlobalVariableString = 'char1';
  }
  else if(charIndex==1)
  {

    Clomosy.GlobalVariableString = 'char2';
  }


    // Tüm bilgileri tek bir string içinde birleştir
    // Format: "karakter|isim|ülke"
      Clomosy.GlobalVariableString = Clomosy.GlobalVariableString +'|'+ nameEdit.Text + '|' + countryEdit.Text;

    // Oyun birimine yönlendir
    Clomosy.RunUnit('uYonet');
    //uGame.UnitName = 'uYonet';
    //uGame.CallerForm = SelectForm;
    //uGame.Run;


  } else
  {
    ShowMessage('Please enter character name and country name!');
  }

}
void char1BtnOnClick;
{
  // Birinci karakter seçildiğinde
  SelectForm.SetImage(charImage, 'https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char1.jpg');
  charIndex = 0;
  // Buton renklerini sıfırla ve seçilen butonu vurgula
  //resetButtonColors;
  //char1Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2E7D32'); // Daha koyu yeşil
  char1Btn.SetclProSettings(char1Btn.clProSettings);
}
void char2BtnOnClick;
{
  // İkinci karakter seçildiğinde
  SelectForm.SetImage(charImage, 'https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg');
  charIndex = 1;
  // Buton renklerini sıfırla ve seçilen butonu vurgula
  //resetButtonColors;
  //char2Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8905a3'); // Daha koyu yeşil
  char2Btn.SetclProSettings(char2Btn.clProSettings);
}

////////////////////2.birim////////////////////////

void KarakterSecBirimdenGeldi;
{
  gameData = Clomosy.GlobalVariableString;
  dataArray = Clomosy.StringListNew;
  dataArray.StrictDelimiter = True;
  dataArray.Delimiter = '|';
  dataArray.DelimitedText = gameData;

  charType = Clomosy.StringListItemString(dataArray, 0);
  charName = Clomosy.StringListItemString(dataArray, 1);
  countryName = Clomosy.StringListItemString(dataArray, 2);

  charLabel.Text = 'Executive: ' + charName;
  countryLabel.Text = 'Country: ' + countryName;

  dataArray.Free;
}

void selectchar;
{
  dataArray = Clomosy.StringListNew;
  dataArray.StrictDelimiter = True;
  dataArray.Delimiter = '|';
  dataArray.DelimitedText = Clomosy.GlobalVariableString;
  charType = Clomosy.StringListItemString(dataArray, 0);

  if (charType == 'char1')
  {
    YonetimForm.SetImage(YoneticiImg, 'char1.jpg');
  }
  else if (charType == 'char2')
  {
    YonetimForm.SetImage(YoneticiImg, 'char2.jpg');
  }

  dataArray.Free;
}