Ready made: Bullet Nova

[Avarax]

Two knife novas with a total of 95 knifes



procedure Nova(X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);

This procedure creates a customized circle of bullets around the specified coordinates. Very useful for coding special effects or... magic spells
Requires a deg2rad function (which can also be quite useful )

How to use the parameters:
X & Y:             Coordinates for the Nova
Speed:            Speed of the bullets
Decentralize:   How far the starting circle is away from it's center (= X & Y)
Power:            Power of the bullets
ID:                  Owner of the bullets
Style:             Bullettype
n:                   Number of bullets


And the code for copy & pasting:

Code: [Select]

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

[Iq Unlimited]

pointless, but CRAZY COOL . Gj, this would be fun with m79 bullets xD.

Iq Unlimited

[Kitty]

A shield made out of grenades  that would be funny

Nice one  

[SirJamesaford]

I smell a new hexer skill....fucking a.  Cant wait to see this (that is, if this is gonna be used in hexer.)

[Thomas]

nice work!

i wonder if this makes any difference: (performance, but im sure it doesnt)
deg/(180/pi); <-> deg*(pi/180);
the second is how you would calculte it normally imho

[Kavukamari]

you are a goddam genius Avarax!!!

[xmRipper]

OMG! Perfect!

you are a goddam genius Avarax!!!

[Avarax]

Oh come on, how does that little piece of code make someone a genius :-|
Using a negative decentralize value btw creates a nova that goes from outside to inside instead of inside to outside.

[Thomas]

alternatively you can also use a negative speed value, but somehow the knives didnt really hit my soldat
 i wanted to make some leet adminkill command /novakill *id*

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if GetPiece(Text,' ',0) = '/novakill' then begin
    Nova(
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'X'), //X
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'Y'), //Y
       -6, //Speed
       50, // distance/decentralize
       100, //power
       ID, //owner
       13, //knife
       40 //n
     );
  end;
  //NOTE: This function will be called when an admin types a / command.
  Result := false; // Return true if you want to ignore the command typed.
end;

[Avarax]

Use a higher speed and use less decentralization.

[Kavukamari]

you're not just a genius because of THIS script, it's good, but you made Hexer!!! anyone who could do that is a genius in my book

Date Posted: September 29, 2007, 07:18:38 pmwhat's the max number of bullets a map can render/make at once?

[Navy0zkr]

AND THE COMMAND?
/???
/???

[chutem]

Oh my god, stop typing in caps,

There is no command, this is just a function that you put at the start of a script and then you can call it later, so, either someone has to make you a script so you can just type /nova or something, and I can't be F***ed doing it.

[Navy0zkr]

look my nova!



CODE:

function deg2rad(deg: single): single;
begin
  result:=deg/(180/pi);
end;

procedure Nova(X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
begin
  for i:=0 to n do
    CreateBullet(X + (cos(deg2rad(360 / n * i))*decentralize),Y + (sin(deg2rad(360 / n * i))*decentralize),(cos(deg2rad(360 / n * i))*speed),(sin(deg2rad(360 / n * i))*speed),power,style,ID);
end;
function OnCommand(ID: Byte; Text: string): boolean;
begin
  if GetPiece(Text,' ',0) = '/novakill' then begin
Nova(
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'X'), //X
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'Y'), //Y
       -5, //Speed
       40, // distance/decentralize
       100, //power
       ID, //owner
       12, //knife
       40 //n
     );
    Nova(
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'X'), //X
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'Y'), //Y
       -5, //Speed
       30, // distance/decentralize
       100, //power
       ID, //owner
       4, //knife
       40 //n
     );
  Nova(
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'X'), //X
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'Y'), //Y
       -5, //Speed
       10, // distance/decentralize
       100, //power
       ID, //owner
       4, //knife
       40 //n
     );
Nova(
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'X'), //X
       GetPlayerStat(strtoint(GetPiece(Text,' ',1)), 'Y'), //Y
       -5, //Speed
       5, // distance/decentralize
       100, //power
       ID, //owner
       13, //knife
       40 //n
     );
  end;
  //NOTE: This function will be called when an admin types a / command.
  Result := false; // Return true if you want to ignore the command typed.
end;

[IvanTh3Great]

can u make this into a zip file with the sub folders and whatnot...please?

[shantec]

So... sumthing went wrong (probably everything)
I have the deg3rag thing and after that i have:

Code: [Select]

procedure Nova(X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
begin
  for i:=0 to n do
    CreateBullet((GetPlayerStat(ID,'x') + (cos(deg2rad(360 / 50 * i))*50),(GetPlayerStat(ID,'y') + (sin(deg2rad(360 / 50 * i))*50),(cos(deg2rad(360 / 50 * i))*70),(sin(deg2rad(360 / 50 * i))*70),0,14,ID);
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if Text = '/Nova' then begin
    Nova;
end;

Could someone tell what went wrong?
So i want the "skill" triggered with /nova
Help?

[sai`ke]

One thing is that you're missing an end. It helps to line out code so that begin and end's that belong together have the same indenting. It's easier to spot errors that way.

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if Text = '/Nova' then
  begin
    Nova(X,Y,speed,decentralize, power, ID, style, n);
  end
end;

Also for X,Y,speed,decentralize, power, ID, style, n you need to either enter values or make them variables. Read the rest of the thread to find out what kind of values these take. You need to think about these and try various things depending on what you want...

[shantec]

I tried to do something but the script wont work!!
I think scripting is driving me nutty... i just cant get it where is the problem.

[danmer]

how exactly does it "not work"? Got any error messages?

[shantec]

When i try to put up the server, it gives this error:

• MyOwn -> [Error] (19:74): Close round expected 
  
  that's exactly how it doesn't work