Maidens of the Kaleidoscope

~Hakurei Shrine~ => Rika and Nitori's Garage Experiments => Topic started by: Lishy1 on November 07, 2009, 10:31:02 PM

Title: I IZ learning danmakufu
Post by: Lishy1 on November 07, 2009, 10:31:02 PM

*nuked by yours truly*(Posted wrong script, read following post)

Title: Re: I IZ learning danmakufu
Post by: puremrz on November 07, 2009, 11:02:14 PM

Quote from: Lishy on November 07, 2009, 10:31:02 PM

Code: [Select]

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

script_enemy_main {

let speed=0;
let angle1=-10;
let angle2=190;
let shot1=0;
let frame=0;
let miny=GetClipMinY; let maxy=GetClipMaxY; let minx=GetClipMinX; let maxx=GetClipMaxX;
let cx=GetCenterX; let cy=GetCenterY;

@Initialize{
SetScore(500000);
SetLife(500);
SetTimer(50);
SetDamageRate(10,10);
SetEnemyMarker(true);
MagicCircle(true);
SetEffectForZeroLife(60,100,1);
SetMovePosition02(cx,cy-170,50);
}

@MainLoop{

SetCollisionA(GetX,GetY,32);
SetCollisionB(GetX,GetY,16);
SetShotAutoDeleteClip(64,64,64,64);

if(frame%50==0){
loop(10){
CreateShotA(shot1,GetX,GetY,0);
SetShotDataA(shot1,0,6-speed,angle1,0,-0.02,0,BLUE01);
SetShotDataA(shot1,50,1.5,angle1+90,0,0,0,RED01);
FireShot(shot1);

CreateShotA(shot1,GetX,GetY,0);
SetShotDataA(shot1,0,6-speed,angle2,0,-0.02,0,BLUE01);
SetShotDataA(shot1,50,1.5,angle2-90,0,0,0,RED01);
FireShot(shot1);
speed+=0.5;
}
angle1+=10;
angle2-=10;
speed=0;
}

if(frame==300){
frame=0;
angle1=-10;
angle2=190;
}



frame++;
}

@BackGround{
}

@DrawLoop{
}

@Finalize{
}

}
Don't expect much. I made this with basics tutorial knowledge. Also, I don't know lasers yet  :V

I made that for you! You just asked how to do it :P
Also, replace frame%50 by frame%1. It's funnnn. :V

Title: Re: I IZ learning danmakufu
Post by: Lishy1 on November 07, 2009, 11:21:17 PM

Shit
Wrong script. Heh, when you're sick, you don't pay much attention.

Let me edit the first post


This SHOULD be the correct one if it has butterflies and disks

Code: [Select]

#TouhouDanmakufu
#Title[hlol]
#Text[lol i dunno]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {
    let frame = 0;
    let frame2 = 0;
    @Initialize {
        SetLife(1000);
        SetEnemyMarker(true);
    }

    @MainLoop {
if(frame==40){
       CreateShotA(1, GetX, GetY, 10);
SetShotDataA(1, 0, 8, GetAngleToPlayer, 0, 0.1, 5, WHITE22);
SetShotDataA(1, 30, 5, GetAngleToPlayer, 90, 0.1, 3, WHITE22);
SetShotDataA(1, 60, 3, GetAngleToPlayer, 0, 0.1, 2, WHITE22);
ascent(i in 1..30){
    CreateShotA(2, 0, 0, 30);
    SetShotDataA_XY(2, 0, rand(-2, 4), rand(-1, -4), 0, 0.1, 0, 1.2, BLUE21);
    AddShot(i*1.5, 1, 2, 0);
frame = 0;
}
FireShot(1);
        }

if(frame2==60){
ascent(i in 1..20){
CreateShot01(GetX, GetY, 1.5, rand(60, 90) + i*25, RED03, 0);
frame2 = 0;
}
}

        frame++;
frame2++;
    }

    @DrawLoop {       
    }

    @Finalize {
    }
}

Title: Re: I IZ learning danmakufu
Post by: puremrz on November 07, 2009, 11:39:42 PM

Yay, it works :D

It's pretty easy though, what about speeding it up to double speed?

Code: [Select]

@MainLoop {
if(frame==20){
       CreateShotA(1, GetX, GetY, 10);
SetShotDataA(1, 0, 12, GetAngleToPlayer, 0, 0.1, 5, WHITE22);
SetShotDataA(1, 30, 9, GetAngleToPlayer, 90, 0.1, 3, WHITE22);
SetShotDataA(1, 60, 5, GetAngleToPlayer, 0, 0.1, 2, WHITE22);
ascent(i in 1..30){
  CreateShotA(2, 0, 0, 30);
  SetShotDataA_XY(2, 0, rand(-4, 7), rand(-1, -2), 0, 0.1, 0, 3, BLUE21);
  AddShot(i*1.5, 1, 2, 0);
frame = 0;
}
FireShot(1);
        }

   if(frame2==10){
   ascent(i in 1..20){
      CreateShot01(GetX, GetY, 3, rand(60, 90) + i*25, RED03, 0);
      frame2 = 0;
      }
   }

        frame++;
   frame2++;
    }
Okay, nevermind that!

Title: Re: I IZ learning danmakufu
Post by: Lishy1 on November 07, 2009, 11:42:22 PM

I'm not too good at danmaku. So if a miracle happens and I ever make a complete game of my own, it will be very easy by your standards. That said, I'm an easy/normal mode player.

Title: Re: I IZ learning danmakufu
Post by: Solais on November 08, 2009, 09:24:48 AM

Yeah, pretty easy, but good for newbie. I'm saying this as a newbie too. It's actually pretty surprising, because as I experienced, newbies (like me) tend to make hardassimpossible cards actually. :V