CraftyBits

[Tenzaku]

essai déjà avec ça:

scn CLSForgeSummonScript

short bDoOnce
short CurX
short CurY
short CurZ
short CurAngle
ref myForge
ref myCook
ref myCook2
ref myGrill
ref myHook
ref myHook2
ref myBox
ref forge

short FSCurZ

; short IsFireLit
ref TheLogs

begin GameMode
if bDoOnce == 0
set CurX to GetPos x
set CurY to GetPos y
set CurZ to GetPos z
set CurAngle to GetAngle z

set forge to GetSelf

set bDoOnce to 1
endif
end

begin OnActivate
if player.IsSneaking == 0 ;Summon Forge
set myForge to PlaceAtMe craftybitssmallforge 1 0 0
myForge.SetPos x CurX
myForge.SetPos y CurY
myForge.SetPos z CurZ

myForge.SetAngle x 0
myForge.SetAngle y 0
myForge.SetAngle z 0

myForge.MoveTo Player

myForge.SetPos x CurX
myForge.SetPos y CurY
myForge.SetPos z CurZ

; myForge.Enable
forge.disable


;CLS Added spit mesh
; set myCook2 to PlaceAtMe craftybitsfirespit 1 0 0
; set FSCurZ to (CurZ-45)
; myCook2.SetPos x CurX
; myCook2.SetPos y CurY
; myCook2.SetPos z CurZ
;
; myCook2.SetAngle x 0
; myCook2.SetAngle y 0
; myCook2.SetAngle z 0
; myCook2.SetScale 1
;
; myCook2.MoveTo Player
;
; myCook2.SetPos x CurX
; myCook2.SetPos y CurY
; myCook2.SetPos z CurZ
; myCook2.SetScale .6
;
; myCook2.MoveTo myForge -18 -4 0
; myCook2.SetAngle x 0
; myCook2.SetAngle y 0
; myCook2.SetAngle z -10.5

; Double checks that the fire is disabled. May be unnecessary
myForge.Disable
myforge.poscell craftybitsjunkyard 0, 0, 0, 0,
; myforge.activate craftybitsgarbagemanp

else
player.AddItem "CLSForgePlacer" 1
forge.Disable
forge.poscell craftybitsjunkyard 0, 0, 0, 0,
; forge.activate craftybitsgarbagemanp

; Double checks that the fire is disabled. May be unnecessary
myForge.Disable
myforge.poscell craftybitsjunkyard 0, 0, 0, 0,
; Return
else
Message "I wonder what's up?"
; Return
end

un "endif" suivi de "else" je trouve ça hyper marrant sans if avant...
De même pas de "endif" après un else, else ne créé pas de bloc "if/endif" seul le "if" débute un bloc de ce type.
Pour les positionnement de cell il me semble qu'on entre le nom de la cell PUIS les coordonnées... Si ça marche pas inverse à nouveau.

(appeler beer pour si peu... tssssss)

[ViveLilou18^^]

Super merci Tenz' !
J'ai aussi dû enlever un endif à la fin du script à la ligne 99, mais ça marche, merci beaucoup
Si j'ai un autre problème, je vous le dit

[ViveLilou18^^]

Bon, je suis en vacs plus tôt que prévu.
Je vais me mettre sur Crafty de sorte qu'il soit sorti à Noël (j'espère !)
Enfin bref, Xan va m'aider un peu.
Merci aussi à Scarabee pour son dico, je vais pouvoir travailler le soir

Sinon je recherche 3 testeurs. Mais je souhaiterais si possible que ces testeurs soient libre pendant cette période (pas partir en vacs quoi ) et puissent faire un bon test
Enfin bref, Natindo, peut être Xan, plus trois autres personnes ... et moi

Merci à tous

[Nuros]

Etant en vacances depuis quelques jours, je veux bien être testeur !

[ViveLilou18^^]

Très bien, plus que deux testeurs ?

[Natindo]

Bon, je me remets à la trad' de bouquins...

[ViveLilou18^^]

J'ai vu Xan ce matin, et ça sera chaud pour Noël.
Donc, j'espère que ça sera bon pour le réveillon

[ViveLilou18^^]

Alors, encore au moins un testeur
Sinon, mise à jour de la progression.

[ViveLilou18^^]

Une vraie description a enfin été rajoutée !!

[Xan]

Voilà j'ai un problème avec un script, j'ai ce message d'erreur :
Script 'Craftybitscraftingboard' , line 986:
MAX_SCRIPT_SIZE exceeded.
Compiled script not saved

Voici le script :

► 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

Voila j'espère que vous pourrez m'aider
a+