Helping with my first script

[Irlandec]

New source code goes somewhere in this page, no offend . All problems was fixed by shantec by the way

[shantec]

...


Press it i fecking dare you!

[danmer]

lol @ var names... i swear i saw them before <.<

[Irlandec]

Ya ,danmer , i got them from your ZS script. If you don't like 'em , I will change

shantec , respect, thx for editing. (I think you saw the credits lines

[As de Espada]

when it'll be released?

[Irlandec]

When it will be done... I still want to implant some commands in , like !kit, and add most needed part in script.
I'm still a beginner in scripting , but i will put those people names in credits , who helped me most or a bit.   
Don't worry , you will be informed first






Date Posted: July 24, 2008, 03:43:55 pmIs it possible to make timers for commands( like timer1 for /blah command , timer2 for /test etc)?

[chutem]

I'm not sure what you mean, but you can delay commands.
And you can use commands to make timers.

[Irlandec]

Actually , i want different timers for different commands

Date Posted: July 25, 2008, 01:20:24 pmMeanwhile,

Code: [Select]

const
 DPM = 3;

var
 dp: array[1..32] of integer;
 
procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
 if (GetPlayerStat(Victim,'Team') = 1 then begin
  dp[ID] := 1
 end;
end;

procedure OnPlayerRespawn(ID: Byte);
begin
 if GetPlayerStat(ID, 'Team') = 1 then begin
  SetWeaponActive(ID,13,false);
 end;
 if dp[ID] := DPM then
  if (GetPlayerStat(ID,'Team')) <> 5 then begin
      Command('/setteam5 ' +inttostr(ID));
 end;
end;
I wanted that: if player gets killed , he gets 1 dp. If player's dp count reaches DPM , he gets function mentioned in second procedure. Can you be so kind , and check the code?

Date Posted: July 25, 2008, 02:03:42 pmPlzz help me

Date Posted: July 26, 2008, 03:12:13 pmAdded new command !rage ( player gets a bersek kit, long cooldown)

Date Posted: July 28, 2008, 07:37:08 amCommand failed , i dunno how to make second timer for this command

Date Posted: July 28, 2008, 12:01:56 pmWell , i tried to make a dethpoint code ,and im near from finishing it Here it goes:

Code: [Select]

const
DeathPointMax = 3;
Num_Of_Pl=10;

var
dp: array[1..Num_Of_Pl] of integer;
PlayerLock: array[1..32] of byte;

//Lock procedure by DorkeyDear(Curt)
procedure Lock(Id, Team: byte);
begin
  PlayerLock[Id] := Team;
  if (Team < 6) then begin
    SayToPlayer(Id, 'You are locked on team ' + InttoStr(Team) + '.');
    if (GetPlayerStat(Id, 'Team') <> Team) then Command('/setteam' + InttoStr(Team) + ' ' + InttoStr(Id));
  end;
end;


procedure DeathPointCount(ID: byte);
begin
  dp[ID]:=dp[ID]+1;
    if dp[ID]=DeathPointMax then begin
     WriteConsole(ID,'Sorry, out of respawns!',$EE00FFFF);
     Lock(ID, 5)
  end else
     WriteConsole(ID,'Now you have '+inttostr(dp[ID])+'/'+inttostr(DeathPointMax)+' deathpoints',$EE00FFFF);
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
 if (GetPlayerStat(Victim,'Team') = 1 then begin
  DeathPointCount(Victim)
 end;
end;

procedure OnPlayerRespawn(ID: Byte);
begin
 if dp[ID] := DeathPointMax then
  if (GetPlayerStat(ID,'Team')) <> 5 then begin
      Command('/setteam5 ' +inttostr(ID));
 end;
end;

Can u be so kind and check it please?
errored in line 32

Date Posted: July 31, 2008, 03:23:14 pmGuys please help on these two problems(they stopped me from improving script)

P.S. : Second problem with timers for commands btw

[Norbo]

I will help you, no problem, but send me the whole script and tell me whazzap with it

[Irlandec]

See my #27 post for the first problem. Second problem can be explained by skilled scripters of this forum.

By the way, when these problems will be solved , i will put mah script for public(of cause , for beta testing , not releasing yet )

[dark_danny13]

mmmm my compiler said

1 / 1 maniac~1.pas
 Fatal: Syntax error, BEGIN expected but identifier ONST found

with your code.....

[Toumaz]

mmmm my compiler said

1 / 1 maniac~1.pas
 Fatal: Syntax error, BEGIN expected but identifier ONST found

with your code.....

... Hang on. Are you actually attempting to compile the scripts using a pascal compiler? The scripts are meant to be compiled (interpreted?) by the Soldat server.

[Irlandec]

Pascal compiler cannot compile soldatscripts, I dunno why. Compile with Soldat Dedicated.

[EnEsCe]

All I can say is... What the hell man -_-

This topic explains it all really.

[saad786]

OMG Scripting is HARD 

[shantec]

Scripting is easy, you'r just too NEWBIE (no, its not noob)

Look someone elses scripts, it'll help a lot. Thats how i learned to script :p

[Irlandec]

freezed on this problem , help needed

Well , i tried to make a dethpoint code ,and im near from finishing it Here it goes:


Code:
const
DeathPointMax = 3;
Num_Of_Pl=10;

var
dp: array[1..Num_Of_Pl] of integer;
PlayerLock: array[1..32] of byte;

//Lock procedure by DorkeyDear(Curt)
procedure Lock(Id, Team: byte);
begin
  PlayerLock[Id] := Team;
  if (Team < 6) then begin
    SayToPlayer(Id, 'You are locked on team ' + InttoStr(Team) + '.');
    if (GetPlayerStat(Id, 'Team') <> Team) then Command('/setteam' + InttoStr(Team) + ' ' + InttoStr(Id));
  end;
end;


procedure DeathPointCount(ID: byte);
begin
  dp[ID]:=dp[ID]+1;
    if dp[ID]=DeathPointMax then begin
     WriteConsole(ID,'Sorry, out of respawns!',$EE00FFFF);
     Lock(ID, 5)
  end else
     WriteConsole(ID,'Now you have '+inttostr(dp[ID])+'/'+inttostr(DeathPointMax)+' deathpoints',$EE00FFFF);
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if (GetPlayerStat(Victim,'Team') = 1 then begin
  DeathPointCount(Victim)
end;
end;

procedure OnPlayerRespawn(ID: Byte);
begin
if dp[ID] := DeathPointMax then
  if (GetPlayerStat(ID,'Team')) <> 5 then begin
      Command('/setteam5 ' +inttostr(ID));
end;
end;


Can u be so kind and check it please?
 --------------------------------------------------

[shantec]

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if (GetPlayerStat(Victim,'Team') = 1 then begin
  DeathPointCount(Victim);
end;
end;