custom player script

script_player_main{

		let CSD = GetCurrentScriptDirectory;
		let Ntex = CSD ~ "NAPlayer.png";
		let f = 0;
		let f2 = 0;
		let count = -1;

	@Initialize{

		SetSpeed(3,1);
		LoadGraphic(Ntex);
		LoadPlayerShotData(CSD ~ "NAShot.txt");
	}

	@DrawLoop{
		SetTexture(Ntex);
		SetAlpha(255);
		SetGraphicScale(1,1);
		DrawGraphic(GetPlayerX,GetPlayerY);
		f+=3;
		f2+=3;
		if(f==60){ f = 0; }
	}

	@Missed{
		yield;
	}

	@SpellCard{

	}

	@Finalize{

	}

	@MainLoop {

		if((GetKeyState(VK_SHOT)==KEY_PUSH | | GetKeyState(VK_SHOT)==KEY_HOLD) && count == -1){
			count = 0;
		}

		if(GetKeyState(VK_SLOWMOVE)==KEY_PUSH | | GetKeyState(VK_SLOWMOVE)==KEY_HOLD) {
			if(count == 5){
				NAShot(GetPlayerX,GetPlayerY-20,20,270,1,5);
				NAShot(GetPlayerX,GetPlayerY-20,20,250,1,5);
				NAShot(GetPlayerX,GetPlayerY-20,20,290,1,5);
				count = -1;
			}
		}

		else {
			if(count == 5){
				NAShot(GetPlayerX,GetPlayerY-20,20,270,1,5);
				count = -1;
			}
		}

		if(count >=0) {
			count++;
		}

		SetIntersectionCircle(GetPlayerX,GetPlayerY,0);
		yield;
	}



	task NAShot(x,y,speed,dir,graphic,dmg) {
		let obj = Obj_Create(OBJ_SHOT);

		Obj_SetPosition(obj,x,y);
		Obj_SetSpeed(obj,speed);
		Obj_SetAngle(obj,dir);
		Obj_SetAlpha(obj,155);
		ObjShot_SetGraphic(obj,graphic);
		ObjShot_SetDamage(obj,dmg);
		ObjShot_SetPenetration(obj,1);
	}


	function wait(w) { loop(w) { yield; } }

}