| | Effect scripts | |
| | Auteur | Message |
---|
yano Utilisateur confirmé: Rang **
Messages : 488 Projet Actuel : SCR Keiko Shoot them up 3D vertical.
| Sujet: Effect scripts Lun 14 Juil 2008 - 12:43 | |
| Je commence ce topic pour rassembler un maximum de script d'effets, si vous en avez, aidez-moi en les postant ici, s'ils ne sont pas de vous merci de ne pas oublier les crédits merci. Laser script() - Spoiler:
- Code:
-
//Laser Script by TemplarGFX //This script is used to check for collisions over //a distince in a direction in a single step. //It returns either the distance travelled before //hitting a blocking object, the id of the enemy we hit, //or 0 if no collision occurs
//argument0 = direction to shoot //argument1 = max distance to shoot //argument2 = object you want to damage //argument3 = blocking object //argument4 = precision (1<->argument1)
//returns 0 : no collision //returns -distance : distance to colliding point for blocking object (negative value) //returns id : id of object to damage var tempx,tempy;
for (i=argument4;i<=argument1;i+=argument4) { tempx = self.x + lengthdir_x(i,argument0); tempy = self.y + lengthdir_y(i,argument0); if (collision_line(self.x,self.y,tempx,tempy,argument2,1,1) > 0) { return collision_line(self.x,self.y,tempx,tempy,argument2,1,1); break; } if (collision_line(self.x,self.y,tempx,tempy,argument3,1,1) > 0) { return -i; break; } } return 0 Draw Event: - Code:
-
laser_length = 700; laser_check = LaserScript(direction,laser_length,enemy_obj,wall_obj,10); if (laser_check == 0) { draw_line(x,y,x+lengthdir_x(laser_length,direction),y+lengthdir_y(laser_length,direction)); } if (laser_check < 0) { draw_line(x,y,x+lengthdir_x(-laser_check,direction),y+lengthdir_y(-laser_check,direction)); } if (laser_check > 0) { draw_line(x,y,laser_check.x,laser_check.y); with (laser_check) { instance_destroy(); } }
Thunder_script() - Spoiler:
- Code:
-
/* Draw Lightning Script Ben Grabau 2007 */ var x1,x2,y1,y2,split_frq,dir,dir2,xx,yy,xfat,yfat; // Self explanatory: // Set the position for the to and from "zaps" x1=argument0 y1=argument1 x2=argument2 y2=argument3 // between 3 & 10 works best (higher number = faster, less effect) // this number is also the minimum draw distance // please, no less than 1 split_frq=argument4 // DO NOT EDIT BELOW THIS LINE... OR ELSE! lol while point_distance(x1,y1,x2,y2)>=split_frq { dir = point_direction(x1,y1,x2,y2); dir2 = dir - 45 + random(90) xx=lengthdir_x(split_frq,dir2) yy=lengthdir_y(split_frq,dir2) xfat=lengthdir_x(split_frq+1,dir2) yfat=lengthdir_y(split_frq+1,dir2) /* LINE DRAWING */ draw_set_color($FF8000) draw_set_alpha(.4) draw_line_width(x1,y1,x1+xfat,y1+yfat,5) draw_line_width(x1,y1,x1+xfat,y1+yfat,10) draw_set_color(c_white) draw_set_alpha(.5) draw_line_width(x1,y1,x1+xx,y1+yy,3) draw_set_alpha(1) draw_line(x1,y1,x1+xx,y1+yy) /* END LINE DRAWING */ x1=x1+xx y1=y1+yy } Draw event: - Code:
-
/* arg0=x1 arg1=y1 arg2=x2 arg3=y2 arg4=quality arg5=primitive arg6=electricity-color arg7=glow-color arg8=glow radius arg9=shakivness arg10=glow alpha */
electricity_draw(512,384,mouse_x,mouse_y,8,pr_linestrip,merge_color(c_blue,c_white,.2+random(.3)),c_blue,20,10,0.1)
Feufumee_script() - Spoiler:
- Code:
-
Sname = part_system_create(); particle1 = part_type_create(); particle2 = part_type_create();
part_type_shape(particle1,pt_shape_flare) part_type_size(particle1,0.20,0.30,0.50,0) part_type_scale(particle1,0.10,0.20) part_type_color3(particle1,33023,8454143,33023) part_type_alpha3(particle1,0.30,0.50,0) part_type_speed(particle1,0.40,1,0,0) part_type_direction(particle1,0,359,0,20) part_type_gravity(particle1,0.20,90) part_type_orientation(particle1,90,90,0,0,1) part_type_blend(particle1,1) part_type_life(particle1,1,40)
part_type_shape(particle2,pt_shape_smoke) part_type_size(particle2,1,1,0,0) part_type_scale(particle2,0.50,0.50) part_type_color1(particle2,12632256) part_type_alpha3(particle2,0.10,0.40,0) part_type_speed(particle2,0.50,0.50,0,0) part_type_direction(particle2,0,359,0,0) part_type_gravity(particle2,0.20,90) part_type_orientation(particle2,0,359,0,1,1) part_type_blend(particle2,0) part_type_life(particle2,60,60)
part_type_death(particle1,1,particle2)
emitter1 = part_emitter_create(Sname);
part_emitter_region(Sname,emitter1,x-5,x+5,y-5,y+5,ps_shape_ellipse ,1); part_emitter_stream(Sname,emitter1,particle1,1);
Dernière édition par yano le Lun 14 Juil 2008 - 17:16, édité 1 fois |
| | | PHENIXprod Utilisateur confirmé: Rang ****
Messages : 835
| Sujet: Re: Effect scripts Lun 14 Juil 2008 - 13:48 | |
| Met aussi des screenshots pour voir ce que ça donne |
| | | arthuro Utilisateur confirmé: Rang ****
Messages : 1483 Localisation : Paris Projet Actuel : Diagon https://arthursonzogni.com/Diagon
| Sujet: Re: Effect scripts Lun 14 Juil 2008 - 15:42 | |
| le dernier bug! essaye sa plutôt: - Spoiler:
- Code:
-
Sname = part_system_create(); particle1 = part_type_create(); particle2 = part_type_create();
part_type_shape(particle1,pt_shape_flare) part_type_size(particle1,0.20,0.30,0.50,0) part_type_scale(particle1,0.10,0.20) part_type_color3(particle1,33023,8454143,33023) part_type_alpha3(particle1,0.30,0.50,0) part_type_speed(particle1,0.40,1,0,0) part_type_direction(particle1,0,359,0,20) part_type_gravity(particle1,0.20,90) part_type_orientation(particle1,90,90,0,0,1) part_type_blend(particle1,1) part_type_life(particle1,1,40)
part_type_shape(particle2,pt_shape_smoke) part_type_size(particle2,1,1,0,0) part_type_scale(particle2,0.50,0.50) part_type_color1(particle2,12632256) part_type_alpha3(particle2,0.10,0.40,0) part_type_speed(particle2,0.50,0.50,0,0) part_type_direction(particle2,0,359,0,0) part_type_gravity(particle2,0.20,90) part_type_orientation(particle2,0,359,0,1,1) part_type_blend(particle2,0) part_type_life(particle2,60,60)
part_type_death(particle1,1,particle2)
emitter1 = part_emitter_create(Sname);
part_emitter_region(Sname,emitter1,x-5,x+5,y-5,y+5,ps_shape_ellipse ,1); part_emitter_stream(Sname,emitter1,particle1,1);
|
| | | yano Utilisateur confirmé: Rang **
Messages : 488 Projet Actuel : SCR Keiko Shoot them up 3D vertical.
| Sujet: Re: Effect scripts Lun 14 Juil 2008 - 17:16 | |
| - arthuro a écrit:
- le dernier bug!
Corrigé, merci |
| | | Topaze22 *Excellent utilisateur*
Messages : 6213 Localisation : Sur la Lune Projet Actuel : Projet HELLO/TOPAZE22 Mario Bros World
| Sujet: Re: Effect scripts Jeu 17 Juil 2008 - 22:55 | |
| - PHENIXprod a écrit:
- Met aussi des screenshots pour voir ce que ça donne
+1 |
| | | Contenu sponsorisé
| Sujet: Re: Effect scripts | |
| |
| | | | Effect scripts | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |