Nerd Run (Malum Oyunun Deneme Aşaması)

d3d_transform_set_identity()
d3d_transform_add_scaling(.175,.175,.175)
d3d_transform_add_rotation_z(-globx)
//d3d_transform_add_rotation_z(direction2)
d3d_transform_add_translation(x,y,z)
d3d_model_draw(mijnmodel8,0,0,100+z2+zrun,background_get_texture(bck_ar))
d3d_transform_set_identity()

//=========== ARABAGOVDESI ===========
d3d_transform_set_identity();
d3d_transform_add_rotation_y(rot_auta_y);
d3d_transform_add_rotation_x(rot_auta_x);
d3d_transform_add_rotation_z(image_angle);
d3d_transform_add_translation(x,y,vyska_auta);
d3d_model_draw(chevrolet,0,0,0,background_get_texture(bck_ocar));
  // fren
if svetla=true {
d3d_set_lighting(false);
draw_set_blend_mode(bm_zero);
d3d_model_draw(chevrolet,0,0,0,background_get_texture(bck_chevrolet_svetla));
d3d_set_lighting(true);
draw_set_blend_mode(bm_normal);
}
d3d_transform_set_identity();

//=========== ONSAGTEKER ===========
d3d_transform_set_identity();
d3d_transform_add_rotation_y(rotace_y);
d3d_transform_add_rotation_z(image_angle+dirkol);
d3d_transform_add_translation(x+lengthdir_x(len1,image_angle+angle1),y+lengthdir_y(len1,image_angle+angle1),vyska_auta-3.7);
d3d_model_draw(chevrolet_kolo,0,0,0,background_get_texture(bck_chevrolet_kolo));
d3d_transform_set_identity();
//=========== ONSOLTEKER ===========
d3d_transform_set_identity();
d3d_transform_add_rotation_y(-rotace_y);
d3d_transform_add_rotation_x(180);
d3d_transform_add_rotation_z(image_angle+dirkol);
d3d_transform_add_translation(x+lengthdir_x(len2,image_angle+angle2),y+lengthdir_y(len2,image_angle+angle2),vyska_auta-3.7);
d3d_model_draw(chevrolet_kolo,0,0,0,background_get_texture(bck_chevrolet_kolo));
d3d_transform_set_identity();
//=========== ARKASAGTEKER ===========
d3d_transform_set_identity();
d3d_transform_add_rotation_y(rotace_y2);
d3d_transform_add_rotation_z(image_angle);
d3d_transform_add_translation(x+lengthdir_x(len3,image_angle+angle3),y+lengthdir_y(len3,image_angle+angle3),vyska_auta-3.7);
d3d_model_draw(chevrolet_kolo,0,0,0,background_get_texture(bck_chevrolet_kolo));
d3d_transform_set_identity();
//=========== ARKASOLTEKER ===========
d3d_transform_set_identity();
d3d_transform_add_rotation_y(-rotace_y2);
d3d_transform_add_rotation_x(180);
d3d_transform_add_rotation_z(image_angle);
d3d_transform_add_translation(x+lengthdir_x(len4,image_angle+angle4),y+lengthdir_y(len4,image_angle+angle4),vyska_auta-3.7);
d3d_model_draw(chevrolet_kolo,0,0,0,background_get_texture(bck_chevrolet_kolo));
d3d_transform_set_identity();

procedure ActivateServer();
var
  i: byte; // i isminde byte degiskeni olusturdum

begin
  for i := 1 to 30 do begin
    WriteLn('Sayi: ' + IntToStr(i) ); // IntToStr kullanarak byte degiskenini string e donusturdum.
  end;
   
  WriteLn('Dongu bitti');
end;

Tip      Byte                            Aralık       

Byte      1                            0 ile 255
ShortInt  1                          -127 ile 127
Word      2                            0 ile 65,535
SmallInt  2                      -32,768 ile 32,767
LongWord  4                            0 ile 4,294,967,295
Cardinal  4                            0 ile 4,294,967,295
LongInt    4                -2,147,483,648 ile 2,147,483,647
Integer    4                -2,147,483,648 ile 2,147,483,647
Int64      8    -9,223,372,036,854,775,808 ile 9,223,372,036,854,775,807

Single    4            7 basamaklı sayılar, katsayısı -38 ile +38
Currency  8          50+ basamaklı sayılar, 4 basamak ondalık kısım
Double    8          15 basamaklı sayılar, katsayısı -308 ile +308
Extended  10          19 basamaklı sayılar, katsayısı -4932 ile +4932

function OnRequestGame(IP: string; State: integer):integer;

[b]Parameter Bilgileri:[/b]
IP (String): Oyuna giriş yapmaya çalışan kişinin IP adresi.
State (integer): Giriş yapmaya çalışan kişinin durumu (Aşağıdaki listeye bakın)


[b]State Değerleri:[/b]
 1 = Tamam
 2 = Yanlış Sürüm
 3 = Yanlış Şifre
 4 = Banlı
 5 = Server Dolu
 6 = Çift IP


[b]Açıklama:[/b]
Bu event her oyuncu oyuna giriş yapmaya çalıştığında gerçekleşir.
OnRequestGame, oyuncu giriş yaptığı sırada alacağı cevabı değiştirmek
için kullanılır. Bunu State değişkenini ayarlayarak yapabilirsiniz.
Bu eventi kullanarak "Rezervasyon" gibi scriptler yapabilirsiniz. Örnek için aşağıya bakın.


[b]Örnekler:[/b]

Bu örnek, nasıl slot rezervasyonu yapabileceğinizi gösteriyor:
[url=http://www.soldat-tr.com/soldatscript/event/OnRequestGame#]basit görünüm[/url]

[list=1]
[*]function OnRequestGame(IP: string;State: integer):integer;
[*]var
[*]VIPListesi: TStringArray;
[*]i: integer;
[*]begin
[*]  VIPListesi := split(ReadFile('viplistesi.txt'),chr(13)+chr(10));
[*]  // viplistesi.txt dosyasını aç ve satırlara bölerek array'e aktar
[*] 
[*]  for i := 0 to ArrayHigh(VIPListesi) do begin
[*]    if (IP = VIPListesi[i]) And (State = 1) or (State = 5) then begin
[*]      // Eğer oyuncu IPsi listede varsa, banlanmamışsa ve server dolu ise.
[*]      State := 1; // Oyuna alalim
[*]      break; // Donguyu sonlandir
[*]    end;
[*]  end;
[*] 
[*]  result := State; // Yeni cevabi gonder
[*]end;
[/list]