Mmod help!

[absoulut1234]

This question is about "mmod" script.

My Question:

When i play this script((just play with BOTs))

For example:
When i kill the ''Boogle Man",then he was be kicked.
How can avoid it occurring?
This problem always perplexs me
Because at finally,the sever's Is only left over me.         lol~

I only want to play with BOTs!
So,who can help me?

Your Answer: ?waiting for you~

THANK YOU

[y0uRd34th]

not possible. not really.

[absoulut1234]

not possible. not really.

why??
very diffcule??

[y0uRd34th]

Yes, more than very difficult todo. Even though I don't understand why you want to play this against bots. They can't even cast spells / etc. Play it online, search [eC] Offical MMod or Redes Miracle Mod. (CTF) Not sure if Redes MMod is still there.

[Gizd]

Swompie lol, it's easy to add playing with bots. Can someone paste MMod's OnPlayerKill procedure here?

[dnmr]

Swompie lol, it's easy to add playing with bots. Can someone paste MMod's OnPlayerKill procedure here?

Code: (pascal) [Select]

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
  If GetPlayerStat(Killer,'Team') <> GetPlayerStat(Victim,'Team') then
    OnKillTriggers(Killer,Victim,Weapon);
  OnDeathTriggers(Victim);
end;


you probably also want this:

Code: (pascal) [Select]

procedure OnDeathTriggers(const ID: byte);
var ChirurgicOwner: byte;
begin
  case soldier[ID].classtype of
    Warlock:begin
              KickDemonkins(ID);
              CureParasite(ID);
            end;
    Mercenary:TriggerLastWill(ID);
  end;
 
  case soldier[ID].curse.cursetype of
    Parasite: begin
                CreateDemonkin(ID);
                WriteConsole(soldier[ID].curse.owner,GetPlayerStat(ID,'Name') + ' died by your Parasite. A Demonkin is born.',cGood);
              end;
    Mindrot:begin
              soldier[ID].silenced:=MindrotSilence[soldier[soldier[ID].curse.owner].lvl];
              WriteConsole(ID,inttostr(soldier[ID].silenced) + ' secs silence from dying with Mindrot.',cGood);
            end;
  end;
 
  If ExistingWellwisher > 0 then
    If soldier[ExistingWellwisher].classtype = Wellwisher then begin
      If GetPlayerStat(ID,'Team') = GetPlayerStat(ExistingWellwisher,'Team') then
        soldier[ExistingWellwisher].OwnI[0]:=0;
    end
    else
      ExistingWellwisher:=0;
 
  case soldier[ID].curse.cursetype of
    Chirurgic: ChirurgicOwner:=soldier[ID].curse.owner;
  end;
 
  soldier[ID].justdied:=true;
  KillDebuffs(ID);
 
  If ChirurgicOwner > 0 then
    ApplyCurse(ID,ChirurgicOwner,Chirurgic,-1);
 
  KillBuffs(ID);
  ApplyWeapons(ID);
end;



and this one for the full picture:

Code: (pascal) [Select]

procedure StandardTick(const ID: byte);
begin
  If GetPlayerStat(ID,'Flagger') then
    case GetPlayerStat(ID,'Team') of
      1:BravoFlagCarrier:=ID;
      2:AlphaFlagCarrier:=ID;
    end;
  If soldier[ID].cloaked > 0 then
    soldier[ID].cloaked:=soldier[ID].cloaked-1;
  soldier[ID].busted:=false;
  inc(soldier[ID].timealive,1);
  If soldier[ID].justdied then begin
    soldier[ID].justdied:=false;
    If GetPlayerStat(ID,'Human') = false then begin
      If soldier[ID].classtype < 0 then
        case soldier[ID].classtype of
          Fugleman:soldier[soldier[ID].OwnB[0]].OwnB[0]:=0;
        end;
      KickPlayer(ID);
      ResetSettings(ID);
    end;
  end
  else
    If soldier[ID].classtype < 0 then
      If GetArrayLength(soldier[ID].OwnB) >= 2 then
        If soldier[ID].OwnB[1] > 0 then begin
          soldier[ID].OwnB[1]:=soldier[ID].OwnB[1]-1;
          If soldier[ID].OwnB[1] = 0 then begin
            serverdamage:=true;
            DoDamage(ID,4000);
            WriteConsole(soldier[ID].OwnB[0],'Your ' + GetPlayerStat(ID,'Name') + ' expired his life duration.', cWarn);
          end;
        end;
end;
(called from apponidle obv)

[Gizd]

So just change line 14 of StandardTick to:

Code: [Select]

  If GetPlayerStat(ID,'Human') = false then if IDToName(ID) <> 'name of bot you'd like to play with here' then begin

[absoulut1234]

So just change line 14 of StandardTick to:

Code: [Select]

  If GetPlayerStat(ID,'Human') = false then if IDToName(ID) <> 'name of bot you'd like to play with here' then begin

i already changed it,but deside sever shutdown~
why???what's wrong?

[freestyler]

I guesss you didn't change the name of bot you'd like to play with here part. There's a ['] sign that would cause a problem.

[absoulut1234]

I guesss you didn't change the name of bot you'd like to play with here part. There's a ['] sign that would cause a problem.

oh~i know,
if i want to play with          Boogle man,i show write:


If GetPlayerStat(ID,'Human') = false then if IDToName(ID) <> 'Boogle man' then begin









right?

but if i want to player with Boogle man and Billy and...other BOTs
how to?

should i write:             
If GetPlayerStat(ID,'Human') = false then if IDToName(ID) <> 'Boolge man,Billy,Blain' then begin

 
 

[y0uRd34th]

Hes called Boogie Man and not Boogle Man, that's why it's not working.
And your idea won't work. Too lazy now to show you how to make it, sry :p

Swompie lol, it's easy to add playing with bots. Can someone paste MMod's OnPlayerKill procedure here?

Mmhhh, my fail :d

[freestyler]

Code: (pascal) [Select]

If GetPlayerStat(ID,'Human') = false then if (
  (IDToName(ID) <> 'Boogie Man') and
  (IDToName(ID) <> 'Billy') and
  (IDToName(ID) <> 'Blain')
) then begin

[absoulut1234]

Hes called Boogie Man and not Boogle Man, that's why it's not working.
And your idea won't work. Too lazy now to show you how to make it, sry :p




I knew certainly is 'Boogie man'
I only made a mistake in writing...lol

From: February 24, 2010, 07:42:27 am

Code: (pascal) [Select]

If GetPlayerStat(ID,'Human') = false then if (
  (IDToName(ID) <> 'Boogie Man') and
  (IDToName(ID) <> 'Billy') and
  (IDToName(ID) <> 'Blain')
) then begin

sorry,your script can't work
but also thank you~