Mich1103's scripting thread

[Falcon`]

you can move your br variable to constants, and make it
br =  #13+#10;

should work, less confusion

[DarkCrusade]

You don't need to use #13+#10, #13#10 works, too.

[mich1103]

I'll do it later ! now i wanna know why the counter always stay to 100

[zyxstand]

Hey, I think your indentations are still wrong.  This is what you have:

Code: [Select]

       if (Soldier[i].GodTime > 0) then begin
        Soldier[i].GodTime := Soldier[i].GodTime - 1;
         if (Soldier[i].GodTime = 0) then WriteConsole(i,'You are mortal again..',$CC0000);
          if (Soldier[i].godcooldown > 0) then begin  // cooldown doesn't start until god-mode is over
   Soldier[i].godcooldown := Soldier[i].godcooldown - 1;
    if (Soldier[i].godcooldown = 0) then WriteConsole(i,'God shield is ready to cast !',$CC0000);
           end;
          end;
         end;

Correct indentation (but still wrong code:

Code: [Select]

       if (Soldier[i].GodTime > 0) then begin
         Soldier[i].GodTime := Soldier[i].GodTime - 1;
         if (Soldier[i].GodTime = 0) then WriteConsole(i,'You are mortal again..',$CC0000);
         if (Soldier[i].godcooldown > 0) then begin  // cooldown doesn't start until god-mode is over
           Soldier[i].godcooldown := Soldier[i].godcooldown - 1;
           if (Soldier[i].godcooldown = 0) then WriteConsole(i,'God shield is ready to cast !',$CC0000);
         end;
       end;

The problem is, you need to keep GodTime separate from godcooldown.  This is the correct code:

Code: [Select]

       if (Soldier[i].GodTime > 0) then begin
         Soldier[i].GodTime := Soldier[i].GodTime - 1;
         if (Soldier[i].GodTime = 0) then WriteConsole(i,'You are mortal again..',$CC0000);
       end;
       if (Soldier[i].godcooldown > 0) then begin  // cooldown doesn't start until god-mode is over
         Soldier[i].godcooldown := Soldier[i].godcooldown - 1;
         if (Soldier[i].godcooldown = 0) then WriteConsole(i,'God shield is ready to cast !',$CC0000);
       end;

In your way, it only does the cooldown if the player is also in god-mode (which is wrong).  notice how the END word i put in mark the end of the if-statement code.

[mich1103]

Thanks it work ! 
OFF TOPIC(500 post w00t)

[zyxstand]

Congrats!
Don't just use the code - try to understand it!
i also like your spongebob quote

[mich1103]

Congrats!
Don't just use the code - try to understand it!
i also like your spongebob quote

its in left 4 dead 2 !
when coach say Did you say chocolate ?

From: July 27, 2010, 11:23:53 amSo did a new zombie named 'KaMiKaZe ZoMbIe' and i add a script to it !
there is the script :

Code: [Select]

function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer;Weapon: Byte) : integer;
var
X, Y: single;
 begin
  if GetPlayerStat(Victim,'Name') ='KaMiKaZe ZoMbIe'
   then begin
     GetPlayerXY(Victim, X, Y);
      CreateBullet(X, Y - 10, 0, 0,120, 4, Victim);
       CreateBullet(X, Y - 10, 1, 1,120, 4, Victim);
        CreateBullet(X, Y - 10, 2, 2,120, 4, Victim);
         DoDamage(Victim,4000);
        end;
       end; 


When i join the game it spam me up with that |
                                                                  |
                                                                  v

[DarkCrusade]

Learn to use indentations better. Take this as an example:

Code: (pascal) [Select]

Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer; Weapon:Byte):Integer;
var
  X,Y:Single;
begin
  if GetPlayerStat(Victim,'Name') ='KaMiKaZe ZoMbIe' then begin
    GetPlayerXY(Victim, X, Y);
    CreateBullet(X, Y - 10, 0, 0,120, 4, Victim);
    CreateBullet(X, Y - 10, 1, 1,120, 4, Victim);
    CreateBullet(X, Y - 10, 2, 2,120, 4, Victim);
    DoDamage(Victim,4000);
  end;
end; 
2.6.5: Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;
3.0:   Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer; Weapon:Byte):Integer;

You use the wrong server version.

[mich1103]

How can i disable grenade throw for a bot ?

[kosik231]

open bot file and make:

Code: [Select]

Grenade_Frequency=1000that works for me

[mich1103]

It d'ont work for me ...
they throw grenade ...

[kosik231]

change difficulty of bots to "Stupid" if you have other

[mich1103]

currently the bot difficulty is 50 ... i change it to which number ?

[kosik231]

just go to Options in Soldat and change Difficulty to STUPID (mark first dot)

[mich1103]

i want to disable grenade throw not ingame for my server !

[kosik231]

Code: [Select]

Difficulty=300is that hard to find in Soldat.ini?

[mich1103]

Thanks ! 

I got a problem with the nuke skills ...
i want to put that if a player type nuke
money[ID] := money[ID]-60;
xp[ID] := xp[ID]+30;

but if i do this it loop 32 time so its like
-60X32 money ....
+30X32 xp ...

Nuke skills procedure !

Code: [Select]

procedure Nuke(ID: byte);
 begin
   if GetPlayerStat(ID,'Human') = False
    then begin
     if (GetPlayerStat(ID,'Active') = true)
      then begin
       if (GetPlayerStat(ID,'name') = 'ZoMbIe')
        then begin
        DoDamage(ID,4000);
       end;
      end;
     end;
    end;

Code: [Select]

if regExpMatch('^/(nuke)$', Text) then
 begin
  if (soldier[ID].level >= 45) and (soldier[ID].money >= 60) then
   begin
    For i := 1 to 32 do  begin   
     Nuke(i);
      WriteConsole(i, 'NUCLEAR BOMB !', Color);
     end;
     end else begin
     writeconsole(ID, 'You are not lvl 45 + or you dont have enough money.', Color);
    end;
   end;

[kosik231]

put
money[ID] := money[ID]-60;
xp[ID] := xp[ID]+30;

before loop, this should work, btw why you use nuke only for zombie? change "name = zombie" to "team = 2" ^^ this should kill all players from bravo team, also change position of getplayerstat(id,'active') with getplayerstat(id,'human'), rememer, first check active, then next "if" questions because that making laggs

[mich1103]

Its only for zombie cause this will hurt boss ...
Come on my server !
i have currentrly 11 skills
soldat://soldat.no-ip.ca:23098

[kosik231]

i dont have time to play, im still working hard with my script...