Simulated Burst Cone Script

J

JimTheDinosaur

Vault Dweller
Modder
Burst cones! Of course you can't use this for "proper" bursts, but if you, like me, want shotgun spreads and aimed mini-bursts for Bozars, then this is (I think) the way to go. The script has two parts, one setting up the cone (just copy this to something like a tohit or afterhitroll hookscript), and a hs_hexshootblocking which provides a list of burstable targets (technically the burst cone goes through walls and other blocking hexes, but because only potential targets are registered, this doesn't matter). You can download the script here.

As it is now, the script is made for "natural" burst like shotgun spreads: it fans out based on the weapon max range, not the location of the target. But it's easy enough to change to one adjusted to the target. As you can see, unlike the normal burst with three streams, this one has five streams (also, as an aside, unlike regular bursts which are more of a three stream thick band, rather than a cone, this one's a proper cone). Here's some examples (the 10mm pistols show the cone), as you can see it isn't always totally perfect, but frankly I'm fine with it as it is for the moment:

https://lh4.googleusercontent.com/-...AAAAA1c/icyf8CFunmQ/w640-h480-no/scr00000.bmp
https://lh5.googleusercontent.com/-...AAAAA1g/MniXQXswmdI/w640-h480-no/scr00001.bmp
https://lh3.googleusercontent.com/-...AAAAA1k/__cDBY4tSqc/w640-h480-no/scr00002.bmp
https://lh3.googleusercontent.com/-...AAAAA1s/ErrgVpTi8Rc/w640-h480-no/scr00003.bmp
 
That looks reeeeeeeeeeeeeally cool bro!

Jim you're like a mad scientist with these modding expediments.
 
I finally fixed a lingering issue in my burst cone, which had to do with the horizontal rotations (i.e. 1 and 4) being treated as "dominant" by the engine in its calculations (I guess this is to make the flatness of the hexes work for animations).

The script you can work from to make each line is:

Code: 
procedure draw_line(variable begin_tile, variable dest_tile, variable range, variable skip_zigzag) begin
   variable temp_dist,temp_rot,side,counter,check_tile,tile_count;
    variable tile,array,not_temp_rot_array,temp_rot_array;


      temp_dist:=tile_distance(begin_tile, dest_tile);
      temp_rot:=rotation_to_tile(begin_tile, dest_tile);
      if temp_rot == 4 then begin         //the horizontal rotations are "greedy" and are treated as having more hexes under them than they should
         if tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) > tile_distance(tile_num_in_direction(begin_tile, 5, temp_dist), dest_tile) then
            temp_rot:=5;
         else if tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) > tile_distance(tile_num_in_direction(begin_tile, 3, temp_dist), dest_tile) then
            temp_rot:=3;
      end else if temp_rot == 1 then begin
         if tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) > tile_distance(tile_num_in_direction(begin_tile, 0, temp_dist), dest_tile) then
            temp_rot:=0;
         else if tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) > tile_distance(tile_num_in_direction(begin_tile, 2, temp_dist), dest_tile) then
            temp_rot:=2;
      end
      if tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) == 0 then
          side:=0;
      else if rotation_to_tile(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) == ((temp_rot + 2) % 6) then
          side:=1;
      else if rotation_to_tile(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile) == ((temp_rot + 4) % 6) then
          side:=5;
      remainder:=0;
     tile_count:=0;
     check_tile:=0;
     temp_rot_array:=temp_array(0,0);
     not_temp_rot_array:=temp_array(0,0);
     //temp_tile_count:=tile_count; 
     if side!=0 then
         counter:=((temp_dist+0.0)/(tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile)))/2.0;
     else 
         counter:=100.0;
      while tile_count < range do begin
          if counter >= 1.0 then begin
              if check_tile == 0 then
               check_tile:=tile_num_in_direction(begin_tile, temp_rot, 1);     
           else    
               check_tile:=tile_num_in_direction(check_tile, temp_rot, 1);
             counter-=1.0;
            call array_push_no_return(temp_rot_array, check_tile);
        end else begin
             check_tile:=tile_num_in_direction(check_tile, ((temp_rot+side) % 6), 1);  
            counter:=((temp_dist+0.0)/(tile_distance(tile_num_in_direction(begin_tile, temp_rot, temp_dist), dest_tile))) + RemainderSave(counter) - 1.0;
            if skip_zigzag == 1 then       //this is to avoid the zigzag pattern
               call array_push_no_return(not_temp_rot_array, check_tile);
            else
               call array_push_no_return(temp_rot_array, check_tile);
        end 
        create_object(PID_10MM_PISTOL, check_tile, dude_elevation);
        tile_count+=1;
        if tile_count == range then
            border_tile:=check_tile;
    end
   //display_msg("len not " + len_array(not_temp_rot_array) + " len yes " + len_array(temp_rot_array));
   if len_array(not_temp_rot_array) >= len_array(temp_rot_array) then
      array:=not_temp_rot_array;
   else 
      array:=temp_rot_array;
   fix_array(array);
   return array;
end

This gives you an array with each tile coordinate as a value inside. Skip_zigzag allows you to create a "proper", non-jagged line from one hex to another which is useful when trying to make a path for something like a projectile or a sliding critter or anything dealing with animations really.

To create a burst cone, you can use:

Code: 
procedure create_burst_cone(variable begin_tile, variable dest_tile, variable range, variable size, variable skip_zigzag) begin
     variable mult,left_border_tile,right_border_tile,temp_border_tile,counter,burst_array,new_dest_tile;
     burst_array:=create_array(size,0);
     counter:=0;
     burst_array[counter]:=draw_line(begin_tile, dest_tile, range, skip_zigzag);  //center stream
     create_object(PID_METAL_ARMOR, border_tile, dude_elevation);
     left_border_tile:=border_tile;    //note that border tile is generated in previous create_project (specifically draw_line inside that)
     right_border_tile:=border_tile;
     while counter < size do begin  //left
         debug_msg(debug_array_str(burst_array));
         counter+=1;
         if counter % 2 == 1 then begin
            mult:=-1;
            temp_border_tile:=right_border_tile;
         end else begin   
            mult:=1;
            temp_border_tile:=left_border_tile;
         end
         new_dest_tile:=tile_num_in_direction(temp_border_tile, (6 + rotation_to_tile(temp_border_tile, begin_tile) + (mult)) % 6, 1);
         if tile_distance(begin_tile, new_dest_tile) < range then
            new_dest_tile:=tile_num_in_direction(temp_border_tile, (6 + rotation_to_tile(temp_border_tile, begin_tile) + (mult*2)) % 6, 1);
         if counter % 2 == 1 then
            right_border_tile:=new_dest_tile;
         else
            left_border_tile:=new_dest_tile;
         create_object(PID_LEATHER_ARMOR, new_dest_tile, dude_elevation);
         burst_array[counter]:=draw_line(begin_tile, new_dest_tile, range, skip_zigzag);  //direction streams
     end
     return burst_array;
end

This creates an array with every stream as a sub array, with size you can enter as many streams as you like.

OeLDFmR.png


1mxDp7k.png


As you can see, sometimes there's little one hex gaps that can occur from some angles, and which I don't think are avoidable.


edit: wait, I'll just clean up the code and separate out the projectile stuff. It's too messy and impractical this way.

edit: there we go.
 
Last edited:
Another cool thing about this unlimited wideness is that you can go all the way round, creating not a cone but a circle (okay, hexagon). This means you can use it to make a "proper" blast radius for explosions that pushes everyone outward from the center (given that all the "streams" move outward from this origin tile). Again, you can make the radius as wide as you want:

Code: 
procedure create_explosion_array(variable begin_tile, variable range) begin
   variable dest_tile, size, array;
   dest_tile:=tile_num_in_direction(begin_tile, 0, range);
   size:=(range*6)-1; //center "stream" is always 0
	array:=create_burst_cone(begin_tile, dest_tile, range, size, 0);
	return array;
end

Here's an example (note that the metal armor, which denotes the "center" stream in the burst cone examples, has simply lost all meaning):

hTBG4Hu.png
 
You must log in or register to reply here.
Back
Top