Anonymous

ok, this first script works, although the layout it returns isn't nice (no +'s and all the same colour), but it works.


-----------------

compare { if ($2 == &) { 
    /set %items $1
    /set %items2 $3-
  }
  else if ($3 == &) { 
    /set %items $1-2
    /set %items2 $4-
  }
  else if ($4 == &) {
    /set %items $1-3
    /set %items2 $5-
  }
  else if ($5 == &) { 
    /set %items $1-4
    /set %items2 $6-
  }
  else if ($6 == &) { 
    /set %items $1-5
    /set %items2 $7-
  }
  else if ($7 == &) { 
    /set %items $1-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,$+(*,%items2,*))) { /set %attack2 $replace($ifmatch,|,7|6,||, ) | if ($read(defbonus.txt,w,$+(*,%items2,*))) /set %defence2 $replace($ifmatch,|, 7|6,||, ) | if ($read(otherbonus.txt,w,$+(*,%items2,*))) /set %other2 $replace($ifmatch,|, 7|6,||, )
        { 
          /set %att1 $strip($regsubex(%attack1,/[a-z:|]/gi,$null))
          /set %att2 $strip($regsubex(%attack2,/[a-z:|]/gi,$null))
          /set %def1 $strip($regsubex(%defence1,/[a-z:|]/gi,$null))
          /set %def2 $strip($regsubex(%defence2,/[a-z:|]/gi,$null))
          /set %oth1 $strip($regsubex(%other1,/[a-z:|]/gi,$null))
          /set %oth2 $strip($regsubex(%other2,/[a-z:|]/gi,$null))
          /set %thing1.1 $strip($regsubex(%attack1,/[0-9:|+-]/gi,$null))
          /set %thing1.2 $remove(%thing1.1,slash,stab,crush,magic,range)
          /set %thing2.1 $strip($regsubex(%attack2,/[0-9:|+-]/gi,$null))
          /set %thing2.2 $remove(%thing2.1,slash,stab,crush,magic,range)
        }
        { //tokenize 32 %att1
          /set %stab1.1 $1
          /set %slash1.1 $2
          /set %crush1.1 $3
          /set %mage1.1 $4
          /set %range1.1 $5
        }
        {
          //tokenize 32 %att2
          /set %stab1.2 $1
          /set %slash1.2 $2
          /set %crush1.2 $3
          /set %mage1.2 $4
          /set %range1.2 $5
        }
        {
          //tokenize 32 %def1
          /set %stab2.1 $1
          /set %slash2.1 $2
          /set %crush2.1 $3
          /set %mage2.1 $4
          /set %range2.1 $5
        }
        {
          //tokenize 32 %def2
          /set %stab2.2 $1
          /set %slash2.2 $2
          /set %crush2.2 $3
          /set %mage2.2 $4
          /set %range2.2 $5
        }
        {
          //tokenize 32 %oth1
          /set %strength1.1 $1
          /set %prayer1.1 $2
        }
        {
          //tokenize 32 %oth2
          /set %strength1.2 $1
          /set %prayer1.2 $2
        }
        { /msg $$chan 6Compare Bonuses for7 %thing1.2 6and7 %thing2.2 }
        { /msg $$chan 7[6Attack Differences7]6 Stab7:6 $calc(%stab1.1 - %stab1.2) 7|6 Slash7:6 $calc(%slash1.1 - %slash1.2) 7|6 Crush7:6 $calc(%crush1.1 - %crush1.2) 7|6 Magic7:6 $calc(%mage1.1 - %mage1.2) 7|6 Range7:6 $calc(%range1.1 - %range1.2) }
        { /msg $$chan 7[6Defence Differences7]6 Stab7:6 $calc(%stab2.1 - %stab2.2) 7|6 Slash7:6 $calc(%slash2.1 - %slash2.2) 7|6 Crush7:6 $calc(%crush2.1 - %crush2.2) 7|6 Magic7:6 $calc(%mage2.1 - %mage2.2) 7|6 Range7:6 $calc(%range2.1 - %range2.2) }
        { /msg $$chan 7[6Other Differences7]6 Strength7:6 $calc(%strangth1.1 - %strength1.2) 7|6 Prayer7:6 $calc(%prayer1.1 - %prayer1.2) }
      }
    }
  }
  else { /notice $nick $1- Isn't in my database } 
}

---------------




I attempted to make it have different colours depening on whether it is positive, negative or 0, but now it sets all the values the same.

-------------------

compare { if ($2 == &) { 
    /set %items $1
    /set %items2 $3-
  }
  else if ($3 == &) { 
    /set %items $1-2
    /set %items2 $4-
  }
  else if ($4 == &) {
    /set %items $1-3
    /set %items2 $5-
  }
  else if ($5 == &) { 
    /set %items $1-4
    /set %items2 $6-
  }
  else if ($6 == &) { 
    /set %items $1-5
    /set %items2 $7-
  }
  else if ($7 == &) { 
    /set %items $1-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,$+(*,%items2,*))) { /set %attack2 $replace($ifmatch,|,7|6,||, ) | if ($read(defbonus.txt,w,$+(*,%items2,*))) /set %defence2 $replace($ifmatch,|, 7|6,||, ) | if ($read(otherbonus.txt,w,$+(*,%items2,*))) /set %other2 $replace($ifmatch,|, 7|6,||, )
        { 
          /set %att1 $strip($regsubex(%attack1,/[a-z:|]/gi,$null))
          /set %att2 $strip($regsubex(%attack2,/[a-z:|]/gi,$null))
          /set %def1 $strip($regsubex(%defence1,/[a-z:|]/gi,$null))
          /set %def2 $strip($regsubex(%defence2,/[a-z:|]/gi,$null))
          /set %oth1 $strip($regsubex(%other1,/[a-z:|]/gi,$null))
          /set %oth2 $strip($regsubex(%other2,/[a-z:|]/gi,$null))
          /set %thing1.1 $strip($regsubex(%attack1,/[0-9:|+-]/gi,$null))
          /set %thing1.2 $remove(%thing1.1,slash,stab,crush,magic,range)
          /set %thing2.1 $strip($regsubex(%attack2,/[0-9:|+-]/gi,$null))
          /set %thing2.2 $remove(%thing2.1,slash,stab,crush,magic,range)
        }
        { //tokenize 32 %att1
          /set %stab1.1 $1
          /set %slash1.1 $2
          /set %crush1.1 $3
          /set %mage1.1 $4
          /set %range1.1 $5
        }
        {
          //tokenize 32 %att2
          /set %stab1.2 $1
          /set %slash1.2 $2
          /set %crush1.2 $3
          /set %mage1.2 $4
          /set %range1.2 $5
        }
        {
          //tokenize 32 %def1
          /set %stab2.1 $1
          /set %slash2.1 $2
          /set %crush2.1 $3
          /set %mage2.1 $4
          /set %range2.1 $5
        }
        {
          //tokenize 32 %def2
          /set %stab2.2 $1
          /set %slash2.2 $2
          /set %crush2.2 $3
          /set %mage2.2 $4
          /set %range2.2 $5
        }
        {
          //tokenize 32 %oth1
          /set %strength1.1 $1
          /set %prayer1.1 $2
        }
        {
          //tokenize 32 %oth2
          /set %strength1.2 $1
          /set %prayer1.2 $2
        }
        if ($calc(%stab1.1 - %stab1.2) == 0) { 
          /set %stab1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%stab1.1 - %stab1.2) > 0) { 
          /set %stab1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%stab1.1 - %stab1.2) < 0) { 
          /set %stab1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash1.1 - %slash1.2) == 0) { 
          /set %slash1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash1.1 - %slash1.2) > 0) { 
          /set %slash1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash1.1 - %slash1.2) < 0) { 
          /set %slash1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush1.1 - %crush1.2) == 0) { 
          /set %crush1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush1.1 - %crush1.2) > 0) { 
          /set %crush1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush1.1 - %crush1.2) < 0) { 
          /set %crush1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage1.1 - %mage1.2) == 0) { 
          /set %mage1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage1.1 - %mage1.2) > 0) { 
          /set %mage1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage1.1 - %mage1.2) < 0) { 
          /set %mage1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range1.1 - %range1.2) == 0) { 
          /set %range1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range1.1 - %range1.2) > 0) { 
          /set %range1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range1.1 - %range1.2) < 0) { 
          /set %range1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%stab2.1 - %stab2.2) == 0) { 
          /set %stab2.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%stab2.1 - %stab2.2) > 0) { 
          /set %stab2.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%stab2.1 - %stab2.2) < 0) { 
          /set %stab2.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash2.1 - %slash2.2) == 0) { 
          /set %slash2.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash2.1 - %slash2.2) > 0) { 
          /set %slash2.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%slash2.1 - %slash2.2) < 0) { 
          /set %slash2.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush2.1 - %crush2.2) == 0) { 
          /set %crush2.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush2.1 - %crush2.2) > 0) { 
          /set %crush2.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%crush2.1 - %crush2.2) < 0) { 
          /set %crush2.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage2.1 - %mage2.2) == 0) { 
          /set %mage2.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage2.1 - %mage2.2) > 0) { 
          /set %mage2.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%mage2.1 - %mage2.2) < 0) { 
          /set %mage2.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range2.1 - %range2.2) == 0) { 
          /set %range2.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range2.1 - %range2.2) > 0) { 
          /set %range2.3 3+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%range2.1 - %range2.2) < 0) { 
          /set %range2.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%strength1.1 - %strength1.2) == 0) { 
          /set %strength1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%strength1.1 - %strength1.2) > 0) { 
          /set %strength1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%strength1.1 - %strength1.2) < 0) { 
          /set %strength1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%prayer1.1 - %prayer1.2) == 0) { 
          /set %prayer1.3 12 $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%prayer1.1 - %prayer1.2) > 0) { 
          /set %prayer1.3 03+ $+ $calc(%stab1.1 - %stab1.2)
        }
        if ($calc(%prayer1.1 - %prayer1.2) < 0) { 
          /set %prayer1.3 04 $+ $calc(%stab1.1 - %stab1.2)
        }
        { /msg $$chan 6Compare Bonuses for7 %thing1.2 6and7 %thing2.2 }
        { /msg $$chan 7[6Attack Differences7]6 Stab7: %stab1.3  7|6 Slash7: %slash1.3 7|6 Crush7: %crush1.3 7|6 Magic7: %mage1.3 7|6 Range7: %range1.3 }
        { /msg $$chan 7[6Defence Differences7]6 Stab7: %stab2.3 7|6 Slash7: %slash2.3 7|6 Crush7: %crush2.3 7|6 Magic7: %mage2.3 7|6 Range7: %range2.3 }
        { /msg $$chan 7[6Other Differences7]6 Strength7: %strength1.3 7|6 Prayer7: %prayer1.3 }
      }
    }
  }
  else { /notice $nick $1- Isn't in my database } 
}

----------------



If theres any huge mistakes in the second one which makes it mess up, please tell me, and I'm sure all I did was add in an extra /set %attack1.3 etc, which shouldn't mess up the whole script.


Thanks