Frosty's scripting thread

[tk]

fixed the code in the bost above (accidentally declared style as single)

[frosty]

tx tk

From: August 14, 2010, 08:37:38 pmhow do i boost bot HP? i want to make Boss Bots which are much harder to kill than normal bots (popular request)

From: August 14, 2010, 09:07:29 pmbtw, setplayerstat doesnt work on my server

Code: [Select]

unknown identifier 'SetPlayerStat'

[dnmr]

setplayerstat is for 1.5.1 only OMG

[frosty]

thats the question, What do i use? how did hexer do it? etc

and if its for 1.5.1 then why does this compile, in a seperate script?

Code: (pascal) [Select]

SetPlayerStat(ID, 'Health',999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999);
i dont get it, Shop.pas wont compile due to unknown identifier "setPlayerstat", yet adminstuff will compile perfectly with the same setplayerstat code

like, huh

i know that this wont do anything when its triggered but the fact that the exact same line will compile in one script but wont compile elsewhere is a mystery

[Boblekonvolutt]

i dont get it, Shop.pas wont compile due to unknown identifier "setPlayerstat", yet adminstuff will compile perfectly with the same setplayerstat code

In Adminstuff.pas you have declared your own (empty) SetPlayerStat.

I really have no idea why. The reasoning behind the script doesn't make sense anywhere.


Either way, there is a max value for how much health you can have, so no matter how many 9's you put in there it's not really gonna make a difference. If you want to make a bot harder to kill, you would have to edit the damage thats being done in the OnPlayerDamage event.


Not that ten people haven't said that already, but I figure eventually he'll get it.

[kosik231]

why you dont use SpecialBots script? you can make bosses with this just use "search" option and download it, configure what you want and start server ^^

[Falcon`]

idea of more hp is simple: reduce damage in OnPlayerDamage.

[VinceBros]

Do something like:

If it's the boss, do 25% of the normal damage..

[frosty]

tx guys

From: August 17, 2010, 01:31:44 pmi have a new problem,tyrying to use some sytax that only loops through players names until it comes accross a zombie, it then stops looping and does the code

Code: (pascal) [Select]

   if Lowercase(Text) = '/bossbot' then begin;
     for i := 1 to 32 do until (Idtoname(i) = 'Mr.Zombie') do if Idtoname(i) = 'Mr.Zombie' then begin
       Command('/kick '+inttostr(i)+'');
       Command('/addbot2 MRZOMBIEW');
       WriteConsole(0,'You Hear the distant roar of a warlord zombie, that cant be good...', $00FFEE22);
     end
   end;
i cant figure out how to get it to work, right now it wont compile, but the code below will, only problem is, nothing happens when the command is typed

Code: (pascal) [Select]

   if Lowercase(Text) = '/bossbot' then begin;
     for i := 1 to Idtoname(i) = 'Mr.Zombie' do if Idtoname(i) = 'Mr.Zombie' then begin
       Command('/kick '+inttostr(i)+'');
       Command('/addbot2 MRZOMBIEW');
       WriteConsole(0,'You Hear the distant roar of a warlord zombie, that cant be good...', $00FFEE22);
     end
   end;

[Falcon`]

Tell you what? Your codes are more like an art, not working programs. When i watch them i think: "Beautiful, why that instruction isn't allowed? They'd own." I love especially the first one lol.

Working code:

Code: (pascal) [Select]

   if Lowercase(Text) = '/bossbot' then begin;
     for i := 1 to 32 do
       if IDToName(i) = 'Mr.Zombie' then begin
           Command('/kick '+inttostr(i)+'');
           Command('/addbot2 MRZOMBIEW');
           WriteConsole(0,'You Hear the distant roar of a warlord zombie, that cant be good...', $00FFEE22);
     end
   end;


[frosty]

Sorry. Forgot to mention, I only want to kick and add one zombie at a time with this command, I already have another section of code just that replaces all zombies with my boss bots, my bad....

[Falcon`]

Code: (pascal) [Select]

   if Lowercase(Text) = '/bossbot' then begin;
     for i := 1 to 32 do
       if IDToName(i) = 'Mr.Zombie' then begin
           Command('/kick '+inttostr(i)+'');
           Command('/addbot2 MRZOMBIEW');
           WriteConsole(0,'You Hear the distant roar of a warlord zombie, that cant be good...', $00FFEE22);
           break;
     end
   end;

better?

[frosty]

ahhhh, tx, now i know how to break a loop, literally, many thanks FalconPL and soz about the stupid question

[Falcon`]

I have great idea for you:
Instead of spaming in this thread, suggestion to join #soldat.devs @ quakenet.
IRC doesn't bite, try it.

[frosty]

thanks

[frosty]

new problem, for some reason my Biokills script wont work with my Shop script

cant figure out why (script names are links)

if anyone can figure out why this is happening i would appreciate it

i mean, the biokills script will compile but wont do anything while shop script is compiled

no time for IRC, im posting this at a last minute thing in the very early morning and i must go to work

[DarkCrusade]

Maybe try merging both scripts first? It's always the best to do that to keep things as simple as possible.

[Falcon`]

Code: (pascal) [Select]

if CheckPlayerAdmin(Shooter) = True then begin
if Getplayerstat(Victim,'alive') = True then Result:=CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y') - 0, 0,0,1, 10, Shooter);

This. Lovin it.
It won't work for you (bio kills i mean) since your kill is always by weapon = 'Cluster grenade'. And what it does... lovin it. Seems you have very balanced server. I guess every player loves you for this <3

And i suggest you to look closer what CreateBullet returns. Pro tip: not damage.

[frosty]

^^ thanks for the tip

only problem i have with that is, if i remove the  Result in that line it goes through some weird ass loop which seems to createbullet rfor every one damage, say for arguments sake the damage was 400, it creates 400 bullets, if i have it as Result it only does it once, any idea why thats happening?

thanks again

also the weapon = 'Cluster Grenade' is commented out so its not even being used, why commented out? because i use that occasionally

i mean it used to work but then i added something to shop then bio kills stopped working, so i dont think its the bio kills script, havent touched bio kills for ages now, only thing ive been working on is the shop script, i dunno... maybe i should just integrate the contents of BioKills with shop and see what that does?

thanks for the help tho falcon

edit: o crap i just realized what you meant, Bio kills wont apply to admins as the kills arent being done by the weps

many thanks, so sorry lol

but many thanks it was working perfect all this time

[frosty]

ok new problem:

trying to make a new gamemode

its a flamer racer script, only thing is, the checkpoints arent working

http://pastebin.com/Y2bTGFfp