copy's nützliche Scripte

Critical · 29. September 2008, 14:20

Ich finde das Skript jetzt nicht soo Sinnlos. Schon klar, dass man den Haken bei Bold setzen kann, aber was, wenn ich beides brauche (bold / nichtbold). Aber ich habe so ein Bold Skript sowas noch nie gebraucht. Es eignet sich jedoch für etwas durchaus Sinnvolleres: Konturen.

mfg Crit

Wlanuser · 25. Januar 2009, 16:27

Sorry, das ich den Thread nochmal herhole, aber das hier würde ich euch doch gerne noch zeigen.
Das Script löscht eine bestimmte Zeile aus einer Datei, bzw. schreibt diese neu ohne die Zeile.

Beispiel:

GML-Quellcode

file_text_delete_line("file.txt",1) //Löscht Zeile 1 aus file.txt!

Spoiler anzeigen

Melancor · 27. April 2009, 11:45

Manchmal hat man sowas in der Art: Es soll ein Gegenstand erstellt werden, und zwar je nach Zufall:
Typ 0: mit 15% Chance, oder Typ 1 mit 25% Chance, oder Typ 2 mit 40% Chance, oder Typ 3 mit 20% Chance
Wenn man folgendes Miniscript "choice" verwendet, kann man dafür dann schreiben:

Beispiel

GML-Quellcode

choice(15,40,80,100) // würfelt random(99) und ergibt 0 wenn <=15, 1 bei <=40, 2 bei <=80, oder 3 bei <=100

Spoiler anzeigen

SDX · 27. April 2009, 14:19

Auch mal was von mir...
nichts besonderes, bekommt jeder mit ein bisschen denken selber hin, aber ich denke er wird doch ein paar leuten praktisch sein.

Dier script sorgt dafür das man zb. in einen Platformer bergauf und bergab gehen kann.

Stepevent move_hills(höhe,speed,hsh) passend, oder?

Höhe gibt an wie hoch man gehen kann, kleiner wert=hoch.
speed kann man enfach auf die geschindichkeit setzten, also "speed"
hsh muss an die größe des objectes angepasst werden. Generell abstand zwischen center des sprite biss zu den füßen/boden. (Ihr wisst was ich meine)

Spoiler anzeigen

Nicht perfekt, sollte aber irgendwelchen auf die Beine helfen!

SDX · 30. Mai 2009, 16:25

Und noch was von mir:

Da paths im bereich motion nicht so sonderlich parktisch sind, habe ich ein paar scripts gemacht, mit denen man viele schöne andere sachen damit machen kann

draw_path_width:

Spoiler anzeigen

ist das gegenstück zu draw_line_width, nur als path...

und weil es so schön ist, gleich noch mal:

collision_path:

Spoiler anzeigen

Ist vom code her fasst das selbe

EDIT: gleich noch was:

path_parabel:

Spoiler anzeigen

und gleich noch mal eine andere version für eine parabel. Diese ist parktisch wenn man Seile zeichen will:

path_parabel2:

Spoiler anzeigen

Fortsetztung folgt..

EDIT2: fehler im collision script...

MfG SDX

Schattenphoenix · 31. Mai 2009, 05:40

Weil es fast aufs gleiche hinaus läuft? Wer Hilfe sucht, schaut im Normalfall eh in beides =D

Übrigens, das path_collision find ich ganz nett

SDX · 1. Juni 2009, 14:43

Eine kombination von ein paar der pathscripts:

draw_rope: draw_rope(x1,y1,x2,y2,lenght,width,prec)

x1,y1=das eine ende
x2,y2=das andere ende
lenght=die länge des Seils
width=die dicke des Seils
prec=präzision, so 0.05 sollte gut sein

Spoiler anzeigen

ja, paths sind doch zu was nutze!

Ein neuer script:

draw_rope_texture(x1,y1,x2,y2,lenght,width,prec,tex)

Spoiler anzeigen

GML-Quellcode

/*
by SDX
draw_rope_texture(x1,y1,x2,y2,lenght,width,prec,tex)
prec: between 1 and 0.0001, smaller=better; higher=faster
*/
var xxp, yyp, xx, yy, i, prec, x1, y1, x2, y2, l, p, prec, partlen, rot, tex;
// die variable extra gibt es für den fall das der abstand zwischne x1,y1 und x2,y2 größer als lenght ist..
x1=argument
y1=argument1
x2=argument2
y2=argument3
w=argument4
th=argument5
prec=argument6
tex=argument7
partlen=w*prec
p=path_add()
path_add_point(p,x1,y1,1)
if point_distance(x1,y1,x2,y2)<w path_add_point(p,(x1+x2)/2,w-point_distance(x1,y1,x2,y2)+(y1+y2)/2,1)
path_add_point(p,x2,y2,1)
path_set_closed(p,false)
path_set_kind(p,1)
i=0
xxp=path_get_x(p,1)
yyp=path_get_y(p,1)
xx=path_get_x(p,0)
yy=path_get_y(p,0)
texture_set_blending(false)
texture_set_repeat(true)
while (i<=1+prec){
xxp=xx
yyp=yy
xx=path_get_x(p,i)
yy=path_get_y(p,i)
rot=point_direction(xx,yy,xxp,yyp)
//hier wirds interressant
draw_primitive_begin_texture(pr_trianglefan,tex);
draw_vertex_texture(xx+lengthdir_x(partlen/2,rot)+lengthdir_x(th/2,rot-90),
yy+lengthdir_y(partlen/2,rot)+lengthdir_y(th/2,rot-90),0.5,0.5);
draw_vertex_texture(xx,yy,0,0);
draw_vertex_texture(xx+lengthdir_x(partlen,rot),yy+lengthdir_y(partlen,rot),1,0);
draw_vertex_texture(xx+lengthdir_x(partlen,rot)+lengthdir_x(th,rot-90),
yy+lengthdir_y(partlen,rot)+lengthdir_y(th,rot-90),1,1);
draw_vertex_texture(xx+lengthdir_x(th,rot-90),yy+lengthdir_y(th,rot-90),0,1);
draw_vertex_texture(xx,yy,0,0);
draw_primitive_end();
//und hier endet es auch schon wieder...
i+=prec
}

Alles anzeigen

und noch draw_paht_texture

Spoiler anzeigen

GML-Quellcode

/*
by SDX
draw_paht_texture(path,width,prec,tex)
prec: between 1 and 0.0001, smaller=better; higher=faster
*/
var xxp, yyp, xx, yy, i, prec, l, p, prec, partlen, rot, tex, extra;
// die variable extra gibt es für den fall das der abstand zwischne x1,y1 und x2,y2 größer als lenght ist..
p=argument
th=argument1
prec=argument2
tex=argument3
w=path_get_length(p)
partlen=w*prec
i=0
xxp=path_get_x(p,1)
yyp=path_get_y(p,1)
xx=path_get_x(p,0)
yy=path_get_y(p,0)
texture_set_blending(false)
texture_set_repeat(true)
while (i<=1-prec){
i+=prec
xxp=xx
yyp=yy
xx=path_get_x(p,i)
yy=path_get_y(p,i)
rot=point_direction(xx,yy,xxp,yyp)
draw_primitive_begin_texture(pr_trianglefan,tex);
draw_vertex_texture(xx+lengthdir_x(partlen/2,rot)+lengthdir_x(th/2,rot-90),
yy+lengthdir_y(partlen/2,rot)+lengthdir_y(th/2,rot-90),0.5,0.5);
draw_vertex_texture(xx,yy,0,0);
draw_vertex_texture(xx+lengthdir_x(partlen,rot),yy+lengthdir_y(partlen,rot),1,0);
draw_vertex_texture(xx+lengthdir_x(partlen,rot)+lengthdir_x(th,rot-90),
yy+lengthdir_y(partlen,rot)+lengthdir_y(th,rot-90),1,1);
draw_vertex_texture(xx+lengthdir_x(th,rot-90),yy+lengthdir_y(th,rot-90),0,1);
draw_vertex_texture(xx,yy,0,0);
draw_primitive_end();
}

Alles anzeigen

MfG SDX

Soul Reaver · 1. Juni 2009, 18:03

@SDX:

Ich denke zumindest deine collision_path()-Funktion wäre mit

GML-Quellcode

path_get_point_x()
path_get_point_y()

wesentlich schneller.

SDX · 1. Juni 2009, 18:09

natürlich wären alle meine schripte damit deutlich schneller, aber es gibt ja auch paths die smooth sind...

copyboy · 16. August 2009, 21:59

Hab mal wieder zwei Scripts hinzugefügt, die vielleicht ganz nützlich sein könnten: ds_list_foreach und draw_line_aa. Außerdem hat strings_get jetzt ein Update bekommen, weil er schon ziemlich alt war. Notiz an mich: Wenn ich noch mehr Skripte hinzufügen sollte, nicht in den Post einbauen :P

SDX · 12. Dezember 2010, 16:26

Ich habe da noch mal was gefunden.. ne handvoll Skripte..
Nun, primär für 3D Landschaften interessant.

Ein mal background_create_perlin Script, der macht eine Perlin Textur. Perfekt für zufällige Landschaften (nutze ihn in Weltensegler zur Erstellung der Lanschaft)
Sieht dann so aus:

Nun, perlin halt.

Dann wäre da noch ein generate_shadow Script. Dieser macht aus einer highmap ( in form eines grids ) eine Shadowmap. Also einen Background, den man später auf die Textur der Lanschaft legen kann. Der Effekt ist dann, dass Berge dann auf der einen Seite heller sind als auf der anderen, Schatten halt.

Und zu guter letzt ein ds_grid_blur script. Der algo hierfür ist boxblur. Bei einer 3fachen Anwendung kommt man sehr nah (glaube 0.7% unterschied) an Graussianblur ran. Perfekt wenn man die Daten eines Grids, die zb eine Highmap beschreiben, smoothen will.

Keines der Scripte ist für Step o.Ä. events gedacht. Dafür sind die einfach viel zu langsam. Haut sie in den Ladevorgang

[hide=background_create_perlin]

GML-Quellcode

/*
creates a perlin texture
background_create_perlin(
(real) size,
(real) count,
(real) octaves,
(real) weight);
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
| |
| Example: |
| background_create_perlin(128,5,5,2); |
|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
return value: background id
by SDX
*/
var a,b,c,count,c_size,oct,surf,res,size,gew,back;
size = argument0;
count = argument1;
oct = argument2/size*100;
gew = argument3;
for (c=0;c<count;c+=1) {
c_size = 128/((c*oct)+1);
surf[code=c] = surface_create(c_size,c_size);
surface_set_target(surf[code=c]);
// fill with pure randomness
for(a=0;a<c_size;a+=1) {
for(b=0;b<c_size;b+=1) {
draw_point_color(a,b,make_color_hsv(0,0,irandom(255)) );
}
}
surface_reset_target();
}
// jetzt ham wa $count surfaces verschiedener gr��en. Also alles zu einem machen
res = surface_create(size,size);
surface_set_target(res);
texture_set_interpolation(true);
draw_surface_stretched(surf[0],0,0,size,size);
for (c=1;c<count;c+=1) {
draw_surface_stretched_ext(surf[code=c],0,0,size,size,-1,(1/count)*gew);
surface_free(surf[code=c]);
}
surface_reset_target();
back = background_create_from_surface(res,0,0,size,size,0,0);
surface_free(res);
return back;

Alles anzeigen

[/hide]

[hide=generate_shadow]

GML-Quellcode

/
/*
creates a shadowmap from a grid
generate_shadow(
(ds_grid) input,
(real) angle,
(real) light);
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
| |
| Example: |
| generate_shadow( highmap_grid, 45, 2); |
|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
return value: background id
by SDX
*/
var grid, size, array, surface, angle, lenght, vx, vy, back, shadow_blur, scale, color, max_color, b_grid;
max_color = c_black;
draw_set_alpha(1);
grid = argument0;
size = ds_grid_width(grid);
b_grid = ds_grid_create(size,size);
surface = surface_create(size,size);
surface_set_target(surface);
draw_clear(c_white);
draw_set_color(c_white);
draw_rectangle(0,0,size,size,0)
for (a=0;a }
}
ds_grid_blur(b_grid,2);
for (a=0;a for (b=0;b c = ds_grid_get(b_grid,a,b);
c = make_color(c,c,c)+(255-max_color)
if (color_get_red(c)) {
c = $ffffff;
}
draw_point_color(a,b,c);
}
}
surface_reset_target();
ds_grid_destroy(b_grid);
back = background_create_from_surface(surface, 0, 0, size, size, 0, 0);
surface_free(surface);
return back;

Alles anzeigen

[/hide]
[hide=ds_grid_blur]

GML-Quellcode

/*
applies a box blur filter on a ds_grid*
ds_grid_blur(
(ds_grid) input,
(real) num);
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
| |
| Example: |
| ds_grid_blur( grid, 2); |
|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
return value: input grid
by SDX
*/
var size, array, grid;
grid = argument0;
size = ds_grid_width(grid);
repeat argument1 {
for (a=1;a for (b=1;b m = mean(ds_grid_get(grid,a-1,b), ds_grid_get(grid,a+1,b), ds_grid_get(grid,a,b+1), ds_grid_get(grid,a,b-1))
ds_grid_set(grid,a,b,m);
}
}
}
return grid;

Alles anzeigen

[/hide]

An dieser stelle kann ich auch noch mal verraten, dass ich demnächst auch den Rest von Weltensegler und all meinen Projekten nach brauchbaren Scripten durchforste. Denk mir auch was aus, um die alle irgendwo geordnet unterbringen zu können.

EDIT: für den schattenscript fehlt n weiterer script: angle_difference(angle1, angle2)

GML-Quellcode

return ((((argument0 - argument1) mod 360) + 540) mod 360) - 180;

EDIT 5.2.2011: warum sagt niemand was? Der Schattenscript ist ja total in fetzen gewesen -> gefixed

EDIT 24.3.2011: gleiches galt auch für Perlinscript

Beispiel für Perlin: perlin_example.zip

MfG SDX

Tice · 19. Februar 2011, 12:03

Hrmpf ich will auch ma :3

Ein einfaches View skript das auch mit der Maus agiert.
Einfach mal testen

Achja beim benutzten den view kein object zuordnen!

Spoiler anzeigen

masterdesaster · 16. April 2011, 19:42

Und jetzt noch was von mir

Gravitation:

Spoiler anzeigen

Und noch einen script zum erstellen von joints

joint:

Spoiler anzeigen

Partik · 20. November 2011, 23:52

Und jetzt auch mal etwas von mir:
Diese Skript prüft, ob sich die Maus in einem Definierten Rahmen, im raum befindet:

mouse_check_rectangle(x1,y1,x2,y2)

Spoiler anzeigen

hat mir bis jetzt viel unübersichtliches gecode gespart, das ganze ist natürich auch anpassbar, um Die Maus Position auf dem Bildschrim, oder im Fenster zu überprüfen.
greez Partik

EDIT: Fehler behoben, Vorschläge akzeptiert und zu Herzen genommen :D

SDX · 21. November 2011, 00:49

Partik schrieb:

GML-Quellcode

//checks wether the mouse is in a certain rectangle

//Form:

//mouse_check_rectangle(x1,y1,x2,y2)

//return: true or false

//

var x1 , y1 , x2 , y2;

x1=argument0;

x2=argument2;

y1=argument1;

y2=argument3;

if (mouse_x>x1) && (mouse_xy1) && (mouse_y{

return true;

}

else

{

return false;

}

Alles anzeigen

Solche snippets sind immer gut zu gebrauchen. Ich habe mir generell (nicht nur fürn GM) eine kleine sammlung anscripten, die am anfang eines Projektes immer erst importiert werden. Dieser ist fast überall dabei. Ich möchte noch drauf hinweisen, dass da ein fehler drin ist, die hälfte von if statement fehlt, inklusive einem )

Man kann das generell noch optimieren. Erst mal brauchst du kein else, da ein return automatisch sofort und hier und jetzt die funktion beendet.

GML-Quellcode

if (statement) {
return true;
}
return false;

Und hier noch was:
In so simplen Konstruktionen kannst du auch einfach das Statement "returnen":

GML-Quellcode

return statement;
// wäre bei dir einfach
return (mouse_x>x1 && mouse_x<x2 && mouse_y>y1 && mouse_y<y2)

Durch diese kurze Präsentation will ich dir nicht Stunden Programmierarbeit sparen, aber vllt gibt es dir mehr Verständnis von GML generell ;)

MfG SDX

DragonGamer · 22. Mai 2012, 20:06

So, ich bumpe diesen Thread jetzt mal mit einem Skript dessen Erstellung entgegen meiner ersten Schätzung fast eine Stunde gedauert hat ><

Man kann damit ein hexagonales Gitter zeichnen. Also so etwas:

Spoiler anzeigen

Hoffe mal das niemand ernsthaften Augenkrebs von den vielen, scheinbar unnötigen Variablen bekommt. Dies ist kein zeichen von schlechtem Stil sondern dient der Performance. In Zeiten von 4/8 Gb Ram Computern sind Rechenoperationen wohl teurer als der Speicherverbrauch (zumindest in meinen Tests).
Leicht zu verstehen/verändern sollte das Skript aber trotzdem geblieben sein.

Spoiler anzeigen

GML-Quellcode

// draw_hexagonal(startx, starty, width, height, width, color);
var ox, xx, yy, e, size, hsize, dsize, dhsize, tsize, rep1, rep2;
size = argument4;
hsize = size/2;
dsize = 2*size;
tsize = 3*size;
dhsize = size+hsize;
ox = argument0+size;
rep1 = argument3/size+1;
rep2 = argument2/tsize+1;
w = 0;
yy = argument1-size;
draw_set_color(argument5);
repeat(rep1)
{
xx = ox;
xx -= dhsize*(w mod 2 = 0);
w += 1;
repeat(rep2)
{
draw_primitive_begin(pr_linestrip)
draw_vertex(xx,yy);
draw_vertex(xx+size,yy);
draw_vertex(xx+dhsize,yy+size);
draw_vertex(xx+size,yy+dsize);
draw_vertex(xx,yy+dsize);
draw_vertex(xx-hsize,yy+size);
draw_vertex(xx,yy);
draw_primitive_end();
xx += tsize;
}
yy += size;
}

Alles anzeigen

Hoffe es ist nützlich für den Einen oder Anderen. Hab das Muster in einer ganzen Reihe von Spielen gesehen.

EDIT: Achja, wenn man "pr_linestrip" durch "pr_trianglefan" ersetzt kann man auch gefüllte Hexagone zeichnen...

Trixt0r · 4. Juni 2012, 20:56

@famous: nicht ganz. Du rechnest da zu viel. Geht noch einfacher:

GML-Quellcode

sichtbar = !sichtbar;

DragonGamer · 4. Juni 2012, 21:29

Und noch einfacher ist

GML-Quellcode

sichtbar ^= 1;

Funktioniert aber nicht richtig wenn die Zahl am Anfang größer als 1 ist!

Nekaida · 5. Juni 2012, 12:15

Und wenn man nicht zwischen true/false umschalten will, sondern zwischen zwei bestimmten Werten (z.B. 5 und 7) zieht man einfach den aktuellen Wert der variablen von der Summe der beiden Werte ab. Also so:

GML-Quellcode

Wert = 12 - Wert //Wert muss natürlich vorher definiert sein

Rodrog · 10. Juni 2012, 21:35

Hab hier auch mal einen Script, den ich eig. sehr oft brauche:

mouse_check_over();

GML-Quellcode

var over;
over = false;
if(argument0 != 0 && argument1+argument2+argument3 == 0) {
xx = argument0.x;
yy = argument0.y;
over =
(
(mouse_x >= xx-sprite_get_xoffset(argument0.sprite_index) && mouse_y >= yy-sprite_get_yoffset(argument0.sprite_index)) &&
(mouse_x < xx-sprite_get_xoffset(argument0.sprite_index)+sprite_get_width(argument0.sprite_index) && mouse_y < yy-sprite_get_yoffset(argument0.sprite_index)+sprite_get_height(argument0.sprite_index))
);
} else {
if(argument0+argument1+argument2+argument3 == 0) {
over = mouse_check_over(id);
} else {
xx1 = min(argument0,argument2);
xx2 = max(argument0,argument2);
yy1 = min(argument1,argument3);
yy2 = max(argument1,argument3);
over =
(
(mouse_x >= xx1 && mouse_y >= yy1) &&
(mouse_x < xx2 && mouse_y < yy2)
);
}
}
return over;

Alles anzeigen

Die Argumente können sein:
mouse_check_over(); //Gibt zurück ob die Maus über den derzeitigen Objekt ist, der diesen Code ausführt
mouse_check_over(id) //Gibt zurück ob die Maus über den übergeben Objekt ist.
mouse_check_over(x1,y1,x2,y2) //Gibt zurück ob die Maus über den Rechteck ist.

Vllt. braucht es ja jemand.

MfG Rodrog

copy's nützliche Scripte

GML-Quellcode

GML-Quellcode

Zufall mit versch. Chancen

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

Partik schrieb:

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

GML-Quellcode

Albert Einstein schrieb:

GML-Quellcode

GML-Quellcode

GML-Quellcode