scn zzScript

short DoOnce
short Z

ref MyDead
ref MyOuterItem

Begin OnLoad
PlaceAtMe caps001 zzGlobal
Disable
MarkForDelete
End

Begin GameMode

if DoOnce == 0
    set MyDead to GetContainer
  if MyDead
   set Z to GetPos z + 100
   set zzGlobal to ( MyDead.GetAV barter )
   if MyDead.IsLimbGone 1
    if GetRandomPercent <= 99;( player.GetAV luck)
     set MyOuterItem to PlaceAtMe zzItem
     MyOuterItem.SetPos z Z
    endif
   endif
  endif
    set DoOnce to 1
endif

End

scn zzScript

short DoOnce
short Z

ref MyDead
ref MyOuterItem

Begin OnLoad
PlaceAtMe caps001 zzGlobal
Disable
MarkForDelete
End

Begin GAmeMode

if DoOnce == 0
    set MyDead to GetContainer
  if MyDead
   set Z to GetPos z + 100
   set zzGlobal to ( MyDead.GetAV barter )
   if MyDead.IsLimbGone 1
    if GetRandomPercent <= 99;( player.GetAV luck)
     set MyOuterItem to PlaceAtMe zzItem
     MyOuterItem.SetPos z Z
    endif
   endif
  endif
    set DoOnce to 1
elseif DoOnce > 0 && MyDead
    set DoOnce to DoOnce + 1
endif

if DoOnce >= 10
    ShowMessage GenericDebugMsg
    set DoOnce to -1
    RemoveMe
endif

End

scn zzScript

short DoOnce
short Z

ref MyDead
ref MyOuterItem

;DEBUG VARIABLES
short Outside
short OutsideZ

Begin OnLoad
set OutsideZ to GetPos z
PrintToConsole "Outer item has appeared with %0.f Z position" OutsideZ
set Outside to 1
PlaceAtMe caps001 zzGlobal
PrintToConsole "Caps placed %0.f" zzGlobal
Disable
MarkForDelete
End

Begin GAmeMode

if DoOnce == 10
    PrintToConsole "DoOnce is %0.f, it's time to check where the item is" DoOnce
    set MyDead to GetContainer
  if MyDead != 0
  PrintToConsole "The item is inside a container, the container is %n, RefID is %i " MyDead MyDead
   set Z to GetPos z + 100
   set zzGlobal to ( MyDead.GetAV barter )
   PrintToConsole "Variable Z is set to %0.f " Z
   PrintToConsole "Variable zzGlobal is set to %0.f" zzGlobal
   if MyDead.IsLimbGone 1
    PrintToConsole "The container had a head 1 when it was alive but now does not have"
    if GetRandomPercent <= 99
     PrintToConsole "Random percent is less than 99, it is predictable"
     set MyOuterItem to PlaceAtMe zzItem
     if MyOuterItem != 0
      PrintToConsole "Variable MyOuterItem is set in script to %n, RefID is %i " MyOuterItem MyOuterItem
     else
      PrintToConsole "VARIABLE MYOUTERITEM IS NOT SET IN SCRIPT"
     endif
     MyOuterItem.SetPos z Z
     PrintToConsole "Item's Z position is set in script to %0.f" Z
    else
     PrintToConsole "Random percent is more than 99 O_o"
    endif
   else
    PrintToConsole "The container's head 1 is untouched or this container has no head from the beginning"
   endif
  else
   PrintToConsole "VARIABLE MYDEAD IS NOT SET IN SCRIPT"
  endif
endif

if DoOnce < 20 && DoOnce >= 0
    set DoOnce to ( DoOnce + 1 )
    if Outside == 0
  PrintToConsole "DoOnce is %0.f" DoOnce
    else
  PrintToConsole "GAMEMODE IS RUNNING OUTSIDE DOONCE IS %0.f" DoOnce
    endif
else
    PrintToConsole "DoOnce is %0.f, the item should remove itself" DoOnce
    set DoOnce to -1
    RemoveMe
endif

if DoOnce < 0
    PrintToConsole "GAMEMODE IS STILL RUNNING INSIDE DOONCE IS %0.f" DoOnce
    set DoOnce to DoOnce - 1
endif

End