Danmakufu Request Thread

[kyuu]

I set the radius to 25, then decided that 25 is VERY good if you want an extra barrage of danmaku added in somewhere.

FINAL VER:

Code: [Select]

#TouhouDanmakufu
#Title[やごころえーりん]
#Text[]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {
let BossImage = "script\img\ExRumia.png";
let frame = -60;
let a = 0;
let b = 0;
let num = 32;
let x = rand(0, -10);
let y = rand(0, -10);
let spreadsize = 22;
let graphic_spread = [RED01, ORANGE01, YELLOW01, GREEN01, AQUA01, BLUE01, PURPLE01, WHITE01];
let graphic_bubble= [RED02, ORANGE02, YELLOW02, GREEN02, AQUA02, BLUE02, PURPLE02, WHITE02];

@Initialize {
SetLife(2400); SetDamageRate(40, 0);
SetEnemyMarker(true);
LoadGraphic(BossImage);
SetMovePosition02(GetCenterX, GetClipMinY+100, 60);
CutIn(KOUMA,"復活「第二のライフゲーム」", "", 0, 0, 0, 0);
SetScore(1000000); //SetDurableSpellCard;
}

@MainLoop {
SetCollisionA(GetX, GetY, 32); //32 for boss, 10 for fairy
SetCollisionB(GetX, GetY, 24);//24 for boss, 5 for fairy
if(frame == 60) {
PlaySE("se\11\se_lazer00.wav");
ascent(i in 0..200) {
ascent(j in 0.. 200) {
CreateShot01(GetClipMinX+x+i*spreadsize, GetClipMinY+y+j*spreadsize, 0, 90, graphic_spread[rand_int(0, 7)], 10+i+j);
CreateShot01(GetClipMaxX-x-i*spreadsize, GetClipMaxY-y-j*spreadsize, 0, 90, graphic_spread[rand_int(0, 7)], 10+i+j);
}
}
}
if(frame <= 120) { DeleteEnemyShotInCircle(ALL, GetPlayerX, GetPlayerY, 25); }
if(frame >= 120 && frame <= 270 && frame % 5 == 0) {
PlaySE("se\11\se_tan02.wav");
loop(num) {
CreateShot01(GetX, GetY, rand(2, 6), GetAngleToPlayer+a, graphic_bubble[rand_int(0, 7)], 0);
a+=360/num;
}
loop(18) {
CreateShot01(GetX, GetY, 3, b, ORANGE32, 0);
CreateShot01(GetX, GetY, 3, -b, WHITE32, 0);
b+=360/18;
}
b+=7;
}
if(frame == 300) {
DeleteEnemyShot(ALL);
frame = -60;
a = 0;
b = GetAngleToPlayer;
x = rand(-5, 0);
y = rand(-5, 0);
}
frame++;
}

@DrawLoop {
SetTexture(BossImage);
SetGraphicRect(0, 0, 64, 64);
DrawGraphic(GetX, GetY);
}

@Finalize {
DeleteGraphic(BossImage);
}
}

Title: Yagokoro E~rin

[Demonbman]

...anyways, if you want, I'm ajlready working on a cut-in pic for that character I made. let's call him mr. noname.

EDIT: Done. GAH SO UGLY. I MUST BE ADAPTING A NEW STYLE.

Its not ugly, trust me, you haven't seen my work .  It actually is really cool, thanks!

[Cabble]

Here are some major annoying things in this spellcard , mainly 2

1. The annoying pause right before it spreads out.
2. If you just hold rihgt/left in a direction, you can clear out TONS of bullets making this a VERY easy card.

So I fixed it.

Code: [Select]

#TouhouDanmakufu
#Title[????????]
#Text[]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {
   let BossImage = "script\img\ExRumia.png";
   let frame = -60;
   let a = 0;
   let b = 0;
   let num = 32;
   let x = rand(0, -10);
   let y = rand(0, -10);
   let spreadsize = 22;
   let graphic_spread = [RED01, ORANGE01, YELLOW01, GREEN01, AQUA01, BLUE01, PURPLE01, WHITE01];
   let graphic_bubble= [RED02, ORANGE02, YELLOW02, GREEN02, AQUA02, BLUE02, PURPLE02, WHITE02];
   
   @Initialize {
      SetLife(2400); SetDamageRate(40, 0);
      SetEnemyMarker(true);
      LoadGraphic(BossImage);
      SetMovePosition02(GetCenterX, GetClipMinY+100, 60);
      CutIn(KOUMA,"?????????????", "", 0, 0, 0, 0);
      SetScore(1000000); //SetDurableSpellCard;
   }
   
   @MainLoop {
      SetCollisionA(GetX, GetY, 32); //32 for boss, 10 for fairy
      SetCollisionB(GetX, GetY, 24);//24 for boss, 5 for fairy
      if(frame == 60) {
         PlaySE("se\11\se_lazer00.wav");
         ascent(i in 0..19) {
            ascent(j in 0.. 22) {
               CreateShot01(GetClipMinX+x+i*spreadsize, GetClipMinY+y+j*spreadsize, 0, 90, graphic_spread[rand_int(0, 7)], 10+i+j);
               CreateShot01(GetClipMaxX-x-i*spreadsize, GetClipMaxY-y-j*spreadsize, 0, 90, graphic_spread[rand_int(0, 7)], 10+i+j);
            }
         }
      }
      if(frame >= 60){if(frame <= 100) { DeleteEnemyShotInCircle(ALL, GetPlayerX, GetPlayerY, 25); }}
      if(frame >= 120 && frame <= 270 && frame % 5 == 0) {
         PlaySE("se\11\se_tan02.wav");
         loop(num) {
            CreateShot01(GetX, GetY, rand(2, 6), GetAngleToPlayer+a, graphic_bubble[rand_int(0, 7)], 0);
            a+=360/num;
         }
         loop(18) {
            CreateShot01(GetX, GetY, 3, b, ORANGE32, 0);
            CreateShot01(GetX, GetY, 3, -b, WHITE32, 0);
            b+=360/18;
         }
         b+=7;
      }
      if(frame == 300) {
         DeleteEnemyShot(ALL);
         frame = -60;
         a = 0;
         b = GetAngleToPlayer;
         x = rand(-5, 0);
         y = rand(-5, 0);
      }
      frame++;
   }
   
   @DrawLoop {
      SetTexture(BossImage);
      SetGraphicRect(0, 0, 64, 64);
      DrawGraphic(GetX, GetY);
   }
   
   @Finalize {
      DeleteGraphic(BossImage);
   }
}

[Demonbman]

I have a sprite request:
I would like a Rena Ryuugu Sprite Sheet from Higurashi..for a boss im going to create, just in case you do not know who she is here is a picture:
(sorry for the big picture, and yes, the cleaver as well)

http://img718.imageshack.us/i/wallsunseth.jpg

[kyuu]

I have a sprite request:
I would like a Rena Ryuugu Sprite Sheet from Higurashi..for a boss im going to create, just in case you do not know who she is here is a picture:
(sorry for the big picture, and yes, the cleaver as well)

(Image removed from quote.)

Needs poses.

[Demonbman]

Needs poses.

uhhh..like Youmu, but have her tie move a bit, and her cleaver swinging back-and-forth abit

[kyuu]

uhhh..like Youmu, but have her tie move a bit, and her cleaver swinging back-and-forth abit

What's a cleaver? I'm gonna look this up...

[Demonbman]

What's a cleaver? I'm gonna look this up...

here, have a better picture:

[kyuu]

here, have a better picture:

(Image removed from quote.)

OH SHI--
I think I have to be started next evening, 'cause now till then I'm pretty busy with meh HW...
edit: aw... working on other scripts. better postpone them for this sprite sheet.
edit: made stationary sprites, but, er... yeah.
edit: I need about a week for this, I'm pretty busy, and... have a very short attention span...

[FurryYunSeong]

If it's not too much trouble, it would be awesome if someone could make a sprite sheet out of her.  I can do it, but it wont be as good.  Thanks for yer time.

[Demonbman]

If you dont mind me asking, how are the sprites comin eh?

[kyuu]

If you dont mind me asking, how are the sprites comin eh?

Not very good, just the stationary sprites done. Arg the editing is so painful.
I think I have to switch to Elly-like sprites, you know? I can't make someone do the same thing with a sword and cleaver... you know...

[ChaoStar]

here, have a better picture:
image

...I'm pretty sure Rena's cleaver is twice as long. =<

[kyuu]

...I'm pretty sure Rena's cleaver is twice as long. =<

oh sheeeeeeeeeeet?

[ChaoStar]

oh sheeeeeeeeeeet?

about... this big:

[kyuu]

about... this big:

(Image removed from quote.)

:\ OK...
Also making cleaver-less versions of the sprites.

[Demonbman]

about... this big:

(Image removed from quote.)

..whats with the santa hat?

[Suikama]

..whats with the santa hat?

It makes it kid friendly!

[Demonbman]

It makes it kid friendly!

Casey? Racheal? What the hell is this???!??!

[Suikama]

Casey? Racheal? What the hell is this???!??!

I AM GOING TO THE FIYAYSTA!

[Demonbman]

I AM GOING TO THE FIYAYSTA!

...This is a Higurashi video:

http://www.youtube.com/watch?v=5vw1ir1YtQQ&feature=related

I laughed all throughout this

[Suikama]

...This is a Higurashi video:

http://www.youtube.com/watch?v=5vw1ir1YtQQ&feature=related

I laughed all throughout this

Then you'll love this http://www.youtube.com/watch?v=HpM2Y5Wq8C8

[kyuu]

Here... sorta small, but it's OK... I think.
EDIT: Ah shit. forgot to make the bg black.
EDIT: Oh, forgot to sprite the cleaver.

[Drake]

Here. You won't be using add blending for the sprites so I just made it transparent.

[ChaoStar]

That spellcard that Ran does in Phantasm. With that big like blue lance wave thing

[Kylesky]

sorry for bumping a somewhat old thread...

a friend of mine made me make this spell card and is asking me to make a video of it... problem is, I can't beat it without continuing at least once... can someone upload a video of this somewhere? (yes, he requested that amount of life and low damage rate... he says it's supposed to be ultra-mode difficulty which is lunaticx2 for him... just hope that ultra-mode isn't harder than lunautic... )

Code: [Select]

#TouhouDanmakufu
#Title[Holy Sign "Imperial Garden"]
#Text[]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {

let frame=0;
let frame2=0;
let cx=GetCenterX();
@Initialize
{
SetScore(3000000);
SetLife(1000);
SetDamageRate(10,0);
SetTimer(500);

SetGraphicRect(1,1,64,64);
SetInvincibility(50);

SetMovePosition02(cx,90,50);
Concentration01(150);
}

@MainLoop{
SetCollisionA(GetX, GetY, 32);
SetCollisionB(GetX, GetY, 16);
frame++;
frame2++;
yield;
if(OnBomb==true)
{
SetDamageRate(0, 0);
}else{
SetDamageRate(10,0);
}
if(frame==50)
{
CreateLaserA(1, GetClipMinX+75, GetClipMaxY-180, GetClipMaxX/2-50, 20, BLUE03, 30);
CreateLaserA(2, GetClipMaxX-75, GetClipMaxY-180, GetClipMaxX/2-50, 20, BLUE03, 30);
SetLaserDataA(1, 0, 0, -1, 0, 0, 0);
SetLaserDataA(2, 0, 180, 1, 0, 0, 0);
FireShot(1);
FireShot(2);
CreateLaserA(1, GetClipMinX, GetClipMinY+50, GetClipMaxX, 30, BLUE03, 30);
CreateLaserA(2, GetClipMaxX, GetClipMinY+50, GetClipMaxX, 30, BLUE03, 30);
SetLaserDataA(1, 0, 0, 0, 0, 0, 0);
SetLaserDataA(2, 0, 180, 0, 0, 0, 0);
FireShot(1);
FireShot(2);
}
if(frame2>100 && frame2%30==0)
{
ascent(i in -1..2)
{
CreateShot01(GetX, GetY, 3, GetAngleToPlayer+i*15, RED02, 15);
CreateShot01(GetX+150, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX+150-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX+100, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX+100-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX+50, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX+50-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-50, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX-50-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-100, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX-100-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-150, GetY, 3, 180+atan2(GetY-GetPlayerY, GetX-150-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX+150, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX+150-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX+100, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX+100-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX+50, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX+50-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-50, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX-50-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-100, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX-100-GetPlayerX)+i*15, RED01, 15);
CreateShot01(GetX-150, GetY+350, 3, 180+atan2(GetY+350-GetPlayerY, GetX-150-GetPlayerX)+i*15, RED01, 15);
}
}
if(OnPlayerMissed==true)
{
frame2=-20;
SetInvincibility(120);
}
}

@Finalize
{
}

@DrawLoop
{
}
}

[kyuu]

Please tell your friend congratulations for his first impossible card (well, not really, just found a way to beat it but it requires slowdown.)

(edit: please rename your file to "holy crap [imperial garden]" for it to wark)

doesn't work!!

[Demonbman]

need.....Higurashi.....Rika.....player sprites....please....IM TAKING IT HOME WITH ME!

[ChaoStar]

That spellcard that Ran does in Phantasm. With that big like blue lance wave thing

QFE.

[kyuu]

Code: [Select]

#TouhouDanmakufu
#Title[This thing 1S]
#Text[]
#Image[]
#BackGround[IceMountain]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {
    let frame = -300;
    let BossImage = "script\img\ExRumia.png";
    let CutInGraphic = GetCurrentScriptDirectory~"img\azecut.png";
    let bossname = "This guy";
    let Spell = 1;
    let SpellName = "「SPELL CARD NAME HIDDEN」";
@Initialize {
SetLife(4370); SetDamageRate(175, 100); SetTimer(99);
SetEnemyMarker(true); MagicCircle(true); SetInvincibility(180);
LoadGraphic(BossImage);
CutIn(YOUMU, SpellName, CutInGraphic, 0, 0, 200, 200); SetScore(1200000);
TMain;
SetEffectForZeroLife(60, 55, 3);
SetShotAutoDeleteClip(200, 200, 200, 200);
}

@MainLoop {
if(Spell <= 1) {
SetCollisionA(GetX, GetY, 36); SetCollisionB(GetX, GetY, 10);
}
yield;
}

let animation = 0;
@DrawLoop {
SetFontColor(255, 255, 255, 0, 200, 255);
DrawText(bossname, 40, 36, 12, 255);
SetTexture(BossImage);
animation++; if(animation==600){animation=0;}
if(GetSpeedX()==0){
if(animation<=300){ SetGraphicRect(64,1,127,64); }
else if(animation>300 && animation<=600){ SetGraphicRect(0,1,63,64); }
}
else if(GetSpeedX()>0){SetGraphicRect(192,1,255,64);}
else if(GetSpeedX()<0){SetGraphicRect(128,1,191,64);}
SetGraphicAngle(0, 0, 0);
SetGraphicScale(1, 1);
SetRenderState(ALPHA);
SetAlpha(255);
SetColor(255, 255, 255);
DrawGraphic(GetX, GetY);
}

@Finalize {
DeleteGraphic(BossImage);
}

task TMain {
SetMovePosition02(GetCenterX, GetCenterY, 20);
loop(60){yield;}
Concentration01(120); PlaySE("se\se_ch00.wav");
loop(120){yield;}
Attack1; Attack2;
}
let a = 90; let type = 0; let graphic = [[AQUA12, BLUE01], [ORANGE12, RED01]];
task Attack1 {
loop {
PlaySE("se\se_kira01.wav");
let thing = 1; if(type%2==0){thing=1;}else{thing=-1;}
ascent (i in 0..5) { ascent (j in 0..2) { CreateShot02(GetX, GetY, 11+i/3, a+rand(-1, 1)+i*9*thing, -2/1, 2, graphic[type%2][0], 0); } }
if(type%2==0) { a-=11; } if(type%2==1) { a+=11; }
loop(1) { yield; }
}
}
task Attack2 {
loop {
loop(14) {
if(type%2==0) { a-=50; } if(type%2==1) { a+=50; }
loop(30) { yield; }
ascent(i in 0..12) {
ascent(j in 0..3) {
CreateShot01(GetX, GetY, 7, a+30+i*15, graphic[type%2][1], j*3);
CreateShot01(GetX, GetY, 7, a-30-i*15, graphic[type%2][1], j*3);
}
}
}
type++;
}
}
}
Is it possible??

Apparently I'm trying to do something like Maze of LOVE SIGN "MASTER SPARK" ...er, Maze of Love.