Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. task Delay(x, y, s, c, f){
  2. let scale = s;
  3. let obj = Obj_Create(OBJ_EFFECT);
  4. ObjEffect_SetTexture(obj, DelayGFX);
  5. ObjEffect_SetRenderState(obj, ADD);
  6. ObjEffect_SetPrimitiveType(obj,PRIMITIVE_TRIANGLEFAN);
  7. Obj_SetAlpha(obj,255);
  8. Obj_SetSpeed(obj, 0);
  9. ObjEffect_SetScale(obj, s,s);
  10. ObjEffect_SetAngle(obj, 0,0, rand_int(0,360));
  11. ObjEffect_SetLayer(obj, 5);
  12. ObjEffect_CreateVertex(obj, 4);
  13. Obj_SetX(obj, x);
  14. Obj_SetY(obj, y);
  15.  
  16. ObjEffect_SetVertexXY(obj,0,-27,-27);
  17. ObjEffect_SetVertexXY(obj,1,27,-27);
  18. ObjEffect_SetVertexXY(obj,2,27,27);
  19. ObjEffect_SetVertexXY(obj,3,-27,27);
  20.  
  21. ObjEffect_SetVertexUV(obj,0,0+c,0);
  22. ObjEffect_SetVertexUV(obj,1,54+c,0);
  23. ObjEffect_SetVertexUV(obj,2,54+c,54);
  24. ObjEffect_SetVertexUV(obj,3,0+c,54);
  25.  
  26. ObjEffect_SetVertexColor(obj, 0, 255, 255, 255, 255);
  27. ObjEffect_SetVertexColor(obj, 1, 255, 255, 255, 255);
  28. ObjEffect_SetVertexColor(obj, 2, 255, 255, 255, 255);
  29. ObjEffect_SetVertexColor(obj, 3, 255, 255, 255, 255);
  30.  
  31.  
  32. while(!Obj_BeDeleted(obj))
  33. {
  34. ObjEffect_SetScale(obj, scale+0.5, scale+0.5);
  35.  
  36.  
  37. if(f<1000){
  38. if(scale>0){
  39. scale-=s/f;
  40. }
  41. else if(scale<=0){
  42. Obj_Delete(obj);
  43. }
  44. }
  45.  
  46. yield;
  47. }
  48.  
  49. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement