STAK K     '0}0 V""""""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APPon Startup go to card "startup card" end Startup on openCard Send colorMe to this card pass openCard end openCard on closeCard lock screen pass closeCard end closeCard on colorMe AddColor colorCard,stamp,5 end colorMe on openStack AddColor install pass openStack end openStack on closeStack AddColor remove pass closeStack end closeStack MASTPTWZڨLIST `e PAGE  8~wܿ"l(!$"0A d[;<@BKGD@Armor`BKGD@startup background( CARD@ $5H&.s Skull&/%s Face(! title1(F title2$xAP(,Weight&0(9s Neck&c-Cost(J1] title1(1 title1( ^q title1*!<Ms Shoulders,"w Upper Arms(#w% Elbows,$(w9 Lower Arms&%<wM Hands&&^ Chest('%^ Abdomen&((9^ Hips&)<M^ Groin(*c Thighs&+c% Knees(,(c9 Calves&-<cM Feet^8_ Aligneron mouseUp put the bottom of card button 1 into b put the top of card button 1 into t put the left of card button 1 into l put the right of card button 1 into r repeat with i = 2 to 4 set the rect of card button i to the rect of card button 1 set the top of card button i to (i-2)*20+b+3 end repeat repeat with i = 5 to 8 set the rect of card button i to the rect of card button 1 set the top of card button i to (i-6)*20+b+3 set the left of card button i to r+4 end repeat repeat with i = 9 to 12 set the rect of card button i to the rect of card button 1 set the top of card button i to (i-10)*20+b+3 set the left of card button i to r+r+3+4 end repeat repeat with i = 13 to 16 set the rect of card button i to the rect of card button 1 set the top of card button i to (i-14)*20+b+3 set the left of card button i to r+r+r+3+3+4 end repeat set the rect of card button "Runequest Armor Types" to the rect of card button "Shadowrun Armor Types" set the rect of card button "Runequest Locations Covered" to the rect of card button "Shadowrun Locations Covered" end mouseUpW Shadowrun Armoron mouseUp set the visible of card button "Shadowrun Armor types" to true set the visible of card button "Shadowrun locations covered" to true set the visible of card button "Harnic Armor types" to false set the visible of card button "Ivinian Armor types" to false set the visible of card button "Runequest locations covered" to false pass mouseUp end mouseUp  Ivinian Armoron mouseUp set the visible of card button "Shadowrun Armor types" to false set the visible of card button "Shadowrun locations covered" to false set the visible of card button "Harnic Armor types" to false set the visible of card button "Ivinian Armor types" to true set the visible of card button "Runequest locations covered" to true pass MouseUp end mouseUp4 7  Ivinian Armor Types65  Runequest locations coveredon mouseUp repeat with i = 1 to 16 --clear out old stuff set the highlight of card button i to false end repeat put the selectedtext of me into garment if garment is "Helm" then repeat with i = 1 to 3 set the highlight of card button i to true end repeat end if if garment is "Coif" then set the highlight of card button 1 to true set the highlight of card button 3 to true end if if garment is "Hauberk" then repeat with i = 4 to 5 set the highlight of card button i to true end repeat repeat with i = 9 to 13 set the highlight of card button i to true end repeat end if if garment is "Shirt" then repeat with i = 3 to 7 set the highlight of card button i to true end repeat repeat with i = 9 to 10 set the highlight of card button i to true end repeat end if if garment is "Pants" then repeat with i = 11 to 15 set the highlight of card button i to true end repeat end if if garment is "Full Suit" then repeat with i = 1 to 16 set the highlight of card button i to true end repeat end if if garment is "Byrnie" then repeat with i = 9 to 10 set the highlight of card button i to true end repeat end if pass MouseUp end mouseUp6 7  Shadowrun Armor Types65  Shadowrun locations coveredon mouseUp repeat with i = 1 to 16 --clear out old stuff set the highlight of card button i to false end repeat put the selectedtext of me into garment if garment is "Jump Suit" then repeat with i = 3 to 7 set the highlight of card button i to true end repeat repeat with i = 9 to 15 set the highlight of card button i to true end repeat end if if garment is "Shirt" then repeat with i = 3 to 7 set the highlight of card button i to true end repeat repeat with i = 9 to 10 set the highlight of card button i to true end repeat end if if garment is "Pants" then repeat with i = 11 to 15 set the highlight of card button i to true end repeat end if if garment is "Duster" then repeat with i = 3 to 7 set the highlight of card button i to true end repeat repeat with i = 9 to 14 set the highlight of card button i to true end repeat end if if garment is "Vest" then repeat with i = 9 to 10 set the highlight of card button i to true end repeat end if pass MouseUp end mouseUp(1 title5(2 PC Sizef30 Edit Tableson mouseUp push card go to card "Armor Tables" end mouseUp4Q Harnic Armoron mouseUp set the visible of card button "Shadowrun Armor types" to false set the visible of card button "Shadowrun locations covered" to false set the visible of card button "Ivinian Armor types" to false set the visible of card button "Harnic Armor types" to true set the visible of card button "Runequest locations covered" to true pass MouseUp end mouseUp45 7  Harnic Armor TypesLeather Clothing Heavy Leather Clothing Synth Leather Molded Plastiderm ClearPlast Light Kevlar - Disguised Light Kevlar - Obvious Heavy Kevlar - Disguised Heavy Kevlar - Obvious Plasteel Fineweave Plasteel Weave Light Plasteel Light Plasteel - Disguised Normal Plasteel Normal Plasteel - Disguised Heavy Plasteel Heavy Plasteel - Disguised Security Spec. 1 Security Spec. 2 Military Spec. 1 Military Spec. 2Iv. Cloth Iv. Soft Leather Iv. Hard Leather Iv. Quilting/Fur Iv. Cuirboilli Iv. Soft Leather Bezainted Iv. Hard Leather Bezainted Iv. Soft Leather Ringmail Iv. Hard Leather Ringmail Iv. Hardwood Lamellar Iv. Cuirboilli Lamellar Iv. Bone Lamellar Iv. Metal Lamellar Iv. Hard Leather Scale Iv. Cuirboilli Scale Iv. Bone Scale Iv. Metal Scale Iv. Chainmail Iv. Barmail Iv. Augment Mail Iv. Combined Mail Iv. Plate Iv. Bone Brigandine Iv. Metal Brigandine(Shirt Pants Duster Vest Jump Suit Clear5Helm Coif Hauberk Byrnie Full Suit Shirt Pants Clear Armor TypesGarments/CoverageCostWeight ProtectionEnter PC Size>>>9 2.9 Kilos 142 PenniesArmor Value - 1Hn. Cloth Hn. Soft Leather Hn. Hard Leather Hn. Quilting/Fur Hn. Cuirboilli Hn. Soft Leather Bezainted Hn. Hard Leather Bezainted Hn. Quilted Bezainted Hn. Soft Leather Ringmail Hn. Hard Leather Ringmail Hn. Quilted Ringmail Hn. Hard Leather Scale Hn. Bone Scale Hn. Cuirboilli Scale Hn. Metal Scale Hn. Chainmail Hn. Barmail Hn. Augment Mail Hn. Combined Mail Hn. Plate Hn. Metal Brigandine Hn. Bone Brigandine Hn. Cuirboilli Lamellar Hn. Bone Lamellar Hn. Metal LamellarShadowrun ArmorOn MouseUp Calculate End MouseUp on Calculate --calculate the cost and weight of the armor lock screen set lockmessages to true --get the PC's size put card field "PC Size" into size if the highlight of card button "Shadowrun Armor" is true then put the selectedtext of card button "Shadowrun Armor Types" into armortype end if if the highlight of card button "Harnic Armor" is true then put the selectedtext of card button "Harnic Armor Types" into armortype end if if the highlight of card button "Ivinian Armor" is true then put the selectedtext of card button "Ivinian Armor Types" into armortype end if push card --save where we are --go get the values for this armor find whole armortype in card field "Armor Names" of card "Armor Tables" put word 2 of the foundline into linenum put line linenum of card field "Weight" into weight put line linenum of card field "Cost" into cost put line linenum of card field "AP" into ap pop card --and bounce back there after the search moves us away --let's add up how much is covered put 0 into covered if the highlight of card button 1 then put covered + 4 into covered if the highlight of card button 2 then put covered + 3 into covered if the highlight of card button 3 then put covered + 2 into covered if the highlight of card button 4 then put covered + 3 into covered if the highlight of card button 5 then put covered + 6 into covered if the highlight of card button 6 then put covered + 2 into covered if the highlight of card button 7 then put covered + 5 into covered if the highlight of card button 8 then put covered + 5 into covered if the highlight of card button 9 then put covered + 12 into covered if the highlight of card button 10 then put covered + 12 into covered if the highlight of card button 11 then put covered + 9 into covered if the highlight of card button 12 then put covered + 1 into covered if the highlight of card button 13 then put covered + 14 into covered if the highlight of card button 14 then put covered + 3 into covered if the highlight of card button 15 then put covered + 12 into covered if the highlight of card button 16 then put covered + 7 into covered --ok, now covered holds the % of the body covered --do the actual calculations put (((size * .04) +.42) * weight * covered) into kilos put (size * .04 +.42) * cost * covered into nuyen put round(kilos*10)/10&&"Kilos" into card field "Weight" if the highlight of card button "Shadowrun Armor" then put round(nuyen)&&"Nuyen" into card field "Cost" else put round(nuyen)&&"Pennies" into card field "Cost" put "Armor Value - "into line 1 of card field "AP" put ap into line 2 of card field "AP" end Calculate on colorMe AddColor colorCard,fromLeft,10 end colorMe  CARD"@ \:\V0@openingon MouseUp go to card "Shadowrun Armor" end MouseUp 6 Shadowrun & Runequest Armor Generatorstartup card on colorMe AddColor colorCard,venetianBlindsVertical,30 end colorMe CARD@  0,N@ Armor names(N@ Weight&N@ Cost$N@ AP  scroll box upon mouseDown put theFields() into fieldList put the textHeight of item 1 of fieldList into baseLineSize put the number of items in fieldList into numItems repeat until the mouse is up get (scroll of last item of fieldList) - baseLineSize lock screen repeat with count = 1 to numItems set scroll of (item count of fieldList) to it end repeat unlock screen end repeat end mouseDown function theFields return "card field 1,card field 2,card field 3,card field 4" end theFields  M scroll box downon mouseDown put theFields() into fieldList put the textHeight of item 1 of fieldList into baseLineSize put the number of items in fieldList into numItems repeat until the mouse is up get (scroll of last item of fieldList) + baseLineSize lock screen repeat with count = 1 to numItems set scroll of (item count of fieldList) to it end repeat unlock screen end repeat end mouseDown function theFields return "card field 1,card field 2,card field 3,card field 4" end theFields "  Z / Returnon mouseUp go to card "Shadowrun Armor" end mouseUp$.14 .16 .26 .225 .03 .04 .055 .07 .055 .08 .09 .14 .10 .12 .17 .2 .11 .18 .26 .225 .240 .25 .25 .32 .11 .13 .03 .04 .055 .07 .055 .08 .09 .10 .12 .2 .11 .18 .26 .225 .240 .25 .25 .32 .04 .055 .04 .08 .07 .05 .05 .06 .06 .15 .21 .10 .10 .25 .25 .32 .32 .25 .3 .27 .32 .11 .13 .14 .16 .26 .22510.15 8.75 20.3 18.2 1.75 1.96 2.79 2.0 3.85 5.76 4.8 3.8 8.28 7.36 4.5 21 4.0 5.0 11.76 18 20.1 19.5 19.5 28.8 10.5 10.85 .5 .7 .9 1 1.1 1.2 1 3.6 3.2 6 1.1 1.2 4.2 6 6.7 6.5 6.5 8 10 15 3 12 15 7 5 12 9 300 200 100 250 300 500 400 700 500 700 600 800 3 3.1 2.9 2.5 5.8 5.25 5 7 6 0 1 2 2 3 4 4 4 5 5 5 6 4 5 6 7 8 8 8 9 4 5 0 1 2 2 3 4 4 5 5 6 4 5 6 7 8 8 8 9 1 2 1 4 3 5 Ballistic/1 Melee 5 Ballistic/1 Melee 7 Ballistic/1 Melee 7 Ballistic/1 Melee 6 8 3 3 8 8 12 12 12 15 14 16 4 5 5 5 7 6LHn. Bone Lamellar Hn. Bone Scale Hn. Metal Brigandine Hn. Bone Brigandine Hn. Cloth Hn. Soft Leather Hn. Hard Leather Hn. Quilting/Fur Hn. Cuirboilli Hn. Soft Leather Bezainted Hn. Hard Leather Bezainted Hn. Quilted Bezainted Hn. Soft Leather Ringmail Hn. Hard Leather Ringmail Hn. Quilted Ringmail Hn. Metal Lamellar Hn. Hard Leather Scale Hn. Cuirboilli Scale Hn. Metal Scale Hn. Chainmail Hn. Barmail Hn. Augment Mail Hn. Combined Mail Hn. Plate Hn. Hardwood Lamellar Hn. Cuirboilli Lamellar Iv. Cloth Iv. Soft Leather Iv. Hard Leather Iv. Quilting/Fur Iv. Cuirboilli Iv. Soft Leather Bezainted Iv. Hard Leather Bezainted Iv. Soft Leather Ringmail Iv. Hard Leather Ringmail Iv. Metal Lamellar Iv. Hard Leather Scale Iv. Cuirboilli Scale Iv. Metal Scale Iv. Chainmail Iv. Barmail Iv. Augment Mail Iv. Combined Mail Iv. Plate Leather Clothing Heavy Leather Clothing Synth Leather Molded Plastiderm Clearplast Light Kevlar - Disguised Light Kevlar - Obvious Heavy Kevlar - Disguised Heavy Kevlar - Obvious Plasteel Fineweave Plasteel Weave Light Plasteel Light Plasteel - Disguised Normal Plasteel Normal Plasteel - Disguised Heavy Plasteel Heavy Plasteel - Disguised Security Spec. 1 Security Spec. 2 Military Spec. 1 Military Spec. 2 Iv. Hardwood Lamellar Iv. Cuirboilli Lamellar Iv. Bone Lamellar Iv. Bone Scale Iv. Metal Brigandine Iv. Bone Brigandine^Armor Name Weight Cost AbsorptionArmor Tables on colorMe AddColor colorCard,fromRight,10 end colorMe `STBL $@FTBL ChicagoPalatinoHelvetica TAILNu r det slut