ref tObjectRef
short LG_Lparts
short LG_Sparts
short MD_Lparts
short MD_Sparts
short SM_Sparts
short TN_Sparts
short lparts
short sparts
short HasTool

Begin OnEquip
    

    set tObjectRef to sdScrapTool
    if tObjectRef != GetCrosshairRef
        set tObjectRef to GetCrosshairRef
        if (tObjectRef.IsInList fgScrappedStaticsALL)
            if (player.GetHasNote fgScrapMetalCrafting1)
                set LG_Lparts to 2
                set LG_Sparts to 1
                set MD_Lparts to 1
                set MD_Sparts to 0
                set SM_Sparts to 1
                set TN_Sparts to 1
            elseif (player.GetHasNote fgScrapMetalCrafting2)

scn sdScrapObjectScript

ref tObjectRef
short LG_Lparts
short LG_Sparts
short MD_Lparts
short MD_Sparts
short SM_Sparts
short TN_Sparts
short lparts
short sparts
short HasTool

Begin OnEquip
    

    set tObjectRef to sdScrapTool
    if tObjectRef != GetCrosshairRef
        set tObjectRef to GetCrosshairRef
        if (tObjectRef.IsInList fgScrappedStaticsALL)
            if (player.GetHasNote fgScrapMetalCrafting1)
                set LG_Lparts to 2
                set LG_Sparts to 1
                set MD_Lparts to 1
                set MD_Sparts to 0
                set SM_Sparts to 1
                set TN_Sparts to 1
            elseif (player.GetHasNote fgScrapMetalCrafting2)
                set LG_Lparts to 3
                set LG_Sparts to 1
                set MD_Lparts to 1
                set MD_Sparts to 1
                set SM_Sparts to 2
                set TN_Sparts to 1
            elseif (player.GetHasNote fgScrapMetalCrafting3)
                set LG_Lparts to 3
                set LG_Sparts to 2
                set MD_Lparts to 2
                set MD_Sparts to 1
                set SM_Sparts to 2
                set TN_Sparts to 1
            elseif (player.GetHasNote fgScrapMetalCrafting4)
                set LG_Lparts to 4
                set LG_Sparts to 1
                set MD_Lparts to 3
                set MD_Sparts to 1
                set SM_Sparts to 2
                set TN_Sparts to 1
            elseif (player.GetHasNote fgScrapMetalCrafting5)
                set LG_Lparts to 4
                set LG_Sparts to 2
                set MD_Lparts to 3
                set MD_Sparts to 2
                set SM_Sparts to 3
                set TN_Sparts to 2
            endif
            if tObjectRef.IsInList fgScrappedStaticsLG
                set lparts to LG_Lparts
                set sparts to LG_Sparts
            elseif tObjectRef.IsInList fgScrappedStaticsMD
                set lparts to MD_Lparts
                set sparts to MD_Sparts
            elseif tObjectRef.IsInList fgScrappedStaticsSM
                set lparts to 0
                set sparts to SM_Sparts
            elseif tObjectRef.IsInList fgScrappedStaticsTN
                set lparts to 0
                set sparts to TN_Sparts
            endif
            tObjectRef.Disable
            tObjectRef.MarkForDelete
            player.AddItem fgLargeScrapParts lparts
            player.AddItem fgSmallScrapParts sparts
            PlaySound UIRepairWeapon
            ShowMessage fgBrokenDown lparts,sparts
        endif
    endif
    player.UnEquipItem sdScrapTool 0 1

End

Begin OnDrop player

    set HasTool to player.GetItemCount sdScrapTool
    if  HasTool != 1
        if HasTool < 1
            player.additem sdScrapTool 1 1
        elseif HasTool > 1
            player.removeitem sdScrapTool HasTool + 1 1
            player.additem sdScrapTool 1 1
        endif
    endif

End

Begin OnAdd player

    set HasTool to player.GetItemCount sdScrapTool
    if  HasTool != 1
        if HasTool < 1
            player.additem sdScrapTool 1 1
        elseif HasTool > 1
            player.removeitem sdScrapTool HasTool + 1 1
            player.additem sdScrapTool 1 1
        endif
    endif

End

ref tObjectRef
short LG_Lparts
short LG_Sparts
short MD_Lparts
short MD_Sparts
short SM_Sparts
short TN_Sparts
short lparts
short sparts
short HasTool

Begin OnEquip

set tObjectRef to sdScrapTool
if tObjectRef != GetCrosshairRef
set tObjectRef to GetCrosshairRef
if (tObjectRef.IsInList fgScrappedStaticsALL)
if (player.GetHasNote fgScrapMetalCrafting1)
set LG_Lparts to 2
set LG_Sparts to 1
set MD_Lparts to 1
set MD_Sparts to 0
set SM_Sparts to 1
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting2)
set LG_Lparts to 3
set LG_Sparts to 1
set MD_Lparts to 1
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting3)
set LG_Lparts to 3
set LG_Sparts to 2
set MD_Lparts to 2
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting4)
set LG_Lparts to 4
set LG_Sparts to 1
set MD_Lparts to 3
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting5)
set LG_Lparts to 4
set LG_Sparts to 2
set MD_Lparts to 3
set MD_Sparts to 2
set SM_Sparts to 3
set TN_Sparts to 2
endif
if tObjectRef.IsInList fgScrappedStaticsLG
set lparts to LG_Lparts
set sparts to LG_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsMD
set lparts to MD_Lparts
set sparts to MD_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsSM
set lparts to 0
set sparts to SM_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsTN
set lparts to 0
set sparts to TN_Sparts
endif
tObjectRef.Disable
tObjectRef.MarkForDelete
player.AddItem fgLargeScrapParts lparts
player.AddItem fgSmallScrapParts sparts
PlaySound UIRepairWeapon
ShowMessage fgBrokenDown lparts,sparts
endif
endif
player.UnEquipItem sdScrapTool 0 1

End

Begin OnDrop player

set HasTool to player.GetItemCount sdScrapTool
if  HasTool != 1
if HasTool < 1
player.additem sdScrapTool 1 1
elseif HasTool > 1
player.removeitem sdScrapTool HasTool + 1 1
player.additem sdScrapTool 1 1
endif
endif

End

Begin OnAdd player

set HasTool to player.GetItemCount sdScrapTool
if  HasTool != 1
if HasTool < 1
player.additem sdScrapTool 1 1
elseif HasTool > 1
player.removeitem sdScrapTool HasTool + 1 1
player.additem sdScrapTool 1 1
endif
endif

End

scn a0aRobcoToolWrenchScriptBee

short active
short drawn
short anim
ref item
short itemJunk
ref cell
short process

short lookupIndex
ref lookupList
ref lookupToken

begin onequip
set active to player.hasperk a0aJunkPerk1 + player.hasperk a0aJunkPerk2
endif
end

begin onunequip
set active to 0
if(drawn)
set cell to player.getparentcell
set item to getfirstref 0 1
label 10
if(item)
set itemjunk to item.isinlist a0aJunkPerk1ListBuild + (player.hasperk a0aJunkPerk2 * item.isinlist a0aJunkPerk2ListBuild)
if(itemjunk)
item.sms a0aJunkPerk1Shader
endif
set item to getnextref
goto 10
endif
set drawn to 0
endif
end

begin gamemode
if(active)
if(IsPlayerMovingIntoNewSpace)
return
elseif(player.isweaponout != drawn || getgameloaded)
set drawn to player.isweaponout
set process to 1
elseif(cell != player.getparentcell)
set process to 1
endif

if(process)
set process to 0
set cell to player.getparentcell
set item to getfirstref 0 1
label 10
if(item)
set itemjunk to item.isinlist a0aJunkPerk1ListBuild + (player.hasperk a0aJunkPerk2 * item.isinlist a0aJunkPerk2ListBuild)
if(itemjunk)
if(drawn)
item.pms a0aJunkPerk1Shader
else
item.sms a0aJunkPerk1Shader
endif
endif
set item to getnextref
goto 10
endif
endif

if(player.GetAnimAction == 2 && anim == 0)
set anim to 1
elseif(player.getanimaction != 2 && anim == 1)
set anim to 0
set item to getcrosshairref
if(item)
set itemjunk to item.isinlist a0aJunkPerk1ListBuild + (player.hasperk a0aJunkPerk2 * item.isinlist a0aJunkPerk2ListBuild)
;            printc "Item is %n, %.0f junk" item itemjunk
if(itemjunk)
set lookupindex to 0
label 10
set lookupList to listgetnthform a0aJunkLookupLists lookupIndex
if(lookupList)
if(item.isinlist lookupList)
set aaarobcoquest.junkitem to item
set lookupToken to listgetnthform a0aJunklookupTokens lookupIndex
;                        printc "%n" lookuptoken
player.additem lookupToken 1 1
else
set lookupIndex to lookupIndex +1
goto 10
endif
endif
endif
endif
endif
endif
end

scn sdScrapObjectScript

ref tObjectRef
short LG_Lparts
short LG_Sparts
short MD_Lparts
short MD_Sparts
short SM_Sparts
short TN_Sparts
short lparts
short sparts
short HasTool

Begin OnEquip

set tObjectRef to sdScrapTool
if tObjectRef != GetCrosshairRef
set tObjectRef to GetCrosshairRef
if (tObjectRef.IsInList fgScrappedStaticsALL)
if (player.GetHasNote fgScrapMetalCrafting1)
set LG_Lparts to 2
set LG_Sparts to 1
set MD_Lparts to 1
set MD_Sparts to 0
set SM_Sparts to 1
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting2)
set LG_Lparts to 3
set LG_Sparts to 1
set MD_Lparts to 1
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting3)
set LG_Lparts to 3
set LG_Sparts to 2
set MD_Lparts to 2
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting4)
set LG_Lparts to 4
set LG_Sparts to 1
set MD_Lparts to 3
set MD_Sparts to 1
set SM_Sparts to 2
set TN_Sparts to 1
elseif (player.GetHasNote fgScrapMetalCrafting5)
set LG_Lparts to 4
set LG_Sparts to 2
set MD_Lparts to 3
set MD_Sparts to 2
set SM_Sparts to 3
set TN_Sparts to 2
endif
if tObjectRef.IsInList fgScrappedStaticsLG
set lparts to LG_Lparts
set sparts to LG_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsMD
set lparts to MD_Lparts
set sparts to MD_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsSM
set lparts to 0
set sparts to SM_Sparts
elseif tObjectRef.IsInList fgScrappedStaticsTN
set lparts to 0
set sparts to TN_Sparts
endif
tObjectRef.Disable
tObjectRef.MarkForDelete
player.AddItem fgLargeScrapParts lparts
player.AddItem fgSmallScrapParts sparts
PlaySound UIRepairWeapon
ShowMessage fgBrokenDown lparts,sparts
endif
End

Begin OnDrop player

set HasTool to player.GetItemCount sdScrapTool
if  HasTool != 1
if HasTool < 1
player.additem sdScrapTool 1 1
elseif HasTool > 1
player.removeitem sdScrapTool HasTool + 1 1
player.additem sdScrapTool 1 1
endif
endif

End

Begin OnAdd player

set HasTool to player.GetItemCount sdScrapTool
if  HasTool != 1
if HasTool < 1
player.additem sdScrapTool 1 1
elseif HasTool > 1
player.removeitem sdScrapTool HasTool + 1 1
player.additem sdScrapTool 1 1
endif
endif

End

scn sdBreakdownStatics

short HasTool

Begin GameMode

set HasTool to player.GetItemCount sdScrapTool
if  HasTool != 1
if HasTool < 1
player.additem sdScrapTool 1
elseif HasTool > 1
player.removeitem sdScrapTool HasTool + 1
player.additem sdScrapTool 1
endif
endif

StopQuest sdAddBreakdownStatics
End

scn fgAddSparePartsNotesScript

Begin GameMode

if (player.GetActorValue Repair <= 25) &&  (player.GetHasNote fgScrapMetalCrafting1 ==  0)
player.AddNote fgScrapMetalCrafting1

player.RemoveNote fgScrapMetalCrafting2
player.RemoveNote fgScrapMetalCrafting3
player.RemoveNote fgScrapMetalCrafting4
player.RemoveNote fgScrapMetalCrafting5

elseif (player.GetActorValue Repair > 25) && (player.GetActorValue Repair <= 50) &&  (player.GetHasNote fgScrapMetalCrafting2 ==  0)
player.AddNote fgScrapMetalCrafting2

player.RemoveNote fgScrapMetalCrafting1
player.RemoveNote fgScrapMetalCrafting3
player.RemoveNote fgScrapMetalCrafting4
player.RemoveNote fgScrapMetalCrafting5

elseif (player.GetActorValue Repair > 50) && (player.GetActorValue Repair <= 75) &&  (player.GetHasNote fgScrapMetalCrafting3 ==  0)
player.AddNote fgScrapMetalCrafting3

player.RemoveNote fgScrapMetalCrafting1
player.RemoveNote fgScrapMetalCrafting2
player.RemoveNote fgScrapMetalCrafting4
player.RemoveNote fgScrapMetalCrafting5

elseif (player.GetActorValue Repair > 75) && (player.GetActorValue Repair < 100) &&  (player.GetHasNote fgScrapMetalCrafting4 ==  0)
player.AddNote fgScrapMetalCrafting4

player.RemoveNote fgScrapMetalCrafting1
player.RemoveNote fgScrapMetalCrafting2
player.RemoveNote fgScrapMetalCrafting3
player.RemoveNote fgScrapMetalCrafting5

elseif (player.GetActorValue Repair >= 100) &&  (player.GetHasNote fgScrapMetalCrafting5 ==  0)
player.AddNote fgScrapMetalCrafting5

player.RemoveNote fgScrapMetalCrafting1
player.RemoveNote fgScrapMetalCrafting2
player.RemoveNote fgScrapMetalCrafting3
player.RemoveNote fgScrapMetalCrafting4
endif

End