View difference between Paste ID: rSmiHMqj and Pt49AdnL

 #TouhouDanmakufu [Single]
 #Title[DDD Part 34a]
 #Text[Danmaku dodging for Dummies part 34a
 Love Sign: Master Spark]
 #Player[FREE]
 #ScriptVersion[2]
 //This is uploaded, Feb 10, 2013
 
 script_enemy_main {
 	#include_function ".\function_cutin.txt";
 	let count = -60; //Counter
 	let angle = 22.5; //Primary Angle
 	let angle2 = 45; //Secondary Angle
 	let angle3 = 0; //Tertiary Angle
 	let bulletID = 5; //Bullet ID #
 	let wvel = 0.25; //Angular Velocity
 	let BossImage = GetCurrentScriptDirectory~"yukkuri2.png";
 	let BossCutIn = GetCurrentScriptDirectory~"yukkuri2.png";
 	let bullet = GetCurrentScriptDirectory~"bullet.wav";
 	let laser = GetCurrentScriptDirectory~"laser.wav";
 	let spark = GetCurrentScriptDirectory~"spark.wav";
 	let ZUNbullet = GetCurrentScriptDirectory~"supershot.txt";
 
 	@Initialize {
-	LoadGraphic(BossImage);
+		LoadGraphic(BossImage);
-	LoadGraphic(BossCutIn);
+		LoadGraphic(BossCutIn);
-	LoadUserShotData(ZUNbullet);
+		LoadUserShotData(ZUNbullet);
-	SetLife(5000);
+		SetLife(5000);
-	SetDamageRate(80, 40); //% of shot damage, % of bomb damage
+		SetDamageRate(80, 40); //% of shot damage, % of bomb damage
-	SetTimer(50);
+		SetTimer(50);
-	SetInvincibility(30);
+		SetInvincibility(30);
-	cutin("BYAKUREN","Love Sign "\""Master Spark"\",BossCutIn,0,0,207,234);
+		cutin("BYAKUREN","Love Sign "\""Master Spark"\",BossCutIn,0,0,207,234);
-	SetScore(1000000);
+		SetScore(1000000);
-	SetEnemyMarker(true);
+		SetEnemyMarker(true);
-	SetDurableSpellCard;
+		SetDurableSpellCard;
-	//LastSpell;
+		//LastSpell;
-	Concentration01(30); //Frames to charge energy
+		Concentration01(30); //Frames to charge energy
-	MagicCircle(true);
+		MagicCircle(true);
-	//SetEffectForZeroLife(30, 130, 0); //TimeIntensitySlowdown0=none
+		//SetEffectForZeroLife(30, 130, 0); //TimeIntensitySlowdown0=none
-	SetMovePosition02(GetCenterX, GetCenterY - 150, 30);
+		SetMovePosition02(GetCenterX, GetCenterY - 150, 30);
-	LoadSE(bullet);
+		LoadSE(bullet);
-	LoadSE(laser);
+		LoadSE(laser);
-	LoadSE(spark);
+		LoadSE(spark);
 	}
 
 	@MainLoop {
 		SetCollisionA(GetX, GetY, 32);
 		SetCollisionB(GetX, GetY, 24);
 		if(count % 720 == 540){
 			SetMovePosition03(GetPlayerX, GetCenterY - rand(60,180), 5, 1);
 			//Xcor,Ycor,weight deceleration (lower = fluid), velocity
 		}
 		if(count % 720 == 20){
 			Spark;
 			PlaySE(spark);
 		}
 		if(count > 100 && count % 720 < 480 && count % 24 == 0){
 			bulletID = rand_int(195,196);
 			loop(15){
 				CreateShot01(GetX, GetY, 1.5, angle, bulletID, 10);
 				angle+=24;
 			}
 			PlaySE(bullet);
 			angle+=12;
 		}
 		count++;
 		yield;
 	}
 
 	@DrawLoop {
 		SetTexture(BossImage);
 		SetGraphicRect(0, 0, 207, 234); //Add one pixel to height and width
 		SetAlpha(250);
 		SetGraphicAngle(0, 0, 0);
 		SetGraphicScale(0.5, 0.5);
 		DrawGraphic(GetX,GetY);
 	}
 
 	task Spark{
 		let sparkE = Obj_Create(OBJ_EFFECT);
 		let sparkimg = GetCurrentScriptDirectory~"spell.png";
 		let sparkS;
 
 		Obj_SetPosition(sparkE, GetX, GetY);
 		ObjEffect_SetAngle(sparkE, 0, 0, GetAngleToPlayer);
 		ObjEffect_SetTexture(sparkE, sparkimg);
 		ObjEffect_SetRenderState(sparkE, ALPHA);
 		ObjEffect_SetPrimitiveType(sparkE, PRIMITIVE_TRIANGLEFAN);
 		ObjEffect_CreateVertex(sparkE, 4);
 		//LOOK AT HOW I DO THE VERTICES HERE
 		ObjEffect_SetVertexUV(sparkE,0, 0, 128);
 		ObjEffect_SetVertexUV(sparkE,1, 0, 0);
 		ObjEffect_SetVertexUV(sparkE,2, 256, 0);
 		ObjEffect_SetVertexUV(sparkE,3, 256, 128);
 		//THE UV->XY COORDINATES ARE SET UP LIKE THIS
 		// (0,0)---------------(256,0)
 		//   |                    |
 		// (BOSS)                 |
 		//   |                    |
 		// (0,128)-------------(256,128)
-		loop(120){ yield; }						//few frames of delay without laser hitbox
+
 		ObjEffect_SetVertexXY(sparkE,1, 0, -64);
 		ObjEffect_SetVertexXY(sparkE,2, 256, 64);
 		ObjEffect_SetVertexXY(sparkE,3, 256, -64)
 		ascent(i in 0..4){ObjEffect_SetVertexColor(sparkE, i, 255, 255, 255, 255);}
 
 		//use SetScale to flatteh and widen laser, including making it twice as long
-		Obj_SetAlpha(sparkS, 200);	//not sure why this is even here if the laser is invisible
+
 		loop(120){ yield; }	//few frames of delay without laser hitbox
 
 		//delay done, actually fire laser
 		sparkS = Obj_Create(OBJ_LASER);
 		Obj_SetPosition(sparkS, GetX, GetY);
 		Obj_SetAngle(sparkS, GetAngleToPlayer);
 		Obj_SetSpeed(sparkS, 0);
 		Obj_SetAlpha(sparkS, 200);	//the laser is invisible, why is this here
 		ObjLaser_SetLength(sparkS, 512);
 		ObjLaser_SetSource(sparkS, false);
 
 		ascent(i in 1..121){
 			ObjLaser_SetWidth(sparkS, i);	//widen laser hitbox
 			ObjEffect_SetScale(sparkE, i/120, 2);	//widen laser graphic
 			yield;
 		}
 
 		loop(360){yield;} //some frames with the laser at full size
 
 		descent(i in 1..121){
 			ObjLaser_SetWidth(sparkS, i);	//flatten laser hitbox
 			ObjEffect_SetScale(sparkE, i/120, 2);	//flatten laser graphic
 			yield;
 		}
 
 		//lasers disappear, done
 		Obj_Delete(sparkS);
 		Obj_Delete(sparkE);
 	}
 
 
 	@Finalize {
 		DeleteGraphic(BossImage);
 		DeleteGraphic(BossCutIn);
 		DeleteSE(bullet);
 		DeleteSE(laser);
 		DeleteSE(spark);
 	}
 
 	@BackGround {
 	}
 }