How can I clear them?

[MrHamsTR]

Example; you have lost %14 mana 28.00000000000000000000 and souls 11.00000000000000000000000
I want delete zeros, how?

Code is here; http://pastebin.com/MSwXM442


Bonecrusher: use pastebin.com when trying to post a code.

[Furai]

Please edit your post and remove that code. Please attach the script to your post or use http://pastebin.com (or similar services to host your code).
As to stay on the topic this link may help you.

[MrHamsTR]

Please edit your post and remove that code. Please attach the script to your post or use http://pastebin.com (or similar services to host your code).
As to stay on the topic this link may help you.

I dont understand anything :S
What should I do?

[Falcon`]

Are you using beta or stable?
And if beta, then delphi or freepascal build?

[MrHamsTR]

No, I dont know use notepad+ or pascal etc..
Where should I correct in script, code is here, where is wrong?

[Falcon`]

I mean your server version.
Please paste (either in code tags or pastebin) the first 20 lines that server prints when starting

[MrHamsTR]

pastebin blocked from my country, access is denied

soldat server 1.6.3-2.7.3
script core v.2.4 loaded. found 5 scripts!
other lines are normal writing

[Falcon`]

Then please check whenever you have same problem with beta server.

[MrHamsTR]

Ohh no, now, I dont download it, cause I dont want correct them, oohh long work needed
Thanks.

[rOy]

...Crap...

[squiddy]

Why can't people write properly?

--

RoundTo has been changed: it no longer removes trailing zeros (http://bugs.soldat.pl/view.php?id=15). To remove them, you must use a function that outputs a string. Luckily, Shoozza added formatfloat() to the 2.7.4 server. But if you don't want to wait, use this:

Code: [Select]

function formatfloat(input: single; digits: integer): string;
var intext: string;
begin
intext := floattostr(input);
result := getpiece(intext,'.',0) + '.' + copy(getpiece(intext,'.',1),1,digits);
end;

[MrHamsTR]

How can I use it?
Where need to write? (in script, or where)

[rOy]

Hey

Nice Squiddy!

Btw here is fix ZRPG script (with Squiddy's fix)

Note: I not tested in game this script...

Good Luck

[MrHamsTR]

No, I translated my script to Turkish.
I want squiddy fix, I want know how can I correct it.

[rOy]

No, I translated my script to Turkish.
I want squiddy fix, I want know how can I correct it.

Hey

Insert the script and I'll add the remaining element

[squiddy]

Yeah, it would be a lot easier if you attached your current script

[rOy]

Hi
Missing you a lot

Code: [Select]

procedure UseSkill(ID: byte; SkillStrRaw: string);
var output: string; skill, curlvl: integer; oldmana,oldsouls: single; color: longint;
begin
skill := skillnumbyname(skillstrraw);
output := '';
color := $ffcc4444;
if skill >= 0 then begin
   curlvl := player[ID].skills[skill];
   if curlvl > 0 then begin
      if getplayerstat(ID,'alive') then begin
         if player[ID].mana >= skills[skill][curlvl].mcost then begin
            if player[ID].souls >= skills[skill][curlvl].scost then begin
               if player[ID].cooldown[skill] = 0 t
if player[ID].cooldown[skill] = 0 t ?

Script is not complete

Here is a complete + fix

[squiddy]

Attach it, not copy-paste it. It's terrible for reading :\

[MrHamsTR]

Script here;

[squiddy]

This should fix all your problems.

[MrHamsTR]

Yeah, it's working but not all.
It's writing again %0.00000000 when died.

[squiddy]

Try this one then.

[MrHamsTR]

Ohh thanks a lot, it's working now, but always; I want learn how did you do it?
But so far, I didnt learn anything yet

Edit: Can you correct this script? (nextmap vote)

[Swompie]

Ohh thanks a lot, it's working now, but always; I want learn how did you do it?
But so far, I didnt learn anything yet

You did learn nothing because you know nothing about scripting, atleast from what I can see.

Here is my advice when you want to learn something:

If you want to learn some basics about scripts you should check this out: How to Write a Soldat Script

When you have gathered some basic knowledge you should go ahead and download (simple) scripts from the Scripting Releases section,

then try to understand them and learn from the code what you can do in which way.

It's important that you try out simple things, even when they are not useful for anyone, you will learn from it.

After you've gone through these steps you should be able to understand these bigger scripts like ZRPG from HackTank and be able to fix things by yourself.

This worked for me and probably for the most other people which have been writing soldat scripts in the past.

Edit: Can you correct this script? (nextmap vote)

First of all, you may do what I've said above.

After you have done that, you should try to fix the script by yourself.

When you have no success, give us some information about the errors when you start the server.

You will learn scripting better this way.

[rOy]

Ohh thanks a lot, it's working now, but always; I want learn how did you do it?
But so far, I didnt learn anything yet

Edit: Can you correct this script? (nextmap vote)

Hey

Now I do not know what the problem is...
If it does not write % of what?
In that script missing (end time) - for vote
I've Nextmap script (from Squiddy) and en from idk who.

[squiddy]

Swompie said it all.

[rOy]

Author: Mr.Squiddy
Core: 2.7.3 - server [1.6.3 soldat]
Translate: rOy

Code: [Select]

//Nextmap Voter Script, v1.2.0, by Squiddy ~ [BR]

const
color = $FF7F00; //cor a ser usada.
errorcolor = $FF0000; //cor dos erros.
voteperc = 65; //porcentagem necessária para mudar de mapa.

var
total, votetime: integer;
voting: boolean;
voted: array[1..32] of boolean;

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//go!

function getvotestat(converttostring: boolean): variant;
var int: integer;
begin
int := round(100 * total / ((numplayers - numbots) - spectators));
result := iif(converttostring,'Current ballot: '+inttostr(int)+'/'+inttostr(voteperc)+'%',int);
end;

procedure resetvotestats(resetids: boolean);
var s: byte;
begin
total := 0;
votetime := 0;
voting := false;
if resetids then for s := 1 to 32 do voted[s] := false;
end;

procedure addvoter(id: byte);
begin
voted[id] := true;
total := total + 1;
writeconsole(0,getvotestat(true),color);
votetime := 20;
if getvotestat(false) >= voteperc then begin
    resetvotestats(true);
    command('/nextmap');
    end;
end;

procedure removevoter(id: byte);
begin
if voted[id] then total := total - 1;
voted[id] := false;
votetime := 20;
end;

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

procedure activateserver();
begin
resetvotestats(true);
end;

procedure onplayerspeak(id: byte; text: string);
begin
text := lowercase(text);
if (text = '!nextmap') or (text = '!vote') or (text = '!nm') then begin
    if not voting then begin
        if getplayerstat(id,'team') <> 5 then begin
            voting := true;
            writeconsole(0,'The vote for the next map ('+nextmap+') started!',color);
            addvoter(id);
            end else writeconsole(id,'You can not vote as a spectator!',errorcolor);
        end else if not voted[id] then begin
        if getplayerstat(id,'team') <> 5 then addvoter(id) else writeconsole(id,'You can not vote as a spectator!',errorcolor);
        end else writeconsole(id,'You have already voted!',errorcolor);
    end;
end;

procedure apponidle(ticks: integer);
begin
if (((numplayers - numbots) - spectators) = 0) or (voting = false) then exit;
if getvotestat(false) < voteperc then begin
    if votetime > 0 then votetime := votetime - 1 else begin
        writeconsole(0,'The vote for the map "'+nextmap+'" ended '+inttostr(getvotestat(false))+'/'+inttostr(voteperc)+'%',errorcolor);
        resetvotestats(true);
        end;
    end;
end;

procedure onjoingame(id, team: byte);
begin
voted[id] := false;
end;

procedure onleavegame(id, team: byte; kicked: boolean);
begin
if voting then removevoter(id);
end;

procedure onmapchange(newmap: string);
begin
if voting then resetvotestats(true);
end;
DOWNLOAD:

[MrHamsTR]

No, nextmap has same problem that %0.00000000.