Add existing file

script/KevinSystem/GeneralSoundLib.txt

@@ -0,0 +1,113 @@
+// Sound effects for boss go here. 
+
+let lib = GetModuleDirectory() ~ "./script/KevinSystem/RyannSFX/ryannlib/";
+let libKev = "script/KevinSound/";
+
+let SFXVol = GetAreaCommonData("Config", "SEVol", 100) * 0.01;
+
+// Sound paths
+
+let defeatsnd = lib ~ "../bossdie.wav";
+let lw = lib ~ "sp_lastword.wav";
+
+let bullet1 = libKev ~ "bfxr_Shoot1.wav"; // Regular bullet sound
+let bullet2 = libKev ~ "bfxr_Shoot2.wav"; // Shiny bullet sound
+
+let bullet3 = lib ~ "se_explode.wav"; 
+let lightning1 = lib ~ "se_don00.wav"; // Lightning sound 1/Explosion sound
+let lightning2 = lib ~ "se_kira02.wav"; // Lightning sound 2
+let laze = lib ~ "se_lazer01.wav"; // Laser sound
+let lazeB = lib ~ "se_lazer00.wav";
+let slash = lib ~ "se_slash.ogg";
+
+let pause = libKev ~ "bfxr_Pause.wav";
+let chargeA = libKev ~ "bfxr_Charge.wav";
+
+let selection = libKev ~ "se_select00.wav";
+let thunder = lib ~ "se_boon00.wav"; // Thunder/delay laser sound
+let bomb = lib ~ "se_nep00.wav";
+
+let extend = libKev ~ "bfxr_ExtendLegacy.wav"; // Clear game!
+
+let lenenwarn = lib ~ "../lenenwarning.wav";
+let chargeB = lib ~ "se_ch01.wav";
+
+// Sound objects declarations
+
+let warnsfx = ObjSound_Create();
+let lwmusic = ObjSound_Create();
+let fire1 = ObjSound_Create();
+let fire2 = ObjSound_Create();
+let fire3 = ObjSound_Create();
+let light1 = ObjSound_Create();
+let light2 = ObjSound_Create();
+let laser = ObjSound_Create();
+let laserB = ObjSound_Create();
+let charge = ObjSound_Create();
+let phase = ObjSound_Create();
+let grz = ObjSound_Create();
+let swing = ObjSound_Create();
+let pausesfx = ObjSound_Create();
+let choose = ObjSound_Create();
+let thundersfx = ObjSound_Create();
+let bombsfx = ObjSound_Create();
+let extendsfx = ObjSound_Create();
+let icebreak = ObjSound_Create();
+let entrance = ObjSound_Create();
+
+int sfxBoom = ObjSound_Create();
+
+// Merge function that loads sounds and significantly decreases volume
+// so the ears do not die from SFX overload. 
+
+function LoadEx(targetobj, targetpath, targetvol){
+
+	ObjSound_Load(targetobj, targetpath);
+	ObjSound_SetVolumeRate(targetobj, targetvol * SFXVol);
+	ObjSound_SetSoundDivision(targetobj, SOUND_SE);
+}
+
+task _SoundTask{
+
+	LoadEx(lwmusic, lw, 80);
+	LoadEx(fire1, bullet1, 35);
+	LoadEx(fire2, bullet2, 35);
+	LoadEx(light1, lightning1, 20);
+	LoadEx(light2, lightning2, 20);
+	LoadEx(laser, laze, 20);
+	LoadEx(laserB, lazeB, 20);
+	//LoadEx(grz, graze, 20);
+	LoadEx(swing, slash, 20);
+	LoadEx(pausesfx, pause, 20);
+	LoadEx(choose, selection, 18);
+	LoadEx(thundersfx, thunder, 25);
+	LoadEx(charge, chargeA, 40);
+	LoadEx(phase, chargeB, 25);
+	LoadEx(fire3, bullet3, 35);
+	LoadEx(bombsfx, bomb, 50);
+	LoadEx(extendsfx, extend, 50);
+	LoadEx(warnsfx, lenenwarn, 30);
+	LoadEx(icebreak, lib ~ "se_don00.wav", 60);
+	LoadEx(entrance, lib ~ "se_gun00.wav", 60);
+	
+	LoadEx(sfxBoom, libKev ~ "bfxr_EnemyBoom.wav", 45);
+}
+
+// Functions to load sounds in scripts
+
+task Shoot1{ObjSound_Play(fire1); return;}
+task Shoot2{ObjSound_Play(fire2); return;}
+task Shoot3{ObjSound_Play(fire3); return;}
+task Lit1{ObjSound_Play(light1); return;}
+task Lit2{ObjSound_Play(light2); return;}
+task GrazeSFX{ObjSound_Play(grz); return;}
+task SwordSlashSFX{ObjSound_Play(swing); return;}
+task PauseGameSFX{ObjSound_Play(pausesfx); return;}
+task SelectOptionSFX{ObjSound_Play(choose); return;}
+task LaserSFX{ObjSound_Play(laser); return;}
+task LaserBSFX{ObjSound_Play(laserB); return;}
+task ThunderSFX{ObjSound_Play(thundersfx); return;}
+task ChargeSFX{ObjSound_Play(charge); return;}
+task ChargeBreakSFX{ObjSound_Play(phase); return;}
+task BombSFX{ObjSound_Play(bombsfx); return;}
+task ExtendSFX{ObjSound_Play(extendsfx); return;}

script/KevinSystem/KevinShot/misc.txt

@@ -0,0 +1,33 @@
+/*
+For Danmakufu users.
+
+These functions are meant to be used alongside my pastel shotsheet due to the very high native resolution.
+*/
+
+// Bullet rescaling task, also has functionality for setting a new hitbox size relative to the new bullet graphic size. I highly recommend leaving hitboxscale to true.
+
+task _BulletRescale(target, float scale, bool hitboxscale, hitboxlevel){
+
+	ObjRender_SetScaleXYZ(target, scale, scale, 1);
+	
+	if (hitboxscale){
+		ObjShot_SetIntersectionScaleXY(target, scale*hitboxlevel, scale*hitboxlevel); // Note the formula. The hitbox will have been scaled accordingly along with the bullet graphic, but you can use hitboxlevel to adjust the scale further.
+		return;
+	}
+	
+	else{return;}
+	
+}
+
+// Delay task, provided by Naudiz (@Naudogs). For best effects, ensure destscale is equal to the resized scale of the bullet graphic, and orgscale be larger than it. 
+
+task _Delay(target, del, orgscale, destscale, orgalpha, destalpha){
+
+	ObjShot_SetDelay(target, del); 
+	ObjShot_SetDelayGraphic(target, ObjShot_GetImageID(target)); // unless you already have the ID in the function somewhere, in which case you can just use that, or use any other graphic
+	ObjShot_SetDelayMode(target, DELAY_LERP, LERP_ACCELERATE, LERP_DECELERATE); // delay mode, scale lerp, alpha lerp. Check ph3sx's New Functions Documentation.txt for more details.
+	ObjShot_SetDelayScaleParameter(target, destscale, orgscale, del); // lerps from orgscale to destscale scale in del frames (use the value from ObjShot_SetDelay for del)
+	ObjShot_SetDelayAlphaParameter(target, destalpha, orgalpha, del); // lerps from orgalpha to destalpha scale in del frames (use the value from ObjShot_SetDelay for del)
+	return;
+	
+}

script/KevinSystem/KevinShot/readme.txt

@@ -0,0 +1,28 @@
+Kevin's Ultra HD/4K Pastel Shotsheet
+
+0.10a
+
+--------
+
+Thank you for downloading and using my pastel shotsheet!
+
+This shotsheet features various common bullet types in a variety of "pastel" colors - colors lighter than your usual bullet graphics, but they should hopefully still be just as visible nonetheless. It has a *very* big native resolution (the first sheet is 4096x4096, with each bullet graphic being 256x256), and therefore is meant to be used with a similarly large game resolution and/or bullet rescaling functions. (See misc.txt for information regarding the latter in Danmakufu). It comes pre-packed with shot data and shot constant sheets meant for instant use in Danmakufu. 
+
+The shotsheet is still heavily incomplete. In the works is a second sheet (4096x2048) featuring more bullet types (fireballs, lasers, bubbles), some changes to existing bullet graphics to improve aesthetic and visibility, and half-size versions for regular HD reoslutions.
+
+How to use:
+
+Extract the directory to an appropriate location in your project and to load them, just include the shot constant text file in your script file (shotconst_4K.txt).
+--------
+The shot sheet images can be used in other engines as well. However it is the responsibility of the user to port the shot sheet data themselves.
+
+The shot sheet images are free to use NON-COMMERCIALLY. Please credit me (Kevinmonitor/Kevin Mink) fully!
+
+You are free to modify the shot sheets. Please state so if you do so however (for example, in the credits for your project you put a "modified by the author with permission" next to my attribution).
+
+Please do not redistribute these shotsheets on your own.
+--------
+CONTACT:
+
+Discord: Kevinmonitor#6745
+Twitter: @kevinminh_alt

script/KevinSystem/KevinShot/shotconst_HD.txt

@@ -0,0 +1,108 @@
+
+local
+{
+	LoadTextureEx(GetCurrentScriptDirectory ~ "./KevinShot_Alt_HD.png", true, true);
+	LoadTextureEx(GetCurrentScriptDirectory ~ "./KevinShot_Alt_HD_Fireball.png", true, true);
+	LoadEnemyShotData(GetCurrentScriptDirectory ~ "shotdata_HD.txt");
+	LoadEnemyShotData(GetCurrentScriptDirectory ~ "shotdata_HD_2.txt");
+}
+
+const KEV_BALL_RED = 2000;
+const KEV_BALL_ORANGE = 2001;
+const KEV_BALL_YELLOW = 2002;
+const KEV_BALL_GREEN = 2003;
+const KEV_BALL_AQUA = 2004;
+const KEV_BALL_LAVENDER = 2005;
+const KEV_BALL_PURPLE = 2006;
+const KEV_BALL_PINK = 2007;
+const KEV_BALL_WHITE = 2008;	
+
+const KEV_PEOPLE_RED = 2011;
+const KEV_PEOPLE_ORANGE = 2012;
+const KEV_PEOPLE_YELLOW = 2013;
+const KEV_PEOPLE_GREEN = 2014;
+const KEV_PEOPLE_AQUA = 2015;
+const KEV_PEOPLE_LAVENDER = 2016;
+const KEV_PEOPLE_PURPLE = 2017;
+const KEV_PEOPLE_PINK = 2018;
+const KEV_PEOPLE_WHITE = 2019;		
+
+const KEV_LEAF_RED = 2022;
+const KEV_LEAF_ORANGE = 2023;
+const KEV_LEAF_YELLOW = 2024;
+const KEV_LEAF_GREEN = 2025;
+const KEV_LEAF_AQUA = 2026;
+const KEV_LEAF_LAVENDER = 2027;
+const KEV_LEAF_PURPLE = 2028;
+const KEV_LEAF_PINK = 2029;
+const KEV_LEAF_WHITE = 2030;	
+
+const KEV_AMULET_RED = 2033;
+const KEV_AMULET_ORANGE = 2034;
+const KEV_AMULET_YELLOW = 2035;
+const KEV_AMULET_GREEN = 2036;
+const KEV_AMULET_AQUA = 2037;
+const KEV_AMULET_LAVENDER = 2038;
+const KEV_AMULET_PURPLE = 2039;
+const KEV_AMULET_PINK = 2040;
+const KEV_AMULET_WHITE = 2041;		
+
+const KEV_ARROW_RED = 2044;
+const KEV_ARROW_ORANGE = 2045;
+const KEV_ARROW_YELLOW = 2046;
+const KEV_ARROW_GREEN = 2047;
+const KEV_ARROW_AQUA = 2048;
+const KEV_ARROW_LAVENDER = 2049;
+const KEV_ARROW_PURPLE = 2050;
+const KEV_ARROW_PINK = 2051;
+const KEV_ARROW_WHITE = 2052;		
+
+const KEV_BUTTERFLY_RED = 2055;
+const KEV_BUTTERFLY_ORANGE = 2056;
+const KEV_BUTTERFLY_YELLOW = 2057;
+const KEV_BUTTERFLY_GREEN = 2058;
+const KEV_BUTTERFLY_AQUA = 2059;
+const KEV_BUTTERFLY_LAVENDER = 2060;
+const KEV_BUTTERFLY_PURPLE = 2061;
+const KEV_BUTTERFLY_PINK = 2062;
+const KEV_BUTTERFLY_WHITE = 2063;			
+
+const KEV_AURABALL_RED = 2066;
+const KEV_AURABALL_ORANGE = 2067;
+const KEV_AURABALL_YELLOW = 2068;
+const KEV_AURABALL_GREEN = 2069;
+const KEV_AURABALL_AQUA = 2070;
+const KEV_AURABALL_LAVENDER = 2071;
+const KEV_AURABALL_PURPLE = 2072;
+const KEV_AURABALL_PINK = 2073;
+const KEV_AURABALL_WHITE = 2074;				
+
+const KEV_FIRE_RED = 2075;
+const KEV_FIRE_ORANGE = 2076;
+const KEV_FIRE_YELLOW = 2077;
+const KEV_FIRE_GREEN = 2078;
+const KEV_FIRE_AQUA = 2079;
+const KEV_FIRE_LAVENDER = 2080;
+const KEV_FIRE_PURPLE = 2081;
+const KEV_FIRE_PINK = 2082;
+const KEV_FIRE_WHITE = 2083;
+
+const KEV_BUBBLE_RED = 2086;
+const KEV_BUBBLE_ORANGE = 2087;
+const KEV_BUBBLE_YELLOW = 2088;
+const KEV_BUBBLE_GREEN = 2089;
+const KEV_BUBBLE_AQUA = 2090;
+const KEV_BUBBLE_LAVENDER = 2091;
+const KEV_BUBBLE_PURPLE = 2092;
+const KEV_BUBBLE_PINK = 2093;
+
+const KEV_KNIFE_RED = 2096;
+const KEV_KNIFE_ORANGE = 2097;
+const KEV_KNIFE_YELLOW = 2098;
+const KEV_KNIFE_GREEN = 2099;
+const KEV_KNIFE_AQUA = 2100;
+const KEV_KNIFE_LAVENDER = 2101;
+const KEV_KNIFE_PURPLE = 2102;
+const KEV_KNIFE_PINK = 2103;
+
+

script/KevinSystem/KevinShot/shotdata_HD.txt

@@ -0,0 +1,100 @@
+#UserShotData
+
+shot_image = "./KevinShot_Alt_HD.png"
+
+ShotData { id = 2000 rect = (0,0,128,128) collision = 26 delay_color = (255,255,255) } //RED
+ShotData { id = 2001 rect = (128,0,256,128) collision = 26 delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2002 rect = (256,0,384,128) collision = 26 delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2003 rect = (384,0,512,128) collision = 26 delay_color = (255,255,255) } //GREEN
+ShotData { id = 2004 rect = (512,0,640,128) collision = 26 delay_color = (255,255,255) } //AQUA
+ShotData { id = 2005 rect = (640,0,768,128) collision = 26 delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2006 rect = (768,0,896,128) collision = 26 delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2007 rect = (896,0,1024,128) collision = 26 delay_color = (255,255,255) } //PINK
+ShotData { id = 2008 rect = (1024,0,1152,128) collision = 26 delay_color = (255,255,255) } //WHITE					
+
+ShotData { id = 2011 rect = (0,128,128,256) collision = (17,0,-7) delay_color = (255,255,255) } //RED
+ShotData { id = 2012 rect = (128,128,256,256) collision = (17,0,-7) delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2013 rect = (256,128,384,256) collision = (17,0,-7) delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2014 rect = (384,128,512,256) collision = (17,0,-7) delay_color = (255,255,255) } //GREEN
+ShotData { id = 2015 rect = (512,128,640,256) collision = (17,0,-7) delay_color = (255,255,255) } //AQUA
+ShotData { id = 2016 rect = (640,128,768,256) collision = (17,0,-7) delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2017 rect = (768,128,896,256) collision = (17,0,-7) delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2018 rect = (896,128,1024,256) collision = (17,0,-7) delay_color = (255,255,255) } //PINK
+ShotData { id = 2019 rect = (1024,128,1152,256) collision = (17,0,-7) delay_color = (255,255,255) } //WHITE					
+
+ShotData { id = 2022 rect = (0,256,128,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //RED
+ShotData { id = 2023 rect = (128,256,256,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2024 rect = (256,256,384,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2025 rect = (384,256,512,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //GREEN
+ShotData { id = 2026 rect = (512,256,640,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //AQUA
+ShotData { id = 2027 rect = (640,256,768,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2028 rect = (768,256,896,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2029 rect = (896,256,1024,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //PINK
+ShotData { id = 2030 rect = (1024,256,1152,384) collision = (8,0,6) collision = (8,0,-6) delay_color = (255,255,255) } //WHITE						
+
+ShotData { id = 2033 rect = (0,384,128,512) collision = (28,0,0) delay_color = (255,255,255) } //RED
+ShotData { id = 2034 rect = (128,384,256,512) collision = (28,0,0) delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2035 rect = (256,384,384,512) collision = (28,0,0) delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2036 rect = (384,384,512,512) collision = (28,0,0) delay_color = (255,255,255) } //GREEN
+ShotData { id = 2037 rect = (512,384,640,512) collision = (28,0,0) delay_color = (255,255,255) } //AQUA
+ShotData { id = 2038 rect = (640,384,768,512) collision = (28,0,0) delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2039 rect = (768,384,896,512) collision = (28,0,0) delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2040 rect = (896,384,1024,512) collision = (28,0,0) delay_color = (255,255,255) } //PINK
+ShotData { id = 2041 rect = (1024,384,1152,512) collision = (28,0,0) delay_color = (255,255,255) } //WHITE					
+
+ShotData { id = 2044 rect = (0,512,128,640) collision = (8,0,20) delay_color = (255,255,255) } //RED
+ShotData { id = 2045 rect = (128,512,256,640) collision = (8,0,20) delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2046 rect = (256,512,384,640) collision = (8,0,20) delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2047 rect = (384,512,512,640) collision = (8,0,20) delay_color = (255,255,255) } //GREEN
+ShotData { id = 2048 rect = (512,512,640,640) collision = (8,0,20) delay_color = (255,255,255) } //AQUA
+ShotData { id = 2049 rect = (640,512,768,640) collision = (8,0,20) delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2050 rect = (768,512,896,640) collision = (8,0,20) delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2051 rect = (896,512,1024,640) collision = (8,0,20) delay_color = (255,255,255) } //PINK
+ShotData { id = 2052 rect = (1024,512,1152,640) collision = (8,0,20) delay_color = (255,255,255) } //WHITE	
+
+ShotData { id = 2055 rect = (0,640,128,768) collision = 12 delay_color = (255,255,255) } //RED
+ShotData { id = 2056 rect = (128,640,256,768) collision = 12 delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2057 rect = (256,640,384,768) collision = 12 delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2058 rect = (384,640,512,768) collision = 12 delay_color = (255,255,255) } //GREEN
+ShotData { id = 2059 rect = (512,640,640,768) collision = 12 delay_color = (255,255,255) } //AQUA
+ShotData { id = 2060 rect = (640,640,768,768) collision = 12 delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2061 rect = (768,640,896,768) collision = 12 delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2062 rect = (896,640,1024,768) collision = 12 delay_color = (255,255,255) } //PINK
+ShotData { id = 2063 rect = (1024,640,1152,768) collision = 12 delay_color = (255,255,255) } //WHITE						
+
+ShotData { id = 2066 rect = (0,768,128,896) collision = 18 delay_color = (255,255,255) } //RED
+ShotData { id = 2067 rect = (128,768,256,896) collision = 18 delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2068 rect = (256,768,384,896) collision = 18 delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2069 rect = (384,768,512,896) collision = 18 delay_color = (255,255,255) } //GREEN
+ShotData { id = 2070 rect = (512,768,640,896) collision = 18 delay_color = (255,255,255) } //AQUA
+ShotData { id = 2071 rect = (640,768,768,896) collision = 18 delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2072 rect = (768,768,896,896) collision = 18 delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2073 rect = (896,768,1024,896) collision = 18 delay_color = (255,255,255) } //PINK
+ShotData { id = 2074 rect = (1024,768,1152,896) collision = 18 delay_color = (255,255,255) } //WHITE
+
+75 -> 83: fireballs
+
+ShotData { id = 2086 rect = (0,896,256,1152) collision = 48 delay_color = (255,255,255) } //RED
+ShotData { id = 2087 rect = (256,896,512,1152) collision = 48 delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2088 rect = (512,896,768,1152) collision = 48 delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2089 rect = (768,896,1024,1152) collision = 48 delay_color = (255,255,255) } //GREEN
+ShotData { id = 2090 rect = (1024,896,1280,1152) collision = 48 delay_color = (255,255,255) } //AQUA
+ShotData { id = 2091 rect = (1280,896,1536,1152) collision = 48 delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2092 rect = (1536,896,1792,1152) collision = 48 delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2093 rect = (1792,896,2048,1152) collision = 48 delay_color = (255,255,255) } //PINK
+
+ShotData { id = 2096 rect = (0,1152,128,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //RED
+ShotData { id = 2097 rect = (128,1152,256,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2098 rect = (256,1152,384,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2099 rect = (384,1152,512,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //GREEN
+ShotData { id = 2100 rect = (512,1152,640,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //AQUA
+ShotData { id = 2101 rect = (640,1152,768,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2102 rect = (768,1152,896,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2103 rect = (896,1152,1024,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //PINK
+ShotData { id = 2104 rect = (1024,1152,1152,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //WHITE
+ShotData { id = 2105 rect = (1152,1152,1280,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //
+ShotData { id = 2106 rect = (1280,1152,1408,1280) collision = (8.5,0,-9.5) collision = (8.5,0,6.5) collision = (8.5,0,19.5) collision = (6.5,0,32.5) delay_color = (255,255,255) } //
+
+
+
+

script/KevinSystem/KevinShot/shotdata_HD_2.txt

@@ -0,0 +1,13 @@
+#UserShotData
+
+shot_image = "./KevinShot_Alt_HD_Fireball.png"
+
+ShotData { id = 2075 AnimationData { animation_data = ( 4, 0, 0, 128, 128);  animation_data = ( 4, 128, 0, 256, 128);  animation_data = ( 4, 256, 0, 384, 128);  animation_data = ( 4, 384, 0, 512, 128);  animation_data = ( 4, 512, 0, 640, 128); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //RED
+ShotData { id = 2076 AnimationData { animation_data = ( 4, 0, 128, 128, 256);  animation_data = ( 4, 128, 128, 256, 256);  animation_data = ( 4, 256, 128, 384, 256);  animation_data = ( 4, 384, 128, 512, 256);  animation_data = ( 4, 512, 128, 640, 256); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //ORANGE
+ShotData { id = 2077 AnimationData { animation_data = ( 4, 0, 256, 128, 384);  animation_data = ( 4, 128, 256, 256, 384);  animation_data = ( 4, 256, 256, 384, 384);  animation_data = ( 4, 384, 256, 512, 384);  animation_data = ( 4, 512, 256, 640, 384); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //YELLOW
+ShotData { id = 2078 AnimationData { animation_data = ( 4, 0, 384, 128, 512);  animation_data = ( 4, 128, 384, 256, 512);  animation_data = ( 4, 256, 384, 384, 512);  animation_data = ( 4, 384, 384, 512, 512);  animation_data = ( 4, 512, 384, 640, 512); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //GREEN
+ShotData { id = 2079 AnimationData { animation_data = ( 4, 0, 512, 128, 640);  animation_data = ( 4, 128, 512, 256, 640);  animation_data = ( 4, 256, 512, 384, 640);  animation_data = ( 4, 384, 512, 512, 640);  animation_data = ( 4, 512, 512, 640, 640); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //AQUA
+ShotData { id = 2080 AnimationData { animation_data = ( 4, 0, 640, 128, 768);  animation_data = ( 4, 128, 640, 256, 768);  animation_data = ( 4, 256, 640, 384, 768);  animation_data = ( 4, 384, 640, 512, 768);  animation_data = ( 4, 512, 640, 640, 768); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //LAVENDER
+ShotData { id = 2081 AnimationData { animation_data = ( 4, 0, 768, 128, 896);  animation_data = ( 4, 128, 768, 256, 896);  animation_data = ( 4, 256, 768, 384, 896);  animation_data = ( 4, 384, 768, 512, 896);  animation_data = ( 4, 512, 768, 640, 896); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //PURPLE
+ShotData { id = 2082 AnimationData { animation_data = ( 4, 0, 896, 128, 1024);  animation_data = ( 4, 128, 896, 256, 1024);  animation_data = ( 4, 256, 896, 384, 1024);  animation_data = ( 4, 384, 896, 512, 1024);  animation_data = ( 4, 512, 896, 640, 1024); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //PINK
+ShotData { id = 2083 AnimationData { animation_data = ( 4, 0, 1024, 128, 1152);  animation_data = ( 4, 128, 1024, 256, 1152);  animation_data = ( 4, 256, 1024, 384, 1152);  animation_data = ( 4, 384, 1024, 512, 1152);  animation_data = ( 4, 512, 1024, 640, 1152); } render = ADD_ARGB  collision = 13 delay_color = (255,255,255) } //WHITE

script/KevinSystem/Kevin_PlayerLib.txt

@@ -0,0 +1,345 @@
+/* --------------------------------------------------------------------
+	
+	UNIVERSAL/GENERAL FUNCTIONS USED FOR PLAYERS
+	
+	These functions may/will be reused for future scripts as well.
+	
+   --------------------------------------------------------------------
+*/
+
+#include "script/KevinSystem/kevin_system/Kevin_ItemConst.txt"
+#include "script/KevinSystem/kevin_system/Kevin_ItemLib.txt"
+
+float universalAlpha = GetAreaCommonData("Config", "PlayerShotOpacity", 60);
+
+task _DeleteEffect(obj){
+	ObjRender_SetBlendType(obj, BLEND_ADD_ARGB);
+	Obj_SetRenderPriorityI(obj, 41);
+	ascent(i in 0..30){
+		ObjRender_SetAlpha(obj, Interpolate_Decelerate(100*(universalAlpha/100), 0, i/30));
+		ObjRender_SetScaleXYZ(obj, Interpolate_Decelerate(0.5, 1.5, i/30));
+		ObjMove_SetSpeed(obj, 12);
+		yield;
+	}
+	Obj_Delete(obj);
+}
+
+// Renders player movement. Assumes that all sprites are ORGANIZED HORIZONTALLY IN THE SHEET.
+// flipscale can only be 1 or -1.
+
+task _RenderPlayerMovement(int obj, int frame, int offsetleft, int offsettop, int width, int height, float flipscale, int frameno, int speed){
+
+	ObjSprite2D_SetSourceRect(obj, offsetleft+width*floor(frame/speed), offsettop, width+width*floor(frame/speed), offsettop+height);
+	ObjRender_SetScaleX(objPlayer, flipscale);
+	
+}
+
+// Bullet rescaling... for player shots.
+task _BulletRescalePlayer(int target, float scale, bool hitboxscale, float hitboxlevel){
+	ObjRender_SetScaleXYZ(target, scale, scale, 1);
+	if (hitboxscale){
+		ObjShot_SetIntersectionScaleXY(target, scale*hitboxlevel, scale*hitboxlevel);
+	}
+}
+
+// Handles death/respawn sigil. Assumes sigils are 512x512 in size.
+// If death is true (the player dies), the circle expands outwards. Otherwise (the player bombs/respawns), it shrinks inwards.
+
+task _SigilCall(bool death, texture, int rectleft, int recttop, int rectright, int rectbottom, int objPlayer, int time){
+
+	let DeathCircle = ObjPrim_Create(OBJ_SPRITE_2D);
+
+	ObjPrim_SetTexture(DeathCircle,teamimg);
+	ObjSprite2D_SetSourceRect(DeathCircle, rectleft, recttop, rectright, rectbottom);
+	ObjSprite2D_SetDestCenter(DeathCircle);
+	ObjRender_SetBlendType(DeathCircle,BLEND_ALPHA);
+	ObjRender_SetAlpha(DeathCircle,255);
+
+	ObjRender_SetPosition(DeathCircle,GetPlayerX(),GetPlayerY(),1);
+	Obj_SetRenderPriorityI(DeathCircle,Obj_GetRenderPriorityI(objPlayer)-1);
+
+	alternative(death)
+	case(true){
+		ascent(i in 0..time){
+			float scaliealpha = Interpolate_Decelerate(255, 0, i/time);
+			float scaliesize = Interpolate_Decelerate(0.1, 1.5, i/time);
+			ObjRender_SetAlpha(DeathCircle, scaliealpha);
+			ObjRender_SetPosition(DeathCircle,GetPlayerX(),GetPlayerY(),1);
+			ObjRender_SetScaleXYZ(DeathCircle, scaliesize, scaliesize, 1);
+			yield;
+		}
+	}
+	case(false){
+		ascent(i in 0..time){
+			float scaliealpha = Interpolate_Accelerate(255, 0, i/time);
+			float scaliesize = Interpolate_Accelerate(1.5, 0.1, i/time);
+			ObjRender_SetAlpha(DeathCircle, scaliealpha);
+			ObjRender_SetPosition(DeathCircle,GetPlayerX(),GetPlayerY(),1);
+			ObjRender_SetScaleXYZ(DeathCircle, scaliesize, scaliesize, 1);
+			yield;
+		}
+	}
+
+	
+	while(ObjRender_GetAlpha(DeathCircle) > 0){yield;}
+	Obj_Delete(DeathCircle);
+	
+}
+
+// Handles the hitbox and its aura. What the fuck. 
+
+task _HitboxRender(
+	bool playerdeathbool, int objPlayer, texture_hbox, texture_aura, 
+	int rectleft_hbox, int recttop_hbox, int rectright_hbox, int rectbottom_hbox, 
+	int rectleft_aura, int recttop_aura, int rectright_aura, int rectbottom_aura, 
+	float scale_hbox, float scale_aura){
+
+	// Handle hitbox
+	bool visible = false;
+	int hitbox = ObjPrim_Create(OBJ_SPRITE_2D);
+	
+	ObjPrim_SetTexture(hitbox, texture_hbox);
+	ObjSprite2D_SetSourceRect(hitbox, rectleft_hbox, recttop_hbox, rectright_hbox, rectbottom_hbox);
+	ObjSprite2D_SetDestCenter(hitbox);
+	ObjRender_SetScaleXYZ(hitbox, scale_hbox, scale_hbox, 1);
+	ObjRender_SetBlendType(hitbox, BLEND_ALPHA);
+	Obj_SetRenderPriorityI(hitbox, 79);
+
+	Obj_SetVisible(hitbox, false);
+
+	// Handle hitbox's aura
+	
+	int aura = ObjPrim_Create(OBJ_SPRITE_2D);
+	
+	ObjPrim_SetTexture(aura, texture_aura);
+	ObjSprite2D_SetSourceRect(aura, rectleft_aura, recttop_aura, rectright_aura, rectbottom_aura);
+	ObjSprite2D_SetDestCenter(aura);
+	ObjRender_SetScaleXYZ(aura, scale_aura, scale_aura, 1);
+	ObjRender_SetAlpha(aura, 70);
+	//ObjRender_SetBlendType(aura, BLEND_ADD_ARGB);
+	Obj_SetRenderPriorityI(aura, Obj_GetRenderPriorityI(objPlayer)+3);
+	
+	Obj_SetVisible(aura, false);
+	
+	loop{
+		if (visible && (!Obj_IsVisible(objPlayer) || GetVirtualKeyState(VK_SLOWMOVE) != KEY_HOLD)){
+			visible = false;
+			Obj_SetVisible(hitbox, false);
+			Obj_SetVisible(aura, false);
+		}
+		else if (!visible && (Obj_IsVisible(objPlayer) && (GetVirtualKeyState(VK_SLOWMOVE) == KEY_HOLD || GetVirtualKeyState(VK_SLOWMOVE) == KEY_PUSH))){
+			visible = true;
+			Obj_SetVisible(aura, true);
+			Obj_SetVisible(hitbox, true);
+			async{
+				while(Obj_IsVisible(aura)){
+					float curang = ObjRender_GetAngleZ(aura);
+					ObjRender_SetAngleZ(aura, curang+1);
+					yield;
+				}
+			}
+			async{
+				ascent(i in 0..20){
+					float scalie = Interpolate_Decelerate(scale_aura*1.5, scale_aura, i/20);
+					ObjRender_SetScaleXYZ(aura, scalie, scalie, 1);
+					yield;
+				}
+			}
+			
+			async{
+				ascent(i in 0..20){
+					float scalie = Interpolate_Decelerate(0, 80, i/20);
+					ObjRender_SetAlpha(aura, scalie);
+					yield;
+				}
+			}
+		}
+		ObjRender_SetPosition(hitbox, ObjMove_GetX(objPlayer), ObjMove_GetY(objPlayer), 1);
+		ObjRender_SetPosition(aura, ObjMove_GetX(objPlayer), ObjMove_GetY(objPlayer), 1);
+		yield;
+	}
+
+}
+
+/* 
+Simple function that handles player options. These options simply follow the player at an offset - they do not have any trajectories of their own like spinning around the player, etc.
+If the options have animations, set triggeranimation to true and adjust the number of frames + speed using delay and frameno.
+If the options rotate (in place), set triggerspin to true and adjust spinning speed using spinspeed.
+If the options only appear unfocused or focused, set either onlyFocus or onlyUnfocus to true. Setting both to true or false makes the options always visible.
+*/
+
+function PlayerOption(
+	float offsetx, float offsety, 
+	texture, 
+	int left, int top, int right, int bottom, float scale,
+	int width, int animdelay, int frameno, bool triggeranimation, 
+	bool triggerspin, float spinspeed,
+	bool onlyFocus, bool onlyUnfocus
+	){
+	
+	let option = ObjPrim_Create(OBJ_SPRITE_2D);
+	bool visible;
+	int animate = 0;
+	float optx;
+	float opty;
+	
+	ObjPrim_SetTexture(option, texture);
+	ObjSprite2D_SetSourceRect(option, left, top, right-1, bottom-1); // Allows the options to spin smoothly should the user choose to do so.
+	ObjSprite2D_SetDestCenter(option);
+	ObjRender_SetScaleXYZ(option, scale);
+	ObjRender_SetBlendType(option, BLEND_ALPHA);
+	ObjRender_SetAlpha(option, 225);
+	Obj_SetRenderPriorityI(option, 41);
+	ObjRender_SetPosition(option, offsetx, offsety, 1);
+	
+	// Animation
+	async{
+		while(triggeranimation){
+			ObjSprite2D_SetSourceRect(option, left+width*floor(animate/animdelay), top, right+width*floor(animate/animdelay)-1, bottom-1);
+			animate++;
+			if (animate >= animdelay*frameno){animate = 0;}
+			yield;
+		}
+	}
+	
+	// Rotation
+	async{
+		float i = 0;
+		while(triggerspin){
+			//ObjRender_SetPosition(option, GetPlayerX()+offsetx, GetPlayerY()+offsety, 1);
+			ObjRender_SetAngleZ(option, i);
+			i += spinspeed;
+			yield;
+		}
+	}
+	
+	// Follow
+	async{
+		while(true){
+			ObjRender_SetPosition(option, GetPlayerX()+offsetx, GetPlayerY()+offsety, 1);
+			yield;
+		}
+	}
+	
+	// Visibility
+	async{
+		// Always visible
+		if((onlyFocus && onlyUnfocus) || (!onlyFocus && !onlyUnfocus)) {
+			loop
+			{
+				if(GetPlayerState != STATE_NORMAL && GetPlayerState != STATE_HIT){ObjRender_SetAlpha(option, max(0, ObjRender_GetAlpha(option)-15)); visible = false;}
+				else {ObjRender_SetAlpha(option, min(225, ObjRender_GetAlpha(option)+15)); visible = true;}
+				yield;
+			}
+		}
+		// Visible when focused only
+		else if(onlyFocus && !onlyUnfocus){
+			loop
+			{
+				if((GetPlayerState != STATE_NORMAL && GetPlayerState != STATE_HIT) || GetVirtualKeyState(VK_SLOWMOVE) == KEY_FREE){ObjRender_SetAlpha(option, max(0, ObjRender_GetAlpha(option)-15)); visible = false;}
+				else {ObjRender_SetAlpha(option, min(225, ObjRender_GetAlpha(option)+15)); visible = true;}
+				yield;
+			}
+		}	
+		// Visible when unfocused only
+		else if(!onlyFocus && onlyUnfocus){
+			loop
+			{
+				if((GetPlayerState != STATE_NORMAL && GetPlayerState != STATE_HIT) || GetVirtualKeyState(VK_SLOWMOVE) != KEY_FREE){ObjRender_SetAlpha(option, max(0, ObjRender_GetAlpha(option)-15)); visible = false;}
+				else {ObjRender_SetAlpha(option, min(225, ObjRender_GetAlpha(option)+15)); visible = true;}
+				yield;
+			}
+		}	
+	}
+
+	function _FadeIn(){
+		ascent(i in 0..15){
+			ObjRender_SetAlpha(option, Interpolate_Decelerate(0, 225, i/15));
+			yield;
+		}
+	}
+	
+	function _FadeOut(){
+		ascent(i in 0..15){
+			ObjRender_SetAlpha(option, Interpolate_Decelerate(225, 0, i/15));
+			yield;
+		}
+	}
+	
+	return option;
+}
+
+/*
+------------------------------------------------------
+
+	POINTBLANK-PIV MECHANIC FUNCTIONS 
+	Will be optimized somewhere down the line.
+
+------------------------------------------------------
+*/
+
+// Selects an enemy in the @MainLoop-updated _enemyArray, executes _PetalDrop, and adds it to _existArray so the task isn't called again for the same enemy. maxX and maxY are the bounds of the playing field.
+
+task _Mechanic(bool playerdeathbool, int[] _enemyArray, int [] _existArray, float maxX, float maxY, int objPlayer, int bossScene, int maxrate, int addrate, float adddist){
+	while(!playerdeathbool){
+		_enemyArray = GetIntersectionRegistedEnemyID();
+		bossScene = GetEnemyBossSceneObjectID();
+		for each (int enemy in ref _enemyArray){
+			float enemyX = ObjMove_GetX(enemy);
+			float enemyY = ObjMove_GetY(enemy);
+			if (0 < enemyX && enemyX < maxX && 0 < enemyY && enemyY < maxY && !contains(_existArray, enemy)){
+				_PetalDrop(enemy, playerdeathbool, objPlayer, bossScene, maxrate, addrate, adddist);
+				_existArray = _existArray ~ [enemy];
+			}
+			else{continue;}
+		}
+		yield;
+	}
+}
+
+// Checks the boss scene type (nonspell/spell/last spell/invalid), the ID of the player object, and the target enemy. Drops petals with a type and drop rate that depends on the boss scene type and how close the player is to the target enemy. The last three parameters control the drop rate, and are significantly higher for Erika & Tenshi.
+
+task _PetalDrop(int target, bool playerdeathbool, int objPlayer, int bossScene, int maxrate, int addrate, float adddist){
+
+	while(!Obj_IsDeleted(target) && !playerdeathbool){
+		float dist = hypot(ObjMove_GetX(target)-ObjMove_GetX(objPlayer), ObjMove_GetY(target)-ObjMove_GetY(objPlayer));
+		let atktype = GetEnemyBossSceneObjectID();
+		if(dist <= (GetStgFrameHeight()-100) && atktype != ID_INVALID && ObjEnemy_GetInfo(target, INFO_SHOT_HIT_COUNT) >= 1){
+		
+			NotifyEventAll(EV_PIV_250, [ObjMove_GetX(target), ObjMove_GetY(target)]);
+			wait(maxrate + addrate*floor(dist/adddist));
+				
+		}
+		else{yield;}
+	}
+	
+}
+
+function <int> _Create2DImage(imgpath, int[] rectarray){
+		
+	int imgname = ObjPrim_Create(OBJ_SPRITE_2D);
+	ObjPrim_SetTexture(imgname, imgpath);
+	ObjSprite2D_SetSourceRect(imgname, rectarray);
+	ObjSprite2D_SetDestCenter(imgname);
+	//ObjRender_SetPosition(imgname, positionstart)
+	
+	return imgname;
+}
+
+task _DeathbombWarning(imgpath, int[] imgrectarray, int deathbombframes, float basescale){
+
+	int circle = _Create2DImage(imgpath, imgrectarray);
+	Obj_SetRenderPriorityI(circle, 75);
+	ObjRender_SetAlpha(circle, 255);
+	ObjRender_SetPosition(circle, ObjRender_GetX(GetPlayerObjectID()), ObjRender_GetY(GetPlayerObjectID()), 1);
+	ObjRender_SetBlendType(circle, BLEND_INV_DESTRGB);
+	
+	ascent(i in 0..deathbombframes-1){
+		ObjRender_SetScaleXYZ(circle, Interpolate_Accelerate(basescale, 0, i/(deathbombframes-1)));
+		yield;
+	}
+	
+	Obj_Delete(circle);
+	return;
+	
+}

script/KevinSystem/Kevin_System.txt

@@ -0,0 +1,862 @@
+
+// SYSTEM FOR STATION GAME
+let dirCurrent = GetCurrentScriptDirectory();
+
+// Change accordingly!
+
+int offsetX = 1551;
+int baseY = 155;
+int spaceY = 135; 
+float scale = 1.15*1.6;
+
+int sel = 0; //"
+
+// Item, life, spell graphics
+
+let graphicimg = dirCurrent ~ "./img/yo.png";
+let lifebarimg = dirCurrent ~ "./img/lifebar.png";
+LoadTextureEx(graphicimg, true, true);
+
+/*
+Lifebar empty = (5, 5, 534, 34)
+Lifebar split = (6, 38, 18, 74)
+Lifebar full = (5, 78, 16, 108)
+
+*/
+
+// 
+
+//#include "./../script/soundtask.txt"
+
+#include "script/KevinSystem/GeneralSoundLib.txt"
+
+@Initialize
+{
+	_SoundTask();
+	
+	SetStgFrame(504, 0, 1415, 997, 20, 80); 
+	
+	sel = prand_int(0, 99);
+	
+	SetPauseScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_Pause.txt");
+	SetEndSceneScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_EndScene.txt");
+	SetReplaySaveSceneScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_ReplaySave.txt");
+	
+	InitFrame();
+	
+	//TInstallFont(); Moved to package.
+	
+	TScore();
+	//TGraze();
+	//SetPlayerLife(9);
+
+	LifeDisplay();
+	SpellDisplay();
+	
+	//THighScore();
+	TValueDisplay();
+	
+	StartItemScript(dirCurrent ~ "./kevin_system/KevinSystem_Item.txt");
+	
+	//TExtendSystem();
+	TBossLife();
+	TBossTimer();
+	TCurrentFps();
+	TReplayFps();
+	//_SoundTask;
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Event
+{
+	alternative(GetEventType())
+	case(EV_START_BOSS_SPELL)
+	{
+		let path = dirCurrent ~ "Default_System_MagicCircle.txt";
+		let id = LoadScript(path);
+		StartScript(id);
+	}
+	case(EV_GAIN_SPELL)
+	{
+		let objScene = GetEnemyBossSceneObjectID();
+		let spellbonus = ObjEnemyBossScene_GetInfo(objScene, INFO_SPELL_SCORE);
+		TScoreAward(spellbonus);
+	}
+}
+
+function CreateTextObject(
+	float mx, my, size,
+	string text, font,
+	int colorTop, colorBottom,
+	int borderColor, borderWidth,
+	int renderPriority
+	){
+	
+	let obj = ObjText_Create();
+	ObjText_SetText(obj, text);
+	ObjText_SetFontSize(obj, size);
+	ObjText_SetFontType(obj, font);
+	ObjText_SetFontColorTop(obj, colorTop);
+	ObjText_SetFontColorBottom(obj, colorBottom);
+	ObjText_SetFontBorderType(obj, BORDER_FULL);
+	ObjText_SetFontBorderColor(obj, borderColor);
+	ObjText_SetFontBorderWidth(obj, borderWidth);
+	Obj_SetRenderPriorityI(obj, renderPriority);
+	ObjRender_SetX(obj, mx);
+	ObjRender_SetY(obj, my);
+	return obj;
+	
+}
+
+// Grants extends based on score
+
+task TExtendSystem(){
+
+	// NEXT: Text (y around 650?) (x around 2250?)
+	
+	/*let NextText = 
+	
+	CreateTextObject(
+		1625, 465, 30,
+		"NEXT:", "Connecting Chain Handserif",
+		0xA70053, 0xA70053,
+		0xFFFFFF, 2,
+		1
+	);*/
+	
+	//ObjText_SetFontBold(NextText, true);
+	// Indicates the score threshold needed for the next extend
+	
+	let ExtendThresholdText = 
+	
+	CreateTextObject(
+		250, 960, 24,
+		"", "Exotc350 DmBd BT",
+		0xA70053, 0xA70053,
+		0xFFFFFF, 2,
+		21
+	);
+	
+	ObjText_SetFontBold(ExtendThresholdText, true);
+	ObjText_SetHorizontalAlignment(ExtendThresholdText, ALIGNMENT_RIGHT);
+	
+	int count = 0;
+	// Millions
+	let req = [
+
+	];
+	
+	if(GetCommonData("Difficulty", "Arcade") == "Arcade"){req = [20, 80, 200, 500, 800, 1200, 2500, 5000];}
+	else{req = [15, 50, 100, 180, 300, 600, 1000, 2000, 4000];}
+	
+	let next = 0;
+	
+	loop{
+		count = (trunc(GetScore())/10)*10;
+		if(next <= length(req)-1){
+			if(count >= req[next]*1000000){
+				next++;
+				SetPlayerLife(GetPlayerLife+1);
+				ExtendSFX;
+				ExtendEffect;
+			}
+		}
+		if(next != 8){ObjText_SetText(ExtendThresholdText, "NEXT: " ~ DigitToCommaArray(req[next]*1000000));}
+		else{ObjText_SetText(ExtendThresholdText, "MAX EXTEND");}
+		yield;
+	}
+}
+
+task ExtendEffect(){
+
+	int time = 30;
+	int timeDisappear = 30;
+	
+	float x = GetPlayerX();
+	float y = GetPlayerY()-90;
+	
+	int extendText = CreateTextObject(
+		x, y, 75,
+		"Life[r]Extend!", "Exotc350 DmBd BT",
+		0xFF61AE, 0xFFFFFF,
+		0x5E0064, 6,
+		42
+	);
+	
+	ObjText_SetLinePitch(extendText, -2);
+	ObjText_SetFontBold(extendText, true);
+	ObjText_SetHorizontalAlignment(extendText, ALIGNMENT_CENTER);
+	
+	ascent(i in 0..time){
+		ObjRender_SetY(extendText, Interpolate_Decelerate(y, y-120, i/time));
+		yield;
+	}
+	
+	wait(15);
+	
+	ascent(i in 0..timeDisappear){
+		ObjRender_SetAlpha(extendText, Interpolate_Decelerate(255, 0, i/timeDisappear));
+		yield;
+	}
+	Obj_Delete(extendText);
+	
+}
+
+//----------------------------------------------------
+//枠外の背景表示
+//----------------------------------------------------
+function InitFrame()
+{
+	let path = GetCurrentScriptDirectory() ~ "img/ThiccHUD.png";
+	//if(false){path = GetCurrentScriptDirectory() ~ "img/literallywhat.png";}
+	//else{path = GetCurrentScriptDirectory() ~ "img/altHUD.png";}
+	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
+	LoadTextureEx(path, true, true);
+	ObjPrim_SetTexture(obj, path);
+	//ObjRender_SetScaleXYZ(obj, 0.5, 0.5, 1);
+	ObjRender_SetTextureFilterMag(obj, FILTER_NONE);
+	ObjRender_SetTextureFilterMin(obj, FILTER_NONE);
+	ObjRender_SetTextureFilterMip(obj, FILTER_NONE);
+	Obj_SetRenderPriority(obj, 0);
+	ObjSprite2D_SetSourceRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	ObjSprite2D_SetDestRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	
+	int diffText = CreateTextObject(
+		offsetX+150, baseY*0.3, 60,
+		"", "Exotc350 DmBd BT",
+		0xFFFFFF, 0xFFFFFF,
+		0xFFFFFF, 3,
+		1
+	);
+	
+	ObjText_SetFontBold(diffText, true);
+	ObjText_SetHorizontalAlignment(diffText, ALIGNMENT_CENTER);
+	
+	/*
+	if(GetCommonData("Difficulty", "Arcade") == "Arcade"){
+		ObjText_SetText(diffText, "Arcade Mode");
+		ObjText_SetFontColorTop(diffText, 0x8100CE);
+		ObjText_SetFontColorBottom(diffText,0xAC7DFF);
+		ObjText_SetFontBorderType(diffText, BORDER_FULL);
+		ObjText_SetFontBorderColor(diffText, 0xFFFFFF);
+	}
+	
+	else{
+		ObjText_SetText(diffText, "Gentle Mode");
+		ObjText_SetFontColorTop(diffText, 0xFF993F);
+		ObjText_SetFontColorBottom(diffText,0xFFCFA6);
+		ObjText_SetFontBorderType(diffText, BORDER_FULL);
+		ObjText_SetFontBorderColor(diffText, 0xFFFFFF);
+	}
+	*/
+}
+
+//----------------------------------------------------
+//スコア表示
+//----------------------------------------------------
+
+task THighScore(){
+
+	let objScoreNo = ObjText_Create();
+	ObjText_SetFontSize(objScoreNo, 58);
+	ObjText_SetFontBold(objScoreNo, true);
+	ObjText_SetFontType(objScoreNo, "Anke Calligraph");
+	ObjText_SetFontColorTop(objScoreNo, 0xFFA157);
+	ObjText_SetFontColorBottom(objScoreNo,0xFFC232);
+	ObjText_SetFontBorderType(objScoreNo, BORDER_FULL);
+	ObjText_SetFontBorderColor(objScoreNo, 0xFFFFFF);
+	ObjText_SetFontBorderWidth(objScoreNo, 3);
+	//ObjText_SetFontWeight(objScoreNo, 1000);
+	Obj_SetRenderPriorityI(objScoreNo, 1);
+	ObjRender_SetX(objScoreNo, offsetX-10); // Subject to change
+	ObjRender_SetY(objScoreNo, baseY*0.8); // Same as above
+
+	while(true){
+		let score = GetAreaCommonData("hiscoredata", "hiscore", 0);
+		score = min(score,999999999990);
+		let yass = DigitToCommaArray(score);
+		ObjText_SetText(objScoreNo, yass);
+		yield;
+	}
+}
+
+task TScore(){
+ 	// New score system using rtos
+
+ 	// For score with zeroes at the end: Truncate score/10, and then multiply it by 10
+
+	let objScore = ObjText_Create();
+	ObjText_SetFontSize(objScore, 24);
+	ObjText_SetFontBold(objScore, true);
+	ObjText_SetFontType(objScore, "Exotc350 DmBd BT");
+	ObjText_SetFontColorTop(objScore,0xFFFFFF);
+	ObjText_SetFontColorBottom(objScore,0xFFFFFF);
+	ObjText_SetFontBorderType(objScore, BORDER_FULL);
+	ObjText_SetFontBorderColor(objScore, 0x25379D);
+	ObjText_SetFontBorderWidth(objScore, 3);
+	ObjText_SetText(objScore, "SCORE");
+	//ObjText_SetFontWeight(objScore, 1000);
+	Obj_SetRenderPriorityI(objScore, 79);
+	ObjRender_SetX(objScore, 12); // Subject to change
+	ObjRender_SetY(objScore, 48); // Same as above
+	Obj_SetVisible(objScore, false);
+	
+	let objScoreNo = ObjText_Create();
+	ObjText_SetFontSize(objScoreNo, 40);
+	ObjText_SetFontBold(objScoreNo, true);
+	ObjText_SetFontType(objScoreNo, "Origami Mommy");
+	ObjText_SetFontColorTop(objScoreNo,0xFFFFFF);
+	ObjText_SetFontColorBottom(objScoreNo,0xFFFFFF);
+	ObjText_SetFontBorderType(objScoreNo, BORDER_FULL);
+	ObjText_SetFontBorderColor(objScoreNo, 0x25379D);
+	ObjText_SetFontBorderWidth(objScoreNo, 4);
+	//ObjText_SetFontWeight(objScoreNo, 1000);
+	Obj_SetRenderPriorityI(objScoreNo, 79);
+	ObjText_SetSidePitch(objScoreNo, -3);
+	ObjRender_SetX(objScoreNo, 10); // Subject to change
+	ObjRender_SetY(objScoreNo, 10); // Same as above
+
+	while(true){
+		let score = trunc(GetScore()/10) * 10;
+		score = min(score,999999999990);
+		let yass = DigitToCommaArray(score);
+		ObjText_SetText(objScoreNo, yass);
+		
+		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
+			ObjRender_SetAlpha(objScore, 60);
+			ObjRender_SetAlpha(objScoreNo, 60);
+		}
+		else{
+			ObjRender_SetAlpha(objScore, 255);
+			ObjRender_SetAlpha(objScoreNo, 255);
+		}
+		
+		yield;
+	}
+}
+
+function DigitToCommaArray(num){ //Natashinitai
+
+    let srcStr = IntToString(num);
+    let res = [];
+    let nChar = 0;
+    for(let i = length(srcStr) - 1; i >= 0; i--){
+        res = [srcStr[i]] ~ res;
+        nChar++;
+        if(nChar % 3 == 0 && i > 0) res = "," ~ res;
+    }
+    return res;
+    
+}
+
+//----------------------------------------------------
+//Graze表示
+//----------------------------------------------------
+task TGraze()
+{
+	let grazenum = ObjText_Create();
+	ObjText_SetFontSize(grazenum, 58);
+	ObjText_SetFontBold(grazenum, true);
+	ObjText_SetFontType(grazenum, "Anke Calligraph");
+	ObjText_SetFontColorTop(grazenum, 0x8898A3);
+	ObjText_SetFontColorBottom(grazenum, 0xD2E0FF);
+	ObjText_SetFontBorderType(grazenum, BORDER_FULL);
+	ObjText_SetFontBorderColor(grazenum, 0xFFFFFF);
+	ObjText_SetFontBorderWidth(grazenum, 3);
+	Obj_SetRenderPriorityI(grazenum, 1);
+	ObjRender_SetX(grazenum, offsetX-10);
+	ObjRender_SetY(grazenum, baseY*0.8+spaceY*5);
+	
+	while(true){
+		let graze = GetGraze();
+		
+		ObjText_SetText(grazenum, rtos("00000", graze));
+		yield;
+	}
+}
+
+task TValueDisplay(){
+
+	let objPIV = ObjText_Create();
+	ObjText_SetFontSize(objPIV, 21);
+	ObjText_SetFontBold(objPIV, true);
+	ObjText_SetFontType(objPIV, "Exotc350 DmBd BT");
+	ObjText_SetFontColorTop(objPIV,0xFFFFFF);
+	ObjText_SetFontColorBottom(objPIV,0xFFFFFF);
+	ObjText_SetFontBorderType(objPIV, BORDER_FULL);
+	ObjText_SetFontBorderColor(objPIV, 0xDC47C8);
+	ObjText_SetFontBorderWidth(objPIV, 3);
+	ObjText_SetText(objPIV, "MULTIPLIER");
+	ObjText_SetHorizontalAlignment(objPIV, ALIGNMENT_RIGHT);
+	//ObjText_SetFontWeight(objPIV, 1000);
+	Obj_SetRenderPriorityI(objPIV, 79);
+	ObjRender_SetX(objPIV, GetStgFrameWidth()-15); // Subject to change
+	ObjRender_SetY(objPIV, 44); // Same as above
+	
+	let objPIVNum = ObjText_Create();
+	ObjText_SetFontSize(objPIVNum, 30);
+	ObjText_SetFontBold(objPIVNum, true);
+	ObjText_SetFontType(objPIVNum, "Origami Mommy");
+	ObjText_SetFontColorTop(objPIVNum,0xFFFFFF);
+	ObjText_SetFontColorBottom(objPIVNum,0xFFFFFF);
+	ObjText_SetFontBorderType(objPIVNum, BORDER_FULL);
+	ObjText_SetFontBorderColor(objPIVNum, 0xDC47C8);
+	ObjText_SetFontBorderWidth(objPIVNum, 4);
+	ObjText_SetHorizontalAlignment(objPIVNum, ALIGNMENT_RIGHT);
+	//ObjText_SetFontWeight(objPIVNum, 1000);
+	Obj_SetRenderPriorityI(objPIVNum, 79);
+	ObjRender_SetX(objPIVNum, GetStgFrameWidth()-12); // Subject to change
+	ObjRender_SetY(objPIVNum, 10); // Same as above
+	// DEBUG
+	//Obj_SetVisible(objPIV, false);
+
+	while(true){
+		let value = GetAreaCommonData("PIV", "currentvalue", 0);
+		value = min(value,9999999990);
+		//PIVMultiplierValue = value/1000;
+		let yass = vtos("5.2f", value/10000);
+		ObjText_SetText(objPIVNum, yass ~ "x");
+		
+		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
+			ObjRender_SetAlpha(objPIV, 60);
+			ObjRender_SetAlpha(objPIVNum, 60);
+		}
+		else{
+			ObjRender_SetAlpha(objPIV, 255);
+			ObjRender_SetAlpha(objPIVNum, 255);
+		}
+		yield;
+	}
+	
+}
+
+//----------------------------------------------------
+//残機表示
+//----------------------------------------------------
+/*task TPlayerLife
+{
+	let lifenum = ObjText_Create();
+	ObjText_SetFontSize(lifenum, 22);
+	ObjText_SetFontBold(lifenum, false);
+	ObjText_SetFontType(lifenum, "Unispace");
+	ObjText_SetFontColorTop(lifenum,255,255,255);
+	ObjText_SetFontColorBottom(lifenum,255,255,255);
+	Obj_SetRenderPriorityI(lifenum, 1);
+	ObjRender_SetX(lifenum,507);
+	ObjRender_SetY(lifenum,101);
+	
+	while(true){
+		let liferemain = GetPlayerLife();
+		
+		ObjText_SetText(lifenum, rtos("00", liferemain));
+		yield;
+	}
+}*/
+
+//----------------------------------------------------
+//残スペル表示
+//----------------------------------------------------
+task TPlayerSpell
+{
+	let spellnum = ObjText_Create();
+	ObjText_SetFontSize(spellnum, 22);
+	ObjText_SetFontBold(spellnum, false);
+	ObjText_SetFontType(spellnum, "Unispace");
+	ObjText_SetFontColorTop(spellnum,255,255,255);
+	ObjText_SetFontColorBottom(spellnum,255,255,255);
+	Obj_SetRenderPriorityI(spellnum, 1);
+	ObjRender_SetX(spellnum,offsetX);
+	ObjRender_SetY(spellnum,baseY+spaceY*3);
+	
+	while(true){
+		let spellremain = GetPlayerSpell();
+		
+		ObjText_SetText(spellnum, rtos("00", spellremain));
+		yield;
+	}
+}
+
+// New life task
+task LifeDisplay(){
+
+// oh god oh no
+	let liferemain;
+	let lifecounter = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	let lifeshow = graphicimg;
+	Obj_SetRenderPriorityI(lifecounter, 1);
+	ObjPrim_SetTexture(lifecounter, lifeshow);
+	//ObjSpriteList2D_SetSourceRect(lifecounter, 256, 0, 384, 128);
+	//ObjRender_SetScaleXYZ(lifecounter, 0.5, 0.5, 1);
+	//ObjSpriteList2D_SetDestCenter(lifecounter);
+	
+	loop{
+		ObjSpriteList2D_ClearVertexCount(lifecounter);
+		ObjSpriteList2D_SetSourceRect(lifecounter, 256, 0, 384, 128);
+		ObjSpriteList2D_SetDestCenter(lifecounter);
+		ObjRender_SetScaleXYZ(lifecounter, 0.26*scale, 0.26*scale, 1);
+		liferemain = GetPlayerLife();
+		ascent(i in 0..liferemain){
+			ObjRender_SetPosition(lifecounter, 550-10+i*25, 1040, 0);
+			ObjSpriteList2D_AddVertex(lifecounter);		
+		}
+		yield;
+	}
+
+}
+// New spell task
+task SpellDisplay{
+
+	let spellremain;
+	let spellcounter = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	let spellshow = graphicimg;
+	Obj_SetRenderPriorityI(spellcounter, 1);
+	ObjPrim_SetTexture(spellcounter, spellshow);
+
+	loop{
+		ObjSpriteList2D_ClearVertexCount(spellcounter);
+		ObjSpriteList2D_SetSourceRect(spellcounter, 384, 0, 512, 128);
+		ObjSpriteList2D_SetDestCenter(spellcounter);
+		ObjRender_SetScaleXYZ(spellcounter, 0.26*scale, 0.26*scale, 1);
+		spellremain = GetPlayerSpell();
+		ascent(i in 0..spellremain){
+			ObjRender_SetPosition(spellcounter, 1000+10+i*25, 1040, 0);
+			ObjSpriteList2D_AddVertex(spellcounter);		
+		}
+		yield;
+	}
+}
+//----------------------------------------------------
+// Edited ExRumia system
+//----------------------------------------------------
+task TBossLife
+
+// Lifebar starts at x = 352, ends at x = 925
+{
+	let path = lifebarimg;
+	let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	let objStar = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	let objDivision = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	let objLifebar = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	//bool BossExist = false;
+	
+	ObjPrim_SetTexture(obj, path);
+	Obj_SetRenderPriorityI(obj, 72); 
+	ObjRender_SetAlpha(obj, 255);
+	
+	ObjPrim_SetTexture(objStar, path);
+	Obj_SetRenderPriorityI(objStar, 70); 
+	
+	ObjPrim_SetTexture(objDivision, path);
+	Obj_SetRenderPriorityI(objDivision, 72);
+	
+	ObjPrim_SetTexture(objLifebar, path);
+	Obj_SetRenderPriorityI(objLifebar, 70);
+	ObjRender_SetAlpha(objLifebar, 140);
+	//Obj_SetVisible(objLifebar, false);
+
+	let lastRemStep = -1;
+	let lifeRateRender = 0;
+
+	let objScene = ID_INVALID;
+	loop
+	{
+		objScene = GetEnemyBossSceneObjectID();
+		ObjSpriteList2D_ClearVertexCount(obj);
+		ObjSpriteList2D_ClearVertexCount(objLifebar);
+		ObjSpriteList2D_ClearVertexCount(objStar);
+		ObjSpriteList2D_ClearVertexCount(objDivision);
+		if(objScene != ID_INVALID)
+		{
+			//BossExist = true;
+			ObjSpriteList2D_SetSourceRect(objLifebar, 8, 6, 801, 50);
+			ObjSpriteList2D_SetDestCenter(objLifebar);
+			ObjRender_SetScaleXYZ(objLifebar, 1.12, 1.25, 1);
+			ascent (i in 0..1){
+				ObjRender_SetPosition(objLifebar, 455, 90, 1);
+				ObjSpriteList2D_AddVertex(objLifebar);
+			}
+			RenderActiveLife();
+			
+		}
+		yield;
+	}
+
+	/*task RenderLifebar(){
+		ObjSprite2D_SetSourceRect(objLifebar, 5, 5, 534, 34);
+		ObjSprite2D_SetDestCenter(objLifebar);
+		ObjRender_SetPosition(objLifebar, 352, 20, 1);
+		while(BossExist){
+			Obj_SetVisible(objLifebar, true);
+			yield;
+		}
+	}*/
+	
+	function RenderActiveLife()
+	{
+		//残りステップ
+		let countRemStep = ObjEnemyBossScene_GetInfo(objScene, INFO_REMAIN_STEP_COUNT);
+		if(lastRemStep != countRemStep)
+		{
+			//ステップが変化
+			lifeRateRender = 0;
+		}
+		
+		//Overall active life
+		let lifeTotalMax = ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_TOTAL_MAX_LIFE);
+		let lifeTotal = ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_TOTAL_LIFE);
+		let lifeRate = min(lifeTotal / lifeTotalMax, lifeRateRender);
+		ObjSpriteList2D_SetSourceRect(obj, 7, 119, 800, 159);
+		ObjSpriteList2D_SetDestRect(obj, 11, 70, 12 + (890-2) * lifeRate, 110);
+		ObjRender_SetColorHSV(obj, -60, 384, 384);
+		ObjSpriteList2D_AddVertex(obj);
+		ObjRender_SetBlendType(obj, BLEND_ALPHA);
+		
+		//Life "division" bar
+		ObjSpriteList2D_SetSourceRect(objDivision, 8, 56, 27, 111);
+		//ObjRender_SetColorHSV(objDivision, 32, 255, 255);
+		let listLifeDiv = [0] ~ ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_LIFE_RATE_LIST);
+		ascent(iDiv in 1 .. length(listLifeDiv)-1)
+		{
+			let rate = listLifeDiv[iDiv];
+			let x = (GetStgFrameWidth()) * (1-rate);
+			ObjSpriteList2D_SetDestRect(objDivision, x-3, 65, x+24, 115);
+			ObjSpriteList2D_AddVertex(objDivision);
+		}
+
+		//Boss star rendering
+		ObjRender_SetScaleXYZ(objStar, 0.5, 0.5, 1);
+		ObjSpriteList2D_SetSourceRect(objStar, 0, 169, 268, 430);
+		Obj_SetRenderPriority(objStar, 1);
+		ascent(iStep in 0 .. countRemStep)
+		{
+			ObjRender_SetPosition(objStar, GetStgFrameWidth()*1.36-iStep*32, 30, 1);
+			ObjSpriteList2D_SetDestCenter(objStar);
+			ObjSpriteList2D_AddVertex(objStar);
+		}
+
+		lifeRateRender += 0.01;
+		lifeRateRender = min(lifeRateRender, 1);
+		lastRemStep = countRemStep;
+		
+		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
+			ObjRender_SetAlpha(obj, 60);
+			ObjRender_SetAlpha(obj, 30);
+		}
+		else{
+			ObjRender_SetAlpha(obj, 255);
+			ObjRender_SetAlpha(objLifebar, 140);
+		}
+	}
+}
+
+//----------------------------------------------------
+//タイマー表示
+//----------------------------------------------------
+task TBossTimer
+{
+	let textTimer = ObjText_Create();
+	ObjText_SetFontSize(textTimer, 35);
+	ObjText_SetFontType(textTimer, "Connecting Chain Handserif");
+	
+	//ObjText_SetMaxWidth(textTimer, GetStgFrameWidth()/6);
+	ObjText_SetHorizontalAlignment(textTimer, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(textTimer, true);
+	ObjText_SetFontColorTop(textTimer, 0xFFFFFF);
+	ObjText_SetFontColorBottom(textTimer, 0xFFFFFF);
+	ObjText_SetFontBorderType(textTimer, BORDER_FULL);
+	ObjText_SetFontBorderColor(textTimer, 0xA639F0);
+	ObjText_SetFontBorderWidth(textTimer, 3.4);
+	Obj_SetRenderPriorityI(textTimer, 73);
+	ObjRender_SetX(textTimer, GetStgFrameWidth()/8-10);
+	ObjRender_SetY(textTimer, 110);
+	Obj_SetVisible(textTimer, true);
+	
+	let pathDigit = GetCurrentScriptDirectory() ~ "img/Default_SystemDigit.png";
+
+	let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
+	ObjPrim_SetTexture(obj, lifebarimg);
+	ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
+	Obj_SetRenderPriority(obj, 0.75);
+	//ObjRender_SetY(obj, 38);
+	let count = 2;
+
+	let objScene = ID_INVALID;
+	loop
+	{
+		objScene = GetEnemyBossSceneObjectID();
+		ObjSpriteList2D_ClearVertexCount(obj);
+		if(objScene != ID_INVALID)
+		{
+			Obj_SetVisible(textTimer, true);
+			RenderTimer();
+		}
+		else{Obj_SetVisible(textTimer, false);
+		}
+		yield;
+	}
+
+	task RenderTimer()
+	{
+		let timer = ObjEnemyBossScene_GetInfo(objScene, INFO_TIMERF)/60;
+		timer = min(timer, 99.99);
+		ObjText_SetText(textTimer, "TIME: " ~ rtos("00.00", timer));
+		ObjSpriteList2D_SetSourceRect(obj, 404, 225, 537, 374);
+		ObjRender_SetScaleXYZ(obj, 0.38, 0.38, 1);
+		ObjSpriteList2D_SetDestCenter(obj); 
+		ObjRender_SetPosition(obj, 4*GetStgFrameWidth()/5+62, GetStgFrameHeight()/8-25, 1);
+		//ObjSpriteList2D_AddVertex(obj);
+		if(ObjEnemyBossScene_GetInfo(objScene, INFO_TIMER) <= 10 && ObjEnemyBossScene_GetInfo(objScene, INFO_TIMER) > 0){
+			if(ObjEnemyBossScene_GetInfo(objScene, INFO_TIMERF) % 60 == 0){_Timeout();}
+			ObjText_SetFontBorderColor(textTimer, 0xF0396C);
+		}
+		else{}
+		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
+			ObjRender_SetAlpha(textTimer, 60);
+		}
+		else{
+			ObjRender_SetAlpha(textTimer, 255);
+		}
+		yield;
+	}
+	
+	task _Timeout(){ // HOLY FUCK THE TIMER IS RUNNING OUT BITCH
+		
+		ascent(i in 0..30){
+			ObjText_SetFontSize(textTimer, Interpolate_Decelerate(80, 45, i/30));
+			//ObjRender_SetScaleXYZ(obj, Interpolate_Decelerate(0.6, 0.38, i/30));
+			yield;
+		}
+			
+	}
+}
+
+task TScoreAward(dascore){
+
+	let objText = ObjText_Create();
+	int x = rand_int(0, 99);
+
+	RegularAward;	
+	
+	task RegularAward{
+		
+		let fontsizearray = [70, 70, 70, 65, 60, 65, 70, 70, 70, 40, 40];
+		let textarray = ["So Cool Bestie!", "Bimbo Eliminated!", "Wig Snatched!", "Neutralized Boss Sexiness!", "Gay Rights Confirmed!", "Himbo Kisses!", "Slay Button Hit!", "Yass!!!!", "Gatekept, Gaslit, Girlbossed!",  "Spell Card Capture!"];
+		
+		int y = rand_int(0, length(textarray)-2);
+		
+		ObjText_SetText(objText, textarray[y]); // Selects a random capture text from the array
+		ObjText_SetFontSize(objText, fontsizearray[y]*1.5);
+		ObjText_SetFontType(objText, "Exotc350 DmBd BT");
+		
+		//ObjText_SetMaxWidth(objText, GetStgFrameWidth());
+		ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+		
+		ObjText_SetFontBold(objText, true);
+		ObjText_SetFontColorTop(objText, 0xFFD34D);
+		ObjText_SetFontColorBottom(objText, 0xFFF2CA);
+		ObjText_SetFontBorderType(objText, BORDER_FULL);
+		ObjText_SetFontBorderColor(objText,0, 0, 0);
+		ObjText_SetFontBorderWidth(objText, 3);
+		Obj_SetRenderPriority(objText, 0.6);
+		ObjRender_SetX(objText, GetStgFrameWidth()/2);
+		ObjRender_SetY(objText, GetStgFrameHeight()/5);
+	}
+
+	let scorefinal = trunc(dascore/10) * 10;
+	let scorescene = GetEnemyBossSceneObjectID();
+
+	if (ObjEnemyBossScene_GetInfo(scorescene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 &&
+		ObjEnemyBossScene_GetInfo(scorescene, INFO_PLAYER_SPELL_COUNT) == 0){
+		AddScore(scorefinal);
+	}
+
+	let strScore = "Capture Bonus +" ~ DigitToCommaArray(scorefinal);
+	let objScore = ObjText_Create();
+	ObjText_SetText(objScore, strScore);
+	ObjText_SetFontSize(objScore, 85);
+	ObjText_SetFontType(objScore, "Anke Calligraph");
+	
+	ObjText_SetMaxWidth(objScore, GetStgFrameWidth());
+	ObjText_SetHorizontalAlignment(objScore, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objScore, true);
+	ObjText_SetFontColorTop(objScore, 0x9C2400);
+	ObjText_SetFontColorBottom(objScore, 0xFF982A);
+	ObjText_SetFontBorderType(objScore, BORDER_FULL);
+	ObjText_SetFontBorderColor(objScore, 255, 255, 255);
+	ObjText_SetFontBorderWidth(objScore, 3);
+	Obj_SetRenderPriority(objScore, 0.6);
+	ObjRender_SetX(objScore, GetStgFrameWidth()/2 - (GetStgFrameWidth()/2-5));
+	ObjRender_SetY(objScore, GetStgFrameHeight()/3.2-15);
+
+	wait(120);
+	
+	Obj_Delete(objText);
+	Obj_Delete(objScore);
+	
+}
+//----------------------------------------------------
+//FPS表示
+//----------------------------------------------------
+task TCurrentFps()
+{
+	let objText = ObjText_Create();
+	ObjText_SetFontSize(objText, 48);
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontType(objText, "Anke Calligraph");
+	ObjText_SetFontColorTop(objText, 0x6747FF);
+	ObjText_SetFontColorBottom(objText, 0xAEC4FF);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText, 255, 255, 255);
+	ObjText_SetFontBorderWidth(objText, 1.5);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_RIGHT);
+	ObjText_SetMaxWidth(objText, GetScreenWidth() - 8);
+	Obj_SetRenderPriority(objText, 1.0);
+	ObjRender_SetX(objText, 0);
+	ObjRender_SetY(objText, GetScreenHeight() - 48);
+
+	loop
+	{
+		let fps = GetCurrentFps();
+		let text = vtos("1.2f", fps) ~ "fps";
+		ObjText_SetText(objText, text);
+		yield;
+	}
+}
+
+task TReplayFps()
+{
+	if(!IsReplay()){return;}
+
+	let objText = ObjText_Create();
+	ObjText_SetFontSize(objText, 12);
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 128, 128, 255);
+	ObjText_SetFontColorBottom(objText, 64, 64, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText,255, 255, 255);
+	ObjText_SetFontBorderWidth(objText, 1);
+	Obj_SetRenderPriority(objText, 1.0);
+
+	let px = GetStgFrameLeft() + GetStgFrameWidth() - 18;
+	let py = GetStgFrameTop() + GetScreenHeight() - 14;
+	ObjRender_SetX(objText, px);
+	ObjRender_SetY(objText, py);
+
+	loop
+	{
+		let fps = GetReplayFps();
+		let text = vtos("02d", fps);
+		ObjText_SetText(objText, text);
+		yield;
+	}
+}
+
+//----------------------------------------------------
+//ユーティリティ
+//----------------------------------------------------

script/KevinSystem/PlayerSoundLib.dnh

@@ -0,0 +1,64 @@
+// Sound effects for player scripts go here. 
+
+// Link to sound folder
+
+let sddir = GetCurrentScriptDirectory() ~ "./PlayerSFX";
+//let sddir = GetCurrentScriptDirectory() ~ "./sound";
+
+let SFXVol = GetAreaCommonData("Config", "SEVol", 100) * 0.01;
+
+// Function for loading and setting volume of a sound object
+function LoadEx(targetobj, targetpath, targetvol){
+
+	ObjSound_Load(targetobj, targetpath);
+	ObjSound_SetVolumeRate(targetobj, targetvol * SFXVol);
+	ObjSound_SetSoundDivision(targetobj, SOUND_SE);
+	
+}
+
+// Universal sounds
+let baseshot = sddir ~ "./bfxr_Base.wav";
+let bomb = sddir ~ "./bfxr_kyliejennerarabqueen.wav";
+let ded = sddir ~ "./bfxr_PlayerShootdown.wav";
+let hit = sddir ~ "./bfxr_PlayerHit.wav";
+let graze = sddir ~ "./bfxr_Graze.wav";
+
+let basesfx = ObjSound_Create();
+let bombsfx = ObjSound_Create();
+let deathsfx = ObjSound_Create();
+let predeathsfx = ObjSound_Create();
+let grazesfx = ObjSound_Create();
+/**/
+// Marisa & Housui's sounds, "inferno" is shared with Eri/Ten
+
+let teleporthigh = sddir ~ "./bfxr_teleporthigh.wav";
+let teleportlow = sddir ~ "./bfxr_teleportlow.wav";
+let missileboom = ObjSound_Create();
+let inferno = ObjSound_Create();
+let bombhousui = ObjSound_Create();
+
+// Pankevin & Kouda's sounds
+
+let orbfront = ObjSound_Create();
+let orbback = ObjSound_Create();
+let scythecall = ObjSound_Create();
+let splash = ObjSound_Create();
+let scythefire = ObjSound_Create();
+
+task _SoundTask(){
+	LoadEx(basesfx, baseshot, 20);
+	LoadEx(bombsfx, bomb, 75);
+	LoadEx(deathsfx, ded, 40);
+	LoadEx(predeathsfx, hit, 100);
+	
+	LoadEx(orbfront, teleporthigh, 20);
+	LoadEx(orbback, teleportlow, 20);
+	LoadEx(scythecall, sddir ~ "./bfxr_scythecall.wav", 15);
+	LoadEx(splash, sddir ~ "./bfxr_splash.wav", 12.5);
+	LoadEx(scythefire, sddir ~ "./bfxr_watershoot.wav", 8);
+	
+	LoadEx(missileboom, sddir ~ "./bfxr_missileexplode.wav", 18);
+	LoadEx(inferno, sddir ~ "./bfxr_fire.wav", 20);
+	LoadEx(bombhousui, sddir ~ "./bfxr_arabqueenhousama.wav", 35);
+	LoadEx(grazesfx, graze, 40);
+}

script/KevinSystem/Universal_EnemyLib.dnh

@@ -0,0 +1,905 @@
+/*
+
+//////////////////////////////////////////////////////////////////////////////////
+//////////////////////////////////////////////////////////////////////////////////
+
+			 		UNIVERSAL LIBRARY FOR ENEMY-RELATED FUNCTIONS 		
+
+//////////////////////////////////////////////////////////////////////////////////
+//////////////////////////////////////////////////////////////////////////////////
+
+*/
+
+// Code by Kevinmonitor with some assistance.
+/*
+
+///////////// ENEMY SPAWNING DURING STAGES /////////////
+
+*/
+
+task _InitDifficulty(int diffInt){
+
+	if(GetCommonData("Difficulty", "Normal") == "Normal"){
+		diffInt = 0;
+	}
+	
+	else if(GetCommonData("Difficulty", "Normal") == "Hyper"){
+		diffInt = 1;
+	}
+	
+	else if(GetCommonData("Difficulty", "Normal") == "Unparalleled"){
+		diffInt = 2;
+	}
+	
+	return;
+}
+
+// Explosion Sound Effects
+
+task _RenderBoss(int enemy){
+	
+	int aniidle = 0;
+	
+	string tex = "script/game/StageLib/BossAsset.png";
+	
+	LoadTextureEx(tex, true, true);
+	
+	ObjPrim_SetTexture(enemy, tex);
+	ObjSprite2D_SetSourceRect(enemy, 0, 0, 512, 512);
+	ObjSprite2D_SetDestCenter(enemy);
+	ObjRender_SetScaleXYZ(enemy, 0.48);
+	
+	int nameText = CreateTextObject(
+		GetStgFrameWidth()*0.38, 10, 42,
+		"BOSS: Chimata Tenkyuu", "Connecting Chain Handserif",
+		0x8ABFFF, 0xFFFFFF,
+		0x552A9C, 3,
+		1
+	);
+	
+	ObjText_SetFontBold(nameText, true);
+		
+	_BossMarker(enemy, tex, 512, 0, 768, 256, 0.45, 30);
+	
+	while(!Obj_IsDeleted(enemy)){
+
+		yield;
+		
+	}
+}
+
+task _RenderMidboss(int enemy){
+	
+	int aniidle = 0;
+	
+	string tex = "script/game/StageLib/BossAsset.png";
+	
+	LoadTextureEx(tex, true, true);
+
+	int nameText = CreateTextObject(
+		GetStgFrameWidth()*0.38, 10, 42,
+		"MIDBOSS: Kobiko", "Connecting Chain Handserif",
+		0xBA8AFF, 0xFFFFFF,
+		0x552A9C, 3,
+		1
+	);
+	
+	ObjText_SetFontBold(nameText, true);
+	ObjPrim_SetTexture(enemy, tex);
+	ObjSprite2D_SetSourceRect(enemy, 768, 0, 768+512, 512);
+	ObjSprite2D_SetDestCenter(enemy);
+	ObjRender_SetScaleXYZ(enemy, 0.5);
+	
+	_BossMarker(enemy, tex, 512, 256, 768, 512, 0.45, 30);
+	
+	while(!Obj_IsDeleted(enemy)){
+
+		yield;
+		
+	}
+}
+
+task _FadeInSpawn(
+	int enemyID,
+	float spawnX, float spawnY,
+	float destX, float destY,
+	float spawnScale, float destScale,
+	int time){
+	
+	ObjMove_SetPosition(enemyID, spawnX, spawnY);
+	ObjRender_SetAlpha(enemyID, 0);
+	
+	ObjMove_SetDestAtFrame(enemyID, destX, destY, time, LERP_DECELERATE);
+	
+	ascent(i in 0..time){
+		ObjRender_SetAlpha(enemyID, Interpolate_Decelerate(0, 255, i/time));
+		ObjRender_SetScaleXYZ(enemyID, Interpolate_Decelerate(spawnScale, destScale, i/time));
+		yield;
+	}
+	
+	}
+
+int itemScript = LoadScriptInThread("script/KevinSystem/kevin_system/KevinSystem_Item.txt");
+StartScript(itemScript);
+
+// Creates an enemy and spawns them using _FadeInSpawn. Shooting and movement tasks not covered.
+// Task also handles deleting the enemy after their life reaches 0.
+
+/*
+BhestieBlue: 0, 0, 256, 256
+BhestieGreen: 256, 0, 512, 256
+GaySamoyed: 0, 256, 256, 512
+EvilSamoyed: 256, 256, 512, 512
+*/
+
+function <int> _CreateEnemy(
+	float spawnX, float spawnY, float destX, float destY, int spawntime,
+	float spawnScale, float destScale,
+	float health, float sizeHitbox, float sizeHurtbox,
+	texture,
+	int rectLeft, int rectTop, int rectRight, int rectBottom){
+	
+	// Essentials
+	int enemyID = ObjEnemy_Create(OBJ_ENEMY);
+	ObjEnemy_Regist(enemyID);
+	ObjEnemy_SetLife(enemyID, health);
+	ObjEnemy_SetAutoDelete(enemyID, true);
+		
+	// TBA: Handle animations
+	ObjPrim_SetTexture(enemyID, texture);
+	ObjSprite2D_SetSourceRect(enemyID, rectLeft, rectTop, rectRight, rectBottom);
+	ObjSprite2D_SetDestCenter(enemyID);
+	
+	// Spawning
+	_FadeInSpawn(enemyID, spawnX, spawnY, destX, destY, spawnScale, destScale, spawntime);
+	_HandleEnemyWellbeing(enemyID, sizeHitbox, sizeHurtbox);
+	
+	return enemyID;
+	
+	}
+
+// Hitbox and deletion
+
+task _HandleEnemyWellbeing(int enemyID, float sizeHitbox, float sizeHurtbox){
+	
+	while(ObjEnemy_GetInfo(enemyID, INFO_LIFE) > 0){
+		ObjEnemy_SetIntersectionCircleToShot(enemyID, ObjMove_GetX(enemyID), ObjMove_GetY(enemyID), sizeHitbox); 
+		ObjEnemy_SetIntersectionCircleToPlayer(enemyID, ObjMove_GetX(enemyID), ObjMove_GetY(enemyID), sizeHurtbox);
+		yield;
+	}
+	Obj_Delete(enemyID);
+}
+
+
+// Fading invincibility for bosses/enemies (with parameters for wait times and fade times, and a separate multiplier for bomb damage rate (final spells))
+
+task _FadeInvincibility(int target, int waittime, int fadetime, float bombmultiplier){
+
+	float x = 0;
+	ObjEnemy_SetDamageRate(target, 0, 0);
+	wait(waittime);
+	ascent(i in 0..fadetime){
+		x = Interpolate_Accelerate(0, 100, i/fadetime);
+		ObjEnemy_SetDamageRate(target, x, x*bombmultiplier);
+		yield;
+	}
+	
+}
+
+/*
+///////////// HANDLING THE END OF SINGLES (DURING BOSS/MIDBOSS FIGHTS) /////////////
+
+To-do: Move item creation to the item script(s)
+
+*/
+
+////// NEW //////
+
+task _GoToBrazil(
+	int targetscene, targetenemy,  
+	int maxitemdrop, int minitemdrop){
+	
+	while(ObjEnemy_GetInfo(targetenemy, INFO_LIFE)>0){
+		yield;
+	}
+	
+	maxitemdrop = 14;
+	minitemdrop = 7;
+	 
+	int finalItemDrop = 0;
+	let itemType = POINT_RAINBOW;
+	
+	int maxTimer = ObjEnemyBossScene_GetInfo(targetscene, INFO_ORGTIMERF);
+	int killTimer = ObjEnemyBossScene_GetInfo(targetscene, INFO_TIMERF);
+	
+	bool isnon = ObjEnemyBossScene_GetInfo(targetscene, INFO_IS_SPELL);
+	
+	// If the boss is killed within the first 1/5 of the timer, drop full items
+	
+	if(killTimer >= maxTimer*(4/5)) {finalItemDrop = maxitemdrop;}
+	
+	// Starting from the rest of the timer, the maximum items that can be dropped is equal to 4/5 of the max drop amount
+	
+	else{finalItemDrop = Interpolate_Decelerate(minitemdrop, maxitemdrop*(4/5), killTimer/(maxTimer*4/5));}
+
+	// If the player has lost a life, lock the number of items to the lowest possible
+	
+	if(ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SHOOTDOWN_COUNT) > 0){
+		finalItemDrop = minitemdrop;
+		itemType = POINT_REGULAR;
+	}
+	
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);
+	
+	SetPlayerInvincibilityFrame(120);
+	
+	// Common Data
+	
+	NotifyEventAll(EV_SINGLE_ITEM_DROP, ObjMove_GetX(targetenemy), ObjMove_GetY(targetenemy), finalItemDrop, itemType);
+	
+	wait(120);	
+	
+	float[] enemyPos = [ObjMove_GetX(targetenemy), ObjMove_GetY(targetenemy)];
+	
+	SetCommonData("Entering PIV", GetAreaCommonData("PIV", "currentvalue", 10000));
+	SetCommonData("Boss Position X", enemyPos[0]);
+	SetCommonData("Boss Position Y", enemyPos[1]);
+	
+	Obj_Delete(targetenemy);
+	
+}
+
+////// OLD/LEGACY //////
+// Basic post-death handling after every attack (Duo).
+
+function _GoToBrazilDuo(targetscene, targetenemy, targetenemyA, targetenemyB, returnXA, returnYA, returnXB, returnYB, bool isnon, int itemdropamount){
+	
+	while(ObjEnemy_GetInfo(targetenemy, INFO_LIFE) > 0){
+		yield;
+	}
+	
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);
+	SetPlayerInvincibilityFrame(120);
+	
+	// returnX and returnY are the boss positions they return to at the end of every pattern. (I'm too lazy for common data...)
+	
+	ObjMove_CancelMovement(targetenemyA); ObjMove_CancelMovement(targetenemyB);
+	
+	ObjMove_SetDestAtFrame(targetenemyA, returnXA, returnYA, 45, LERP_DECELERATE);
+	ObjMove_SetDestAtFrame(targetenemyB, returnXB, returnYB, 45, LERP_DECELERATE);
+	
+	async{
+		wait(45);
+		ObjMove_CancelMovement(targetenemyA); ObjMove_CancelMovement(targetenemyB);
+		ObjMove_SetDestAtFrame(targetenemyA, returnXA, returnYA, 15, LERP_DECELERATE);
+		ObjMove_SetDestAtFrame(targetenemyB, returnXB, returnYB, 15, LERP_DECELERATE);
+		ObjMove_SetProcessMovement(targetenemyA, false);
+		ObjMove_SetProcessMovement(targetenemyB, false);
+		return;
+	}
+	
+	alternative(isnon)
+	
+	case(true){_NonspellItemDrop(targetscene, targetenemyA, itemdropamount); _NonspellItemDrop(targetscene, targetenemyB, itemdropamount);}
+	
+	others{_SpellItemDrop(targetscene, targetenemyA, itemdropamount); _SpellItemDrop(targetscene, targetenemyB, itemdropamount);}
+	
+	wait(120);
+	
+	Obj_Delete(targetenemy);
+	Obj_Delete(targetenemyA);
+	Obj_Delete(targetenemyB);
+	
+}
+
+// Basic post-death handling after every attack (Solo).
+
+task _GoToBrazil(targetscene, targetenemy, returnX, returnY, bool isnon, int itemdropamount){
+	
+	while(ObjEnemy_GetInfo(targetenemy, INFO_LIFE)>0){
+		yield;
+	}
+	
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);
+	
+	SetPlayerInvincibilityFrame(120);
+	
+	// ITS COMMON DATA TIME BITCHES
+	
+	float[] enemyPos = [ObjMove_GetX(targetenemy), ObjMove_GetY(targetenemy)];
+	SetCommonData("Boss Position", enemyPos);
+	
+	alternative(isnon)
+	case(true){_NonspellItemDrop(targetscene, targetenemy, itemdropamount);}
+	others{_NonspellItemDrop(targetscene, targetenemy, itemdropamount);}
+	
+	wait(120);
+	
+	Obj_Delete(targetenemy);
+	
+}
+
+task _GoToBrazilMidboss(targetscene, targetenemy, bool isnon, int itemdropamount){
+	
+	while(ObjEnemy_GetInfo(targetenemy, INFO_LIFE)>0){
+		yield;
+	}
+	
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);
+	
+	SetPlayerInvincibilityFrame(120);
+	
+	// ITS COMMON DATA TIME BITCHES
+	
+	float[] enemyPos = [ObjMove_GetX(targetenemy), ObjMove_GetY(targetenemy)];
+	SetCommonData("Boss Position", enemyPos);
+	
+	alternative(isnon)
+	case(true){_NonspellItemDrop(targetscene, targetenemy, itemdropamount);}
+	others{_NonspellItemDrop(targetscene, targetenemy, itemdropamount);}
+	
+	wait(60);
+	
+	ObjMove_SetDestAtFrame(targetenemy, enemyPos[0], -150, 45, LERP_SMOOTHER);
+	
+	wait(45);
+
+	Obj_Delete(targetenemy);
+	
+}
+
+// Used after end of last spell for dramatic effect. NOTE TO SELF: REPLACE SOUND & GRAPHICAL EFFECTS
+
+task _ByeBitch(targetscene, targetenemy){
+
+	while(ObjEnemyBossScene_GetInfo(targetscene, INFO_CURRENT_LIFE) > 0){
+		yield;
+	}
+	
+	/*ObjSound_Load(death, defeatsnd);
+	ObjSound_SetVolumeRate(death, 30);
+	ObjSound_SetFade(death, 5);*/
+	
+	let x = ObjMove_GetX(targetenemy);
+	let y = ObjMove_GetY(targetenemy);
+	
+	StartSlow(TARGET_ALL, 30);
+	SetPlayerInvincibilityFrame(180);
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);	
+	//ObjSound_Play(death);
+	TExplosionA(x,y,10,0.5);
+	wait(120);
+	
+	StopSlow(TARGET_ALL);
+	//ObjSound_Play(death);
+	//Obj_Delete(target); 
+	TExplosionA(x,y,10,0.5);
+	wait(120);
+
+}
+
+function <void> _ByeBitches(int targetscene, int targetboss, int targetenemyA, int targetenemyB, int itemdropamount){
+
+	//wait(120);
+	
+	loop{
+		float life = ObjEnemy_GetInfo(targetboss, INFO_LIFE);
+		if(life > 0){yield;}
+		else{break;}
+	}
+	
+	int death = ObjSound_Create();
+	ObjSound_Load(death, defeatsnd);
+	ObjSound_SetVolumeRate(death, 40);
+	ObjSound_SetFade(death, 7.5);
+	
+	StartSlow(TARGET_ALL, 30);
+	SetPlayerInvincibilityFrame(180);
+	DeleteShotAll(TYPE_ALL,TYPE_ITEM);	
+	ObjSound_Play(death);
+	TExplosionA(ObjMove_GetX(targetenemyA), ObjMove_GetY(targetenemyA), 10, 0.5);
+	TExplosionA(ObjMove_GetX(targetenemyB), ObjMove_GetY(targetenemyB), 10, 0.5);
+	wait(120);
+	
+	_SpellItemDrop(targetscene, targetenemyA, itemdropamount);
+	_SpellItemDrop(targetscene, targetenemyB, itemdropamount);
+	
+	StopSlow(TARGET_ALL);
+	
+	ObjSound_Play(death);
+	
+	TExplosionA(ObjMove_GetX(targetenemyA), ObjMove_GetY(targetenemyA), 10, 0.5);
+	TExplosionA(ObjMove_GetX(targetenemyB), ObjMove_GetY(targetenemyB), 10, 0.5);
+	
+	Obj_Delete(targetboss);
+	Obj_Delete(targetenemyA);
+	Obj_Delete(targetenemyB);
+	
+	wait(120);
+
+}
+
+/*
+
+//////////////// GRAPHICAL/VISUAL-RELATED TASKS AND FUNCTIONS ////////////////
+
+*/
+
+// Handles boss markers during boss fights.
+
+task _BossMarker(int targetenemy, markertex, int left, int top, int right, int bottom, float scale, float heightoffset){
+
+	int marker = ObjPrim_Create(OBJ_SPRITE_2D);
+	ObjPrim_SetTexture(marker, markertex);
+	ObjSprite2D_SetSourceRect(marker, left, top, right, bottom);
+	ObjSprite2D_SetDestCenter(marker);
+	ObjRender_SetScaleXYZ(marker, scale);
+	Obj_SetRenderPriorityI(marker, 19);
+	ObjRender_SetAlpha(marker, 255);
+	//ObjRender_SetY(marker, GetStgFrameHeight()+heightoffset);
+	
+	while(!Obj_IsDeleted(targetenemy)){
+		ObjRender_SetPosition(marker, ObjRender_GetX(targetenemy)+(GetScreenWidth()-GetStgFrameWidth())/2, GetStgFrameHeight()+heightoffset+(GetScreenHeight()-GetStgFrameHeight())/2, 1);
+		yield;
+	}
+	
+	Obj_Delete(marker);
+}
+
+// Tasks that handle calling a spellcard. No spell card history.
+
+task _DuoCutin(
+	image1, image2, 
+	int rectleft, int recttop, int rectright, int rectbottom,
+	int spellID, string spellname, 
+	float textsize, float bordersize, int bordercolor, int bonusbordercolor,
+	float textstartx, float textendx, int render1, int render2
+	){
+
+	// Handle the appearance and disappearances of the images
+	
+	// 0 = upwards, 1 = downwards || 0 = left, 1 = right
+	
+	// Handle the spell text
+	
+	int spelltext = ObjText_Create();
+	ObjText_SetText(spelltext, spellname);
+	ObjText_SetFontType(spelltext, "Connecting Chain Handserif");
+	
+	ObjText_SetFontSize(spelltext, textsize);
+	ObjText_SetFontColorTop(spelltext, 255, 255, 255);
+	ObjText_SetFontColorBottom(spelltext, 255, 255, 255);
+	ObjText_SetFontBorderType(spelltext, BORDER_FULL);
+	ObjText_SetFontBorderColor(spelltext, bordercolor);
+	ObjText_SetFontBorderWidth(spelltext, bordersize);
+	
+	ObjText_SetHorizontalAlignment(spelltext, ALIGNMENT_RIGHT);
+	ObjText_SetMaxWidth(spelltext, GetStgFrameWidth);
+	Obj_SetRenderPriorityI(spelltext, 79);
+	ObjRender_SetPosition(spelltext, textstartx, GetStgFrameHeight/8-10, 0); // WIP
+	ObjRender_SetAlpha(spelltext, 255);
+	
+	// Handle the spell bonus
+	
+	let objBonus = ObjText_Create();
+	ObjText_SetFontSize(objBonus, 38);
+	ObjText_SetFontBold(objBonus, true);
+	ObjText_SetFontType(objBonus, "Anke Calligraph");
+	ObjText_SetFontColorTop(objBonus, 255, 255, 255);
+	ObjText_SetFontColorBottom(objBonus, 255, 255, 255);
+	ObjText_SetFontBorderType(objBonus, BORDER_FULL);
+	ObjText_SetFontBorderColor(objBonus, bonusbordercolor);
+	ObjText_SetFontBorderWidth(objBonus, 2);
+	
+	ObjText_SetHorizontalAlignment(objBonus, ALIGNMENT_RIGHT);
+	ObjText_SetMaxWidth(objBonus, GetStgFrameWidth-24);
+	Obj_SetRenderPriorityI(objBonus, 79);
+	ObjRender_SetPosition(objBonus, textendx, GetStgFrameHeight/8+12, 0); // WIP
+	ObjRender_SetAlpha(objBonus, 255);
+
+	async{
+		while(ObjEnemyBossScene_GetInfo(spellID, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(spellID, INFO_PLAYER_SPELL_COUNT) == 0)
+		{
+			int score = trunc(ObjEnemyBossScene_GetInfo(spellID, INFO_SPELL_SCORE)/10) * 10;
+			score = min(score, 9999999990);
+			let yass = DigitToCommaArray(score);
+			ObjText_SetText(objBonus, yass);
+			yield;
+		}
+		ObjText_SetText(objBonus, ":(");
+	}
+	
+	// Actually call the tasks and functions here 
+	
+	// Mm
+	
+	int objCutin1 = _Create2DImage(image1, rectleft, recttop, rectright, rectbottom);
+	int objCutin2 = _Create2DImage(image2, rectleft, recttop, rectright, rectbottom);
+	
+	Obj_SetRenderPriorityI(objCutin1, render1);
+	Obj_SetRenderPriorityI(objCutin2, render2);
+	
+	_MoveVertical(objCutin1, 0, 0);
+	_MoveVertical(objCutin2, 1, 1);
+	
+	//WriteLog(ObjRender_GetY(objCutin1));
+	
+	//_MoveIntoPlace(spelltext, textstartx, textendx);
+	_FadeAtPlayer(spelltext);
+	_FadeAtPlayer(objBonus);
+	
+	while(ObjEnemyBossScene_GetInfo(spellID, INFO_CURRENT_LIFE) > 0){yield;}
+	
+	Obj_Delete(spelltext);
+	Obj_Delete(objBonus);
+	
+	//return;
+
+}
+
+task _SoloCutin(
+	image,
+	int rectleft, int recttop, int rectright, int rectbottom,
+	int bossID, int spellID, string spellname, 
+	float textsize, float bordersize, int bordercolor, int bonusbordercolor,
+	float textstartx, float texty, int render
+	){
+	
+	// Handle the spell text
+	
+	int spelltext = ObjText_Create();
+	ObjText_SetText(spelltext, spellname);
+	ObjText_SetFontType(spelltext, "Connecting Chain Handserif");
+	
+	ObjText_SetFontSize(spelltext, textsize);
+	ObjText_SetFontColorTop(spelltext, 255, 255, 255);
+	ObjText_SetFontColorBottom(spelltext, 255, 255, 255);
+	ObjText_SetFontBorderType(spelltext, BORDER_FULL);
+	ObjText_SetFontBorderColor(spelltext, bordercolor);
+	ObjText_SetFontBorderWidth(spelltext, bordersize);
+	
+	ObjText_SetHorizontalAlignment(spelltext, ALIGNMENT_LEFT);
+	//ObjText_SetMaxWidth(spelltext, GetStgFrameWidth);
+	Obj_SetRenderPriorityI(spelltext, 79);
+	ObjRender_SetPosition(spelltext, textstartx, texty, 0); // WIP
+	ObjRender_SetAlpha(spelltext, 255);
+	
+	// Handle the spell bonus
+	
+	let objBonus = ObjText_Create();
+	ObjText_SetFontSize(objBonus, textsize*1.25);
+	ObjText_SetFontBold(objBonus, true);
+	ObjText_SetFontType(objBonus, "Anke Calligraph");
+	ObjText_SetFontColorTop(objBonus, 255, 255, 255);
+	ObjText_SetFontColorBottom(objBonus, 255, 255, 255);
+	ObjText_SetFontBorderType(objBonus, BORDER_FULL);
+	ObjText_SetFontBorderColor(objBonus, bonusbordercolor);
+	ObjText_SetFontBorderWidth(objBonus, 2);
+	
+	ObjText_SetHorizontalAlignment(objBonus, ALIGNMENT_LEFT);
+	//ObjText_SetMaxWidth(objBonus, GetStgFrameWidth-24);
+	Obj_SetRenderPriorityI(objBonus, 79);
+	ObjRender_SetPosition(objBonus, textstartx, texty+textsize-5, 0); // WIP
+	ObjRender_SetAlpha(objBonus, 255);
+
+	async{
+		while(ObjEnemyBossScene_GetInfo(spellID, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(spellID, INFO_PLAYER_SPELL_COUNT) == 0)
+		{
+			int score = trunc(ObjEnemyBossScene_GetInfo(spellID, INFO_SPELL_SCORE)/10) * 10;
+			score = min(score, 9999999990);
+			let yass = DigitToCommaArray(score);
+			ObjText_SetText(objBonus, "Bonus: " ~ yass);
+			yield;
+		}
+		ObjText_SetText(objBonus, "Bonus Failed...");
+	}
+	
+	// Actually call the tasks and functions here 
+	
+	// Mm
+	
+	int objCutin = _Create2DImage(image, rectleft, recttop, rectright, rectbottom);
+	
+	Obj_SetRenderPriorityI(objCutin, render);
+	
+	_MoveDiagonal(objCutin, GetStgFrameWidth()*1.25, -120, GetStgFrameWidth()/2, GetStgFrameHeight()/2, -120, GetStgFrameHeight()*1.25);
+	//WriteLog(Obj_IsVisible(spelltext));
+	
+	//_MoveIntoPlace(spelltext, textstartx, textendx);
+	_FadeAtPlayer(spelltext);
+	_FadeAtPlayer(objBonus);
+	
+	while(ObjEnemyBossScene_GetInfo(spellID, INFO_CURRENT_LIFE) > 0){yield;}
+	
+	Obj_Delete(spelltext);
+	Obj_Delete(objBonus);
+	
+	//return;
+
+}
+
+function DigitToCommaArray(num){ //Natashinitai
+
+    let srcStr = IntToString(num);
+    let res = [];
+    let nChar = 0;
+    for(let i = length(srcStr) - 1; i >= 0; i--){
+        res = [srcStr[i]] ~ res;
+        nChar++;
+        if(nChar % 3 == 0 && i > 0) res = "," ~ res;
+    }
+    return res;
+    
+}
+
+// Tasks meant to be used with cutin tasks.
+
+task _MoveVertical(int target, int move, int widthposition){
+	
+	float positionstart = [GetStgFrameHeight()*1.5, -GetStgFrameHeight()][move];
+	float positionmid = GetStgFrameHeight()/2;
+	float positionend = [-GetStgFrameHeight()*1.5, GetStgFrameHeight()*1.5][move];
+	
+	float positionhort = [3*GetStgFrameWidth/8, 6*GetStgFrameWidth/8][widthposition]; 
+	
+	ObjRender_SetPosition(target, positionhort, positionstart, 0);
+	
+	ascent(i in 0..30){
+		ObjRender_SetY(target, Interpolate_Decelerate(positionstart, positionmid, i/30));
+		yield;
+	}
+	
+	wait(30);
+	
+	ascent(i in 0..30){
+		ObjRender_SetY(target, Interpolate_Accelerate(positionmid, positionend, i/30));
+		yield;
+	}
+	
+	Obj_Delete(target);
+	
+	return;
+
+}
+
+task _MoveDiagonal(int target, int startx, int starty, int midx, int midy, int endx, int endy){
+
+	//"
+	
+	ObjRender_SetPosition(target, startx, endx, 1);
+	
+	ascent(i in 0..30){
+		ObjRender_SetPosition(target, Interpolate_Decelerate(startx, midx, i/30), Interpolate_Decelerate(starty, midy, i/30), 1);
+		ObjRender_SetAlpha(target, Interpolate_Decelerate(0, 255, i/30));
+		yield;
+	}
+	
+	wait(30);
+	
+	ascent(i in 0..30){
+		ObjRender_SetPosition(target, Interpolate_Decelerate(midx, endx, i/30), Interpolate_Decelerate(midy, endy, i/30), 1);
+		ObjRender_SetAlpha(target, Interpolate_Decelerate(255, 0, i/30));
+		yield;
+	}
+	
+	return;
+
+}
+
+task _MoveIntoPlace(int target, int startx, int endx){
+	ascent(i in 0..30){
+		ObjRender_SetX(target, Interpolate_Decelerate(startx, endx, i/30));
+		ObjRender_SetAlpha(target, Interpolate_Decelerate(0, 255, i/30));
+		yield;
+	}
+	return;
+}
+
+task _FadeAtPlayer(int target){
+	wait(30);
+	while(!Obj_IsDeleted(target)){
+		int player = GetPlayerObjectID();
+		if(ObjRender_GetY(player) <= GetStgFrameHeight()/3.5){ObjRender_SetAlpha(target, 60);}
+		else{ObjRender_SetAlpha(target, 255);}
+		yield;
+	}	
+	return;
+}
+
+// Enemy render tasks
+
+/*
+These render tasks assume the order of the spritesheet goes like this:
+
+Idle Idle2 Idle3 ...
+Left Left2 Left3 ...
+Right
+
+*/
+
+task _RenderEnemyMovement(int obj, int frame, int offsetleft, int offsettop, int width, int height, float flipscale, int frameno, int speed){
+
+	ObjSprite2D_SetSourceRect(obj, offsetleft+width*floor(frame/speed), offsettop, width+width*floor(frame/speed), offsettop+height);
+	ObjRender_SetScaleX(obj, flipscale);
+	
+}
+
+task _EnemyRenderFull(int enemyobj, int texture, int offsetleft, int offsettop, int width, int height, int framenoidle, int framenomovement, int speed){
+	
+	int aniidle = 0;
+	int animove = 0;
+	
+	while(!Obj_IsDeleted(enemyobj)){
+	
+		float dir = ObjMove_GetAngle(enemyobj);
+		float speed = ObjMove_GetSpeed(enemyobj);
+		
+		// Idle
+		if (speed == 0){
+			_RenderEnemyMovement(enemyobj, aniidle, offsetleft, offsettop, width, height, 1, framenoidle, speed);
+			aniidle++;
+			if(aniidle >= speed*framenoidle){aniidle = 0;}
+		}
+		// Left
+		else if (cos(dir) < 0){
+			_RenderEnemyMovement(enemyobj, aniidle, offsetleft, offsettop+height, width, height*2, 1, framenomovement, speed);
+			animove++;
+			if(animove >= speed*framenomovement){animove = 0;}
+		}
+		// Right
+		else if (cos(dir) > 0){
+			_RenderEnemyMovement(enemyobj, aniidle, offsetleft, offsettop+height*2, width, height*3, 1, framenomovement, speed);
+			animove++;
+			if(animove >= speed*framenomovement){animove = 0;}
+		}
+		yield;
+	}
+}
+
+// Enemy deletion/explosion effects.
+
+// This particle list is used for all instances of the effect.
+
+task _EffectListPreRender(
+	int targetList,
+	texture, int[] rect
+	){
+	
+		ObjPrim_SetTexture(targetList, texture);
+		
+		Obj_SetRenderPriorityI(targetList, 39);
+		ObjPrim_SetPrimitiveType(targetList, PRIMITIVE_TRIANGLELIST);
+		ObjPrim_SetVertexCount(targetList, 4);
+		
+		ObjRender_SetBlendType(targetList, BLEND_ALPHA);
+	
+		// Left-top, right-top, left-bottom, right-bottom
+		
+		ObjPrim_SetVertexUVT(targetList, 0, rect[0], rect[1]);
+		ObjPrim_SetVertexUVT(targetList, 1, rect[2], rect[1]);
+		ObjPrim_SetVertexUVT(targetList, 2, rect[0], rect[3]);
+		ObjPrim_SetVertexUVT(targetList, 3, rect[2], rect[3]);
+		
+		// Vertex positions are offset with deltas so that the sprite is centered
+		
+		float dU = (rect[2] - rect[0])/2;
+		float dV = (rect[3] - rect[1])/2;
+		
+		ObjPrim_SetVertexPosition(targetList, 0, -dU, -dV, 1);
+		ObjPrim_SetVertexPosition(targetList, 1, dU, -dV, 1);
+		ObjPrim_SetVertexPosition(targetList, 2, -dU, dV, 1);
+		ObjPrim_SetVertexPosition(targetList, 3, dU, dV, 1);
+		
+		ObjPrim_SetVertexIndex(targetList, [0, 1, 2, 1, 2, 3]);
+	
+	}
+
+// Drop a number of point items and petals depending on how fast you kill the enemy and how close you are to them.
+
+task _EnemyItemDrop(
+	int ID, 
+	int minPoint, int minPIV,
+	int maxPoint, int maxPIV, 
+	int maxTimer, int maxDist
+	){
+	
+	//wait(spawnTime+5);
+	float enmX = ObjMove_GetX(ID), enmY = ObjMove_GetY(ID);
+	int Bitch = ID;
+	float timer = 1;
+	float dmgCheck = 0;
+	
+	ObjEnemy_SetDamageRate(Bitch, 100, 100);
+	
+	while(ObjEnemy_GetInfo(Bitch, INFO_LIFE) > 0){
+		enmX = ObjMove_GetX(Bitch);
+		enmY = ObjMove_GetY(Bitch);
+		dmgCheck = ObjEnemy_GetInfo(Bitch, INFO_DAMAGE_PREVIOUS_FRAME);
+		timer++;
+		yield;
+	}
+	
+	if(
+		(-96 < enmX && enmX < STG_WIDTH+96)
+		&&
+		(-96 < enmY && enmY < STG_HEIGHT+96)
+	)
+	
+	{
+	_ExplosionEffect(enmX, enmY, PetalEffect);
+	//_ScorePopup(float enmX, float enmY, int pointNum, int pivNum);
+	
+	// NotifyEvent is faster than NotifyEventAll, considering how the item event will be called many times.
+	
+	NotifyEvent(itemScript, EV_DROP_POINT_ENEMY, [enmX, enmY], timer, maxTimer, minPoint, maxPoint);
+	NotifyEvent(itemScript, EV_DROP_PIV_ENEMY, GetPlayerObjectID(), [enmX, enmY], minPIV, maxPIV, maxDist);
+	}
+	
+}
+
+// Enemy go Boom
+
+/*
+5 flower petals appear from the enemy and spin outwards.
+Their angle constantly changes and their alpha lowers over time.
+*/
+
+task _ExplosionEffect(float enmX, float enmY, int targetList){
+
+	int i = 0;
+	int effectLength = 45;
+	int effectNum = 5;
+	int dir = 1;
+
+	TExplosionA(enmX, enmY, 255/effectLength, 9/effectLength);
+	
+	/*ascent(i in 0..effectNum){
+		_CreatePetal(rand(5, 10)*dir, rand(5, 10)*dir, rand(0, 360));
+		dir *= -1;
+		//_CreatePetal(rand(50, 80), rand(-80, -50), rand(0, 360));
+	}*/
+	
+	_CreatePetal(rand(8, 11), rand(-8, -11), rand(0, 360));
+	_CreatePetal(rand(-11, -8), rand(-2, 2), rand(0, 360));
+	_CreatePetal(rand(8, 8), rand(-2, 2), rand(0, 360));
+	_CreatePetal(rand(-11, -8), rand(8, 11), rand(0, 360));
+	_CreatePetal(rand(8, 11), rand(8, 11), rand(0, 360));
+	
+	ObjSound_Play(sfxBoom);
+	
+	// Create a petal with:
+	// x offset every frame, y offset every frame
+	
+	task _CreatePetal(float spdX, float spdY, float baseAng){
+	
+		float x = enmX, y = enmY;
+		let x_speed = spdX;
+		let y_speed = spdY;
+		let z_add = rand(-5, 5);
+		
+		ascent(i in 0..effectLength){
+			_PetalMovement(Interpolate_Decelerate(1.5, 0.5, i/effectLength), Interpolate_Decelerate(255, 0, i/effectLength));
+			yield;
+		}
+	
+		task _PetalMovement(scale, alpha){
+			
+			ObjParticleList_SetScale(targetList, scale);
+			ObjParticleList_SetAngleZ(targetList, baseAng);
+			ObjParticleList_SetPosition(targetList, x, y, 1);
+			ObjParticleList_SetAlpha(targetList, alpha);
+			
+			//Submits the current data to an instance, cleared every frame.
+			ObjParticleList_AddInstance(targetList);
+		
+			x += x_speed;
+			y += y_speed;
+			baseAng += z_add;
+			
+			yield;
+		
+		}
+		
+	}
+	
+}

script/KevinSystem/Universal_Lib.txt

@@ -0,0 +1,339 @@
+/* --------------------------------------------------------------------
+	
+	/////////////// 	UNIVERSAL/GENERAL LIBRARY 	/////////////////
+	
+	A library meant for universal functions and including other libraries.
+	
+   --------------------------------------------------------------------
+*/
+
+#include "script/KevinSystem/kevin_system/Kevin_ItemLib.txt"
+#include "script/KevinSystem/kevin_system/Kevin_ItemConst.txt"
+#include "script/default_system/Default_Effect.txt" // Probably change this somewhere down the line.
+
+#include "script/KevinSystem/GeneralSoundLib.txt" // Ryannlib momento
+//#include "script/KevinSystem/TerraShot2x/shot_const.dnh"
+
+#include "script/KevinSystem/Universal_EnemyLib.dnh"
+
+#include "script/KevinSystem/KevinShot/shotconst_HD.txt"
+
+// Convenience constants
+
+const STG_WIDTH = GetStgFrameWidth();
+const STG_HEIGHT = GetStgFrameHeight();
+
+InstallFont("script/KevinSystem/font/Connecting Chain Handserif.ttf");
+InstallFont("script/KevinSystem/font/AnkeCall.ttf");
+
+// Placeholder
+
+let invalid = "script/KevinSystem/img/lol.png";
+let testEnemyTex = "script/game/StageLib/TestEnemy.png";
+
+LoadTextureEx(invalid, true, true);
+LoadTextureEx(testEnemyTex, true, true);
+
+int PetalEffect = ObjParticleList_Create(OBJ_PARTICLE_LIST_2D);
+
+_EffectListPreRender(PetalEffect, testEnemyTex, [512, 0, 768, 256]);
+_SoundTask;
+
+// Simple text object creation (adapted from mkm)
+
+function CreateTextObject(
+	float mx, my, size,
+	string text, font,
+	int colorTop, colorBottom,
+	int borderColor, borderWidth,
+	int renderPriority
+	){
+	
+	let obj = ObjText_Create();
+	ObjText_SetText(obj, text);
+	ObjText_SetFontSize(obj, size);
+	ObjText_SetFontType(obj, font);
+	ObjText_SetFontColorTop(obj, colorTop);
+	ObjText_SetFontColorBottom(obj, colorBottom);
+	ObjText_SetFontBorderType(obj, BORDER_FULL);
+	ObjText_SetFontBorderColor(obj, borderColor);
+	ObjText_SetFontBorderWidth(obj, borderWidth);
+	Obj_SetRenderPriorityI(obj, renderPriority);
+	ObjRender_SetX(obj, mx);
+	ObjRender_SetY(obj, my);
+	return obj;
+	
+}
+
+// Simple 2D image creation
+
+function <int> _Create2DImage(imgpath, int rectleft, int recttop, int rectright, int rectbottom){
+		
+	int imgname = ObjPrim_Create(OBJ_SPRITE_2D);
+	ObjPrim_SetTexture(imgname, imgpath);
+	ObjSprite2D_SetSourceRect(imgname, rectleft, recttop, rectright, rectbottom);
+	ObjSprite2D_SetDestCenter(imgname);
+	//ObjRender_SetPosition(imgname, positionstart)
+	
+	return imgname;
+}
+
+// Overload that uses arrays instead
+
+function <int> _Create2DImage(imgpath, int[] rectarray){
+		
+	int imgname = ObjPrim_Create(OBJ_SPRITE_2D);
+	ObjPrim_SetTexture(imgname, imgpath);
+	ObjSprite2D_SetSourceRect(imgname, rectarray);
+	ObjSprite2D_SetDestCenter(imgname);
+	//ObjRender_SetPosition(imgname, positionstart)
+	
+	return imgname;
+}
+
+// Task to make bullet fade after a certain time, bullet loses hitbox while fading
+
+task _EnemyShotFade(int target, int time, bool fadedelay, float delaymultiplier){
+	ObjShot_SetDeleteFrame(target, time);
+	if (fadedelay){
+		wait(time-time/delaymultiplier);
+		ObjShot_SetIntersectionEnable(target, false);
+		ascent(i in 0..time/delaymultiplier){
+			ObjRender_SetAlpha(target, Interpolate_Smoother(ObjRender_GetAlpha(target), 0, i/(time/delaymultiplier)));
+			yield;
+		}
+	}
+	else{
+		ascent(i in 0..time){
+			ObjRender_SetAlpha(target, Interpolate_Smoother(ObjRender_GetAlpha(target), 0, i/time));
+			yield;
+		}
+	}
+	return;
+}
+
+// Delay function by Naudiz
+
+task _Delay(target, del){
+
+	ObjShot_SetDelay(target, del);
+	ObjShot_SetDelayGraphic(target, ObjShot_GetImageID(target)); // unless you already have the ID in the function somewhere, in which case you can just use that, or use any other graphic
+	ObjShot_SetDelayMode(target, DELAY_LERP, LERP_ACCELERATE, LERP_DECELERATE); // delay mode, scale lerp, alpha lerp (these are the modes I use in my entry)
+	ObjShot_SetDelayScaleParameter(target, 1, 2, del); // lerps from 2 to 1 scale in del frames (use the value from ObjShot_SetDelay for del)
+	ObjShot_SetDelayAlphaParameter(target, 1, 0, del); // lerps from 0 to 1 (255) alpha in del frames
+	
+	return;
+}
+
+// Overloads by me
+
+task _Delay(target, del, orgscale, destscale, orgalpha, destalpha, scalelerp, alphalerp){
+
+	ObjShot_SetDelay(target, del);
+	ObjShot_SetDelayGraphic(target, ObjShot_GetImageID(target)); 
+	ObjShot_SetDelayMode(target, DELAY_LERP, scalelerp, alphalerp); 
+	ObjShot_SetDelayScaleParameter(target, destscale, orgscale, del); 
+	ObjShot_SetDelayAlphaParameter(target, destalpha, orgalpha, del);
+	return;
+	
+}
+
+task _Delay(target, del, orgscale, destscale, orgalpha, destalpha){
+
+	ObjShot_SetDelay(target, del);
+	ObjShot_SetDelayGraphic(target, ObjShot_GetImageID(target)); 
+	ObjShot_SetDelayMode(target, DELAY_LERP, LERP_ACCELERATE, LERP_DECELERATE); 
+	ObjShot_SetDelayScaleParameter(target, destscale, orgscale, del); 
+	ObjShot_SetDelayAlphaParameter(target, destalpha, orgalpha, del);
+	return;
+	
+}
+
+task _Delay(target, del, orgscale, orgalpha){
+
+	ObjShot_SetDelay(target, del);
+	ObjShot_SetDelayGraphic(target, ObjShot_GetImageID(target)); 
+	ObjShot_SetDelayMode(target, DELAY_LERP, LERP_ACCELERATE, LERP_DECELERATE); 
+	ObjShot_SetDelayScaleParameter(target, 1, orgscale, del); 
+	ObjShot_SetDelayAlphaParameter(target, 1, orgalpha, del);
+	return;
+	
+}
+
+// Rescales the bullet. Very important.
+
+task _BulletRescale(target, float scale, bool hitboxscale, hitboxlevel){
+
+	ObjRender_SetScaleXYZ(target, scale, scale, 1);
+	
+	if (hitboxscale){
+		ObjShot_SetIntersectionScaleXY(target, scale*hitboxlevel, scale*hitboxlevel);
+		return;
+	}
+	
+	else{return;}
+	
+}
+
+// Item drop functions. 
+
+//////////// TO-DO: Move all item creation to the item script, rendering both of these tasks obsolete. ////////////
+
+task _NonspellItemDrop(int targetscene, int targetenemy, int itemamount){
+
+	float ex = ObjMove_GetX(targetenemy);
+	float ey = ObjMove_GetY(targetenemy);
+
+	if(ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0){
+		loop(itemamount){
+			CreateScoreItem(POINT_REGULAR, rand(ex-90, ex+90), rand(ey-90, ey+90));
+		}
+	}
+	else{
+		loop(trunc(itemamount/2)){
+			CreateScoreItem(POINT_REGULAR, rand(ex-90, ex+90), rand(ey-90, ey+90));
+		}	
+	}
+	
+}
+
+task _SpellItemDrop(int targetscene, int targetenemy, int itemamount){
+
+	float ex = ObjMove_GetX(targetenemy);
+	float ey = ObjMove_GetY(targetenemy);
+	
+	if(ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SPELL_COUNT) == 0){
+		loop(itemamount){
+			CreateScoreItem(POINT_BHESTIE, rand(ex-90, ex+90), rand(ey-90, ey+90));
+		}
+	}
+	else if (ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(targetscene, INFO_PLAYER_SPELL_COUNT) >= 0){
+		loop(trunc(itemamount/2)){
+			CreateScoreItem(POINT_BHESTIE, rand(ex-90, ex+90), rand(ey-90, ey+90));
+		}	
+	}
+	else{}
+	
+}
+
+// By Neck_Logo
+
+task _CreateCustomTelegraphLine( 
+	float posX_, float posY_,
+	float initAngle_, float destAngle_,
+	float initLength_, float destLength_,
+	float initWidth_, float destWidth_,
+	int color_, int maxAlpha_,
+	float growthTime_, float lifeTime_, float fadeTime_
+	) // damn this is some cursed indenting
+	{
+	int scene = GetEnemyBossSceneObjectID();
+
+	let _shotF_Telegraph_Line = ObjParticleList_Create(OBJ_PARTICLE_LIST_2D);
+	ObjPrim_SetTexture(_shotF_Telegraph_Line, invalid);
+	
+	Obj_SetRenderPriorityI(_shotF_Telegraph_Line, 39);
+	ObjPrim_SetPrimitiveType(_shotF_Telegraph_Line, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(_shotF_Telegraph_Line, 4);
+	
+	ObjRender_SetBlendType(_shotF_Telegraph_Line, BLEND_ALPHA);
+	
+	// 
+	
+	float dU = 0.5, dV = 0.5;
+	// Left-top, right-top, left-bottom, right-bottom
+	
+	ObjPrim_SetVertexUVT(_shotF_Telegraph_Line, 0, 0, 0);
+	ObjPrim_SetVertexUVT(_shotF_Telegraph_Line, 1, 1, 0);
+	ObjPrim_SetVertexUVT(_shotF_Telegraph_Line, 2, 0, 1);
+	ObjPrim_SetVertexUVT(_shotF_Telegraph_Line, 3, 1, 1);
+	
+	// Vertex positions are offset with deltas so that the sprite is centered
+	
+	ObjPrim_SetVertexPosition(_shotF_Telegraph_Line, 0, -dU, -dV, 1);
+	ObjPrim_SetVertexPosition(_shotF_Telegraph_Line, 1, dU, -dV, 1);
+	ObjPrim_SetVertexPosition(_shotF_Telegraph_Line, 2, -dU, dV, 1);
+	ObjPrim_SetVertexPosition(_shotF_Telegraph_Line, 3, dU, dV, 1);
+	
+	ObjPrim_SetVertexIndex(_shotF_Telegraph_Line, [0, 1, 2, 1, 2, 3]);
+	
+	float angle = initAngle_;
+	float span = initLength_;
+	float width = initWidth_;
+	int alpha = 0;
+
+	//_CreateParticleList();
+	_TelegraphLineControl();
+
+	if(scene != ID_INVALID){
+	// growth phase
+		for (int i = 1; i <= growthTime_ && 0 < ObjEnemyBossScene_GetInfo(scene, INFO_ACTIVE_STEP_TOTAL_LIFE); i++) {
+			width = Interpolate_Decelerate(initWidth_, destWidth_, i / growthTime_);
+			alpha = Interpolate_Decelerate(0, maxAlpha_+32, i / growthTime_);
+			RenderTelegraphLine();
+			yield;
+		}
+
+		// static phase
+		for (int j = 1; j <= lifeTime_ && 0 < ObjEnemyBossScene_GetInfo(scene, INFO_ACTIVE_STEP_TOTAL_LIFE); j++) {
+			RenderTelegraphLine();
+			yield;
+		}
+
+		if (!(0 < ObjEnemyBossScene_GetInfo(scene, INFO_ACTIVE_STEP_TOTAL_LIFE))) fadeTime_ = min(fadeTime_, 25);
+	
+	}
+	
+	else{
+		for (int i = 1; i <= growthTime_ ; i++) {
+			width = Interpolate_Decelerate(initWidth_, destWidth_, i / growthTime_);
+			alpha = Interpolate_Decelerate(0, maxAlpha_+32, i / growthTime_);
+			RenderTelegraphLine();
+			yield;
+		}
+		
+				// static phase
+		for (int j = 1; j <= lifeTime_; j++) {
+			RenderTelegraphLine();
+			yield;
+		}
+		
+	}
+
+	destWidth_ = width;
+	maxAlpha_ = alpha;
+
+	// deletion phase
+	for (int k = 1; k <= fadeTime_; k++) {
+		width = Interpolate_Accelerate(destWidth_, destWidth_ - (destWidth_ - initWidth_) / 2, k / fadeTime_);
+		alpha = Interpolate_Accelerate(maxAlpha_+32, 0, k / fadeTime_);
+		RenderTelegraphLine();
+		yield;
+	}
+	
+	Obj_Delete(_shotF_Telegraph_Line);
+
+	task _TelegraphLineControl() {
+		for (int l = 1; l <= growthTime_ + lifeTime_; l++) {
+			angle = Interpolate_Decelerate(initAngle_, destAngle_, l / (growthTime_ + lifeTime_));
+			span = Interpolate_Decelerate(initLength_, destLength_, l / (growthTime_ + lifeTime_));
+			yield;
+		}
+	}
+	
+	function <void> RenderTelegraphLine() {
+		
+		float midX = posX_ + span * cos(angle) + (width / 2) * cos(angle + 90);
+		float midY = posY_ + span * sin(angle) + (width / 2) * sin(angle + 90);
+		
+		ObjParticleList_SetPosition(_shotF_Telegraph_Line, midX, midY, 1);
+		ObjParticleList_SetScale(_shotF_Telegraph_Line, span, width, 1);
+		ObjParticleList_SetAngleZ(_shotF_Telegraph_Line, angle);
+		ObjParticleList_SetColor(_shotF_Telegraph_Line, color_);
+		ObjParticleList_SetAlpha(_shotF_Telegraph_Line, alpha);
+		ObjParticleList_AddInstance(_shotF_Telegraph_Line);
+		
+	}
+	
+	//return _shotF_Telegraph_Line;
+}

script/KevinSystem/img/Default_Background_IceMountain.mqo

@@ -0,0 +1,249 @@
+Metasequoia Document
+Format Text Ver 1.0
+
+Scene {
+	pos -30.1096 -34.3943 789.2167
+	lookat 0.0000 0.0000 0.0000
+	head -1.8300
+	pich 0.5300
+	ortho 0
+	zoom2 2.0091
+	amb 0.250 0.250 0.250
+}
+Material 1 {
+	"mat0" shader(3) col(1.000 1.000 1.000 1.000) dif(1.000) amb(0.600) emi(0.000) spc(0.000) power(1.00) tex("Default_Background_IceMountain.bmp")
+}
+Object "obj0" {
+	visible 15
+	locking 0
+	shading 1
+	facet 59.5
+	color 0.898 0.498 0.698
+	color_type 0
+	vertex 121 {
+		500.0000 0.0000 500.0000
+		400.0000 0.0000 500.0000
+		400.0000 0.0000 400.0000
+		500.0000 0.0000 400.0000
+		300.0000 0.0000 500.0000
+		300.0000 0.0000 400.0000
+		200.0000 0.0000 500.0000
+		200.0000 0.0000 400.0000
+		100.0000 0.0000 500.0000
+		100.0000 0.0000 400.0000
+		0.0000 0.0000 500.0000
+		0.0000 0.0000 400.0000
+		-100.0000 0.0000 500.0000
+		-100.0000 0.0000 400.0000
+		-200.0000 0.0000 500.0000
+		-200.0000 0.0000 400.0000
+		-300.0000 0.0000 500.0000
+		-300.0000 0.0000 400.0000
+		-400.0000 0.0000 500.0000
+		-400.0000 0.0000 400.0000
+		-500.0000 0.0000 500.0000
+		-500.0000 0.0000 400.0000
+		400.0000 0.0000 300.0000
+		500.0000 0.0000 300.0000
+		300.0000 0.0000 300.0000
+		181.9993 25.4220 251.4612
+		87.5351 67.6823 172.7408
+		44.9009 66.8717 169.9153
+		-84.3673 81.3440 243.9148
+		-165.8140 45.4173 301.9575
+		-265.8140 45.4173 301.9575
+		-400.0000 0.0000 300.0000
+		-500.0000 0.0000 300.0000
+		400.0000 0.0000 200.0000
+		500.0000 0.0000 200.0000
+		298.8597 14.8172 185.7207
+		126.2485 97.3682 134.2916
+		23.1660 119.7628 65.2812
+		-48.3018 103.9974 84.5904
+		-78.9084 75.3832 146.5701
+		-165.8140 45.4173 201.9575
+		-265.8140 45.4173 201.9575
+		-400.0000 0.0000 200.0000
+		-500.0000 0.0000 200.0000
+		400.0000 0.0000 100.0000
+		500.0000 0.0000 100.0000
+		255.6389 58.0200 114.1542
+		142.7559 56.0312 43.6297
+		36.2995 41.0596 -5.4791
+		-62.4664 75.8076 -4.6157
+		-140.5926 75.4124 49.9508
+		-231.5631 8.7596 76.5071
+		-300.0000 0.0000 100.0000
+		-400.0000 0.0000 100.0000
+		-500.0000 0.0000 100.0000
+		400.0000 0.0000 0.0000
+		500.0000 0.0000 0.0000
+		221.8938 66.4581 1.9473
+		143.8961 41.2140 -42.0910
+		15.1947 34.4286 -102.5772
+		-71.9221 36.4174 -32.0527
+		-158.7284 63.2710 -47.6829
+		-211.9965 33.8983 -68.7922
+		-280.4333 25.1387 -45.2993
+		-400.0000 0.0000 0.0000
+		-500.0000 0.0000 0.0000
+		400.0000 0.0000 -100.0000
+		500.0000 0.0000 -100.0000
+		300.0000 0.0000 -100.0000
+		200.0000 0.0000 -100.0000
+		28.0779 36.4174 -132.0527
+		-71.9221 36.4174 -132.0527
+		-109.7092 10.8928 -120.7280
+		-174.9080 20.0401 -134.2268
+		-274.9080 20.0401 -134.2268
+		-400.0000 0.0000 -100.0000
+		-500.0000 0.0000 -100.0000
+		400.0000 0.0000 -200.0000
+		500.0000 0.0000 -200.0000
+		258.7267 31.4519 -195.8992
+		154.2999 93.4632 -171.4050
+		83.7472 49.4622 -230.7452
+		-16.2528 49.4622 -230.7452
+		-139.3118 37.0325 -183.7692
+		-214.2198 57.0726 -217.9960
+		-274.9080 20.0401 -234.2268
+		-400.0000 0.0000 -200.0000
+		-500.0000 0.0000 -200.0000
+		400.0000 0.0000 -300.0000
+		500.0000 0.0000 -300.0000
+		287.1706 10.4937 -295.7311
+		187.1706 10.4937 -295.7311
+		125.2088 40.5356 -370.5968
+		25.2089 40.5356 -370.5968
+		-139.3118 37.0325 -283.7693
+		-239.3118 37.0325 -283.7693
+		-300.0000 0.0000 -300.0000
+		-400.0000 0.0000 -300.0000
+		-500.0000 0.0000 -300.0000
+		400.0000 0.0000 -400.0000
+		500.0000 0.0000 -400.0000
+		300.0000 0.0000 -400.0000
+		200.0000 0.0000 -400.0000
+		100.0000 0.0000 -400.0000
+		0.0000 0.0000 -400.0000
+		-100.0000 0.0000 -400.0000
+		-200.0000 0.0000 -400.0000
+		-300.0000 0.0000 -400.0000
+		-400.0000 0.0000 -400.0000
+		-500.0000 0.0000 -400.0000
+		400.0000 0.0000 -500.0000
+		500.0000 0.0000 -500.0000
+		300.0000 0.0000 -500.0000
+		200.0000 0.0000 -500.0000
+		100.0000 0.0000 -500.0000
+		0.0000 0.0000 -500.0000
+		-100.0000 0.0000 -500.0000
+		-200.0000 0.0000 -500.0000
+		-300.0000 0.0000 -500.0000
+		-400.0000 0.0000 -500.0000
+		-500.0000 0.0000 -500.0000
+	}
+	face 100 {
+		4 V(0 1 2 3) M(0) UV(0.00000 0.00000 0.10000 0.00000 0.10000 0.10000 0.00000 0.10000)
+		4 V(1 4 5 2) M(0) UV(0.10000 0.00000 0.20000 0.00000 0.20000 0.10000 0.10000 0.10000)
+		4 V(4 6 7 5) M(0) UV(0.20000 0.00000 0.30000 0.00000 0.30000 0.10000 0.20000 0.10000)
+		4 V(6 8 9 7) M(0) UV(0.30000 0.00000 0.40000 0.00000 0.40000 0.10000 0.30000 0.10000)
+		4 V(8 10 11 9) M(0) UV(0.40000 0.00000 0.50000 0.00000 0.50000 0.10000 0.40000 0.10000)
+		4 V(10 12 13 11) M(0) UV(0.50000 0.00000 0.60000 0.00000 0.60000 0.10000 0.50000 0.10000)
+		4 V(12 14 15 13) M(0) UV(0.60000 0.00000 0.70000 0.00000 0.70000 0.10000 0.60000 0.10000)
+		4 V(14 16 17 15) M(0) UV(0.70000 0.00000 0.80000 0.00000 0.80000 0.10000 0.70000 0.10000)
+		4 V(16 18 19 17) M(0) UV(0.80000 0.00000 0.90000 0.00000 0.90000 0.10000 0.80000 0.10000)
+		4 V(18 20 21 19) M(0) UV(0.90000 0.00000 1.00000 0.00000 1.00000 0.10000 0.90000 0.10000)
+		4 V(3 2 22 23) M(0) UV(0.00000 0.10000 0.10000 0.10000 0.10000 0.20000 0.00000 0.20000)
+		4 V(2 5 24 22) M(0) UV(0.10000 0.10000 0.20000 0.10000 0.20000 0.20000 0.10000 0.20000)
+		4 V(5 7 25 24) M(0) UV(0.20000 0.10000 0.30000 0.10000 0.30000 0.20000 0.20000 0.20000)
+		4 V(7 9 26 25) M(0) UV(0.30000 0.10000 0.40000 0.10000 0.40000 0.20000 0.30000 0.20000)
+		4 V(9 11 27 26) M(0) UV(0.40000 0.10000 0.50000 0.10000 0.50000 0.20000 0.40000 0.20000)
+		4 V(11 13 28 27) M(0) UV(0.50000 0.10000 0.60000 0.10000 0.60000 0.20000 0.50000 0.20000)
+		4 V(13 15 29 28) M(0) UV(0.60000 0.10000 0.70000 0.10000 0.70000 0.20000 0.60000 0.20000)
+		4 V(15 17 30 29) M(0) UV(0.70000 0.10000 0.80000 0.10000 0.80000 0.20000 0.70000 0.20000)
+		4 V(17 19 31 30) M(0) UV(0.80000 0.10000 0.90000 0.10000 0.90000 0.20000 0.80000 0.20000)
+		4 V(19 21 32 31) M(0) UV(0.90000 0.10000 1.00000 0.10000 1.00000 0.20000 0.90000 0.20000)
+		4 V(23 22 33 34) M(0) UV(0.00000 0.20000 0.10000 0.20000 0.10000 0.30000 0.00000 0.30000)
+		4 V(22 24 35 33) M(0) UV(0.10000 0.20000 0.20000 0.20000 0.20000 0.30000 0.10000 0.30000)
+		4 V(24 25 36 35) M(0) UV(0.20000 0.20000 0.30000 0.20000 0.30000 0.30000 0.20000 0.30000)
+		4 V(25 26 37 36) M(0) UV(0.30000 0.20000 0.40000 0.20000 0.40000 0.30000 0.30000 0.30000)
+		4 V(26 27 38 37) M(0) UV(0.40000 0.20000 0.50000 0.20000 0.50000 0.30000 0.40000 0.30000)
+		4 V(27 28 39 38) M(0) UV(0.50000 0.20000 0.60000 0.20000 0.60000 0.30000 0.50000 0.30000)
+		4 V(28 29 40 39) M(0) UV(0.60000 0.20000 0.70000 0.20000 0.70000 0.30000 0.60000 0.30000)
+		4 V(29 30 41 40) M(0) UV(0.70000 0.20000 0.80000 0.20000 0.80000 0.30000 0.70000 0.30000)
+		4 V(30 31 42 41) M(0) UV(0.80000 0.20000 0.90000 0.20000 0.90000 0.30000 0.80000 0.30000)
+		4 V(31 32 43 42) M(0) UV(0.90000 0.20000 1.00000 0.20000 1.00000 0.30000 0.90000 0.30000)
+		4 V(34 33 44 45) M(0) UV(0.00000 0.30000 0.10000 0.30000 0.10000 0.40000 0.00000 0.40000)
+		4 V(33 35 46 44) M(0) UV(0.10000 0.30000 0.20000 0.30000 0.20000 0.40000 0.10000 0.40000)
+		4 V(35 36 47 46) M(0) UV(0.20000 0.30000 0.30000 0.30000 0.30000 0.40000 0.20000 0.40000)
+		4 V(36 37 48 47) M(0) UV(0.30000 0.30000 0.40000 0.30000 0.40000 0.40000 0.30000 0.40000)
+		4 V(37 38 49 48) M(0) UV(0.40000 0.30000 0.50000 0.30000 0.50000 0.40000 0.40000 0.40000)
+		4 V(38 39 50 49) M(0) UV(0.50000 0.30000 0.60000 0.30000 0.60000 0.40000 0.50000 0.40000)
+		4 V(39 40 51 50) M(0) UV(0.60000 0.30000 0.70000 0.30000 0.70000 0.40000 0.60000 0.40000)
+		4 V(40 41 52 51) M(0) UV(0.70000 0.30000 0.80000 0.30000 0.80000 0.40000 0.70000 0.40000)
+		4 V(41 42 53 52) M(0) UV(0.80000 0.30000 0.90000 0.30000 0.90000 0.40000 0.80000 0.40000)
+		4 V(42 43 54 53) M(0) UV(0.90000 0.30000 1.00000 0.30000 1.00000 0.40000 0.90000 0.40000)
+		4 V(45 44 55 56) M(0) UV(0.00000 0.40000 0.10000 0.40000 0.10000 0.50000 0.00000 0.50000)
+		4 V(44 46 57 55) M(0) UV(0.10000 0.40000 0.20000 0.40000 0.20000 0.50000 0.10000 0.50000)
+		4 V(46 47 58 57) M(0) UV(0.20000 0.40000 0.30000 0.40000 0.30000 0.50000 0.20000 0.50000)
+		4 V(47 48 59 58) M(0) UV(0.30000 0.40000 0.40000 0.40000 0.40000 0.50000 0.30000 0.50000)
+		4 V(48 49 60 59) M(0) UV(0.40000 0.40000 0.50000 0.40000 0.50000 0.50000 0.40000 0.50000)
+		4 V(49 50 61 60) M(0) UV(0.50000 0.40000 0.60000 0.40000 0.60000 0.50000 0.50000 0.50000)
+		4 V(50 51 62 61) M(0) UV(0.60000 0.40000 0.70000 0.40000 0.70000 0.50000 0.60000 0.50000)
+		4 V(51 52 63 62) M(0) UV(0.70000 0.40000 0.80000 0.40000 0.80000 0.50000 0.70000 0.50000)
+		4 V(52 53 64 63) M(0) UV(0.80000 0.40000 0.90000 0.40000 0.90000 0.50000 0.80000 0.50000)
+		4 V(53 54 65 64) M(0) UV(0.90000 0.40000 1.00000 0.40000 1.00000 0.50000 0.90000 0.50000)
+		4 V(56 55 66 67) M(0) UV(0.00000 0.50000 0.10000 0.50000 0.10000 0.60000 0.00000 0.60000)
+		4 V(55 57 68 66) M(0) UV(0.10000 0.50000 0.20000 0.50000 0.20000 0.60000 0.10000 0.60000)
+		4 V(57 58 69 68) M(0) UV(0.20000 0.50000 0.30000 0.50000 0.30000 0.60000 0.20000 0.60000)
+		4 V(58 59 70 69) M(0) UV(0.30000 0.50000 0.40000 0.50000 0.40000 0.60000 0.30000 0.60000)
+		4 V(59 60 71 70) M(0) UV(0.40000 0.50000 0.50000 0.50000 0.50000 0.60000 0.40000 0.60000)
+		4 V(60 61 72 71) M(0) UV(0.50000 0.50000 0.60000 0.50000 0.60000 0.60000 0.50000 0.60000)
+		4 V(61 62 73 72) M(0) UV(0.60000 0.50000 0.70000 0.50000 0.70000 0.60000 0.60000 0.60000)
+		4 V(62 63 74 73) M(0) UV(0.70000 0.50000 0.80000 0.50000 0.80000 0.60000 0.70000 0.60000)
+		4 V(63 64 75 74) M(0) UV(0.80000 0.50000 0.90000 0.50000 0.90000 0.60000 0.80000 0.60000)
+		4 V(64 65 76 75) M(0) UV(0.90000 0.50000 1.00000 0.50000 1.00000 0.60000 0.90000 0.60000)
+		4 V(67 66 77 78) M(0) UV(0.00000 0.60000 0.10000 0.60000 0.10000 0.70000 0.00000 0.70000)
+		4 V(66 68 79 77) M(0) UV(0.10000 0.60000 0.20000 0.60000 0.20000 0.70000 0.10000 0.70000)
+		4 V(68 69 80 79) M(0) UV(0.20000 0.60000 0.30000 0.60000 0.30000 0.70000 0.20000 0.70000)
+		4 V(69 70 81 80) M(0) UV(0.30000 0.60000 0.40000 0.60000 0.40000 0.70000 0.30000 0.70000)
+		4 V(70 71 82 81) M(0) UV(0.40000 0.60000 0.50000 0.60000 0.50000 0.70000 0.40000 0.70000)
+		4 V(71 72 83 82) M(0) UV(0.50000 0.60000 0.60000 0.60000 0.60000 0.70000 0.50000 0.70000)
+		4 V(72 73 84 83) M(0) UV(0.60000 0.60000 0.70000 0.60000 0.70000 0.70000 0.60000 0.70000)
+		4 V(73 74 85 84) M(0) UV(0.70000 0.60000 0.80000 0.60000 0.80000 0.70000 0.70000 0.70000)
+		4 V(74 75 86 85) M(0) UV(0.80000 0.60000 0.90000 0.60000 0.90000 0.70000 0.80000 0.70000)
+		4 V(75 76 87 86) M(0) UV(0.90000 0.60000 1.00000 0.60000 1.00000 0.70000 0.90000 0.70000)
+		4 V(78 77 88 89) M(0) UV(0.00000 0.70000 0.10000 0.70000 0.10000 0.80000 0.00000 0.80000)
+		4 V(77 79 90 88) M(0) UV(0.10000 0.70000 0.20000 0.70000 0.20000 0.80000 0.10000 0.80000)
+		4 V(79 80 91 90) M(0) UV(0.20000 0.70000 0.30000 0.70000 0.30000 0.80000 0.20000 0.80000)
+		4 V(80 81 92 91) M(0) UV(0.30000 0.70000 0.40000 0.70000 0.40000 0.80000 0.30000 0.80000)
+		4 V(81 82 93 92) M(0) UV(0.40000 0.70000 0.50000 0.70000 0.50000 0.80000 0.40000 0.80000)
+		4 V(82 83 94 93) M(0) UV(0.50000 0.70000 0.60000 0.70000 0.60000 0.80000 0.50000 0.80000)
+		4 V(83 84 95 94) M(0) UV(0.60000 0.70000 0.70000 0.70000 0.70000 0.80000 0.60000 0.80000)
+		4 V(84 85 96 95) M(0) UV(0.70000 0.70000 0.80000 0.70000 0.80000 0.80000 0.70000 0.80000)
+		4 V(85 86 97 96) M(0) UV(0.80000 0.70000 0.90000 0.70000 0.90000 0.80000 0.80000 0.80000)
+		4 V(86 87 98 97) M(0) UV(0.90000 0.70000 1.00000 0.70000 1.00000 0.80000 0.90000 0.80000)
+		4 V(89 88 99 100) M(0) UV(0.00000 0.80000 0.10000 0.80000 0.10000 0.90000 0.00000 0.90000)
+		4 V(88 90 101 99) M(0) UV(0.10000 0.80000 0.20000 0.80000 0.20000 0.90000 0.10000 0.90000)
+		4 V(90 91 102 101) M(0) UV(0.20000 0.80000 0.30000 0.80000 0.30000 0.90000 0.20000 0.90000)
+		4 V(91 92 103 102) M(0) UV(0.30000 0.80000 0.40000 0.80000 0.40000 0.90000 0.30000 0.90000)
+		4 V(92 93 104 103) M(0) UV(0.40000 0.80000 0.50000 0.80000 0.50000 0.90000 0.40000 0.90000)
+		4 V(93 94 105 104) M(0) UV(0.50000 0.80000 0.60000 0.80000 0.60000 0.90000 0.50000 0.90000)
+		4 V(94 95 106 105) M(0) UV(0.60000 0.80000 0.70000 0.80000 0.70000 0.90000 0.60000 0.90000)
+		4 V(95 96 107 106) M(0) UV(0.70000 0.80000 0.80000 0.80000 0.80000 0.90000 0.70000 0.90000)
+		4 V(96 97 108 107) M(0) UV(0.80000 0.80000 0.90000 0.80000 0.90000 0.90000 0.80000 0.90000)
+		4 V(97 98 109 108) M(0) UV(0.90000 0.80000 1.00000 0.80000 1.00000 0.90000 0.90000 0.90000)
+		4 V(100 99 110 111) M(0) UV(0.00000 0.90000 0.10000 0.90000 0.10000 1.00000 0.00000 1.00000)
+		4 V(99 101 112 110) M(0) UV(0.10000 0.90000 0.20000 0.90000 0.20000 1.00000 0.10000 1.00000)
+		4 V(101 102 113 112) M(0) UV(0.20000 0.90000 0.30000 0.90000 0.30000 1.00000 0.20000 1.00000)
+		4 V(102 103 114 113) M(0) UV(0.30000 0.90000 0.40000 0.90000 0.40000 1.00000 0.30000 1.00000)
+		4 V(103 104 115 114) M(0) UV(0.40000 0.90000 0.50000 0.90000 0.50000 1.00000 0.40000 1.00000)
+		4 V(104 105 116 115) M(0) UV(0.50000 0.90000 0.60000 0.90000 0.60000 1.00000 0.50000 1.00000)
+		4 V(105 106 117 116) M(0) UV(0.60000 0.90000 0.70000 0.90000 0.70000 1.00000 0.60000 1.00000)
+		4 V(106 107 118 117) M(0) UV(0.70000 0.90000 0.80000 0.90000 0.80000 1.00000 0.70000 1.00000)
+		4 V(107 108 119 118) M(0) UV(0.80000 0.90000 0.90000 0.90000 0.90000 1.00000 0.80000 1.00000)
+		4 V(108 109 120 119) M(0) UV(0.90000 0.90000 1.00000 0.90000 1.00000 1.00000 0.90000 1.00000)
+	}
+}
+Eof

script/KevinSystem/kevin_system/ItemSoundLib.txt

@@ -0,0 +1,34 @@
+// Sound effects for items go here. 
+
+let itemlib = GetModuleDirectory() ~ "./script/KevinSystem/RyannSFX/ItemSFX/";
+let SFXVol = GetAreaCommonData("Config", "SEVol", 100) * 0.01;
+
+// Sound objects declarations
+
+let SpellSFX = ObjSound_Create();
+let LifeSFX = ObjSound_Create();
+let CancelSFX = ObjSound_Create();
+let RegularItemSFX = ObjSound_Create();
+let SpecialItemSFX = ObjSound_Create();
+
+// Merge function that loads sounds and significantly decreases volume
+// so the ears do not die from SFX overload. 
+
+function LoadEx(targetobj, targetpath, targetvol){
+
+	ObjSound_Load(targetobj, targetpath);
+	ObjSound_SetVolumeRate(targetobj, targetvol * SFXVol);
+	ObjSound_SetSoundDivision(targetobj, SOUND_SE);
+	
+}
+
+task _ItemSoundTask{
+
+	LoadEx(SpellSFX, itemlib ~ "bfxr_SpellExtend.wav", 80);
+	LoadEx(LifeSFX, itemlib ~ "bfxr_LifeExtend.wav", 80);
+	LoadEx(CancelSFX, itemlib ~ "bfxr_GetItemCancel.wav", 20);
+	LoadEx(RegularItemSFX, itemlib ~ "bfxr_GetItem1.wav", 40);
+	LoadEx(SpecialItemSFX, itemlib ~ "bfxr_GetItemSpecial.wav", 40);
+}
+
+// Functions to load sounds in scripts

script/KevinSystem/kevin_system/KevinSystem_Item.txt

@@ -0,0 +1,276 @@
+// Item script
+
+#include "./Kevin_ItemConst.txt"
+#include "./Kevin_ItemLib.txt"
+#include "./ItemSoundLib.txt"
+//#include "./Kevin_ItemData.txt;
+
+float PIV = 0;
+
+@Initialize{
+	SetAutoDeleteObject(true);
+	_ItemSoundTask();
+	SetDefaultBonusItemEnable(false);
+	LoadItemData(GetCurrentScriptDirectory ~ "./Kevin_ItemData.txt");
+}
+
+@MainLoop{
+	PIV = GetAreaCommonData("PIV", "currentvalue", 0);
+	yield;
+}
+
+@Event 
+{
+	alternative (GetEventType())
+	case (EV_GET_ITEM){
+	
+    let obj = GetEventArgument(0);
+	
+	alternative(obj)
+	
+	case(POINT_REGULAR)	{	AddScore(GetAreaCommonData("PIV", "currentvalue", 0));	ObjSound_Play(CancelSFX);}
+	case(POINT_BHESTIE)	{	AddScore(2*GetAreaCommonData("PIV", "currentvalue", 0));	ObjSound_Play(SpecialItemSFX);}
+	case(POINT_RAINBOW)	{	AddScore(2*GetAreaCommonData("PIV", "currentvalue", 0));	ObjSound_Play(SpecialItemSFX);}
+	case(POINT_CANCEL)	{	AddScore(0.05*GetAreaCommonData("PIV", "currentvalue", 0));	ObjSound_Play(CancelSFX);}
+	
+	case(EXTEND_LIFE)		{	AddScore(PIV);		SetPlayerLife(GetPlayerLife()+1);	ObjSound_Play(SpellSFX);}
+	case(EXTEND_SPELL)	{	AddScore(PIV);		SetPlayerSpell(GetPlayerSpell()+1);		ObjSound_Play(SpecialItemSFX);}
+	
+	case(PIV_100)			{	SetAreaCommonData("PIV", "currentvalue", GetAreaCommonData("PIV", "currentvalue", 0)+100);}		//ObjSound_Play(CancelSFX);}
+	case(PIV_250)			{	SetAreaCommonData("PIV", "currentvalue", GetAreaCommonData("PIV", "currentvalue", 0)+250);}		//ObjSound_Play(CancelSFX);}
+	case(PIV_500)			{	SetAreaCommonData("PIV", "currentvalue", GetAreaCommonData("PIV", "currentvalue", 0)+500);}		//ObjSound_Play(CancelSFX);}
+	
+	}
+	
+	case (EV_DELETE_SHOT_TO_ITEM){
+	
+		float[] position = GetEventArgument(1);
+		CreateCancelItem(position[0], position[1]);
+		
+	}
+	
+	case (EV_CANCEL_ITEM) {
+	
+		let obj = GetEventArgument(0);
+		let type = GetEventArgument(1);
+		
+		_CancelHandling(obj, type);
+		
+	}
+
+	case (EV_COLLECT_ITEM){
+	
+		let obj = GetEventArgument(0);
+		let type = GetEventArgument(1);
+		let typeCollect = GetEventArgument(2);
+		
+		//WriteLog(type);
+		_MoveToPlayer(obj, type, typeCollect); // Separate task is used to move the object to the player at customized speeds.
+		
+	}
+	
+	// Drops point items depending on how close you were to the enemy when you killed them.
+	/*
+		Event arguments:
+		
+		0: PlayerID
+		1: EnemyID
+		2: Minimum number of point items
+		3: Maximum number of point items
+		
+	*/
+	
+	case(EV_DROP_POINT_ENEMY){
+	
+		_DropPointItem(GetEventArgument(0), GetEventArgument(1), GetEventArgument(2), GetEventArgument(3), GetEventArgument(4));
+		
+	}
+	
+	case(EV_DROP_PIV_ENEMY){
+	
+		_DropPIVItemEnemy(GetEventArgument(0), GetEventArgument(1), GetEventArgument(2), GetEventArgument(3), GetEventArgument(4));
+		
+	}
+	
+	// Event arguments: Enemy X, Enemy Y, Item Drop Amount, Item Drop Type
+	case(EV_SINGLE_ITEM_DROP){
+		
+		loop(GetEventArgument(2)){
+			CreateScoreItem(GetEventArgument(3), 
+			GetEventArgument(0)+rand(-100, 100), GetEventArgument(1)+rand(-100, 100));
+		}
+		
+	}
+	
+	case(EV_DROP_EXTEND){
+		CreateExtendItem(EXTEND_LIFE, GetEventArgument(0), GetEventArgument(1));
+	}	
+}
+
+task _CancelHandling(int IDItem, int typeItem){
+
+	ObjMove_CancelMovement(IDItem);
+	
+	while(GetPlayerState() != STATE_NORMAL){yield;}
+	
+	_MoveToPlayer(IDItem, typeItem, 0);
+	
+}
+
+// Timer is counted in frames (60 frames = 1 second)
+
+task _DropPointItem(float[] posEnm, int killTimer, int maxTimer, int pointMin, int pointMax){
+
+	// If the player kills enemy within maxTimer, the enemy drops the maximum amount of point items
+	
+	int pointFinal = Interpolate_Smooth(pointMin, pointMax, min(1, maxTimer/killTimer));
+	//WriteLog(pointFinal);
+	
+	loop(pointFinal){
+	
+		CreateScoreItem(POINT_REGULAR, posEnm[0]+rand(-60, 60), posEnm[1]+rand(-60, 60));
+		
+	}
+	
+	_ScorePopup(posEnm[0], posEnm[1], "POINT", pointFinal);
+	
+	return;
+
+
+}
+
+task _DropPIVItemEnemy(int IDPlayer, float[] posEnm, int pointMin, int pointMax, int bestDist){
+
+	// If the player is within at MOST "bestDist" from the enemy, the enemy drops the maximum amount of PIV items
+	
+	float curDist = hypot(posEnm[0]-ObjMove_GetX(IDPlayer), posEnm[1]-ObjMove_GetY(IDPlayer));
+	
+	int pointFinal = Interpolate_Smooth(pointMin, pointMax, min(1, bestDist/curDist));
+	//WriteLog(pointFinal);
+	
+	loop(pointFinal){
+	
+		CreatePIVItem(PIV_250, posEnm[0]+rand(-60, 60), posEnm[1]+rand(-60, 60));
+		
+	}
+	
+	_ScorePopup(posEnm[0], posEnm[1], "PIV", pointFinal);
+	
+	return;
+
+
+}
+
+task _MoveToPlayer(obj, type, typeCollect){
+
+    ObjItem_SetAutoDelete(obj, true);
+	ObjMove_SetAcceleration(obj, 1);
+	//ObjMove_SetMaxSpeed(obj, 2);
+	
+	// The max speed of movement differs based on item.
+	alternative(type)
+	
+	case(POINT_CANCEL)	{	ObjMove_SetMaxSpeed(obj, 23);	}
+	
+	case(PIV_100)			{	ObjMove_SetMaxSpeed(obj, 18);	}
+	case(PIV_250)			{	ObjMove_SetMaxSpeed(obj, 18);	}
+	case(PIV_500)			{	ObjMove_SetMaxSpeed(obj, 18);	}
+	
+	case(POINT_REGULAR)	{	ObjMove_SetMaxSpeed(obj, 20);	}
+	case(POINT_RAINBOW)	{	ObjMove_SetMaxSpeed(obj, 20);	}
+	case(POINT_BHESTIE)	{	ObjMove_SetMaxSpeed(obj, 20);	}
+	others					{	ObjMove_SetMaxSpeed(obj, 25);	}
+	
+    while (!Obj_IsDeleted(obj)) {
+        ObjMove_SetAngle(obj, GetAngleToPlayer(obj));
+		//WriteLog(ObjMove_GetSpeed(obj));
+        yield;
+    }
+
+}
+
+
+// Text popups. When enemy is defeated, text objects appear showing the number of PIV and point items collected.
+
+function CreateTextObject(
+	float mx, my, size,
+	string text, font,
+	int colorTop, colorBottom,
+	int borderColor, borderWidth,
+	int renderPriority
+	){
+	
+	let obj = ObjText_Create();
+	ObjText_SetText(obj, text);
+	ObjText_SetFontSize(obj, size);
+	ObjText_SetFontType(obj, font);
+	ObjText_SetFontColorTop(obj, colorTop);
+	ObjText_SetFontColorBottom(obj, colorBottom);
+	ObjText_SetFontBorderType(obj, BORDER_FULL);
+	ObjText_SetFontBorderColor(obj, borderColor);
+	ObjText_SetFontBorderWidth(obj, borderWidth);
+	Obj_SetRenderPriorityI(obj, renderPriority);
+	ObjRender_SetX(obj, mx);
+	ObjRender_SetY(obj, my);
+	return obj;
+	
+}
+
+task _ScorePopup(float enmX, float enmY, string type, int itemNum){
+	
+	float offset = 72; // Vertical space between the 2 scoretexts
+	float time = 30; // Time that the text objects (appear+)last on screen
+	float timeDisappear = 15; // Fade time
+	float size = 75;
+	float yDes = 60; // Destination text object moves to, relative to enmY 
+	string font = "Unispace";
+	float borderSize = 6;
+	
+	if (type == "POINT"){
+	
+		int pointText = CreateTextObject(
+			enmX, enmY, size,
+			"x" ~ IntToString(itemNum), font,
+			0x7699FF, 0xFFFFFF,
+			0x2A00C0, borderSize,
+			42
+		);
+		ObjText_SetHorizontalAlignment(pointText, ALIGNMENT_CENTER);
+		
+		ascent(i in 0..time){
+			ObjRender_SetY(pointText, Interpolate_Decelerate(enmY, enmY-yDes, i/time));
+			yield;
+		}
+		
+		ascent(i in 0..timeDisappear){
+			ObjRender_SetAlpha(pointText, Interpolate_Decelerate(255, 0, i/timeDisappear));
+			yield;
+		}
+		Obj_Delete(pointText);
+	}
+
+	else{
+		int pivText = CreateTextObject(
+			enmX, enmY+offset, size,
+			"x" ~ IntToString(itemNum), font,
+			0xFFB4EC, 0xFFFFFF,
+			0xB200AD, borderSize,
+			42
+		);
+		
+		ObjText_SetHorizontalAlignment(pivText, ALIGNMENT_CENTER);
+		
+		ascent(i in 0..time){
+			ObjRender_SetY(pivText, Interpolate_Decelerate(enmY+offset, enmY+offset-yDes, i/time));
+			yield;
+		}
+		
+		ascent(i in 0..timeDisappear){
+			ObjRender_SetAlpha(pivText, Interpolate_Decelerate(255, 0, i/timeDisappear));
+			yield;
+		}
+		
+		Obj_Delete(pivText);
+	}
+	
+}

script/KevinSystem/kevin_system/Kevin_EndScene.txt

@@ -0,0 +1,263 @@
+//一時停止中スクリプト
+
+#include "script/KevinSystem/GeneralSoundLib.txt"
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	_SoundTask();
+	ExtendSFX;
+	SetAutoDeleteObject(true);
+	TBackgroundNew(0, 0);
+	TMenu();
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+
+task TBackgroundNew(renderX, renderY){
+	
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, "Thank you for playing![r]Until the next pride...");
+	ObjText_SetFontSize(objText, 36);
+	ObjText_SetFontType(objText, "Connecting Chain Handserif");
+	
+	//ObjText_SetMaxWidth(objText, GetScreenWidth/2);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 255, 255, 255);
+	ObjText_SetFontColorBottom(objText, 255, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText, 0x7D39D9);
+	ObjText_SetFontBorderWidth(objText, 2);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, GetScreenWidth/2);
+	ObjRender_SetY(objText, 8*STGHEIGHT/9);
+
+	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
+	Obj_SetRenderPriorityI(obj, 1);
+	
+	let currentFrameTexture = GetTransitionRenderTargetName();
+	
+	ObjPrim_SetTexture(obj, currentFrameTexture);
+	ObjSprite2D_SetSourceRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	ObjSprite2D_SetDestRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	
+	ObjRender_SetColor(obj, 0x593DA3);
+	
+}
+
+task TBackground
+{
+	task TVertex(var index, var left, var top, var right, var bottom)
+	{
+		ObjPrim_SetVertexPosition(obj, index + 0, left, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 1, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 2, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 3, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 4, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 5, right, bottom, 0);
+
+		ObjPrim_SetVertexUVT(obj, index + 0, left, top);
+		ObjPrim_SetVertexUVT(obj, index + 1, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 2, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 3, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 4, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 5, right, bottom);
+
+		//STGシーン内のみアニメーション
+		if(left >= 341 && right <= 937 && top >= 45 && bottom <= 677)
+		{
+			let alpha = 255;
+			while(alpha >= 128)
+			{
+				ObjPrim_SetVertexAlpha(obj, index + 0, alpha);
+				ObjPrim_SetVertexAlpha(obj, index + 1, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 2, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 3, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 4, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 5, alpha);
+				alpha -= 255 / frame;
+
+				yield;
+			}
+		}
+	}
+
+	//分割設定
+	let frame = 30;
+	let countH = 20; //分割数
+	let countV = 30; 
+	let width = 1280 / countH;
+	let height = 720 / countV;
+	let target = GetTransitionRenderTargetName();
+	let obj = ObjPrim_Create(OBJ_PRIMITIVE_2D); //2D頂点ブジェクト生成
+	ObjPrim_SetPrimitiveType(obj, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(obj, countH * countV * 6);
+	Obj_SetRenderPriorityI(obj, 0); //描画優先度を設定
+	ObjPrim_SetTexture(obj, target); //テクスチャを設定
+
+	ascent(ix in 0.. countH)
+	{
+		ascent(iy in 0.. countV)
+		{
+			let index = (ix + iy * countH) * 6;
+			let left = ix * width;
+			let right = left + width;
+			let top = iy * height;
+			let bottom = top + height;
+			TVertex(index, left, top, right, bottom);
+		}
+	}
+
+}
+task TMenu
+{
+	let selectIndex = 0;//選択位置
+	function TMenuItem(let index, let mx, let my, let text)
+	{
+		function CreateTextObject(let mx, let my, let text)
+		{
+			let obj = ObjText_Create();
+			ObjText_SetText(obj, text);
+			ObjText_SetFontSize(obj, 65);
+			ObjText_SetFontType(obj, "Connecting Chain Handserif");
+			ObjText_SetFontBold(obj, true);
+			ObjText_SetHorizontalAlignment(obj, ALIGNMENT_CENTER);
+			//ObjText_SetMaxWidth(obj, STGWIDTH);
+			ObjText_SetFontColorTop(obj, 155, 45, 175);
+			ObjText_SetFontColorBottom(obj, 200, 80, 255);
+			ObjText_SetFontBorderType(obj, BORDER_FULL);
+			ObjText_SetFontBorderColor(obj, 255, 255, 255);
+			ObjText_SetFontBorderWidth(obj, 3.5);
+			Obj_SetRenderPriorityI(obj, 10);
+			ObjRender_SetX(obj, mx);
+			ObjRender_SetY(obj, my);
+			return obj;
+		}
+
+		let objText = CreateTextObject(mx, my, text);
+		let objSelect = CreateTextObject(mx, my, text);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
+		
+		async{
+			loop
+			{
+				Obj_SetVisible(objSelect, index == selectIndex);
+				yield;
+			}
+		}
+		
+		return objText;
+	}
+
+	//メニュー配置
+
+	let textchoices = ["End of a Journey"];
+	int x = prand_int(0, length(textchoices)-1);
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, textchoices[x]);
+	ObjText_SetFontSize(objText, 150);
+	ObjText_SetFontType(objText, "Anke Calligraph");
+	
+	//ObjText_SetMaxWidth(objText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 75, 255, 255);
+	ObjText_SetFontColorBottom(objText, 180, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText,0, 0, 0);
+	ObjText_SetFontBorderWidth(objText, 3);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, GetScreenWidth/2);
+	ObjRender_SetY(objText, 100);
+	
+	let mx = GetScreenWidth/2;
+	let my = GetScreenHeight/4;
+	let texts = ["Save A Replay", "Depart From The Market", "Re-enter The Parade"];
+	var countMenu = length(texts);
+	ascent(var iText in 0 .. countMenu)
+	{
+		int text = TMenuItem(iText, mx, my, texts[iText]);
+		my += 75;
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_PAUSE) != KEY_FREE){yield;}
+
+	//メニュー選択処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	//PauseGameSFX;
+	
+	function CheckShotRelease {
+		return (GetVirtualKeyState(VK_OK) == KEY_HOLD);
+	}
+	
+	int countA = 0;
+	
+	loop
+	{
+		//決定
+		if(CheckShotRelease){yield; continue;}
+		
+		if(GetVirtualKeyState(VK_OK) == KEY_PUSH)
+		{
+			let listResult = [RESULT_SAVE_REPLAY, RESULT_END, RESULT_RETRY];
+			SetScriptResult(listResult[selectIndex]);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH)
+		{
+			selectIndex--;
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH)
+		{
+			selectIndex++;
+		}
+		else if(GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				selectIndex--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				selectIndex++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(selectIndex < 0) 
+		{
+			selectIndex = countMenu - 1;
+		}
+		else
+		{
+			selectIndex %= countMenu;
+		}
+
+		yield;
+	}
+}

script/KevinSystem/kevin_system/Kevin_ItemConst.txt

@@ -0,0 +1,13 @@
+
+const POINT_REGULAR = 1;
+const POINT_RAINBOW = 2;
+const POINT_BHESTIE = 3;
+const POINT_CANCEL = 4;
+
+const EXTEND_LIFE = 5;
+const EXTEND_SPELL = 6;
+
+const PIV_100 = 7;
+const PIV_250 = 8;
+const PIV_500 = 9;
+const FRAGMENT_SPELL = 10;

script/KevinSystem/kevin_system/Kevin_ItemData.txt

@@ -0,0 +1,16 @@
+#UserItemData
+
+item_image = "./../img/yo.png"
+
+ItemData { id=1 	rect=(256,256,384,384)	 } // Regular Point Item (PIV)
+ItemData { id=2 	rect=(384,128,512,256)	 } // Homosexual Point Item (PIV * 2)
+ItemData { id=3	rect=(256,128,384,256)	 } // Bhestie Point Item (PIV * 2, 25% chance of drop)
+ItemData { id=4	rect=(512,0,640,128)		 } // Cancel Item (PIV * O.2), erase bullets via bombs
+
+ItemData { id=5 	rect=(0,256,128,384) } // 1-up Item
+ItemData { id=6 	rect=(128,256,256,384) } // Spell Item
+
+ItemData { id=7 	rect=(256,384,384,512) 	fixed_angle = false 	angular_velocity = 3} // Green PIV Item (+100)
+ItemData { id=8	rect=(384,384,512,512) 	fixed_angle = false 	angular_velocity = 3} // Pink PIV Item (+250)
+ItemData { id=9 	rect=(384,256,512,384) 	fixed_angle = false 	angular_velocity = 3} // Gold PIV Item (+500)
+ItemData { id=10 	rect=(128,384,256,512) } // Spell Piece

script/KevinSystem/kevin_system/Kevin_ItemLib.txt

@@ -0,0 +1,146 @@
+// Valid types: PIV_100, PIV_250, PIV_500
+
+float universalItemAlpha = GetAreaCommonData("Config", "ItemOpacity", 60);
+
+const EV_DROP_POINT_ENEMY = EV_USER + 200i;
+const EV_DROP_PIV_ENEMY = EV_USER + 201i;
+const EV_SINGLE_ITEM_DROP = EV_USER + 202i;
+const EV_DROP_EXTEND = EV_USER + 203i;
+
+function CreatePIVItem(itemtype, x, y){
+
+	let PIVItem = CreateItemU1(itemtype, x, y, 0);
+	ObjItem_SetDefaultCollectMovement(PIVItem, false);
+	
+	async{
+		wait(20);
+		ObjMove_SetMaxSpeed(PIVItem, 24);
+		ObjItem_SetMoveToPlayer(PIVItem, true);
+	}
+	
+	//ObjItem_SetAutoCollectEnableFlags(PIVItem, ITEM_AUTOCOLLECT_ALL);
+	
+	ObjItem_SetIntersectionRadius(PIVItem, 60);
+	
+	ObjRender_SetScaleXYZ(PIVItem, 0.85, 0.85, 1);
+	ObjRender_SetAlpha(PIVItem, 255*(universalItemAlpha/100));
+	
+	async{
+		while(!Obj_IsDeleted(PIVItem)){
+			float angz = ObjRender_GetAngleZ(PIVItem);
+			ObjRender_SetAngleZ(PIVItem, angz+3.5);
+			yield;
+		}
+	}
+
+	return PIVItem;
+}
+
+// Valid types: POINT_REGULAR, POINT_BHESTIE, POINT_RAINBOW
+function CreateScoreItem(itemtype, x, y){
+	let ScoreItem = CreateItemU1(itemtype, x + rand(-60, 60), y + rand(-60, 60), 0);
+	ObjItem_SetDefaultCollectMovement(ScoreItem, false);
+	
+	async{
+		wait(45);
+		ObjItem_SetMoveToPlayer(ScoreItem, true);
+	}
+	
+	//ObjItem_SetAutoCollectEnableFlags(ScoreItem, ITEM_AUTOCOLLECT_ALL);
+	
+	ObjItem_SetIntersectionRadius(ScoreItem, 60);
+	ObjItem_SetRenderScoreEnable(ScoreItem, false);
+	
+	//ObjRender_SetScaleXYZ(ScoreItem, 0.7, 0.7, 1);
+	ObjRender_SetAlpha(ScoreItem, 255*(universalItemAlpha/100));
+	
+	//ObjMove_AddPatternA2(ScoreItem, 60, NO_CHANGE, 90, 0.12, 5.45, 0);
+	
+	return ScoreItem;
+}
+
+function CreateCancelItem(x, y){
+
+	let CancelItem = CreateItemU1(POINT_CANCEL, x, y, 0);
+	ObjItem_SetDefaultCollectMovement(CancelItem, false);
+	
+	async{
+		wait(45);
+		ObjItem_SetMoveToPlayer(CancelItem, true);
+		ObjMove_SetMaxSpeed(CancelItem, 24);
+	}
+	
+	ObjItem_SetAutoCollectEnableFlags(CancelItem, ITEM_AUTOCOLLECT_ALL);
+	ObjItem_SetRenderScoreEnable(CancelItem, false);
+	
+	ObjItem_SetIntersectionRadius(CancelItem, 60);
+	
+	ObjRender_SetScaleXYZ(CancelItem, 0.6, 0.6, 1);
+	ObjRender_SetAlpha(CancelItem, 255*(universalItemAlpha/100));
+	
+	async{
+		while(!Obj_IsDeleted(CancelItem)){
+		float angz = ObjRender_GetAngleZ(CancelItem);
+		ObjRender_SetAngleZ(CancelItem, angz+2);
+		yield;
+		}
+	}
+
+	return CancelItem;
+	
+}
+// Valid types: EXTEND_LIFE, EXTEND_SPELL
+function CreateExtendItem(itemtype, x, y){
+
+	let ExtendItem = CreateItemU2(itemtype, x, y, x, y-125, 0);
+	ObjItem_SetDefaultCollectMovement(ExtendItem, false);
+	//ObjItem_SetMoveToPlayer(ExtendItem, true);
+	ObjItem_SetAutoCollectEnableFlags(ExtendItem, ITEM_AUTOCOLLECT_ALL);
+	
+	ObjRender_SetScaleXYZ(ExtendItem, 1.5, 1.5, 1);
+	Obj_SetRenderPriorityI(ExtendItem, 49);
+	
+	async{
+		wait(30);
+		ObjItem_SetMoveToPlayer(ExtendItem, true);
+		//ObjMove_SetMaxSpeed(CancelItem, 24);
+	}
+	
+	return ExtendItem;
+}
+
+// Summoning the actual items
+
+function NonspellItemDrop(scene, x, y){
+
+	if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0){
+		loop(14){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else{
+		loop(8){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	
+}
+
+function SpellItemDrop(scene, x, y){
+
+	if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SPELL_COUNT) == 0){
+		loop(20){
+			CreateScoreItem(POINT_BHESTIE, x+rand(-75, 75), y+rand(-45, 45));
+		}
+		loop(10){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SPELL_COUNT) >> 0){
+		loop(12){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else{}
+	
+}

script/KevinSystem/kevin_system/Kevin_Pause.txt

@@ -0,0 +1,298 @@
+//一時停止中スクリプト
+//#include "./../../script/soundtask.txt"
+#include "script/KevinSystem/GeneralSoundLib.txt"
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	_SoundTask();
+	PauseGameSFX;
+	SetAutoDeleteObject(true);
+	//TBackground();
+	TBackgroundNew(0, 0);
+	TMenu();
+	TFunFact();
+	//_SoundTask;
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+task TFunFact(){
+	
+	//int y = 0;
+	
+	let textchoices = [
+	"The sun is just a really hot egg tart, if you think about it.",
+	"Gay people.",
+	"You know what else is as cool as gay Touhous? It's Kouji Kouda[r]from the hit anime \"Boku no Hero Academia\"- *turns into a Kouda plushie*",
+	"Thanks for playing this game! I hope you enjoyed my gay Touhou endeavours.",
+	"You can set the amount of starting lives you have in the configurations menu.[r]If you have trouble with difficult patterns or stage sections, now you can blast right through them!"
+	];
+	int x = prand_int(0, length(textchoices)-1);
+	//y = length(textchoices);
+	
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, textchoices[x]);
+	ObjText_SetFontSize(objText, 36);
+	ObjText_SetFontType(objText, "Connecting Chain Handserif");
+	
+	//ObjText_SetMaxWidth(objText, GetScreenWidth/2);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 255, 255, 255);
+	ObjText_SetFontColorBottom(objText, 255, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText, 0x7D39D9);
+	ObjText_SetFontBorderWidth(objText, 2);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, GetScreenWidth/2);
+	ObjRender_SetY(objText, 8*STGHEIGHT/9);
+	
+}
+
+// renderX and renderY will be TOP-LEFT COORDS
+task TBackgroundNew(float renderX, renderY){
+
+	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
+	Obj_SetRenderPriorityI(obj, 1);
+	
+	let currentFrameTexture = GetTransitionRenderTargetName();
+	
+	ObjPrim_SetTexture(obj, currentFrameTexture);
+	ObjSprite2D_SetSourceRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	ObjSprite2D_SetDestRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	
+	ObjRender_SetColor(obj, 0x593DA3);
+	
+}
+
+task TBackground
+{	
+	task TVertex(var index, var left, var top, var right, var bottom)
+	{
+		ObjPrim_SetVertexPosition(obj, index + 0, left, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 1, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 2, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 3, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 4, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 5, right, bottom, 0);
+
+		ObjPrim_SetVertexUVT(obj, index + 0, left, top);
+		ObjPrim_SetVertexUVT(obj, index + 1, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 2, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 3, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 4, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 5, right, bottom);
+
+		//STGシーン内のみアニメーション
+		if(left >= 341 && right <= 937 && top >= 45 && bottom <= 677)
+		{
+			let alpha = 255;
+			while(alpha >= 128)
+			{
+				ObjPrim_SetVertexAlpha(obj, index + 0, alpha);
+				ObjPrim_SetVertexAlpha(obj, index + 1, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 2, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 3, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 4, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 5, alpha);
+				alpha -= 255 / frame;
+
+				yield;
+			}
+		}
+	}
+
+	//分割設定
+	let frame = 30;
+	let countH = 20; //分割数
+	let countV = 30; 
+	let width = 1280 / countH;
+	let height = 720 / countV;
+	let target = GetTransitionRenderTargetName();
+	let obj = ObjPrim_Create(OBJ_PRIMITIVE_2D); //2D頂点ブジェクト生成
+	ObjPrim_SetPrimitiveType(obj, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(obj, countH * countV * 6);
+	Obj_SetRenderPriorityI(obj, 0); //描画優先度を設定
+	ObjPrim_SetTexture(obj, target); //テクスチャを設定
+
+	ascent(ix in 0.. countH)
+	{
+		ascent(iy in 0.. countV)
+		{
+			let index = (ix + iy * countH) * 6;
+			let left = ix * width;
+			let right = left + width;
+			let top = iy * height;
+			let bottom = top + height;
+			TVertex(index, left, top, right, bottom);
+		}
+	}
+
+}
+
+task TMenu
+{
+	let selectIndex = 0;//選択位置
+	function TMenuItem(let index, let mx, let my, let text)
+	{
+		function CreateTextObject(let mx, let my, let text)
+		{
+			let obj = ObjText_Create();
+			ObjText_SetText(obj, text);
+			ObjText_SetFontSize(obj, 65);
+			ObjText_SetFontType(obj, "Connecting Chain Handserif");
+			ObjText_SetFontBold(obj, true);
+			ObjText_SetHorizontalAlignment(obj, ALIGNMENT_CENTER);
+			//ObjText_SetMaxWidth(obj, STGWIDTH);
+			ObjText_SetFontColorTop(obj, 155, 45, 175);
+			ObjText_SetFontColorBottom(obj, 200, 80, 255);
+			ObjText_SetFontBorderType(obj, BORDER_FULL);
+			ObjText_SetFontBorderColor(obj, 255, 255, 255);
+			ObjText_SetFontBorderWidth(obj, 3.5);
+			Obj_SetRenderPriorityI(obj, 10);
+			ObjRender_SetX(obj, mx);
+			ObjRender_SetY(obj, my);
+			return obj;
+		}
+
+		let objText = CreateTextObject(mx, my, text);
+		let objSelect = CreateTextObject(mx, my, text);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
+		
+		async{
+			loop
+			{
+				Obj_SetVisible(objSelect, index == selectIndex);
+				yield;
+			}
+		}
+		
+		return objText;
+	}
+
+	//メニュー配置
+
+	let textchoices = ["Market Moratorium", "Respite from the Parade", "Worthy Rest"];
+	int x = prand_int(0, length(textchoices)-1);
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, textchoices[x]);
+	ObjText_SetFontSize(objText, 150);
+	ObjText_SetFontType(objText, "Anke Calligraph");
+	
+	//ObjText_SetMaxWidth(objText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 75, 255, 255);
+	ObjText_SetFontColorBottom(objText, 180, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText,0, 0, 0);
+	ObjText_SetFontBorderWidth(objText, 3);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, GetScreenWidth/2);
+	ObjRender_SetY(objText, 100);
+	
+	let mx = GetScreenWidth/2;
+	let my = GetScreenHeight/4;
+	let texts = ["Resume The Faceoff", "Accept Your Losses", "Take Another Shot"];
+	var countMenu = length(texts);
+	ascent(var iText in 0 .. countMenu)
+	{
+		int text = TMenuItem(iText, mx, my, texts[iText]);
+		my += 75;
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_PAUSE) != KEY_FREE){yield;}
+
+	//メニュー選択処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	//PauseGameSFX;
+	loop
+	{
+		//決定
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			let listResult = [RESULT_CANCEL, RESULT_END, RESULT_RETRY];
+			SetScriptResult(listResult[selectIndex]);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//キャンセル
+		if(GetVirtualKeyState(VK_CANCEL) == KEY_PULL || GetVirtualKeyState(VK_PAUSE) == KEY_PULL)
+		{
+			SetScriptResult(RESULT_CANCEL);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex--;
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex++;
+		}
+		else if(GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				SelectOptionSFX;
+				selectIndex--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				SelectOptionSFX;
+				selectIndex++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(selectIndex < 0) 
+		{
+			selectIndex = countMenu - 1;
+		}
+		else
+		{
+			selectIndex %= countMenu;
+		}
+		if(GetKeyState(KEY_R) == KEY_PUSH){
+			SetScriptResult(RESULT_RETRY);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+		if(GetKeyState(KEY_Q) == KEY_PUSH){
+			SetScriptResult(RESULT_END);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+		yield;
+	}
+}
+
+
+

script/KevinSystem/kevin_system/Kevin_ReplaySave.txt

@@ -0,0 +1,421 @@
+//リプレイ保存スクリプト
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	SetAutoDeleteObject(true);
+	LoadReplayList();
+
+	TBackgroundNew(0, 0);
+	TReplayIndexSelection();
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+let MENU_INDEX_SELECTION = 1;
+let MENU_NAME_ENTRY = 2;
+let menuMode = MENU_INDEX_SELECTION;
+
+function CreateTextObject(let mx, let my, float size, let text)
+{
+	let obj = ObjText_Create();
+	ObjText_SetText(obj, text);
+	ObjText_SetFontSize(obj, size);
+	ObjText_SetFontType(obj, "Unispace");
+	ObjText_SetFontBold(obj, true);
+	ObjText_SetHorizontalAlignment(obj, ALIGNMENT_LEFT);
+	//ObjText_SetMaxWidth(obj, STGWIDTH);
+	ObjText_SetFontColorTop(obj, 155, 45, 175);
+	ObjText_SetFontColorBottom(obj, 200, 80, 255);
+	ObjText_SetFontBorderType(obj, BORDER_FULL);
+	ObjText_SetFontBorderColor(obj, 255, 255, 255);
+	ObjText_SetFontBorderWidth(obj, 3);
+	Obj_SetRenderPriorityI(obj, 10);
+	ObjRender_SetX(obj, mx);
+	ObjRender_SetY(obj, my);
+	return obj;
+}
+
+// renderX and renderY will be TOP-LEFT COORDS
+task TBackgroundNew(float renderX, renderY){
+
+	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
+	Obj_SetRenderPriorityI(obj, 1);
+	
+	let currentFrameTexture = GetTransitionRenderTargetName();
+	
+	ObjPrim_SetTexture(obj, currentFrameTexture);
+	ObjSprite2D_SetSourceRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	ObjSprite2D_SetDestRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
+	
+	ObjRender_SetColor(obj, 0x593DA3);
+	
+}
+
+task TReplayIndexSelection()
+{
+	let cursorY = 0;
+	let page = 0;
+	let countMaxItem = REPLAY_INDEX_DIGIT_MAX - REPLAY_INDEX_DIGIT_MIN + 1;
+	let countItemPerPage = 20;
+	let pageMax = trunc((countMaxItem - 1) / countItemPerPage);
+	pageMax = max(pageMax, 1);
+	let lastPageMaxCursorY = trunc(countMaxItem / countItemPerPage);
+
+	task TMenuItem(let itemY)
+	{
+		let objText = CreateTextObject(90, 45 + 50 * itemY, 35, "");
+		let objSelect = CreateTextObject(90, 45 + 50 * itemY, 35, "");
+		ObjRender_SetAlpha(objText, 125);
+		ObjRender_SetAlpha(objSelect, 80);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_ARGB);
+
+		let oldPage = -1;
+		while(menuMode == MENU_INDEX_SELECTION)
+		{
+			if(page != oldPage)
+			{
+				let index = page * countItemPerPage + itemY + 1;
+				let text = rtos("00", index) ~ " ";
+				if(IsValidReplayIndex(index))
+				{
+					text = text ~ vtos("-8s", GetReplayInfo(index, REPLAY_USER_NAME)) ~ "   ";
+					text = text ~ GetReplayInfo(index, REPLAY_DATE_TIME) ~ "   ";
+					text = text ~ rtos("000000000000", GetReplayInfo(index, REPLAY_TOTAL_SCORE)) ~ "   ";
+					text = text ~ GetReplayInfo(index, REPLAY_PLAYER_NAME) ~ "   ";
+					text = text ~ GetReplayUserData(index, "Difficulty");
+					
+					/*SetReplayUserData("Starting Lives", GetCommonData("Starting Lives Selected", 5));
+					SetReplayUserData("Player Team", GetReplayInfo(index, REPLAY_PLAYER_NAME));
+					SetReplayUserData("Difficulty", GetCommonData("Difficulty", "Arcade"));*/
+					
+				}
+				else
+				{
+					text = text ~ "Entry Blank";
+				}
+				ObjText_SetText(objText, text);
+				ObjText_SetText(objSelect, text);
+				oldPage = page;
+			}
+			
+			if(page == pageMax && itemY >= lastPageMaxCursorY)
+			{
+				Obj_SetVisible(objText, false);
+				Obj_SetVisible(objSelect, false);
+			}
+			else
+			{
+				Obj_SetVisible(objText, true);
+				Obj_SetVisible(objSelect, itemY == cursorY);
+			}
+
+			yield;
+		}
+		Obj_Delete(objText);
+		Obj_Delete(objSelect);
+	}
+
+	ascent(let iItem in 0 .. countItemPerPage)
+	{
+		TMenuItem(iItem);
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}
+
+	//キー処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	while(menuMode == MENU_INDEX_SELECTION)
+	{
+		//決定
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			menuMode = MENU_NAME_ENTRY;
+			let index = page * countItemPerPage + cursorY + 1;
+			TNameEntry(index);
+			
+			break;
+		}
+	
+		if(GetVirtualKeyState(VK_CANCEL) == KEY_PUSH){
+			SetScriptResult(RESULT_END);
+			CloseScript(GetOwnScriptID());	
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH || GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_UP) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH || GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY++;
+			}
+		}
+		else if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH || GetVirtualKeyState(VK_LEFT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				page--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH || GetVirtualKeyState(VK_RIGHT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				page++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(page < 0)
+		{
+			page = pageMax;
+		}
+		else if(page > pageMax)
+		{
+			page = 0;
+		}
+
+		if(page != pageMax)
+		{
+			if(cursorY < 0)
+			{
+				cursorY = countItemPerPage - 1;
+			}
+			else if(cursorY >= countItemPerPage)
+			{
+				cursorY = 0;
+			}
+		}
+		else
+		{
+			if(cursorY < 0)
+			{
+				cursorY = lastPageMaxCursorY - 1;
+			}
+			else if(cursorY >= lastPageMaxCursorY)
+			{
+				cursorY = 0;
+			}
+		}
+
+		yield;
+	}
+
+}
+
+
+task TNameEntry(let replayIndex)
+{
+	let strTextIn = 
+	[
+		["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"],
+		["Q","R","S","T","U","V","W","X","Y","Z",".",",",":",";","_","@"],
+		["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p"],
+		["q","r","s","t","u","v","w","x","y","z","+","-","/","*","=","%"],
+		["0","1","2","3","4","5","6","7","8","9","0","!","?","'","\"","$"],
+		["(",")","{","}","[","]","<",">","&","#","|","~","^"," "," ","終"]
+	];
+
+	    let strTextView = 
+	    [
+		  ["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"],
+		  ["Q","R","S","T","U","V","W","X","Y","Z",".",",",":",";","_","@"],
+		  ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p"],
+		  ["q","r","s","t","u","v","w","x","y","z","+","-","/","*","=","%"],
+		  ["0","1","2","3","4","5","6","7","8","9","0","!","?","'","\"","$"],
+		  ["(",")","{","}","&osb;","&csb;","<",">","&","#","|","~","^"," "," ","»"]
+	    ];
+
+	let cursorX = 0;
+	let cursorY = 0;
+	let maxCursorX = length(strTextIn[0]);
+	let maxCursorY = length(strTextIn);
+
+	task TMenuItem(let itemX, let itemY)
+	{
+		let objText = CreateTextObject(360 + GetStgFrameWidth()/4 + itemX * 42, 400 + itemY * 42, 40, strTextView[itemY][itemX]);
+		let objSelect = CreateTextObject(360 + GetStgFrameWidth()/4+ itemX * 42, 400 + itemY * 42, 40, strTextView[itemY][itemX]);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_ARGB);
+
+		while(menuMode == MENU_NAME_ENTRY)
+		{
+			Obj_SetVisible(objSelect, itemX == cursorX && itemY == cursorY);
+			yield;
+		}
+		Obj_Delete(objText);
+		Obj_Delete(objSelect);
+	}
+
+	ascent(let iY in 0..maxCursorY)
+	{
+		ascent(let iX in 0 .. maxCursorX)
+		{
+			TMenuItem(iX, iY);
+		}
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}
+
+	//入力済み文字
+	let userName = "";
+	let objName = CreateTextObject(360+GetStgFrameWidth()/4, 200, 45, "");
+	task TNameCursor()
+	{
+		let objCursor = CreateTextObject(360+GetStgFrameWidth()/4, 200, 45, "_");
+		while(menuMode == MENU_NAME_ENTRY)
+		{
+			let nameLength = length(userName);
+			ObjRender_SetX(objCursor, 360+GetStgFrameWidth()/4 + nameLength * 30);
+			Obj_SetVisible(objCursor, nameLength < 8);
+			yield;
+		}
+		Obj_Delete(objCursor);
+	}
+	TNameCursor;
+
+	//キー処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	while(menuMode == MENU_NAME_ENTRY)
+	{
+		
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			//決定
+			let nameLength = length(userName);
+			if(cursorX == maxCursorX-1 && cursorY == maxCursorY-1)
+			{
+				//終了キー
+				if(nameLength == 0)
+				{
+					userName = "Gay";
+				}
+				else
+				{
+					SetReplayUserData("Starting Lives", GetCommonData("Starting Lives Selected", 5));
+					SetReplayUserData("Player Team", GetCommonData("Player Team", "ByakMiko"));
+					SetReplayUserData("Difficulty", GetCommonData("Difficulty", "Arcade"));
+					SetReplayUserData("Dialogue Skip", GetCommonData("Dialogue Skip Mode", 0));
+					SaveReplay(replayIndex, userName);
+					SetScriptResult(RESULT_END);
+					CloseScript(GetOwnScriptID());
+					return;
+				}
+			}
+			else if(nameLength < 8)
+			{
+				userName = userName ~ strTextIn[cursorY][cursorX];
+			}
+		}
+		if(GetVirtualKeyState(VK_CANCEL) == KEY_PULL)
+		{
+			//キャンセル
+			let nameLength = length(userName);
+			if(nameLength > 0)
+			{
+				userName = userName[0..nameLength-1];
+			}
+			else{menuMode = MENU_INDEX_SELECTION; TReplayIndexSelection(); break;}
+		}
+		ObjText_SetText(objName, userName);
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH || GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_UP) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH || GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY++;
+			}
+		}
+		else if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH || GetVirtualKeyState(VK_LEFT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorX--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH || GetVirtualKeyState(VK_RIGHT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorX++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(cursorX < 0)
+		{
+			cursorX = maxCursorX-1;
+		}
+		else if(cursorX >= maxCursorX)
+		{
+			cursorX = 0;
+		}
+
+		if(cursorY < 0)
+		{
+			cursorY = maxCursorY-1;
+		}
+		else if(cursorY >= maxCursorY)
+		{
+			cursorY = 0;
+		}
+
+		yield;
+	}
+}
+

script/KevinSystem/kevin_system/Legacy (1280x720)/KevinSystem_Item.txt

@@ -0,0 +1,46 @@
+// Item script
+
+#include "./Kevin_ItemConst.txt"
+#include "./Kevin_ItemLib.txt"
+//#include "./Kevin_ItemData.txt"
+
+@Initialize{
+	SetAutoDeleteObject(true);
+	SetDefaultBonusItemEnable(true);
+	LoadItemData(GetCurrentScriptDirectory ~ "./Kevin_ItemData.txt");
+}
+
+@MainLoop{
+	yield;
+}
+
+@Event 
+{
+	alternative (GetEventType)
+	case (EV_GET_ITEM){
+	
+      let obj = GetEventArgument(0);
+	
+	alternative(obj)
+	
+	case(POINT_REGULAR){	AddScore(GetAreaCommonData("PIV", "currentvalue", 0));}
+	case(POINT_BHESTIE){	AddScore(2*GetAreaCommonData("PIV", "currentvalue", 0));}
+	case(EXTEND_LIFE){	AddScore(50000);	SetPlayerLife(GetPlayerLife()+1);}
+	case(EXTEND_SPELL){	AddScore(50000);	SetPlayerSpell(GetPlayerSpell()+1);}
+	case(PIV_100){		SetAreaCommonData("PIV", "currentvalue", 		GetAreaCommonData("PIV", "currentvalue", 0)+100);}
+	case(PIV_250){		SetAreaCommonData("PIV", "currentvalue", 		GetAreaCommonData("PIV", "currentvalue", 0)+250);}
+	case(PIV_500){		SetAreaCommonData("PIV", "currentvalue", 		GetAreaCommonData("PIV", "currentvalue", 0)+500);}
+	
+	}
+	
+	case (EV_DELETE_SHOT_TO_ITEM){
+	
+	}
+	
+	case (EV_COLLECT_ITEM){
+		let obj = GetEventArgument(1);
+		ObjMove_SetAcceleration(obj, 0.85);
+		ObjMove_SetMaxSpeed(obj, 12);
+	}
+
+}

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_EndScene.txt

@@ -0,0 +1,292 @@
+//一時停止中スクリプト
+
+#include "script/KevinSystem/GeneralSoundLib.txt"
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	_SoundTask();
+	ExtendSFX;
+	SetAutoDeleteObject(true);
+	TBackgroundNew(0, 0);
+	TMenu();
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+
+task TBackgroundNew(renderX, renderY){
+	
+	let clearText = ObjText_Create();
+	ObjText_SetText(clearText, "Congratulations on clearing the game![r]Until the next convocation...");
+	ObjText_SetFontSize(clearText, 18.5);
+	ObjText_SetFontType(clearText, "Connecting Chain Handserif");
+	
+	ObjText_SetMaxWidth(clearText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(clearText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(clearText, true);
+	ObjText_SetFontColorTop(clearText, 255, 255, 255);
+	ObjText_SetFontColorBottom(clearText, 255, 255, 255);
+	ObjText_SetFontBorderType(clearText, BORDER_FULL);
+	ObjText_SetFontBorderColor(clearText, 0x7D39D9);
+	ObjText_SetFontBorderWidth(clearText, 2);
+	Obj_SetRenderPriorityI(clearText, 10);
+	ObjRender_SetX(clearText, STGWIDTH-255);
+	ObjRender_SetY(clearText, STGHEIGHT-75);
+	
+	// Render semi-transparent primitive background
+	task TRenderPrim(selection){
+		
+		// Thank you for the PrimMaker Ferase :omegaflooshed:
+		
+		ObjRender_SetPosition(selection, renderX+640, renderY+360, 0); // Since the render priority of the r.target is under 20
+		
+		// Set up vert 0
+		ObjPrim_SetVertexPosition(selection,0,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,0,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 0, 0, 0);
+		// Set up vert 1
+		ObjPrim_SetVertexPosition(selection,1,640,-360,0);
+		ObjPrim_SetVertexColor(selection,1,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 1, 1280, 0);
+		// Set up vert 2
+		ObjPrim_SetVertexPosition(selection,2,640,360,0);
+		ObjPrim_SetVertexColor(selection,2,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 2, 1280, 720);
+		// Set up vert 3
+		ObjPrim_SetVertexPosition(selection,3,640,360,0);
+		ObjPrim_SetVertexColor(selection,3,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 3, 1280, 720);
+		// Set up vert 4
+		ObjPrim_SetVertexPosition(selection,4,-640,360,0);
+		ObjPrim_SetVertexColor(selection,4,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 4, 0, 720);
+		// Set up vert 5
+		ObjPrim_SetVertexPosition(selection,5,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,5,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 5, 0, 0);
+		
+		for(int i = 0; i <= 5; i++){
+			ObjPrim_SetVertexAlpha(selection, i, 100);
+		}
+	}
+	
+	// Render... the render target???	
+	let objBG = ObjPrim_Create(OBJ_PRIMITIVE_2D);
+	ObjPrim_SetPrimitiveType(objBG, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(objBG, 6);
+	let target = "target";
+	CreateRenderTargetEx(target, 1280, 720);
+	ObjPrim_SetTexture(objBG, target);
+	//SetInvalidRenderPriorityA1(20, 80);
+	RenderToTextureA1(target, 0, 100, true);  
+	//RenderToTextureB1(target, objBG, true);
+	Obj_SetRenderPriorityI(objBG, 0);
+	TRenderPrim(objBG);
+	
+}
+
+task TBackground
+{
+	task TVertex(var index, var left, var top, var right, var bottom)
+	{
+		ObjPrim_SetVertexPosition(obj, index + 0, left, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 1, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 2, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 3, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 4, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 5, right, bottom, 0);
+
+		ObjPrim_SetVertexUVT(obj, index + 0, left, top);
+		ObjPrim_SetVertexUVT(obj, index + 1, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 2, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 3, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 4, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 5, right, bottom);
+
+		//STGシーン内のみアニメーション
+		if(left >= 341 && right <= 937 && top >= 45 && bottom <= 677)
+		{
+			let alpha = 255;
+			while(alpha >= 128)
+			{
+				ObjPrim_SetVertexAlpha(obj, index + 0, alpha);
+				ObjPrim_SetVertexAlpha(obj, index + 1, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 2, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 3, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 4, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 5, alpha);
+				alpha -= 255 / frame;
+
+				yield;
+			}
+		}
+	}
+
+	//分割設定
+	let frame = 30;
+	let countH = 20; //分割数
+	let countV = 30; 
+	let width = 1280 / countH;
+	let height = 720 / countV;
+	let target = GetTransitionRenderTargetName();
+	let obj = ObjPrim_Create(OBJ_PRIMITIVE_2D); //2D頂点ブジェクト生成
+	ObjPrim_SetPrimitiveType(obj, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(obj, countH * countV * 6);
+	Obj_SetRenderPriorityI(obj, 0); //描画優先度を設定
+	ObjPrim_SetTexture(obj, target); //テクスチャを設定
+
+	ascent(ix in 0.. countH)
+	{
+		ascent(iy in 0.. countV)
+		{
+			let index = (ix + iy * countH) * 6;
+			let left = ix * width;
+			let right = left + width;
+			let top = iy * height;
+			let bottom = top + height;
+			TVertex(index, left, top, right, bottom);
+		}
+	}
+
+}
+
+task TMenu
+{
+	let selectIndex = 0;//選択位置
+	task TMenuItem(let index, let mx, let my, let text)
+	{
+		function CreateTextObject(let mx, let my, let text)
+		{
+			let obj = ObjText_Create();
+			ObjText_SetText(obj, text);
+			ObjText_SetFontSize(obj, 35);
+			ObjText_SetFontType(obj, "Exotc350 DmBd BT");
+			ObjText_SetFontBold(obj, true);
+			ObjText_SetHorizontalAlignment(obj, ALIGNMENT_CENTER);
+			ObjText_SetMaxWidth(obj, STGWIDTH);
+			ObjText_SetFontColorTop(obj, 155, 45, 175);
+			ObjText_SetFontColorBottom(obj, 200, 80, 255);
+			ObjText_SetFontBorderType(obj, BORDER_FULL);
+			ObjText_SetFontBorderColor(obj, 255, 255, 255);
+			ObjText_SetFontBorderWidth(obj, 1.75);
+			Obj_SetRenderPriorityI(obj, 10);
+			ObjRender_SetX(obj, mx);
+			ObjRender_SetY(obj, my);
+			return obj;
+		}
+
+		let objText = CreateTextObject(mx, my, text);
+		let objSelect = CreateTextObject(mx, my, text);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
+		loop
+		{
+			Obj_SetVisible(objSelect, index == selectIndex);
+			yield;
+		}
+	}
+
+	//メニュー配置
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, "End of a Duel");
+	ObjText_SetFontSize(objText, 50);
+	ObjText_SetFontType(objText, "Exotc350 DmBd BT");
+	
+	ObjText_SetMaxWidth(objText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 75, 255, 255);
+	ObjText_SetFontColorBottom(objText, 180, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText,0, 0, 0);
+	ObjText_SetFontBorderWidth(objText, 3);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, STGWIDTH-255);
+	ObjRender_SetY(objText, 100);
+	
+	let mx = STGWIDTH-255;
+	let my = 175;
+	let texts = ["Record Your Victories", "Leave The Battlefield", "Go For A Rematch"];
+	var countMenu = length(texts);
+	ascent(var iText in 0 .. countMenu)
+	{
+		TMenuItem(iText, mx, my, texts[iText]);
+		my += 45;
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}
+
+	//メニュー選択処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	loop
+	{
+		//決定
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			let listResult = [RESULT_SAVE_REPLAY, RESULT_END, RESULT_RETRY];
+			SetScriptResult(listResult[selectIndex]);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex--;
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex++;
+		}
+		else if(GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				SelectOptionSFX;
+				selectIndex--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{ 
+				SelectOptionSFX;
+				selectIndex++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(selectIndex < 0) 
+		{
+			selectIndex = countMenu - 1;
+		}
+		else
+		{
+			selectIndex %= countMenu;
+		}
+
+		yield;
+	}
+}
+
+
+

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_ItemConst.txt

@@ -0,0 +1,7 @@
+const POINT_REGULAR = 1;
+const POINT_BHESTIE = 2;
+const EXTEND_LIFE = 3;
+const EXTEND_SPELL = 4;
+const PIV_100 = 5;
+const PIV_250 = 6;
+const PIV_500 = 7;

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_ItemData.txt

@@ -0,0 +1,11 @@
+#UserItemData
+
+item_image = "./../img/yo.png"
+
+ItemData { id=1 rect=(256,256,384,384) } // Regular Point Item (PIV)
+ItemData { id=2 rect=(384,128,512,256) } // Bhestie Point Item (PIV * 2)
+ItemData { id=3 rect=(0,256,128,384) } // 1-up Item
+ItemData { id=4 rect=(128,256,256,384) } // Spell Item
+ItemData { id=5 rect=(256,384,384,512) fixed_angle = false angular_velocity = 3} // Green PIV Item (+100)
+ItemData { id=6 rect=(384,384,512,512) fixed_angle = false angular_velocity = 3} // Pink PIV Item (+250)
+ItemData { id=7 rect=(384,256,512,384) fixed_angle = false angular_velocity = 3} // Gold PIV Item (+500)

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_ItemLib.txt

@@ -0,0 +1,92 @@
+// Valid types: PIV_100, PIV_250, PIV_500
+
+function CreatePIVItem(itemtype, x, y){
+	let PIVItem = CreateItemU2(itemtype, x, y, x-10, y-10, 100);
+	
+	ObjItem_SetMoveToPlayer(PIVItem, true);
+	ObjItem_SetAutoDelete(PIVItem, false);
+	
+	ObjItem_SetAutoCollectEnableFlags(PIVItem, ITEM_AUTOCOLLECT_ALL);
+	ObjItem_SetRenderScoreEnable(PIVItem, false);
+	
+	ObjItem_SetIntersectionRadius(PIVItem, 60);
+	
+	ObjRender_SetScaleXYZ(PIVItem, 0.3, 0.3, 1);
+	ObjRender_SetAlpha(PIVItem, 125);
+	
+	async{
+		while(!Obj_IsDeleted(PIVItem)){
+		float angz = ObjRender_GetAngleZ(PIVItem);
+		ObjRender_SetAngleZ(PIVItem, angz+5);
+		yield;
+		}
+	}
+
+	return PIVItem;
+}
+
+// Valid types: POINT_REGULAR, POINT_BHESTIE
+function CreateScoreItem(itemtype, x, y){
+	let ScoreItem = CreateItemU2(itemtype, x, y, x-30, y-30, 0);
+	
+	ObjItem_SetAutoCollectEnableFlags(ScoreItem, ITEM_AUTOCOLLECT_ALL);
+	ObjItem_SetAutoDelete(ScoreItem, false);
+	
+	ObjItem_SetIntersectionRadius(ScoreItem, 60);
+	ObjItem_SetRenderScoreEnable(ScoreItem, false);
+	
+	ObjRender_SetScaleXYZ(ScoreItem, 0.4, 0.4, 1);
+	ObjRender_SetAlpha(ScoreItem, 200);
+	
+	ObjMove_AddPatternA2(ScoreItem, 60, NO_CHANGE, 90, 0.12, 5.45, 0);
+	
+	return ScoreItem;
+}
+
+// Valid types: EXTEND_LIFE, EXTEND_SPELL
+function CreateExtendItem(itemtype, x, y){
+
+	let ExtendItem = CreateItemU2(itemtype, x, y, x-15, y-15, 0);
+	ObjItem_SetMoveToPlayer(ExtendItem, true);
+	ObjItem_SetAutoCollectEnableFlags(ExtendItem, ITEM_AUTOCOLLECT_ALL);
+	
+	ObjRender_SetScaleXYZ(ExtendItem, 0.5, 0.5, 1);
+	
+	return ExtendItem;
+}
+
+// Summoning the actual items
+
+function NonspellItemDrop(scene, x, y){
+
+	if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0){
+		loop(14){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else{
+		loop(8){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	
+}
+
+function SpellItemDrop(scene, x, y){
+
+	if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SPELL_COUNT) == 0){
+		loop(20){
+			CreateScoreItem(POINT_BHESTIE, x+rand(-75, 75), y+rand(-45, 45));
+		}
+		loop(10){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else if(ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 && ObjEnemyBossScene_GetInfo(scene, INFO_PLAYER_SPELL_COUNT) >> 0){
+		loop(12){
+			CreateScoreItem(POINT_REGULAR, x+rand(-75, 75), y+rand(-45, 45));
+		}
+	}
+	else{}
+	
+}

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_Pause.txt

@@ -0,0 +1,335 @@
+//一時停止中スクリプト
+//#include "./../../script/soundtask.txt"
+#include "script/KevinSystem/GeneralSoundLib.txt"
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	_SoundTask();
+	PauseGameSFX;
+	SetAutoDeleteObject(true);
+	//TBackground();
+	TBackgroundNew(0, 0);
+	TMenu();
+	TFunFact();
+	//_SoundTask;
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+task TFunFact(){
+	
+	//int y = 0;
+	
+	let textchoices = [
+	"Even though her parents gave her an entire crash course[r]on how royals enjoy tea, Erika is more a coffee fan.",
+	"Pankevin is terrified of heights, but loves rollercoasters & thrill rides.[r]He only rides the ones with shoulder harnesses to feel safer,[r]and always goes with Kouda.",
+	"Rachel has been exterminated at least twice by Housui[r]for constantly nagging her to let Rachel experiment.",
+	"There are a total of 18 fun facts on this pause menu,[r]including this one. How many have you found?",
+	"The creator of this game is incredibly self-indulgent.[r]You probably figured out this one, though...",
+	"Connecting Chain Handserif is the creator's favorite font.[r]As a Brazilian once said, \"this bitch is[r]hyperfixated on that font\".",
+	"Pankevin is acquainted with a duck who casts ice magic in the[r]Outside World. His name is Caleb.",
+	"Marisa and Housui often duel in the Forest of Magic.[r]Their antics have incited Alice's wrath so much that[r]she just doesn't care anymore.",
+	"Whenever Tenshi and Shion organize banquets at the Hakurei Shrine,[r]Erika is the self-appointed taste tester of the food.[r]It's gone from \"unbearable\" to \"passable\" according to her.",
+	"Kouda always has a pair of fluffy cat-ear headphones on hand wherever[r]he goes, so he can plop them on when he's overwhelmed by loud sounds.[r]Pankevin keeps the headphones for Kouda in his huge quiver[r]when they're traveling together.",
+	"Tenshi and Erika were planning to bring Shion along for[r]their adventures, but the latter was exhausted after[r]the oil overflow incident and stayed out.[r](If Shion came along, they would be too powerful...)",
+	"Housui's favorite food are amarylis flowers.[r]...That's what she says, but it's probably just mochi.",
+	"Inside Pankevin's huge quiver, there are many refillable water containers,[r]a portable sketchbook & watercolor set, some snacks, and a pair of[r]fluffy cat-ear headphones for Kouda.",
+	"Pankevin = Panda + Kevin, not Pansexual x Kevin. Pankevin is bi.",
+	"Thank you for playing this game! It means a lot to me :D",
+	"Erika Rankyuu debuted in the creator's first game, Enigma of the Storm. [r]It was made for a bullet hell game contest in a Discord server.",
+	"Housui Henkawa debuted in Unstable and Unimaginable Power, [r]a Touhou fangame. It's very well-crafted and polished, so go ahead[r]and play it! Housui's the Extra boss, by the way.",
+	"Housui is not bald.",
+	];
+	int x = prand_int(0, length(textchoices)-1);
+	//y = length(textchoices);
+	
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, textchoices[x]);
+	ObjText_SetFontSize(objText, 18.5);
+	ObjText_SetFontType(objText, "Connecting Chain Handserif");
+	
+	ObjText_SetMaxWidth(objText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 255, 255, 255);
+	ObjText_SetFontColorBottom(objText, 255, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText, 0x7D39D9);
+	ObjText_SetFontBorderWidth(objText, 2);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, STGWIDTH-255);
+	ObjRender_SetY(objText, STGHEIGHT-75);
+	
+}
+
+// renderX and renderY will be TOP-LEFT COORDS
+task TBackgroundNew(renderX, renderY){
+	// Render semi-transparent primitive background
+	task TRenderPrim(selection){
+		
+		// Thank you for the PrimMaker Ferase :omegaflooshed:
+		
+		ObjRender_SetPosition(selection, renderX+640, renderY+360, 0); // Since the render priority of the r.target is under 20
+		
+		// Set up vert 0
+		ObjPrim_SetVertexPosition(selection,0,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,0,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 0, 0, 0);
+		// Set up vert 1
+		ObjPrim_SetVertexPosition(selection,1,640,-360,0);
+		ObjPrim_SetVertexColor(selection,1,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 1, 1280, 0);
+		// Set up vert 2
+		ObjPrim_SetVertexPosition(selection,2,640,360,0);
+		ObjPrim_SetVertexColor(selection,2,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 2, 1280, 720);
+		// Set up vert 3
+		ObjPrim_SetVertexPosition(selection,3,640,360,0);
+		ObjPrim_SetVertexColor(selection,3,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 3, 1280, 720);
+		// Set up vert 4
+		ObjPrim_SetVertexPosition(selection,4,-640,360,0);
+		ObjPrim_SetVertexColor(selection,4,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 4, 0, 720);
+		// Set up vert 5
+		ObjPrim_SetVertexPosition(selection,5,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,5,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 5, 0, 0);
+		
+		for(int i = 0; i <= 5; i++){
+			ObjPrim_SetVertexAlpha(selection, i, 100);
+		}
+	}
+	
+	// Render... the render target???	
+	let objBG = ObjPrim_Create(OBJ_PRIMITIVE_2D);
+	ObjPrim_SetPrimitiveType(objBG, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(objBG, 6);
+	let target = "target";
+	CreateRenderTargetEx(target, 1280, 720);
+	ObjPrim_SetTexture(objBG, target);
+	//SetInvalidRenderPriorityA1(20, 80);
+	RenderToTextureA1(target, 0, 100, true);  
+	//RenderToTextureB1(target, objBG, true);
+	Obj_SetRenderPriorityI(objBG, 0);
+	TRenderPrim(objBG);
+	
+}
+
+task TBackground
+{	
+	task TVertex(var index, var left, var top, var right, var bottom)
+	{
+		ObjPrim_SetVertexPosition(obj, index + 0, left, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 1, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 2, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 3, right, top, 0);
+		ObjPrim_SetVertexPosition(obj, index + 4, left, bottom, 0);
+		ObjPrim_SetVertexPosition(obj, index + 5, right, bottom, 0);
+
+		ObjPrim_SetVertexUVT(obj, index + 0, left, top);
+		ObjPrim_SetVertexUVT(obj, index + 1, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 2, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 3, right, top);
+		ObjPrim_SetVertexUVT(obj, index + 4, left, bottom);
+		ObjPrim_SetVertexUVT(obj, index + 5, right, bottom);
+
+		//STGシーン内のみアニメーション
+		if(left >= 341 && right <= 937 && top >= 45 && bottom <= 677)
+		{
+			let alpha = 255;
+			while(alpha >= 128)
+			{
+				ObjPrim_SetVertexAlpha(obj, index + 0, alpha);
+				ObjPrim_SetVertexAlpha(obj, index + 1, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 2, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 3, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 4, alpha/2);
+				ObjPrim_SetVertexAlpha(obj, index + 5, alpha);
+				alpha -= 255 / frame;
+
+				yield;
+			}
+		}
+	}
+
+	//分割設定
+	let frame = 30;
+	let countH = 20; //分割数
+	let countV = 30; 
+	let width = 1280 / countH;
+	let height = 720 / countV;
+	let target = GetTransitionRenderTargetName();
+	let obj = ObjPrim_Create(OBJ_PRIMITIVE_2D); //2D頂点ブジェクト生成
+	ObjPrim_SetPrimitiveType(obj, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(obj, countH * countV * 6);
+	Obj_SetRenderPriorityI(obj, 0); //描画優先度を設定
+	ObjPrim_SetTexture(obj, target); //テクスチャを設定
+
+	ascent(ix in 0.. countH)
+	{
+		ascent(iy in 0.. countV)
+		{
+			let index = (ix + iy * countH) * 6;
+			let left = ix * width;
+			let right = left + width;
+			let top = iy * height;
+			let bottom = top + height;
+			TVertex(index, left, top, right, bottom);
+		}
+	}
+
+}
+
+task TMenu
+{
+	let selectIndex = 0;//選択位置
+	task TMenuItem(let index, let mx, let my, let text)
+	{
+		function CreateTextObject(let mx, let my, let text)
+		{
+			let obj = ObjText_Create();
+			ObjText_SetText(obj, text);
+			ObjText_SetFontSize(obj, 35);
+			ObjText_SetFontType(obj, "Exotc350 DmBd BT");
+			ObjText_SetFontBold(obj, true);
+			ObjText_SetHorizontalAlignment(obj, ALIGNMENT_CENTER);
+			ObjText_SetMaxWidth(obj, STGWIDTH);
+			ObjText_SetFontColorTop(obj, 155, 45, 175);
+			ObjText_SetFontColorBottom(obj, 200, 80, 255);
+			ObjText_SetFontBorderType(obj, BORDER_FULL);
+			ObjText_SetFontBorderColor(obj, 255, 255, 255);
+			ObjText_SetFontBorderWidth(obj, 1.75);
+			Obj_SetRenderPriorityI(obj, 10);
+			ObjRender_SetX(obj, mx);
+			ObjRender_SetY(obj, my);
+			return obj;
+		}
+
+		let objText = CreateTextObject(mx, my, text);
+		let objSelect = CreateTextObject(mx, my, text);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
+		loop
+		{
+			Obj_SetVisible(objSelect, index == selectIndex);
+			yield;
+		}
+	}
+
+	//メニュー配置
+	int x = prand_int(0, 6);
+	let textchoices = ["A Brief Respite", "Yassification Paused", "Tea Time", "Heroic Moratorium", "World Comes to A Halt","A Moment to Breathe", "Players are Resting Warmly"];
+	
+	let objText = ObjText_Create();
+	ObjText_SetText(objText, textchoices[x]);
+	ObjText_SetFontSize(objText, 50);
+	ObjText_SetFontType(objText, "Exotc350 DmBd BT");
+	
+	ObjText_SetMaxWidth(objText, STGWIDTH);
+	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
+	
+	ObjText_SetFontBold(objText, true);
+	ObjText_SetFontColorTop(objText, 75, 255, 255);
+	ObjText_SetFontColorBottom(objText, 180, 255, 255);
+	ObjText_SetFontBorderType(objText, BORDER_FULL);
+	ObjText_SetFontBorderColor(objText,0, 0, 0);
+	ObjText_SetFontBorderWidth(objText, 3);
+	Obj_SetRenderPriorityI(objText, 10);
+	ObjRender_SetX(objText, STGWIDTH-255);
+	ObjRender_SetY(objText, 100);
+	
+	let mx = STGWIDTH-255;
+	let my = 175;
+	let texts = ["Resume The Faceoff", "Accept Your Losses", "Take Another Shot"];
+	var countMenu = length(texts);
+	ascent(var iText in 0 .. countMenu)
+	{
+		TMenuItem(iText, mx, my, texts[iText]);
+		my += 45;
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_PAUSE) != KEY_FREE){yield;}
+
+	//メニュー選択処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	//PauseGameSFX;
+	loop
+	{
+		//決定
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			let listResult = [RESULT_CANCEL, RESULT_END, RESULT_RETRY];
+			SetScriptResult(listResult[selectIndex]);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//キャンセル
+		if(GetVirtualKeyState(VK_CANCEL) == KEY_PULL || GetVirtualKeyState(VK_PAUSE) == KEY_PULL)
+		{
+			SetScriptResult(RESULT_CANCEL);
+			CloseScript(GetOwnScriptID());
+			return;
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex--;
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH)
+		{
+			SelectOptionSFX;
+			selectIndex++;
+		}
+		else if(GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				SelectOptionSFX;
+				selectIndex--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
+			{
+				SelectOptionSFX;
+				selectIndex++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(selectIndex < 0) 
+		{
+			selectIndex = countMenu - 1;
+		}
+		else
+		{
+			selectIndex %= countMenu;
+		}
+
+		yield;
+	}
+}
+
+
+

script/KevinSystem/kevin_system/Legacy (1280x720)/Kevin_ReplaySave.txt

@@ -0,0 +1,453 @@
+//リプレイ保存スクリプト
+
+int STGWIDTH = GetStgFrameWidth();
+int STGHEIGHT = GetStgFrameHeight();
+
+@Initialize
+{
+	SetAutoDeleteObject(true);
+	LoadReplayList();
+
+	TBackgroundNew(0, 0);
+	TReplayIndexSelection();
+}
+
+@MainLoop
+{
+	yield;
+}
+
+@Finalize
+{
+}
+
+let MENU_INDEX_SELECTION = 1;
+let MENU_NAME_ENTRY = 2;
+let menuMode = MENU_INDEX_SELECTION;
+
+function CreateTextObject(let mx, let my, float size, let text)
+{
+	let obj = ObjText_Create();
+	ObjText_SetText(obj, text);
+	ObjText_SetFontSize(obj, size);
+	ObjText_SetFontType(obj, "Unispace");
+	ObjText_SetFontBold(obj, true);
+	//ObjText_SetHorizontalAlignment(obj, ALIGNMENT_CENTER);
+	ObjText_SetMaxWidth(obj, STGWIDTH);
+	ObjText_SetFontColorTop(obj, 155, 45, 175);
+	ObjText_SetFontColorBottom(obj, 200, 80, 255);
+	ObjText_SetFontBorderType(obj, BORDER_FULL);
+	ObjText_SetFontBorderColor(obj, 255, 255, 255);
+	ObjText_SetFontBorderWidth(obj, 1.75);
+	Obj_SetRenderPriorityI(obj, 10);
+	ObjRender_SetX(obj, mx);
+	ObjRender_SetY(obj, my);
+	return obj;
+}
+
+// renderX and renderY will be TOP-LEFT COORDS
+task TBackgroundNew(renderX, renderY){
+	// Render semi-transparent primitive background
+	task TRenderPrim(selection){
+		
+		// Thank you for the PrimMaker Ferase :omegaflooshed:
+		
+		ObjRender_SetPosition(selection, renderX+640, renderY+360, 0); // Since the render priority of the r.target is under 20
+		
+		// Set up vert 0
+		ObjPrim_SetVertexPosition(selection,0,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,0,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 0, 0, 0);
+		// Set up vert 1
+		ObjPrim_SetVertexPosition(selection,1,640,-360,0);
+		ObjPrim_SetVertexColor(selection,1,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 1, 1280, 0);
+		// Set up vert 2
+		ObjPrim_SetVertexPosition(selection,2,640,360,0);
+		ObjPrim_SetVertexColor(selection,2,0xA487FF);
+		ObjPrim_SetVertexUVT(selection, 2, 1280, 720);
+		// Set up vert 3
+		ObjPrim_SetVertexPosition(selection,3,640,360,0);
+		ObjPrim_SetVertexColor(selection,3,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 3, 1280, 720);
+		// Set up vert 4
+		ObjPrim_SetVertexPosition(selection,4,-640,360,0);
+		ObjPrim_SetVertexColor(selection,4,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 4, 0, 720);
+		// Set up vert 5
+		ObjPrim_SetVertexPosition(selection,5,-640,-360,0);
+		ObjPrim_SetVertexColor(selection,5,0xF187FF);
+		ObjPrim_SetVertexUVT(selection, 5, 0, 0);
+		
+		for(int i = 0; i <= 5; i++){
+			ObjPrim_SetVertexAlpha(selection, i, 100);
+		}
+	}
+	
+	// Render... the render target???	
+	let objBG = ObjPrim_Create(OBJ_PRIMITIVE_2D);
+	ObjPrim_SetPrimitiveType(objBG, PRIMITIVE_TRIANGLELIST);
+	ObjPrim_SetVertexCount(objBG, 6);
+	let target = "target";
+	CreateRenderTargetEx(target, STGWIDTH, STGHEIGHT);
+	ObjPrim_SetTexture(objBG, target);
+	//SetInvalidRenderPriorityA1(20, 80);
+	RenderToTextureA1(target, 0, 100, true);  
+	//RenderToTextureB1(target, objBG, true);
+	Obj_SetRenderPriorityI(objBG, 0);
+	TRenderPrim(objBG);
+	
+}
+
+task TBackground
+{
+	let target = GetTransitionRenderTargetName();
+	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
+	ObjPrim_SetTexture(obj, target);
+	Obj_SetRenderPriority(obj, 0.1);
+	ObjSprite2D_SetSourceRect(obj, 0, 0, 640, 480);
+	ObjSprite2D_SetDestCenter(obj);
+	ObjRender_SetPosition(obj, 320, 240, 0);
+	ObjRender_SetAlpha(obj, 64);
+}
+
+task TReplayIndexSelection()
+{
+	let cursorY = 0;
+	let page = 0;
+	let countMaxItem = REPLAY_INDEX_DIGIT_MAX - REPLAY_INDEX_DIGIT_MIN + 1;
+	let countItemPerPage = 10;
+	let pageMax = trunc((countMaxItem - 1) / countItemPerPage);
+	pageMax = max(pageMax, 1);
+	let lastPageMaxCursorY = trunc(countMaxItem / countItemPerPage);
+
+	task TMenuItem(let itemY)
+	{
+		let objText = CreateTextObject(341, 90 + 30 * itemY, 25, "");
+		let objSelect = CreateTextObject(341, 90 + 30 * itemY, 25, "");
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
+
+		let oldPage = -1;
+		while(menuMode == MENU_INDEX_SELECTION)
+		{
+			if(page != oldPage)
+			{
+				let index = page * countItemPerPage + itemY + 1;
+				let text = rtos("00", index) ~ " ";
+				if(IsValidReplayIndex(index))
+				{
+					text = text ~ vtos("-8s", GetReplayInfo(index, REPLAY_USER_NAME)) ~ " ";
+					text = text ~ GetReplayInfo(index, REPLAY_DATE_TIME) ~ " ";
+					text = text ~ rtos("000000000000", GetReplayInfo(index, REPLAY_TOTAL_SCORE)) ~ " ";
+				}
+				else
+				{
+					text = text ~ "No Data";
+				}
+				ObjText_SetText(objText, text);
+				ObjText_SetText(objSelect, text);
+				oldPage = page;
+			}
+			
+			if(page == pageMax && itemY >= lastPageMaxCursorY)
+			{
+				Obj_SetVisible(objText, false);
+				Obj_SetVisible(objSelect, false);
+			}
+			else
+			{
+				Obj_SetVisible(objText, true);
+				Obj_SetVisible(objSelect, itemY == cursorY);
+			}
+
+			yield;
+		}
+		Obj_Delete(objText);
+		Obj_Delete(objSelect);
+	}
+
+	ascent(let iItem in 0 .. countItemPerPage)
+	{
+		TMenuItem(iItem);
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}
+
+	//キー処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	while(menuMode == MENU_INDEX_SELECTION)
+	{
+		//決定
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			menuMode = MENU_NAME_ENTRY;
+			let index = page * countItemPerPage + cursorY + 1;
+			TNameEntry(index);
+			
+			break;
+		}
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH || GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_UP) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH || GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY++;
+			}
+		}
+		else if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH || GetVirtualKeyState(VK_LEFT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				page--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH || GetVirtualKeyState(VK_RIGHT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				page++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(page < 0)
+		{
+			page = pageMax;
+		}
+		else if(page > pageMax)
+		{
+			page = 0;
+		}
+
+		if(page != pageMax)
+		{
+			if(cursorY < 0)
+			{
+				cursorY = countItemPerPage - 1;
+			}
+			else if(cursorY >= countItemPerPage)
+			{
+				cursorY = 0;
+			}
+		}
+		else
+		{
+			if(cursorY < 0)
+			{
+				cursorY = lastPageMaxCursorY - 1;
+			}
+			else if(cursorY >= lastPageMaxCursorY)
+			{
+				cursorY = 0;
+			}
+		}
+
+		yield;
+	}
+
+}
+
+
+task TNameEntry(let replayIndex)
+{
+	let strTextIn = 
+	[
+		["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"],
+		["Q","R","S","T","U","V","W","X","Y","Z",".",",",":",";","_","@"],
+		["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p"],
+		["q","r","s","t","u","v","w","x","y","z","+","-","/","*","=","%"],
+		["0","1","2","3","4","5","6","7","8","9","0","!","?","'","\"","$"],
+		["(",")","{","}","[","]","<",">","&","#","|","~","^"," "," ","終"]
+	];
+
+	    let strTextView = 
+	    [
+		  ["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"],
+		  ["Q","R","S","T","U","V","W","X","Y","Z",".",",",":",";","_","@"],
+		  ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p"],
+		  ["q","r","s","t","u","v","w","x","y","z","+","-","/","*","=","%"],
+		  ["0","1","2","3","4","5","6","7","8","9","0","!","?","'","\"","$"],
+		  ["(",")","{","}","&osb;","&csb;","<",">","&","#","|","~","^"," "," ","»"]
+	    ];
+
+	let cursorX = 0;
+	let cursorY = 0;
+	let maxCursorX = length(strTextIn[0]);
+	let maxCursorY = length(strTextIn);
+
+	task TMenuItem(let itemX, let itemY)
+	{
+		let objText = CreateTextObject(341 + GetStgFrameWidth()/5.4 + itemX * 24, 255 + itemY * 24, 22, strTextView[itemY][itemX]);
+		let objSelect = CreateTextObject(341 + GetStgFrameWidth()/5.4 + itemX * 24, 255 + itemY * 24, 22, strTextView[itemY][itemX]);
+		ObjRender_SetBlendType(objSelect, BLEND_ADD_ARGB);
+
+		while(menuMode == MENU_NAME_ENTRY)
+		{
+			Obj_SetVisible(objSelect, itemX == cursorX && itemY == cursorY);
+			yield;
+		}
+		Obj_Delete(objText);
+		Obj_Delete(objSelect);
+	}
+
+	ascent(let iY in 0..maxCursorY)
+	{
+		ascent(let iX in 0 .. maxCursorX)
+		{
+			TMenuItem(iX, iY);
+		}
+	}
+
+	//キー状態がリセットされるまで待機
+	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}
+
+	//入力済み文字
+	let userName = "";
+	let objName = CreateTextObject(341+GetStgFrameWidth()/4, 125, 28, "");
+	task TNameCursor()
+	{
+		let objCursor = CreateTextObject(341+GetStgFrameWidth()/4, 125, 28, "_");
+		while(menuMode == MENU_NAME_ENTRY)
+		{
+			let nameLength = length(userName);
+			ObjRender_SetX(objCursor, 341+GetStgFrameWidth()/4 + nameLength * 17);
+			Obj_SetVisible(objCursor, nameLength < 8);
+			yield;
+		}
+		Obj_Delete(objCursor);
+	}
+	TNameCursor;
+
+	//キー処理
+	let frameKeyHold = 0;//キー押しっぱなしフレーム数
+	while(menuMode == MENU_NAME_ENTRY)
+	{
+		
+		if(GetVirtualKeyState(VK_OK) == KEY_PULL)
+		{
+			//決定
+			let nameLength = length(userName);
+			if(cursorX == maxCursorX-1 && cursorY == maxCursorY-1)
+			{
+				//終了キー
+				if(nameLength == 0)
+				{
+					userName = "No Name";
+				}
+				else
+				{
+					SaveReplay(replayIndex, userName);
+					SetScriptResult(RESULT_END);
+					CloseScript(GetOwnScriptID());
+					return;
+				}
+			}
+			else if(nameLength < 8)
+			{
+				userName = userName ~ strTextIn[cursorY][cursorX];
+			}
+		}
+		if(GetVirtualKeyState(VK_CANCEL) == KEY_PULL)
+		{
+			//キャンセル
+			let nameLength = length(userName);
+			if(nameLength > 0)
+			{
+				userName = userName[0..nameLength-1];
+			}
+			else{menuMode = MENU_INDEX_SELECTION; TReplayIndexSelection(); break;}
+		}
+		ObjText_SetText(objName, userName);
+
+		//カーソル移動
+		if(GetVirtualKeyState(VK_UP) == KEY_PUSH || GetVirtualKeyState(VK_UP) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_UP) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH || GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorY++;
+			}
+		}
+		else if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH || GetVirtualKeyState(VK_LEFT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorX--;
+			}
+		}
+		else if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH || GetVirtualKeyState(VK_RIGHT) == KEY_HOLD)
+		{
+			frameKeyHold++;
+			if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH ||
+				frameKeyHold == 20 ||
+				 (frameKeyHold > 20 && (frameKeyHold % 10 == 0)))
+			{
+				cursorX++;
+			}
+		}
+		else
+		{
+			frameKeyHold = 0;
+		}
+
+		if(cursorX < 0)
+		{
+			cursorX = maxCursorX-1;
+		}
+		else if(cursorX >= maxCursorX)
+		{
+			cursorX = 0;
+		}
+
+		if(cursorY < 0)
+		{
+			cursorY = maxCursorY-1;
+		}
+		else if(cursorY >= maxCursorY)
+		{
+			cursorY = 0;
+		}
+
+		yield;
+	}
+}
+