Difference for lib/artifacts from version 1.38 to 1.39

version 1.38 version 1.39
Line 290
 
Line 290
 stand_still 1  stand_still 1
 end  end
 #  #
 Just to fix probability some.  # Just to fix probability some.
 Allowed orc,goblin,ogre,gnoll,beholder  Allowed orc,goblin,ogre,gnoll,beholder
 chance 20  chance 20
 Object NONE  Object NONE
 end  end
   
   
 #  #
 # Weapons:  # Weapons:
 #  #
Line 632
 
Line 630
   The Ancient School of Occidental Mages created that weapon during    The Ancient School of Occidental Mages created that weapon during
   the Empire Wars, charging it with their Chaotic Powers.    the Empire Wars, charging it with their Chaotic Powers.
 endmsg  endmsg
 start_script_attack  
 (define rresult (random 100));  
 (if (<= rresult 1)  
   (begin  
     (crossfire-message "Your weapon suddenly seems lighter !")  
     (set-damage (who-am-I) (+ 10 (get-damage (who-am-I))))  
     (set-identified (who-am-I) #f)  
     (set-been-applied (who-am-I) #f)  
   )  
   (if (<= rresult 2)  
     (begin  
       (crossfire-message "Your weapon suddenly seems darker !")  
       (set-damage (who-am-I) (- (get-damage (who-am-I)) 10))  
       (set-identified (who-am-I) #f)  
       (set-been-applied (who-am-I) #f)  
     )  
     (if (<= rresult 3)  
       (begin  
         (crossfire-message "Your weapon suddenly seems to become colder !")  
         (set-attack-type (who-am-I) (+ (attack-type-physical) (attack-type-cold)))  
         (set-identified (who-am-I) #f)  
         (set-been-applied (who-am-I) #f)  
       )  
       (if (<= rresult 4)  
         (begin  
           (crossfire-message "Your weapon suddenly seems to become warmer !")  
           (set-attack-type (who-am-I) (+ (attack-type-physical) (attack-type-fire)))  
           (set-identified (who-am-I) #f)  
           (set-been-applied (who-am-I) #f)  
         )  
         (if (<= rresult 5)  
           (begin  
             (crossfire-message "Your weapons emits sparks !")  
             (set-attack-type (who-am-I) (+ (attack-type-physical) (attack-type-electricity)))  
             (set-identified (who-am-I) #f)  
             (set-been-applied (who-am-I) #f)  
           )  
         )  
       )  
     )  
   )  
 )  
 end_script_attack  
 end  end
 #  #
 #  #
Line 1030
 
Line 985
 resist_physical 50  resist_physical 50
 resist_drain 100  resist_drain 100
 resist_ghosthit 60  resist_ghosthit 60
 resist fire 25  resist_fire 25
 resist cold 25  resist_cold 25
 glow_radius 1  glow_radius 1
 face holyshield.111  face holyshield.111
 msg  msg
Line 2054
 
Line 2009
   The Ancient School of Occidental Mages created that ring during    The Ancient School of Occidental Mages created that ring during
   the Empire Wars, charging it with their Chaotic Powers.    the Empire Wars, charging it with their Chaotic Powers.
 endmsg  endmsg
 start_script_apply  
   (define rresult (random 100))  
   (if (applied? (who-am-I))  
     (begin  
       (if (<= rresult 1)  
         (begin  
           (set-identified (who-am-I) #f)  
           (set-cursed (who-am-I) #t)  
           (set-dex (who-am-I) (+ 1 (get-dex (who-am-I))))  
         )  
         (if (<= rresult 2)  
           (begin  
             (set-identified (who-am-I) #f)  
             (set-cursed (who-am-I) #t)  
             (set-int (who-am-I) (+ 1 (get-int (who-am-I))))  
           )  
           (if (<= rresult 3)  
             (begin  
               (set-identified (who-am-I) #f)  
               (set-cursed (who-am-I) #t)  
               (set-wis (who-am-I) (+ 1 (get-wis (who-am-I))))  
             )  
             (if (>= rresult 99)  
               (begin  
                 (set-identified (who-am-I) #f)  
                 (set-cursed (who-am-I) #t)  
                 (set-dex (who-am-I) (- (get-dex (who-am-I)) 1))  
               )  
               (if (>= rresult 98)  
                 (begin  
                   (set-identified (who-am-I) #f)  
                   (set-cursed (who-am-I) #t)  
                   (set-int (who-am-I) (- (get-int (who-am-I)) 1))  
                 )  
                 (if (>= rresult 97)  
                   (begin  
                     (set-identified (who-am-I) #f)  
                     (set-cursed (who-am-I) #t)  
                     (set-wis (who-am-I) (- (get-wis (who-am-I)) 1))  
                   )  
                 )  
               )  
             )  
           )  
         )  
       )  
     )  
   )  
 end_script_apply  
 end  end
 #  #
 # Horns:  # Horns:

Legend:
line(s) removed in v.1.38 
line(s) changed
 line(s) added in v.1.39
File made using version 1.98 of cvs2html by leaf at 2011-07-21 18:39