« previous next »
Pages: [1]   Go Down

Author Topic: VGC's Stuff He Makes Because He's Bored  (Read 6688 times)

KomeijiKoishi

VGC's Stuff He Makes Because He's Bored
« on: August 18, 2009, 10:00:55 AM »
Because everybody on this forum working with Danmakufu has his/her own thread, I decided to have one as well.
And I have a spell card which should be tested:
Code: [Select]
#TouhouDanmakufu
#Title[Sorry "But I can't think of any name for this card"]
#Text[Test script]
#BackGround[User(.\black.png, 1, 1)]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {

    let ImgBoss = "script\img\ExRumia.png";

    let count = -70;
   
   let fire = 0;

    @Initialize {
        SetLife(1000);
        SetDamageRate(10, 0);
        SetTimer(256);
        SetScore(1000000);
        SetInvincibility( 200 );
        LoadGraphic(ImgBoss);

        SetMovePosition02(GetCenterX, GetCenterY - 120, 120);
        CutIn(YOUMU, "Sorry "\""But I can't think of any name for this card"\", "", 0, 0, 0, 0);
        LoadUserShotData("\CustomShots1.txt");
        SetGraphicRect(0, 0, 64, 64);
    }

    @MainLoop {
    SetCollisionA(GetX, GetY, 32);
    SetCollisionB(GetX, GetY, 16);

    if ((count == 50)){
    Rainbow;
    Shot;
    }
   
    count++;
    yield;
    }

    @DrawLoop {
      SetTexture(ImgBoss);
      DrawGraphic(GetX, GetY);
    }

    @Finalize {
      DeleteGraphic(ImgBoss);
    }

   task Shot{
   let b = 0;
   let bup = 1;
   let reverse = 0;
   let lrar = 0;
   let kput = 1;
   let krar = 360/kput;
   
   
   let Length = 200;
   
   let n = 0;
   
   let q = 0;
   
   let RollerX;
   let RollerY;
   
   loop{
   
   PlaySE(GetCurrentScriptDirectory~"SE\se_tan01.wav");
    ascent(a in 1..kput+1){
    RollerX = GetX + Length * cos((a*krar+b)+1*(360/2));
    RollerY = GetY + sin((a*krar+b)+1*(360/2));
    CreateShot01(RollerX, RollerY, 1, (a*krar+b)+count*3, 131, 0);
    CreateShot01(RollerX, RollerY, 1, (a*krar+b)+120+count*3, 131, 0);
    CreateShot01(RollerX, RollerY, 1, (a*krar+b)+240+count*3, 131, 0);
                 
    }
   if (reverse == 0){
   if (bup < 80.7){
   bup += 0;
   }
   else{
   reverse++;
   }
   }
   else{
   if (bup > -80.7){
   bup -= 0;
   }
   else{
   reverse--;
   }
   }
   b += bup;
   if (Length < 200){
   Length += 0;
   reverse--
   }
   if (Length > 200){
   Length -= 1;
   reverse++
   }
   
   loop(3){
   yield;
   }
   }
   }
   
   task Rainbow{
   let b = 0;
   let bup = 6.3;
   let reverse = 0;
   let lrar = 0;
   let kput = 18;
   let krar = 360/kput;
   
   
   let Length = 0;
   
   let n = 0;
   
   let q = 0;
   
   let RollerX;
   let RollerY;
   
   loop{
   
   PlaySE(GetCurrentScriptDirectory~"SE\se_tan01.wav");
    ascent(a in 0..kput){
    RollerX = GetX + Length * cos((a*krar+b)+1*(360/2));
    RollerY = GetY + Length * sin((a*krar+b)+1*(360/2));
   TheshotL(RollerX, RollerY, 0.1, (a*krar+b), 49, 0);
   TheshotR(RollerX, RollerY, 0.1, (a*krar+b), 49, 0);
   TheshotL(RollerX, RollerY, 0.3, (a*krar+b), 50, 6);
   TheshotR(RollerX, RollerY, 0.3, (a*krar+b), 50, 6);
   TheshotL(RollerX, RollerY, 0.5, (a*krar+b), 51, 12);
   TheshotR(RollerX, RollerY, 0.5, (a*krar+b), 51, 12);
   TheshotL(RollerX, RollerY, 0.7, (a*krar+b), 52, 18);
   TheshotR(RollerX, RollerY, 0.7, (a*krar+b), 52, 18);
   TheshotL(RollerX, RollerY, 0.9, (a*krar+b), 53, 24);
   TheshotR(RollerX, RollerY, 0.9, (a*krar+b), 53, 24);
   TheshotL(RollerX, RollerY, 1.1, (a*krar+b), 54, 30);
   TheshotR(RollerX, RollerY, 1.1, (a*krar+b), 54, 30);
   TheshotL(RollerX, RollerY, 1.3, (a*krar+b), 55, 36);
   TheshotR(RollerX, RollerY, 1.3, (a*krar+b), 55, 36);
   TheshotL(RollerX, RollerY, 1.5, (a*krar+b), 56, 42);
   TheshotR(RollerX, RollerY, 1.5, (a*krar+b), 56, 42);
   TheshotL(RollerX, RollerY, 1.7, (a*krar+b), 57, 48);
   TheshotR(RollerX, RollerY, 1.7, (a*krar+b), 57, 48);
   TheshotL(RollerX, RollerY, 1.9, (a*krar+b), 58, 54);
   TheshotR(RollerX, RollerY, 1.9, (a*krar+b), 58, 54);
   TheshotL(RollerX, RollerY, 2.1, (a*krar+b), 59, 60);
   TheshotR(RollerX, RollerY, 2.1, (a*krar+b), 59, 60);
   TheshotL(RollerX, RollerY, 2.3, (a*krar+b), 60, 66);
   TheshotR(RollerX, RollerY, 2.3, (a*krar+b), 60, 66);
                 
    }
   if (reverse == 0){
   if (bup < 80.7){
   bup += 0;
   }
   else{
   reverse++;
   }
   }
   else{
   if (bup > -80.7){
   bup -= 0;
   }
   else{
   reverse--;
   }
   }
   b += bup;
   if (Length > -900){
   Length -= 0;
   }
   
   loop(72){
   yield;
   }
   }
   }
   
    task TheshotL(x, y, v, angle, graphic, delay){
        let obj = Obj_Create(OBJ_SHOT);
      let a = 0;
      let b = 0;
      let dir = angle;
        Obj_SetX(obj, x);
        Obj_SetY(obj, y);
        Obj_SetSpeed(obj, 2.5);
        Obj_SetAngle(obj, angle);
        ObjShot_SetGraphic(obj, graphic);
        ObjShot_SetDelay(obj, delay);
      Obj_SetAutoDelete(obj, false);
      ObjShot_SetBombResist(obj, true);
        while (!Obj_BeDeleted(obj)){
      if (a >= 0){
      Obj_SetAngle(obj, angle+(a-delay)/1.8);
      }
      if (a >= 310+delay){
      Obj_SetAutoDelete(obj, true);
      }
      a++;
      yield;
      }
   }

    task TheshotR(x, y, v, angle, graphic, delay){
        let obj = Obj_Create(OBJ_SHOT);
      let a = 0;
      let b = 0;
      let dir = angle;
        Obj_SetX(obj, x);
        Obj_SetY(obj, y);
        Obj_SetSpeed(obj, 2.5);
        Obj_SetAngle(obj, angle);
        ObjShot_SetGraphic(obj, graphic);
        ObjShot_SetDelay(obj, delay);
      Obj_SetAutoDelete(obj, false);
      ObjShot_SetBombResist(obj, true);
        while (!Obj_BeDeleted(obj)){
      if (a >= 0){
      Obj_SetAngle(obj, angle-(a-delay)/1.8);
      } 
      if (a >= 310+delay){
      Obj_SetAutoDelete(obj, true);
      }

      a++;
      yield;
      }
   }


   
}
Make sure this script can use puremrz's shotdata.
« Last Edit: August 18, 2009, 10:34:22 AM by VideoGameCrack »
Logged

Suikama

Re: VGC's Stuff He Makes Because He's Bored
« Reply #1 on: August 18, 2009, 03:48:59 PM »
It runs at like 30 fps for me ._.
Logged

KomeijiKoishi

Re: VGC's Stuff He Makes Because He's Bored
« Reply #2 on: August 19, 2009, 07:02:07 AM »
Quote from: Suikama on August 18, 2009, 03:48:59 PM
It runs at like 30 fps for me ._.
Must be your PC. On mine it runs with 60 FPS.
Logged

KomeijiKoishi

Re: VGC's Stuff He Makes Because He's Bored
« Reply #3 on: August 20, 2009, 10:11:27 AM »
Code: [Select]
#TouhouDanmakufu
#Title[Rainbow "Wings"]
#Text[Test script]
#BackGround[User(.\black.png, 1, 1)]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main {

    let ImgBoss = "script\img\ExRumia.png";

    let count = -70;
   
   let fire = 0;

    @Initialize {
        SetLife(1000);
        SetDamageRate(10, 0);
        SetTimer(256);
        SetScore(1000000);
        SetInvincibility( 200 );
        LoadGraphic(ImgBoss);

        SetMovePosition02(GetCenterX, GetCenterY - 120, 120);
        CutIn(YOUMU, "Rainbow "\""Wings"\", "", 0, 0, 0, 0);
        LoadUserShotData("\CustomShots1.txt");
        SetGraphicRect(0, 0, 64, 64);
    }

    @MainLoop {
    SetCollisionA(GetX, GetY, 32);
    SetCollisionB(GetX, GetY, 16);

    if ((count == 50)){
    Rainbow;
    Shot;
    }
   
    count++;
    yield;
    }

    @DrawLoop {
      SetTexture(ImgBoss);
      DrawGraphic(GetX, GetY);
    }

    @Finalize {
      DeleteGraphic(ImgBoss);
    }

   task Shot{
   let b = 0;
   let bup = 1;
   let reverse = 0;
   let lrar = 0;
   let kput = 9;
   let krar = 360/kput;
   
   
   let Length = 0;
   
   let n = 0;
   
   let q = 0;
   
   let RollerX;
   let RollerY;
   
   loop{
   
   PlaySE(GetCurrentScriptDirectory~"SE\se_tan01.wav");
    ascent(a in 1..kput+1){
    RollerX = GetX + Length * cos((a*krar+b)+1*(360/2));
    RollerY = GetY + sin((a*krar+b)+1*(360/2));
    CreateShot01(RollerX, RollerY, 1, GetAngleToPlayer, 131, 0+a*10);

                 
    }
   if (reverse == 0){
   if (bup < 80.7){
   bup += 0;
   }
   else{
   reverse++;
   }
   }
   else{
   if (bup > -80.7){
   bup -= 0;
   }
   else{
   reverse--;
   }
   }
   b += bup;
   if (Length < 200){
   Length += 0;
   reverse--
   }
   if (Length > 200){
   Length -= 1;
   reverse++
   }
   
   loop(180){
   yield;
   }
   }
   }
   
   task Rainbow{
   let b = 0;
   let bup = 6.3;
   let reverse = 0;
   let lrar = 0;
   let kput = 12;
   let krar = 360/kput;
   
   
   let Length = 0;
   
   let n = 0;
   
   let q = 0;
   
   let RollerX;
   let RollerY;
   let C;
   
   loop{
   
   PlaySE(GetCurrentScriptDirectory~"SE\se_tan01.wav");
    ascent(a in 0..kput){
    RollerX = GetX + Length * cos((a*krar+b)+1*(360/2));
    RollerY = GetY + Length * sin((a*krar+b)+1*(360/2));
    C = rand(GetAngleToPlayer-3, GetAngleToPlayer+3);
   TheshotL(RollerX, RollerY, 1, C-120-count-a*5, 49+a, 0+a*5);
   TheshotL(RollerX, RollerY, 1, C-90-count-a*5, 49+a, 0+a*5);
   TheshotL(RollerX, RollerY, 1, C-60-count-a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+60+count+a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+90+count+a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+120+count+a*5, 49+a, 0+a*5);
   TheshotL(RollerX, RollerY, 1, C-120+count+a*5, 49+a, 0+a*5);
   TheshotL(RollerX, RollerY, 1, C-90+count+a*5, 49+a, 0+a*5);
   TheshotL(RollerX, RollerY, 1, C-60+count+a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+60-count-a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+90-count-a*5, 49+a, 0+a*5);
   TheshotR(RollerX, RollerY, 1, C+120-count-a*5, 49+a, 0+a*5);
                 
    }
   if (reverse == 0){
   if (bup < 80.7){
   bup += 0;
   }
   else{
   reverse++;
   }
   }
   else{
   if (bup > -80.7){
   bup -= 0;
   }
   else{
   reverse--;
   }
   }
   b += bup;
   if (Length > -900){
   Length -= 0;
   }
   
   loop(60){
   yield;
   }
   }
   }
   
    task TheshotL(x, y, v, angle, graphic, delay){
        let obj = Obj_Create(OBJ_SHOT);
      let a = 0;
      let b = 0;
      let dir = angle;
        Obj_SetX(obj, x);
        Obj_SetY(obj, y);
        Obj_SetSpeed(obj, 1.4);
        Obj_SetAngle(obj, angle);
        ObjShot_SetGraphic(obj, graphic);
        ObjShot_SetDelay(obj, delay);
      Obj_SetAutoDelete(obj, false);
      ObjShot_SetBombResist(obj, true);
        while (!Obj_BeDeleted(obj)){
      if (a >= 0){
      Obj_SetAngle(obj, angle+(a-delay)/3);
      }
      if (a >= 310+delay){
      Obj_SetAutoDelete(obj, true);
      }
      a++;
      yield;
      }
   }

    task TheshotR(x, y, v, angle, graphic, delay){
        let obj = Obj_Create(OBJ_SHOT);
      let a = 0;
      let b = 0;
      let dir = angle;
        Obj_SetX(obj, x);
        Obj_SetY(obj, y);
        Obj_SetSpeed(obj, 1.4);
        Obj_SetAngle(obj, angle);
        ObjShot_SetGraphic(obj, graphic);
        ObjShot_SetDelay(obj, delay);
      Obj_SetAutoDelete(obj, false);
      ObjShot_SetBombResist(obj, true);
        while (!Obj_BeDeleted(obj)){
      if (a >= 0){
      Obj_SetAngle(obj, angle-(a-delay)/3);
      } 
      if (a >= 310+delay){
      Obj_SetAutoDelete(obj, true);
      }

      a++;
      yield;
      }
   }


   
}
An altered version of the first card.
Logged
Pages: [1]   Go Up
« previous next »