MAX_SCRIPT_SIZE exceeded.
► Afficher le texte
scn craftybitscraftingboard
ref r
ref p
ref r1
ref r2
ref r3
ref kniferef
short chance
float oldencumbr
short sx
short sy
short sz
float num
short reset
ref button
short messaged
short skill
ref pelt
ref armor
short pcode
short pnum
short inventory
float px
float py
float pz
float az
short conv
begin gamemode
if inventory == 0
elseif inventory == 1
set num to player.getav encumbrance
if num > oldencumbr
set r1 to 0
set r2 to 0
set r3 to 0
set kniferef to 0
craftybitsgarbagemanp.removeallitems
else
if r1!=0
if getdistance r1 >45
r1.pms effectfrenzy 3
set r1 to 0
endif
endif
if r2!=0
if getdistance r2 >45
r2.pms effectFrenzy 3
set r2 to 0
endif
endif
if r3!=0
if getdistance r3 > 45
r3.pms effectFrenzy 3
set r3 to 0
endif
endif
if kniferef!=0
if getdistance kniferef > 45
kniferef.pms effectFrenzy 3
set kniferef to 0
endif
endif
endif
set oldencumbr to num
;FUR AND LEATHER COMPLETION BLOCK
set button to getbuttonpressed
set skill to player.getAV armorer
if pnum==3
if button==0
set p to player.additem pelt 3
set r3 to 0
set r2 to 0
set r1 to 0
elseif button==1
set p to PlaceAtMe armor
player.incrementplayerskilluse armorer 1 (pnum*.4)
endif
elseif pnum==2
if button==0
set p to player.additem pelt 2
elseif button==1; GREAVES
if pcode==1
set p to placeatme craftybitsratgreaves
elseif pcode==2
set p to placeatme furgreaves
elseif pcode==3
set p to placeatme craftybitswolfgreaves
elseif pcode==4
set p to placeatme craftybitsliongreaves
elseif pcode==5
set p to placeatme craftybitsblackbeargreaves
elseif pcode==6
set p to placeatme craftybitsbrownbeargreaves
elseif pcode==7
set p to placeatme craftybitstrollgreaves
elseif pcode==8
set p to placeatme leathergreaves
elseif pcode==9
set p to placeatme craftybitsbuckgreaves
elseif pcode==10
set p to placeatme craftybitsogregreaves
elseif pcode==11
set p to placeatme craftybitsclannfeargreaves
elseif pcode==12
set p to placeatme craftybitsminotaurgreaves
elseif pcode==13
set p to placeatme craftybitsdaedrothgreaves
elseif pcode==14
set p to placeatme craftybitsblackgreaves
elseif pcode==15
set p to placeatme craftybitsdarkgreaves
elseif pcode==16
set p to placeatme pitgreaves
elseif pcode==17
set p to placeatme craftybitsbonegreaves
elseif pcode==18
set p to placeatme CBbonegreaves
endif
set kniferef to 0
player.incrementplayerskilluse armorer 1 (pnum*.4)
elseif button==2; SHIELDS
if pcode==1
set p to placeatme craftybitsratshield
elseif pcode==2
set p to placeatme furshield
elseif pcode==3
set p to placeatme craftybitswolfshield
elseif pcode==4
set p to placeatme craftybitslionshield
elseif pcode==5
set p to placeatme craftybitsblackbearshield
elseif pcode==6
set p to placeatme craftybitsbrownbearshield
elseif pcode==7
set p to placeatme craftybitstrollshield
elseif pcode==8
set p to placeatme leathershield
elseif pcode==10
set p to placeatme craftybitsogreshield
elseif pcode==11
set p to placeatme craftybitsclannfearshield
elseif pcode==12
set p to placeatme craftybitsminotaurshield
elseif pcode==13
set p to placeatme craftybitsdaedrothshield
elseif pcode==14
set p to placeatme craftybitsblackshield
elseif pcode==15
set p to placeatme craftybitsdarkshield
elseif pcode==16
set button to 0
elseif pcode==18
set p to placeatme CBboneshield
endif
set kniferef to 0
player.incrementplayerskilluse armorer 1 (pnum*.4)
endif
elseif pnum==1 ;BOOTS, GAUNTLETS, AND HELMETS
if button==0
set p to placeatme pelt 1
p.setownership
elseif button==1; BOOTS
if pcode==1
set p to placeatme craftybitsratboots
elseif pcode==2
set p to placeatme furboots
elseif pcode==3
set p to placeatme craftybitswolfboots
elseif pcode==4
set p to placeatme craftybitslionboots
elseif pcode==5
set p to placeatme craftybitsblackbearboots
elseif pcode==6
set p to placeatme craftybitsbrownbearboots
elseif pcode==7
set p to placeatme craftybitstrollboots
elseif pcode==8
set p to placeatme leatherboots
elseif pcode==9
set p to placeatme craftybitsbuckskinshoes
elseif pcode==10
set p to placeatme craftybitsogreboots
elseif pcode==11
set p to placeatme craftybitsclannfearboots
elseif pcode==12
set p to placeatme craftybitsminotaurboots
elseif pcode==13
set p to placeatme craftybitsdaedrothboots
elseif pcode==14
set p to placeatme craftybitsblackboots
elseif pcode==15
set p to placeatme craftybitsdarkboots
elseif pcode==16
set p to placeatme pitboots
elseif pcode==17
set p to placeatme craftybitsboneboots
elseif pcode==18
set p to placeatme CBboneboots
endif
set kniferef to 0
player.incrementplayerskilluse armorer 1 (pnum*.4)
elseif button==2; GUANTLETS
if pcode==1
set p to placeatme craftybitsratgauntlets
elseif pcode==2
set p to placeatme furgauntlets
elseif pcode==3
set p to placeatme craftybitswolfgauntlets
elseif pcode==4
set p to placeatme craftybitsliongauntlets
elseif pcode==5
set p to placeatme craftybitsblackbeargauntlets
elseif pcode==6
set p to placeatme craftybitsbrownbeargauntlets
elseif pcode==7
set p to placeatme craftybitstrollgauntlets
elseif pcode==8
set p to placeatme leathergauntlets
elseif pcode==9
set p to placeatme craftybitsbuckbracer
elseif pcode==10
set p to placeatme craftybitsogregauntlets
elseif pcode==11
set p to placeatme craftybitsclannfeargauntlets
elseif pcode==12
set p to placeatme craftybitsminotaurgauntlets
elseif pcode==13
set p to placeatme craftybitsdaedrothgauntlets
elseif pcode==14
set p to placeatme craftybitsblackgauntlets
elseif pcode==15
set p to placeatme craftybitsdarkgauntlets
elseif pcode==16
set p to placeatme pitgauntlets
elseif pcode==17
set p to placeatme craftybitsbonegauntlets
elseif pcode==18
set p to placeatme CBbonebracers
p.setownership
endif
p.setownership
set kniferef to 0
player.incrementplayerskilluse armorer 1 (pnum*.4)
elseif button==3; HELMET
if pcode==1
set p to placeatme craftybitsrathelmet
elseif pcode==2
set p to placeatme furhelmet
elseif pcode==3
set p to placeatme craftybitswolfhelmet
elseif pcode==4
set p to placeatme craftybitslionhelmet
elseif pcode==5
set p to placeatme craftybitsblackbearhelmet
elseif pcode==6
set p to placeatme craftybitsbrownbearhelmet
elseif pcode==7
set p to placeatme craftybitstrollhelmet
elseif pcode==8
set p to placeatme leatherhelmet
elseif pcode==9
set p to placeatme craftybitsbuckhood
elseif pcode==10
set p to placeatme craftybitsogrehelmet
elseif pcode==11
set p to placeatme craftybitsclannfearhelmet
elseif pcode==12
set p to placeatme craftybitsminotaurhelmet
elseif pcode==13
set p to placeatme craftybitsdaedrothhelmet
elseif pcode==14
set p to placeatme craftybitsblackhelmet
elseif pcode==15
set p to placeatme craftybitsdarkhelmet
elseif pcode==16
set p to placeatme pithelmet
elseif pcode==17
set p to placeatme craftybitsbonehelmet
elseif pcode==18
set p to placeatme CBbonehelmet
p.setownership
endif
p.setownership
set kniferef to 0
if pnum<8
player.incrementplayerskilluse armorer 1 (pnum*(pcode/2))
elseif pcode>7 && pcode<14
player.incrementplayerskilluse armorer 1 (pnum*((pcode-6)/2))
elseif pcode>13
player.incrementplayerskilluse armorer 1 (pnum*1)
endif
endif
endif
set messaged to 0
endif
end
;ONTRIGGER BLOCK- all the recipes are here
begin ontrigger
if inventory == 1
set r to getactionref
;only count each ingredient once
if ( r == r3 || r==r2 || r==r1 || r==kniferef ) == 0
if r == player || r.isactor == 1 || r.getIsID "craftybitshotplace" || r.getisid "craftybitscookpot1" || r.getisID "craftybitsforgetrigger2" || r.getIsID "craftybitsconversiontrigger" || r.getisID "craftybitscooktrigger"
set r to 0
elseif r.getIsID "Shears01" || nameincludes shears r == 1
set kniferef to r
PrintToConsole "Knife Loaded."
elseif r3==0
set r3 to r
PrintToConsole "Item 3 Loaded"
elseif r2==0
set r2 to r
PrintToConsole "Item 2 Loaded"
elseif r1==0
set r1 to r
PrintToConsole "Item 1 Loaded"
else
Message "La planche d'artisanat ne peut gérer que 3 objets à la fois. Ceux déjà présent ne servent à rien."
return
endif
r.pms effectDemoralize 3
endif
;TAILORING BLOCK- should only work with shears.
if R!=0&&(r.getIsID "Shears01" || nameincludes shears r == 1)
set pelt to r3
;ARMORS
;BONEMOLD BLOCK
if r3.getIsID "craftybitslaminatedhide"
set pelt to craftybitslaminatedhide
set pcode to 17 ; Bonemold
if r2.getisid "Craftybitslaminatedhide"
if r1.getisid "craftybitslaminatedhide"
set armor to craftybitsbonecuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les cuirs de la cuirasse?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;BONE BLOCK
if r3.getIsID "SkelPelvis01"
set pelt to SkelPelvis01
set pcode to 18 ; Bone
if r2.getisid "SkelPelvis01"
if r1.getisid "SkelPelvis01"
set armor to CBbonecuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les os de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;RAT BLOCK
if r3.getIsID "craftybitsratpelt"
set pelt to craftybitsratpelt
set pcode to 1 ; Rat
if r2.getisid "Craftybitsratpelt"
if r1.getisid "craftybitsratpelt"
set armor to craftybitsratcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;DOE BLOCK
if (nameincludes deer r3 && (nameincludes skin r3 || nameincludes pelt r3 || nameincludes hide r3))
set pelt to craftybitsdoepelt
set pcode to 2 ; Doe (Normal Fur)
if (nameincludes deer r2 && (nameincludes skin r2 || nameincludes pelt r2 || nameincludes hide r2))
if (nameincludes deer r1 && (nameincludes skin r1 || nameincludes pelt r1 || nameincludes hide r1))
set armor to furcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;WOLF BLOCK
if (nameincludes wolf r3 && (nameincludes skin r3 || nameincludes pelt r3 || nameincludes hide r3))
set pelt to craftybitswolfpelt
set pcode to 3 ; Wolf
if (nameincludes wolf r2 && (nameincludes skin r2 || nameincludes pelt r2 || nameincludes hide r2))
if (nameincludes wolf r1 && (nameincludes skin r1 || nameincludes pelt r1 || nameincludes hide r1))
set armor to craftybitswolfcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Turn these pelts into a cuirass?","-","Yes"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Greaves","Sheild"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Boots","Gauntlets","Helm"
set pnum to 1
set messaged to 1
endif
endif
;LION BLOCK
if r3.getIsID "craftybitslionpelt"
set pelt to craftybitslionpelt
set pcode to 4 ; Lion
if r2.getisid "Craftybitslionpelt"
if r1.getisid "craftybitslionpelt"
set armor to craftybitslioncuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;BLACK BEAR BLOCK
if ((nameincludes bear r3 && nameincludes black r3) && (nameincludes skin r3 || nameincludes pelt r3 || nameincludes hide r3))
set pelt to craftybitsblackbearpelt
set pcode to 5 ; blackbear
if ((nameincludes bear r2 && nameincludes black r2) && (nameincludes skin r2 || nameincludes pelt r2 || nameincludes hide r2))
if ((nameincludes bear r1 && nameincludes black r1) && (nameincludes skin r1 || nameincludes pelt r1 || nameincludes hide r1))
set armor to craftybitsblackbearcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;BROWN BEAR BLOCK
if((nameincludes bear r3 && nameincludes brown r3) && (nameincludes skin r3 || nameincludes pelt r3 || nameincludes hide r3))
set pelt to craftybitsbrownbearpelt
set pcode to 6 ; brownbear
if ((nameincludes bear r2 && nameincludes brown r2) && (nameincludes skin r2 || nameincludes pelt r2 || nameincludes hide r2))
if ((nameincludes bear r1 && nameincludes brown r1) && (nameincludes skin r1 || nameincludes pelt r1 || nameincludes hide r1))
set armor to craftybitsratcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;TROLL BLOCK
if r3.getIsID "craftybitstrollpelt"
set pelt to craftybitstrollpelt
set pcode to 7 ; troll
if r2.getisid "Craftybitstrollpelt"
if r1.getisid "craftybitstrollpelt"
set armor to craftybitstrollcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;LEATHER ARMORS
;BOAR BLOCK
if r3.getIsID "craftybitsboarpelt"
set pelt to craftybitsboarpelt
set pcode to 8 ; boar
if r2.getisid "Craftybitsboarpelt"
if r1.getisid "craftybitsboarpelt"
set armor to leathercuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;BUCK BLOCK
if r3.getIsID "craftybitsbuckpelt"
set pelt to craftybitsbuckpelt
set pcode to 9 ; buck
if r2.getisid "Craftybitsbuckpelt"
if r1.getisid "craftybitsbuckpelt"
set armor to craftybitsbuckcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Mettre ces peaux de cerf dans les jambières ?","-","Le faire";,"Option précédentes"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des brassards","Une capuche"
set pnum to 1
set messaged to 1
endif
endif
;OGRE BLOCK
if r3.getIsID "craftybitsogrepelt"
set pelt to craftybitsogrepelt
set pcode to 10 ; ogre
if r2.getisid "Craftybitsogrepelt"
if r1.getisid "craftybitsogrepelt"
set armor to craftybitsogrecuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;CLANNFEAR BLOCK
if r3.getIsID "craftybitsclannfearpelt"
set pelt to craftybitsclannfearpelt
set pcode to 11 ; clannfear
if r2.getisid "Craftybitsclannfearpelt"
if r1.getisid "craftybitsclannfearpelt"
set armor to craftybitsclannfearcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;MINOTAUR BLOCK
if r3.getIsID "craftybitsminotaurpelt"
set pelt to craftybitsminotaurpelt
set pcode to 12 ; minotaur
if r2.getisid "Craftybitsminotaurpelt"
if r1.getisid "craftybitsminotaurpelt"
set armor to craftybitsminotaurcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;DAEDROTH BLOCK
if r3.getIsID "craftybitsdaedrothpelt"
set pelt to craftybitsdaedrothpelt
set pcode to 13 ; daedroth
if r2.getisid "Craftybitsdaedrothpelt"
if r1.getisid "craftybitsdaedrothpelt"
set armor to craftybitsdaedrothcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Qu'allez-vous faire ?","-","Des jambières","Un bouclier"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
;HORSE BLOCK
if r3.getIsID "craftybitshorsepelt"
set pelt to craftybitshorsepelt
set pcode to 16 ; horse- pit leathers
if r2.getisid "Craftybitshorsepelt"
if r1.getisid "craftybitshorsepelt"
set armor to pitcuirass
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
r1.activate craftybitsgarbagemanp
Messagebox "Changer les fourrures de la cuirasse ?","-","Oui"
set pnum to 3
set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
r2.activate craftybitsgarbagemanp
Messagebox "Mettre ces fourrures de chevaux dans les jambières ?","-","Oui";,"Options inutilisées"
set pnum to 2
Set messaged to 1
endif
endif
if messaged==0
r3.activate craftybitsgarbagemanp
Messagebox "Qu'est ce que cela deviendra ?","-","Des bottes","Des gants","Un casque"
set pnum to 1
set messaged to 1
endif
endif
endif
;INKED ARMORS BLOCK
else
if r2.getisID "inkwell01"
if r3.getisID "pitboots"
set p to placeatme craftybitsdarkboots
p.setownership
elseif r3.getisID "pitgreaves"
set p to placeatme craftybitsdarkgreaves
p.setownership
elseif r3.getisID "pitcuirass"
set p to placeatme craftybitsdarkcuirass
p.setownership
elseif r3.getisID "pitgauntlets"
set p to placeatme craftybitsdarkgauntlets
p.setownership
elseif r3.getisID "pithelmet"
set p to placeatme craftybitsdarkhelmet
p.setownership
elseif r3.getisID "leathershield"
set p to placeatme craftybitsblackshield
p.setownership
elseif r3.getisID "leatherboots"
set p to placeatme craftybitsblackboots
p.setownership
elseif r3.getisID "leathergreaves"
set p to placeatme craftybitsblackgreaves
p.setownership
elseif r3.getisID "leathercuirass"
set p to placeatme craftybitsblackcuirass
p.setownership
elseif r3.getisID "leathergauntlets"
set p to placeatme craftybitsblackgauntlets
p.setownership
elseif r3.getisID "leatherhelmet"
set p to placeatme craftybitsblackhelmet
p.setownership
endif
endif
endif ; ------------------------------------
;END ARMORS
;BOWS ----------------------------------------------------- To be replaced
; if r3.getisid "craftybitswoodbow"
; if r2.getisid "craftybitshideglue"
; if r1.getisid "craftybitssinew"
; set p to placeatme craftybitssinewbackedbow
; p.setownership
; player.incrementplayerskilluse marksman 1 1
; elseif r1.getisID "craftybitsharradafiber"
; set p to placeatme craftybitsharradabow
; p.setownership
; player.incrementplayerskilluse marksman 1 2
; endif
; endif
; endif
;LAMINATED HIDES
if ((nameincludes hide r3||nameincludes pelt r3||nameincludes skin r3) && getobjecttype r3==27)
if r2.getisid "craftybitsresin"
if ((nameincludes hide r1||nameincludes pelt r1||nameincludes skin r1) && getobjecttype r1==27)
set p to placeatme craftybitslaminatedhide 1
p.setownership
player.incrementplayerskilluse armorer 1 1
endif
endif
endif
;Arrows
if r3.getisid "craftybitsarrowshafts"
if r2.getisid "craftybitshideglue"
if r1.getisid "craftybitsironarrowheads"
set p to player.additem arrow1iron 10
player.incrementplayerskilluse marksman 1 1
; r3.activate craftybitsgarbagemanp
; r2.activate craftybitsgarbagemanp
; r1.activate craftybitsgarbagemanp
elseif r1.getisid "craftybitsboneheads"
set p to player.additem craftybitsbonearrows 10
player.incrementplayerskilluse marksman 1 2
elseif r1.getisid "craftybitssteelarrowheads"
set p to player.additem arrow2steel 10
player.incrementplayerskilluse marksman 1 2
elseif r1.getisID "craftybitssilverarrowheads"
set p to player.additem arrow3silver 10
player.incrementplayerskilluse marksman 1 2
elseif r1.getisID "craftybitsdwarvenarrowheads"
set p to player.additem arrow4dwarven 10
player.incrementplayerskilluse marksman 1 3
elseif r1.getisID "craftybitselvenarrowheads"
set p to player.additem arrow5elven 10
player.incrementplayerskilluse marksman 1 3
elseif r1.getisID "craftybitsglassarrowheads"
set p to player.additem arrow6glass 10
player.incrementplayerskilluse marksman 1 4
elseif r1.getisID "craftybitsebonyarrowheads"
set p to player.additem arrow7ebony 10
player.incrementplayerskilluse marksman 1 4
endif
endif
endif
endif
endif
if p!=0
; p.setownership
if r3!=0
r3.activate craftybitsgarbagemanp
endif
if r2!=0
r2.activate craftybitsgarbagemanp
endif
if r1!=0
r1.activate craftybitsgarbagemanp
endif
set r3 to 0
set r2 to 0
set r1 to 0
set p to 0
set reset to 0
elseif r1!=0
set r to r1
set r1 to r2
set r2 to r
endif
set messaged to 0
end
Begin OnDrop Player
set inventory to 0
END
Begin OnAdd
set inventory to -1
END
Begin OnLoad
set inventory to 0
END
Begin OnActivate
if inventory == 0
if player.issneaking == 1
activate player
set inventory to -1
else
Message "La planche d'artisanat est prête à être utilisé."
set inventory to 1
endif
elseif inventory == 1
if player.issneaking == 1
activate player
set inventory to -1
else
Message "Accroupissez-vous pour ramassez la planche d'artisanat."
endif
endif
END
) et puissent faire un bon test 
