Public feed #527803

Someone

public text v1 · immutable
Raw Edit
·published 2007-06-01 12:47 UTC
rendered paste body
compare { if (& !isin $2-) { notice $nick 6You must compare the two items using a7 & { halt } }
  { if ($3 == &) { 
      /set %items $2
      /set %items2 $4-
    }
    { if ($4 == &) {
        /set %items $2-3
        /set %items2 $5-
      }
      { if ($5 == &) { 
          /set %items $2-5
          /set %items2 $6-
        }
        { if ($6 == &) { 
            /set %items $2-5
            /set %items2 $7-
          }
          { if ($7 == &) { 
              /set %items $2-6
              /set %items2 $8-
            }
            { if ($read(attbonus.txt,w,$+(*,%items,*))) { /set %attack1 $replace($ifmatch,|,7|6,||, ) | if ($read(defbonus.txt,w,$+(*,%items,*))) /set %defence1 $replace($ifmatch,|, 7|6,||, ) | if ($read(otherbonus.txt,w,$+(*,%items,*))) /set %other1 $replace($ifmatch,|, 7|6,||, )
                if ($read(attbonus.txt,w,$+(*,%items,*))) { /set %attack2 $replace($ifmatch,|,7|6,||, ) | if ($read(defbonus.txt,w,$+(*,%items,*))) /set %defence2 $replace($ifmatch,|, 7|6,||, ) | if ($read(otherbonus.txt,w,$+(*,%items,*))) /set %other2 $replace($ifmatch,|, 7|6,||, )
                  { 
                    /set %attack1 $remove(%attack1,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %attack1 $remove(%attack1,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %attack2 $remove(%attack2,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %defence1 $remove(%defence1,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %defence2 $remove(%defence2,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %other1 $remove(%other1,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                    /set %other2 $remove(%other2,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(124),$chr(58))
                  }
                  { /msg $$active 6Compare Bonuses for7 $1- }
                  { /msg $$active 7[6Attack Differences7]6 Stab7:6 $calc($remove(%attack1,$2-) - $remove(%attack2,$2-)) 7|6 Slash7:6 $calc($remove(%attack1,$1,$3-) - $remove(%attack2,$1,$3-)) 7|6 Crush7:6 $calc($remove(%attack1,$1-2,$4-) - $remove(%attack2,$1-2,$4-)) 7|6 Magic7:6 $calc($remove(%attack1,$1-3,$5-) - $remove(%attack2,$1-3,$5-)) 7|6 Range7:6 $calc($remove(%attack1,$1-4,$6-) - $remove(%attack2,$1-4,$6-)) }
                  { /msg $$active 7[6Defence Differences7]6 Stab7:6 $calc($remove(%defence1,$2-) - $remove(%defence2,$2-)) 7|6 Slash7:6 $calc($remove(%defence1,$1,$3-) - $remove(%defence2,$1,$3-)) 7|6 Crush7:6 $calc($remove(%defence1,$1-2,4-) - $remove(%defence2,$1-2,$4-)) 7|6 Magic7:6 $calc($remove(%defence1,$1-3,$5-) - $remove(%defence2,$1-3,$5-)) 7|6 Range7:6 $calc($remove(%defence1,$1-4,$6-) - $remove(%defence2,,$1-4,$6-)) }
                  { /msg $$active 7[6Other Differences7]6 Strength7:6 $calc($remove(%other1,$2-) - $remove(%other2,$2-)) 7|6 Prayer7:6 $calc($remove(%other1,$1,$3-) - $remove(%other2,$1,$3-)) }
                }
              }
            }
          }
        }
      }
    }
  }
}