Author Topic: Ready made: Bullet Nova  (Read 14909 times)

0 Members and 1 Guest are viewing this topic.

Offline JFK

  • Camper
  • ***
  • Posts: 255
    • My TraxInSpace Account
Re: Ready made: Bullet Nova
« Reply #20 on: April 02, 2008, 02:09:42 pm »
(19:74) means that there is an error in line 19.
If you open the script in notepad the first line is line 2.
'Close round expected' means you're probably missing a ')' in line 19, but it could be something else. Look closely.
Come join: EliteCTF
Listen to: My Music

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #21 on: April 02, 2008, 06:53:36 pm »
lol try this, it is triggered with /wave, its the funniest damn thing

try it on your soldatserver

just unzip this into your scripts folder in your soldatserver directory


anyways here is what it is,
Bullet Nova
luanches grenades
launches 1000 grenades, its pretty funny, when you do /wave you get this huge KABOOM and also you get a few grenades launch off all over the place

have fun

*edit* also blows up the map ;)
« Last Edit: April 19, 2008, 05:45:20 pm by frosty »
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline trickster

  • Major(1)
  • Posts: 30
  • Dont play with bouncing grenades
Re: Ready made: Bullet Nova
« Reply #22 on: April 21, 2008, 08:44:29 pm »
were i should paste this thing i dont know if theres a script creator or something i meant that i dont know how to make this thing!

Offline Boblekonvolutt

  • Soldier
  • **
  • Posts: 222
  • "YOU are a CAR."
Re: Ready made: Bullet Nova
« Reply #23 on: April 21, 2008, 10:44:36 pm »
1. Get SoldatServer (here)
2. Make a new folder called EvilAvarax in SoldatServer/Scripts/
3. Make a file called EvilAvarax.pas (in Scripts/EvilAvarax/)
4. Copy and paste the script into EvilAvarax.pas
5. Make a file called Includes.txt (in Scripts/EvilAvarax/)
6. Write "EvilAvarax.pas" in Includes.txt

Run soldatserver.exe, open Soldat and join your server (127.0.0.1 23073)

Didn't know where your problem was, so I put it all there. Oh yes, Avarax is evil.

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #24 on: April 22, 2008, 04:33:39 pm »
use notepad for making the pas file Trickster

hope this helps
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline trickster

  • Major(1)
  • Posts: 30
  • Dont play with bouncing grenades
Re: Ready made: Bullet Nova
« Reply #25 on: April 23, 2008, 04:09:40 pm »
one more thing how i make my server stay in the lobby every day even if im not playing?

Offline Boblekonvolutt

  • Soldier
  • **
  • Posts: 222
  • "YOU are a CAR."
Re: Ready made: Bullet Nova
« Reply #26 on: April 23, 2008, 07:10:51 pm »
Don't close it...

Offline shantec

  • Soldier
  • **
  • Posts: 140
  • Get ANGREH!!
Re: Ready made: Bullet Nova
« Reply #27 on: April 24, 2008, 02:51:24 pm »
I wonder... would it be possible to create a nova around other player, but the bullets still belongs to the 'creator' of the nova? 8)
Also Known As REIMA


Lol Happles (happy apples)

Offline Irlandec

  • Soldier
  • **
  • Posts: 176
Re: Ready made: Bullet Nova
« Reply #28 on: July 18, 2008, 04:42:05 am »
nopaste goes mad on me , cannot copy the script :(

Offline Avarax

  • Veteran
  • *****
  • Posts: 1529
    • Official Hexer & MMod site
Re: Ready made: Bullet Nova
« Reply #29 on: July 18, 2008, 05:34:02 am »
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;
I like to have one Martini
Two at the very most
Three I'm under the table
Four I'm under the host

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #30 on: February 03, 2009, 12:44:22 am »
umm how would i change the weapon style in this code? i cant remember what i did, if anyone can figure it out can it bold it for me plz in their reply?
Code: [Select]
function Aim(const X1,Y1,X2,Y2: single) : single;
begin
  if (X2 - X1)<>0 then begin
    if X1 > X2 then
      result:= arctan((y2 - y1) / (x2 - x1)) + Pi
    else
      result:= arctan((y2 - y1) / (x2 - x1));
  end
  else begin
    if Y2 > Y1 then result:= Pi/2 + Pi/4;
    if Y2 < Y1 then result:= -Pi/2 + Pi/4;
  end;
end;

procedure Wave(X,Y,Direction,Offset,Radius,Speed,Power,RoomPerBullet,Radiation: single; Bullettype,Bulletcount,Owner: byte);
var i: integer;
    angle,centerX,centerY: single;
begin
  centerX:=X-cos(Direction)*Radius;
  centerY:=Y-sin(Direction)*Radius;
  angle := (1000 * 90) / (1000 * pi * 1);
  for i:=-1000 div 10 to 1000 div 10 + 1000 mod 2 do
    CreateBullet(centerX+cos(25+angle*i)*1+cos(25)*10,centerY+sin(Direction+angle*i)*90+sin(Direction)*1, cos(25+angle*i*1)*20, sin(25+angle*i*1)*30,80,2,Owner);
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
  If text = '/wave' then begin
    {Insert some Wave() calls in here. For example:}
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),20,35,19,100,1.9,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),30,35,19,100,1.95,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),40,35,19,100,2,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),50,35,19,100,2.05,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),60,35,19,100,2.1,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),70,35,19,100,2.15,0,14,5,ID);
    Wave(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),Aim(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'VelY')),80,35,19,100,2.2,0,14,5,ID);
  end;
  Result := false;
end;

been ages since ive played with my scripts

or is there a way to add a "/wave <style>" command?
« Last Edit: February 03, 2009, 12:46:53 am by frosty »
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline Avarax

  • Veteran
  • *****
  • Posts: 1529
    • Official Hexer & MMod site
Re: Ready made: Bullet Nova
« Reply #31 on: February 03, 2009, 06:24:50 am »
The 14 in your Wave() calls stands for the bullettype. Wrong thread btw.
I like to have one Martini
Two at the very most
Three I'm under the table
Four I'm under the host

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #32 on: February 03, 2009, 05:24:56 pm »
oops maybe i should have started a new thread?

wont happen again

but since i have posted here i may as well continue, can someone plz answer my last question, is there a way to add a "/wave <style>" command, or will it need to be put in a brand new script?
« Last Edit: February 03, 2009, 05:28:04 pm by frosty »
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: Ready made: Bullet Nova
« Reply #33 on: February 04, 2009, 08:28:40 am »
Do you wanna make Novas ingame?
Then use this i've made it:
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;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
Var
   Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, Temp7, Temp8: Variant;
   Temp0: String;
begin
     if Temp0 = '/nova' then begin
        Temp1 := GetPlayerStat(ID,'X');                   {Player X}
        Temp2 := GetPlayerStat(ID,'Y');                   {Player Y}
        Temp3 := strtofloat(GetPiece(Text, ' ', 1));      {Speed}
        Temp4 := strtofloat(GetPiece(Text, ' ', 2));      {Decentralize}
        Temp5 := strtofloat(GetPiece(Text, ' ', 3));      {Power}
        Temp6 := strtoint(GetPiece(Text, ' ', 4));        {Bullettype}
        Temp7 := strtoint(GetPiece(Text, ' ', 5));        {Number}
         if (Temp6 > 0) and (Temp6 < 16) then begin
         Nova(Temp1,Temp2,Temp3,Temp4,Temp5,ID,Temp6,Temp7);
      end;
   end;
Result := False;
end;
Command: "/nova <Speed> <Decentralize> <Power> <Bullettype> <Number>
NOT TESTET
« Last Edit: February 04, 2009, 08:30:17 am by y0uRd34th »

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #34 on: February 04, 2009, 04:35:38 pm »
Do you wanna make Novas ingame?
Then use this i've made it:
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;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
Var
   Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, Temp7, Temp8: Variant;
   Temp0: String;
begin
     if Temp0 = '/nova' then begin
        Temp1 := GetPlayerStat(ID,'X');                   {Player X}
        Temp2 := GetPlayerStat(ID,'Y');                   {Player Y}
        Temp3 := strtofloat(GetPiece(Text, ' ', 1));      {Speed}
        Temp4 := strtofloat(GetPiece(Text, ' ', 2));      {Decentralize}
        Temp5 := strtofloat(GetPiece(Text, ' ', 3));      {Power}
        Temp6 := strtoint(GetPiece(Text, ' ', 4));        {Bullettype}
        Temp7 := strtoint(GetPiece(Text, ' ', 5));        {Number}
         if (Temp6 > 0) and (Temp6 < 16) then begin
         Nova(Temp1,Temp2,Temp3,Temp4,Temp5,ID,Temp6,Temp7);
      end;
   end;
Result := False;
end;
Command: "/nova <Speed> <Decentralize> <Power> <Bullettype> <Number>
NOT TESTET

just tested it, doesnt work

can u plz fix it?

command tried: /nova 10 5 10 4 5
« Last Edit: February 04, 2009, 04:39:11 pm by frosty »
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: Ready made: Bullet Nova
« Reply #35 on: February 05, 2009, 01:49:46 pm »
This will work:
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;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
Var
   Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, Temp7, Temp8: Variant;
   Temp0: String;
begin
        Temp0 := GetPiece(LowerCase(Text),' ',0);
     if Temp0 = '/nova' then begin
        Temp1 := GetPlayerStat(ID,'X');                   {Player X}
        Temp2 := GetPlayerStat(ID,'Y');                   {Player Y}
        Temp3 := strtofloat(GetPiece(Text, ' ', 1));      {Speed}
        Temp4 := strtofloat(GetPiece(Text, ' ', 2));      {Decentralize}
        Temp5 := strtofloat(GetPiece(Text, ' ', 3));      {Power}
        Temp6 := strtoint(GetPiece(Text, ' ', 4));        {Bullettype}
        Temp7 := strtoint(GetPiece(Text, ' ', 5));        {Number}
         if (Temp6 > 0) and (Temp6 < 16) then begin
         Nova(Temp1,Temp2,Temp3,Temp4,Temp5,ID,Temp6,Temp7);
      end;
   end;
Result := False;
end;
I forgot a little thing  ::)

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Ready made: Bullet Nova
« Reply #36 on: February 05, 2009, 02:49:38 pm »
it works, thanks for the fix :D

would it be possible to add in an ID to the command so the admin can "force" a nova on another player or bot? lol

for example:
/nova (the usual parts) <ID>

if ID id blank then the nova is done on self

please? ill be forever grateful :D
« Last Edit: February 05, 2009, 02:58:06 pm by frosty »
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: Ready made: Bullet Nova
« Reply #37 on: February 06, 2009, 08:03:56 am »
Yes, but with the "SelfAim", i don't know, I'll show...