サイバーグノーシス

◎SexLabMatchMakerTarget
・Type→Spell （標準的な呪文）
・Delivery→Aimed
・Menu Display Object（Magic Menu で表示されるオブジェクト）→MAGlnvDetectLife
・Equip Type→EitherHand （片手）
・Ignore Resistance（対象の持つ属性防御を無視）
・No Dual Cast Modifications （二連の唱え無効）
・PC Start Spell（プレイヤーの開始時所持呪文）

◎SexLabActorSelectTarget（たまらないほどの魅力）

• Base Data（基礎設定）

・Effect Archetype（効果の大まかなタイプ）→Script（スクリプト）
・Delivery（対象）→Aimed（クロスヘアに向かって放たれた Projectile（射弾） に効果が取り付けられます。）
・Magic（関連スキル効果）→ILLUSION（幻惑？）
・Resist Value→MagicResit

• Flags

・Painless（チェックを入れると、この効果を受けても対象が痛みで叫ばなくなります。）

• Visual Effects（視覚効果）

・Casting Art（呪文を構ている間、手の部分に表示される視覚効果）→IllusionPosFXHand01
・Casting Light（呪文を構えているときに、手の部分から出る光）→Alikr_omniLight_Warm
・Hit Effect Art（命中したときに、対象の位置に表示される視覚効果）→ConmmandTargetFX
・Enchant Shader（オブジェクト自体にこの視覚効果を描画）→LifeDetected
・Projectile（この効果で放たれる 射弾）→Illusion01Projectile

• PapyrusScript

・sslMatchMakerMagicEffect

・クエストのエディタIDを「My_TestSpell_001」とする
・「QuestAilias」タブで「PlayerRef」を定義する
　→ Game.GetPlayer() を使用するよりも大幅に高速化する
・Scriptに「My_SSL_TestSpell_Ailias」を取り付ける


・スクリプト「My_SSL_TestSpell_Ailias」のプロパティ「My_TestSpell」「PlayerRef」「SexLab」を定義する

・ここで定義したプロパティはスクリプトで「**型** property *** auto」として使える？

・MagicEffctのエディタIDは「My_Test_MagicEfeect_001」とする
・ゲーム中に表示される魔法の名前は「スクリプト魔法テスト001」とする
・MagicEffctの付けるスクリプトの名前は「My_script_MagicEffect_001」とする
・スクリプト「My_script_MagicEffect_001」にはプロパティ「TeｓｔSpell」が定義されている
・プロパティ「TeｓｔSpell」はクエスト「My_TestSpell_001」「PlayerRef」を参照アイリアス？とする？


■スクリプトテスト用魔法のMagicEffect（魔法効果）のスクリプト
・このスクリプトは「My_script_MagicEffect_001」という名前で「ActiveMagicEffect（魔法効果）」オブジェクトの拡張？
・「Event OnEffectFinish(Actor akTarget, Actor akCaster)」の「Actor akTarget」で魔法が当たった相手のアクターを取得する
・取得したアクターを関数「RegisterActor」で登録する
・関数「RegisterActor」は別のスクリプト「sslTestSpell」で定義されている

・スペルのエディタIDは「My_TEst_Spell」とする
・EffectでMagicEffct「My_Test_MagicEfeect_001」を指定する

・本の名前は「Spell Tome:スクリプトテスト用」とする
・本のエディタIDは「My_SpellTome_Script_001」とする

scriptname sslMatchMakerMagicEffect extends ActiveMagicEffect

;SexLabの機能を使うために「sslMatchMakerMagicEffect」で色々設定するためのプロパティ宣言
;「sslMatchMaker」型の「MatchMaker」を宣言
sslMatchMaker property MatchMaker auto

; 呪文の効果が開始されました:
; - ターゲットのアクターを他のスクリプトの Slots 配列に登録しようとします。
; - RegisterActor() が true を返した場合、アクターはスロット配列への追加に成功し、適切なフレーバー テキストが表示されます。
; - RegisterActor() が false を返した場合、アクターはスロット配列への登録に失敗し、適切なフレーバー テキストを表示します。
event OnEffectStart(Actor TargetRef, Actor CasterRef)
	if MatchMaker.RegisterActor(TargetRef)
		Debug.Notification(TargetRef.GetLeveledActorBase().GetName() + " 彼らには抗いがたいオーラがある")
	else
		Debug.Notification("呪文は消えてしまい、影響を及ぼさない " + TargetRef.GetLeveledActorBase().GetName())
	endIf
endEvent

scriptname sslMatchMaker extends ReferenceAlias

; ##################################################
; 変更・プロパティの定義
; ##################################################

;SexLabフレームワークを使用するためにプロパティを宣言
SexLabFramework property SexLab auto

; プレーヤーのアクターを取得
; - Game.GetPlayer() を使用するよりも大幅に高速
;参照したい対象が予め分かっている場合、CKで参照エイリアスを設定した方が良い？
Actor property PlayerRef auto

;呪文の宣言（SpellのエディタID？）
Spell property MatchMakerSpellTarget auto

;SexLabのスレッドの関する何か？
sslThreadModel Thread

;アクターの登録
;呪文が当たった時に呼び出され、引数として相手のアクターが代入される
; アクターが配列に正常に追加された場合は True を返し、失敗した場合は False を返します。
bool function RegisterActor(Actor ActorRef)

	;アクターが有効かチェックする
	if SexLab.IsValidActor(ActorRef)
		;スレッドの有無をチェック？
		if !Thread
			;SexLab用の新しいスレッドを作成
			Thread = SexLab.NewThread()
			;何らかの原因でスレッドの作成に失敗した場合の処理
			if !Thread
				Debug.Trace("--- SexLab MatchMaker --- アニメーション スレッドの作成に失敗しました - 詳細については、デバッグ ログを参照してください。")
				UnregisterForUpdate() ; 問題を防ぐために、更新イベントを停止します。
				return false ; アクターの追加に失敗したため、ここで関数を停止します。
			endIf
		endIf

		;何らかの原因でスレッドにアクターを追加出来なかった場合の処理
		if Thread.AddActor(ActorRef) < 0
			Debug.Trace("--- SexLab MatchMaker --- アクターの 1 人をアニメーション スレッドに挿入できませんでした - 詳細については、デバッグ ログを参照してください。")
			return false ; アクターの追加に失敗したため、ここで関数を停止します。
		endIf

		;+++++++++++
		;スレッドにアクターを追加する
		;+++++++++++

		; アクターは事前登録チェックに合格しました。
		;++++変更+++
		;アクターが２人以上ならすぐに開始する		
		;if Thread.ActorCount >= 5
		if Thread.ActorCount >= 2

			;アクターの名前を取得
			Actor selfact = self.GetActorRef()
			SelfName = selfact.GetLeveledActorBase().GetName()
			Debug.Trace("@@@:Actor added successfully: " + SelfName)

			TriggerSex()
		else
			;更新間隔に関する何か？
			;10秒毎に処理する？
			UnregisterForUpdate()
			RegisterForSingleUpdate(10.0)
		endIf
		return true ; アクターをスロットに登録するか、アニメーションを開始することに成功しました。
	endIf
	return false ; 事前登録チェックに失敗しました
endFunction

;スレッド・フックの登録
; 現在の Slots 配列を取得し、含まれているアクターを使用してセックス シーンを開始しようとします。
function TriggerSex()

	; OnUpdateイベントの予約を取り消す
	;複数のインスタンスがシーンを開始しないようにするため？
	UnregisterForUpdate()

	;スレッドチェック
	if !Thread
		Debug.Trace("--- SexLab MatchMaker --- アニメーション スレッドの作成に失敗しました - 詳細については、デバッグ ログを参照してください。")
		UnregisterForUpdate() ;問題を防ぐために、更新イベントを停止します。
		return ; アクターの追加に失敗したため、ここで関数を停止します。
	endIf

	;スレッドにアクターを追加出来なかった場合
	if PapyrusUtil.RemoveActor(Thread.Positions, none).Length < 1
		Debug.Trace("--- SexLab MatchMaker --- アクターをアニメーション スレッドに挿入できませんでした - 詳細については、デバッグ ログを参照してください。")
		UnregisterForUpdate() ;問題を防ぐために、更新イベントを停止します。
		Thread = none ; スレッドを空にして、新しいスレッドを開始できるようにします。
		return ; アクターの追加に失敗したため、ここで関数を停止します。
	endIf

	; スレッドにカスタム フック名「MatchMaker」を設定します。
	Thread.SetHook("MatchMaker")
	;コールバック処理
	;アニメーションの最後にトリガーされるフックイベントに応答するスクリプトを登録します。
	;イベント「AnimationEnd（アニメーション終了時）」を登録する
	;書式：Hookイベント名_カスタムフック名
	RegisterForModEvent("HookAnimationEnd_MatchMaker", "AnimationEnd")

	;+++++++++++
	;++++追記+++
	;アニメーションの暫定処理
	sslBaseAnimation[] anims
	anims = SexLab.GetAnimationsByTags(2, "mf,kissing", "sex")
	Thread.SetAnimations(anims)
	;++++追記+++
	;+++++++++++

	;++++ここにSexLabのMODで行いたい処理をスレッドに追加していく？+++

	;???
	;これは単なる基本的な例であるため、シーンをシンプルにして、SexLab とプレーヤー設定がほとんどのものを独自に理解できるようにします。
	Thread.StartThread()
	; スレッドを空にして、新しいスレッドを開始できるようにします。
	Thread = none

	Debug.Trace("@@@:Successful thread creation:")

endFunction

; TriggerSex() の RegisterForModEvent("HookAnimationEnd_MatchMaker", "AnimationEnd") から呼び出される、AnimationEnd フック。
;  HookAnimationEnd は、セックス アニメーションが完全に停止するとSexLabに呼び出され送信されます。
Event AnimationEnd(int ThreadID, bool HasPlayer)
	;スレッド ID を介して、このイベントをトリガーしたスレッドを取得します
	sslThreadController ThreadController = SexLab.GetController(ThreadID)
	
	;このアニメーション スレッドに参加したアクターのリストを取得します。
	Actor[] Positions = ThreadController.Positions

	; アクターのリストをループし、フレーバー テキストを表示します。
	; - これはかなり無意味なフックの使用ですが、これは例であるはずなので、何でも構いません。
	int i = Positions.Length
	while i > 0
		i -= 1
		Debug.Notification(Positions[i].GetLeveledActorBase().GetName() + "の魅力的なオーラが薄れます。")
	endWhile
endEvent

event OnUpdate()
	TriggerSex()
endEvent

; ##########################
; MatchMaker 内部システム機能               
; ##########################
; 登録されたアクターをリセットし、プレーヤーがゲームをリロードするたびにロックします。
; 念のため、すべてのロードで使用可能な状態から開始できるようにします。。
イベント OnPlayerLoadGame()
	; プレイヤーが対象の呪文を持っていない場合はそれを与える
	if !PlayerRef.HasSpell(MatchMakerSpellTarget)
		PlayerRef.AddSpell(MatchMakerSpellTarget, true)
	endIf
	; プレイヤーが自分自身に呪文を持っていない場合は付与します
	if !PlayerRef.HasSpell(MatchMakerSpellSelf)
		PlayerRef.AddSpell(MatchMakerSpellSelf, true)
	endIf
endEvent

;MOD を有効にして最初の起動時に呼び出されます 
;最初の起動では OnPlayerLoadGame() がトリガーされません
event OnInit()
	OnPlayerLoadGame()
endEvent