Адюльт-анимация

Holtof55 · 12 апреля, 2012

Тут еще у меня вопросик назрел, "слямзил" я одну анимашечку..и вот какой момент, парнишке под задницу неплохо бы табуреточку подставить, а то на полусогнутых как-то не правда получается, табуреточку я подставил,( прописал в IdleObjects ...ниф с номером позы),но она, сцуко, еле из земли торчит...

Скрытое содержимое

РЕГИСТРАЦИЯ

Колодки в 119-й позе, как-то ведь вставлены...

Скрытое содержимое

РЕГИСТРАЦИЯ

К учебникам просьба не отсылать...я все одно в них ни черта не пойму...

stomoped · 12 апреля, 2012

А там откуда слямзил, стул есть, спечиально под эту анимацию.

Holtof55 · 12 апреля, 2012

А там откуда слямзил, стул есть, спечиально под эту анимацию.

А фиг его знает, чего там есть...я не проходил его, он только для ЖГГ (Клавдия и маленький секрет) Она, анимация, видимо проигрывается по ходу квеста или еще чего, а стул могет быть просто в интерьере..так что надо ID евойный знать..короче пока вот так, на полу-присяде..как в анекдоте -и натрахаешься и натанцуешься

Скрытое содержимое

РЕГИСТРАЦИЯ

Изменено 12 апреля, 2012 пользователем HOLTOF55

stomoped · 12 апреля, 2012

Тогда возможно Mig знает от этот мод ковырял, может вытащит, напиши ему в личку, а то может он в этот топик не посмотрит.

Holtof55 · 12 апреля, 2012

Тогда возможно Mig знает от этот мод ковырял, может вытащит, напиши ему в личку, а то может он в этот топик не посмотрит.

Написал, может поможет...

Mig · 12 апреля, 2012

реф стандартного стула (MCStool01F)

VT5CS02Stool1

использование стула в скрипте: (стул уже стоит на местности)

ElseIf Position == 2

VT5CS02Stool1.enable

а так же в этом же скрипте:

создание клонов пероонажей,

расстановка актёров,

уборка всего после акта,

и ещё чтото там же...

(там куча строк по обработке квеста и выбраных актёров, тебе это ненужно, а вот в остальном придётся кому-то разбиратся)

если кароче то

Скрытое содержимое

РЕГИСТРАЦИЯ

вот один из скриптов на "сидячие" акты:

скрипт:

SCN VT5CS02Script

short LeftKey

Short RightKey

short LeftKeyDown

short RightKeyDown

Short Aseq

Short doonce

Short MessageFlag

Short Sequence

float timer

Short Count

Float RGamehour

;Short Resetted

Ref Actor01

Ref Actor02

Ref Actor03

Ref Actor04

Ref Actor05

Ref Actor06

Ref Marker01

Ref Marker02

Ref Marker03

Ref Marker04

Ref Marker05

Ref Marker06

Ref MarkerCamera

Short Position

Short A1 ; Animation1 actor1 DPTOken

Short A2 ; 1 2

Short AI1 ; 1 1 Inc anim

Short AI2 ; 1 2

Short Acc1 ; Accessory for actor1

Short Acc2

Short B1

Short B2

Short BI1

Short BI2

Short Bcc1

Short Bcc2

Short C1

Short C2

Short CI1

Short CI2

Short Ccc1

Short Ccc2

begin gameMode

If Doonce > 1

Return

ElseIf Doonce < 1

con_SetImageSpaceGlow 0 0 0 0

Set doonce to 1

Set RGamehour to Gamehour

Set Gamehour to 5

; Initiliaze Actors & Markers+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Set Marker01 to VT5CS02Marker1Far

Set Marker02 to VT5CS02Marker2Far

Set Marker03 to VT5CS02Marker3Far

Set Marker04 to VT5CS02Marker1Far

Set Marker05 to VT5CS02Marker2Far

Set Marker06 to VT5CS02Marker3Far

VT6CelestiaRef.MoveTo Marker01

VT6FleurRef.MoveTo Marker02

Set Actor03 to VT6FleurRef

Set Actor02 to VT6CelestiaRef

;If Resetted == 0

; Set Resetted to 1

Set Actor01 to Player.CreateFullActorCopy

Actor01.SetScale VToyCalibrationQuest.VToyCloneScale

;EndIf

Actor01.Disable

Actor02.Disable

Actor03.Disable

Call VToyFCowToActor Vtoy3SQ6.CSCow1

Set Actor04 to Vtoy3SQ6.ActorTemp

Call VToyFCowToActor Vtoy3SQ6.CSCow2

Set Actor05 to Vtoy3SQ6.ActorTemp

Call VToyFCowToActor Vtoy3SQ6.CSCow3

Set Actor06 to Vtoy3SQ6.ActorTemp

Set MarkerCamera to VT5CS02Camera

Set Sequence to 5

Set Timer to 500

SetMusicVolume 100 0

;PlayMusicFile "Data\Music\VToy\To The Ends.mp3"

Call VToyFCamera MarkerCamera

Set LeftKey to 256

Set RightKey to 257

; Initiliaze Animation +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Call VToyFCowAnim Vtoy3SQ6.PosCow1

Set A1 to VToy3SQ6.A1

Set A2 to VToy3SQ6.A2

Set Acc1 to VToy3SQ6.Acc1

Set Acc2 to VToy3SQ6.Acc2

Set AI1 to VToy3SQ6.AI1

Set AI2 to VToy3SQ6.AI2

Set Position to VToy3SQ6.Position

If Position == 1

Set Marker01 to VT5CS02Marker1BS

Set Marker04 to VT5CS02Marker1BS

ElseIf Position == 2

VT5CS02Stool1.enable

ElseIf Position == 3

Set Marker01 to VT5CS02Marker1W

Set Marker04 to VT5CS02Marker1W

ElseIf Position == 4

Set Marker01 to VT5CS02Marker1BW

Set Marker04 to VT5CS02Marker1BW

EndIf

Call VToyFCowAnim Vtoy3SQ6.PosCow2

Set B1 to VToy3SQ6.A1

Set B2 to VToy3SQ6.A2

Set Bcc1 to VToy3SQ6.Acc1

Set Bcc2 to VToy3SQ6.Acc2

Set BI1 to VToy3SQ6.AI1

Set BI2 to VToy3SQ6.AI2

Set Position to VToy3SQ6.Position

If Position == 1

Set Marker02 to VT5CS02Marker2BS

Set Marker05 to VT5CS02Marker2BS

ElseIf Position == 2

VT5CS02Stool2.enable

ElseIf Position == 3

Set Marker02 to VT5CS02Marker2W

Set Marker05 to VT5CS02Marker2W

ElseIf Position == 4

Set Marker02 to VT5CS02Marker2BW

Set Marker05 to VT5CS02Marker2BW

EndIf

Call VToyFCowAnim Vtoy3SQ6.PosCow3

Set C1 to VToy3SQ6.A1

Set C2 to VToy3SQ6.A2

Set Ccc1 to VToy3SQ6.Acc1

Set Ccc2 to VToy3SQ6.Acc2

Set CI1 to VToy3SQ6.AI1

Set CI2 to VToy3SQ6.AI2

Set Position to VToy3SQ6.Position

If Position == 1

Set Marker03 to VT5CS02Marker3BS

Set Marker06 to VT5CS02Marker3BS

ElseIf Position == 2

VT5CS02Stool3.enable

ElseIf Position == 3

Set Marker03 to VT5CS02Marker3W

Set Marker06 to VT5CS02Marker3W

ElseIf Position == 4

Set Marker03 to VT5CS02Marker3BW

Set Marker06 to VT5CS02Marker3BW

EndIf

If VtoyQuest.Futa == 1

If Actor01.GetItemCount VToyTokenFuta == 0

Actor01.AddItem VToyTokenFuta 1

EndIf

If Actor02.GetItemCount VToyTokenFuta == 0

Actor02.AddItem VToyTokenFuta 1

EndIf

If Actor03.GetItemCount VToyTokenFuta == 0

Actor03.AddItem VToyTokenFuta 1

EndIf

Else

Set Count to Actor01.GetItemCount VToyTokenFuta

Actor01.RemoveItem VToyTokenFuta Count

Set Count to Actor02.GetItemCount VToyTokenFuta

Actor02.RemoveItem VToyTokenFuta Count

Set Count to Actor03.GetItemCount VToyTokenFuta

Actor03.RemoveItem VToyTokenFuta Count

Set Count to Actor04.GetItemCount VToyTokenFuta

Actor04.RemoveItem VToyTokenFuta Count

Set Count to Actor05.GetItemCount VToyTokenFuta

Actor05.RemoveItem VToyTokenFuta Count

Set Count to Actor06.GetItemCount VToyTokenFuta

Actor06.RemoveItem VToyTokenFuta Count

EndIf

ElseIf DoOnce == 1

; Sounds ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

++++++++

If Timer > 492 || Timer < 6

Set Timer to Timer - GetSecondsPassed

;Printc "VT5CS02> Timer %f Sequence %g" Timer Sequence

EndIf

SetSceneiscomplex 1

; force Positions over time +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Call VToyFToMarkerDynamic Actor01 0 0 0 0 Marker01

Call VToyFToMarkerDynamic Actor02 0 0 0 0 Marker02

Call VToyFToMarkerDynamic Actor03 0 0 0 0 Marker03

Call VToyFToMarkerDynamic Actor04 0 0 0 0 Marker04

Call VToyFToMarkerDynamic Actor05 0 0 0 0 Marker05

Call VToyFToMarkerDynamic Actor06 0 0 0 0 Marker06

if (IsKeyPressed3 LeftKey) && (LeftKeydown == 0)

If Aseq < 2

set LeftKeydown to 1

Set Aseq to Aseq + 1

Actor04.AddItem VToyTokenDP AI2

Actor01.AddItem VToyTokenDP AI1

Actor02.AddItem VToyTokenDP BI1

Actor05.AddItem VToyTokenDP BI2

Actor06.AddItem VToyTokenDP CI2

Actor03.AddItem VToyTokenDP CI1

Actor01.PickIdle

Actor02.PickIdle

Actor03.PickIdle

Actor04.PickIdle

Actor05.PickIdle

Actor06.PickIdle

ElseIf Aseq == 2

Actor01.Pms effectShockDamage 5

Actor02.Pms effectShockDamage 5

Actor03.Pms effectShockDamage 5

Actor04.Pms effectShockDamage 5

Actor05.Pms effectShockDamage 5

Actor06.Pms effectShockDamage 5

Set RightKey to 0

Set LeftKey to 0

Set Timer to 5

EndIf

;Printc"VT5>Left click pressed %g " Aseq

elseif (IsKeyPressed3 LeftKey == 0) && LeftKeydown

set LeftKeydown to 0

endif

if (IsKeyPressed3 RightKey) && (RightKeydown == 0) && Aseq > 0

set RightKeydown to 1

Actor04.RemoveItem VToyTokenDP AI2

Actor01.RemoveItem VToyTokenDP AI1

Actor02.RemoveItem VToyTokenDP BI1

Actor05.RemoveItem VToyTokenDP BI2

Actor06.RemoveItem VToyTokenDP CI2

Actor03.RemoveItem VToyTokenDP CI1

Actor01.PickIdle

Actor02.PickIdle

Actor03.PickIdle

Actor04.PickIdle

Actor05.PickIdle

Actor06.PickIdle

;Printc"VT5>Right click pressed %g " Aseq

Set Aseq to Aseq - 1

elseif (IsKeyPressed3 RightKey == 0) && RightKeydown

set RightKeydown to 0

endif

; Enable General Scene, lights on +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

If Timer < 500 && Sequence == 5

Set Sequence to 10

ElseIf Timer < 499 && Sequence == 10

Set Sequence to 20

Actor01.enable

Actor02.enable

Actor03.enable

Actor04.enable

Actor05.enable

Actor06.enable

Actor03.SetUnconscious 1

Actor01.SetUnconscious 1

Actor02.SetUnconscious 1

Actor04.SetUnconscious 1

Actor05.SetUnconscious 1

Actor06.SetUnconscious 1

ElseIf Timer < 496 && Sequence == 20

Set Sequence to 30

Call VToyFnude2 Actor01 Acc1

Call VToyFnude2 Actor04 Acc2

Call VToyFnude2 Actor02 Bcc1

Call VToyFnude2 Actor05 Bcc2

Call VToyFnude2 Actor03 Ccc1

Call VToyFnude2 Actor06 Ccc2

ElseIf Timer < 495 && Sequence == 30

Set Sequence to 35

Actor01.Con_Tcl

Actor02.Con_Tcl

Actor03.Con_Tcl

Actor04.Con_Tcl

Actor05.Con_Tcl

Actor06.Con_Tcl

ElseIf Timer < 494 && Sequence == 35

Set Sequence to 40

Actor04.AddItem VToyTokenDP A2

Actor01.AddItem VToyTokenDP A1

Actor02.AddItem VToyTokenDP B1

Actor05.AddItem VToyTokenDP B2

Actor06.AddItem VToyTokenDP C2

Actor03.AddItem VToyTokenDP C1

ElseIf Timer < 493 && Sequence == 40

Set Sequence to 50

Actor01.PickIdle

Actor02.PickIdle

Actor03.PickIdle

Actor04.PickIdle

Actor05.PickIdle

Actor06.PickIdle

con_SetImageSpaceGlow 1 7 0.225 2.25

If MessageFlag == 0

Set RGamehour to 16

set MessageFlag to 1

MessageBox "Левая клавиша мыши - вперед, правая клавиша мыши - назад. Клавиши курсора (Стрелки) - для перемещения."

Else

Message "Левая клавиша мыши - вперед, правая клавиша мыши - назад. Клавиши курсора (Стрелки) - для перемещения."

endIf

Con_Tfc

ElseIf Timer < 0.5 && Sequence == 50

Actor01.Con_Tcl

Actor02.Con_Tcl

Actor03.Con_Tcl

Actor04.Con_Tcl

Actor05.Con_Tcl

Actor06.Con_Tcl

Set Sequence to 60

ElseIf Timer < 0.25 && Sequence == 60

Set Count to Actor01.GetItemCount VToyTongue

Actor01.RemoveItem VToyTongue Count

Set Count to Actor02.GetItemCount VToyTongue

Actor02.RemoveItem VToyTongue Count

Set Count to Actor03.GetItemCount VToyTongue

Actor03.RemoveItem VToyTongue Count

Actor01.Disable

Actor02.Disable

Actor03.Disable

Actor04.Disable

Actor05.Disable

Actor06.Disable

If RGamehour < 13

Set Gamehour to 13

Else

Set Gamehour to 22

EndIf

Call VToyFCowFill - 1

Call VToyFCowEvol Vtoy3SQ6.CSCow1 Vtoy3sq6.PosCow1

Call VToyFCowEvol Vtoy3SQ6.CSCow2 Vtoy3sq6.PosCow2

Call VToyFCowEvol Vtoy3SQ6.CSCow3 Vtoy3sq6.PosCow3

Con_Tfc

VT5CS02Stool1.Disable

VT5CS02Stool2.Disable

VT5CS02Stool3.Disable

If GetStage VToy3SQ6 == 90