Frosty's scripting thread

[dnmr]

you dont have to send Boolvar[] as an argument since you already send ID. Just declare it as a global array and use as is in the procedure

[frosty]

ok, tx , but then if i dont send it as an arg, how would i change the boolval [id]? if i use:

Code: (pascal) [Select]

ForceAchUpdate(ID, 'TP', TP);
the Boolval[ID] should change to TP[ID], as Boolval[ID] isnt what i want to change, i only want to update the val thats replacing Boolval, if that makes sense

if i dont send it as an argument, Boolval will stay as Boolval and not turn into the val i want? maybe im doing it wrong? impossible? do i need to recode the procedure?

maybe i need to change it to a function then use result to store the val in a variable then set the var i want to change off that result

[dnmr]

or maybe you should read what i wrote again. Make boolvar a global array so you can interact with it anywhere throughout the script

[frosty]

is this what you mean?:

Code: (pascal) [Select]

var Boolval:Array [1..32] of Boolean;

procedure ForceAchUpdate(ID:Byte; Ach:String); //will update current accounts with new achievements to get as the players join (going to use in OnJoinTeam) 
begin 
if ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'*ERROR*') = '*ERROR*' then iniWrite('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'0'); 
     if ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'*ERROR while loading achievement*') = '1' then Boolval[ID]:=True;
     if ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'*ERROR while loading achievement*') = '0' then Boolval[ID]:=False; 
end; 

procedure OnJoinTeam(ID, Team: byte);
begin
  if (Team = 1) AND (FileExists('Players/'+IDtoname(ID)+'.ini')) then begin
ForceAchUpdate(ID, 'TP');
TP[ID] := Boolval[ID];
end;
end;

[dnmr]

yes, although i cant see what TP is supposed to be, but i guess you're getting the idea

[tk]

if ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'*ERROR while loading achievement*') = '1' then Boolval[ID]:=True; 
if ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'*ERROR while loading achievement*') = '0' then Boolval[ID]:=False;

Boolval[ID] := ReadINI('Players/'+IDtoname(ID)+'.ini','achievements',Ach,'') = '1';

Also you should get a rid of illegal chars from nicknames before naming files with them.

[frosty]

how do i do that? specially since people wont change their names and it works all off the playername, its not like i can change the players nickname

ive given up on asking ppl to get rid of bad chars, they never do it

and so ive told them:

if your account has bad characters, then your acc will not save, if you like my server, then change your name so it doesnt have the illegal characters

but i guess those ppl dont want accounts being saved, their loss

[dnmr]

http://forums.soldat.pl/index.php?topic=34934.0

[frosty]

tx dnmr

trying something with constants, to make it easier to update item prices

in onplayercommand:

Code: (pascal) [Select]

if Lowercase(Text) = '/buy pred' then begin
if Cash < (pred) then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);
end;
if Cash >= (pred) then begin
Cash :=Cash-(pred);
WriteConsole(0,IdtoName(ID)+' has just bought predator for '+(pred)+' Cash',$EE81FAA1);
GiveBonus(ID, 1);
SpawnObject(GetPlayerStat(ID,'x'),GetPlayerStat(ID,'y'),20);
      TUPred[ID]:=TUPred[ID]+1;
end;
  end;

pred is defined as a const, how do i use the const in this example?

arsse is giving me the following error

Code: [Select]

open round ('(')expected
to attempt a debug i tried putting ()s on each side of pred in the code, but the same error remains, i know its definitely the "pred" const causing the error, as the error only occured when i (tried to) put the const in there

Code: (pascal) [Select]

const
pred = 200;

having inttostr in writeconsole for pred does nothing for the error, what do i need to show the consts value in writeconsole if i can get the code to work?

[tk]

Since you declare the const as int, you have to convert it into a string before doing anything with it in writeconsole
WriteConsole(0,IdtoName(ID)+' has just bought predator for '+IntToStr(pred)+' Cash',$EE81FAA1);

[frosty]

yes but whats causing the error?

even if i do have inttostr there the error is still there

Code: (pascal) [Select]

if Lowercase(Text) = '/buy pred' then begin 
    if Cash < (pred) then begin 
        WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1); 
    end;   
    if Cash >= (pred) then begin 
        Cash :=Cash-(pred); 
        WriteConsole(0,IdtoName(ID)+' has just bought predator for '+IntToStr(pred)+' Cash',$EE81FAA1);
        GiveBonus(ID, 1); 
        SpawnObject(GetPlayerStat(ID,'x'),GetPlayerStat(ID,'y'),20); 
     TUPred[ID]:=TUPred[ID]+1; 
    end; 
 end; 

[chutem]

is the scriptcore giving you an error, or just arsse?
Error doesn't seem like something the scriptcore would chuck out, but then again, I don't know much about arsse.

[frosty]

scriptcore is giving me the exact same error

Code: (pascal) [Select]

if Lowercase(Text) = '/buy pred' then begin   
   if Cash < (pred) then begin //actuall error is on this line, why isnt pred being parsed correctly? error doesnt point directly to this line, points above it, however after counting commented out lines (section it was pointing to was not changed, neither was anything above it, except for consts, and there were 15 commented out lines before that line) and adding the result number to the supposed error line (387+15=line 402)
       WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);   
   end;     
   if Cash >= (pred) then begin   
       Cash :=Cash-(pred);   
       WriteConsole(0,IdtoName(ID)+' has just bought predator for '+IntToStr(pred)+' Cash',$EE81FAA1); 
       GiveBonus(ID, 1);   
       SpawnObject(GetPlayerStat(ID,'x'),GetPlayerStat(ID,'y'),20);   
    TUPred[ID]:=TUPred[ID]+1;   
   end;   
end;

full code is attached

i have also included the original shop.pas (named Shop_original.pas)

so you can see what changes ive made

btw, just to clear this up, when you /recompile with arsse, it isnt actually arsse thats compiling the scripts, its the servers scriptore that its connected to that is, arsse doesnt have or use a compiler, all it does is relay commands to the server and output server messages, thats it

[Falcon`]

remove parenthesis

[frosty]

got rid of the ( ) s but the error is still the same

see pastebin link

http://pastebin.com/bG6dckm0

edit: how do i create a bullet going from mone player to another again?, i know one of you guys posted it somewhere but i cant find, could u plz post it again? , i know it was something about the sin, cos and tan things..

[kosik231]

i found mistake change const name "pred" to another one like "predat", i think that script used your "/buy pred" as variable O.o btw it works for me

[frosty]

LOL, its an emote, most people use that instead of "Doh!"

and thanks , it worked , changing pred to predat fixed the problem, many thanks

[dnmr]

go through the mmod script, it should have the shooting function you need, as well as a bunch of other stuff

[tk]

edit: how do i create a bullet going from mone player to another again?, i know one of you guys posted it somewhere but i cant find, could u plz post it again? , i know it was something about the sin, cos and tan things..

You don't have to use neither of them

procedure Shoot(x, y, x2, y2, speed, dmg: single; style, owner: byte);
var dist: single;
begin
 dist := Distance(x, y, x2, y2) / speed;
 x2 := (x2 - x) / dist;
 y2 := (y2 - y) / dist;
 createbullet(x, y, x2, y2, dmg, style, owner);
end;
 
(untested)
 

[frosty]

@tk, that gives me a type mismatch error on line 6 of that code, cant see why tho, ill have a look at mmod, tx dnmr

From: August 13, 2010, 08:22:03 pm