# Screwban Module
# Designed by TechnoIce
# Version 4 

alias screwem {
  userhost $0 -cmd ^assign suser $$3
  userhost $0 -cmd ^assign shost $$4
  wait -cmd doittoem
}
alias sba0 ^assign sbc *
alias sba1 ^assign sbc ?
alias sba2 ^assign sbc *
alias sba3 ^assign sbc ?
alias doittoem {
  ^assign at1 @
  ^assign scnt1 0
  ^assign scnt2 1
  ^assign scnt3 0
  ^assign scnt4 0
  ^assign vfield1 suser1
  ^assign vfield2 suser2
  ^assign vfield3 suser
  ^assign vfield4 $@suser
  ^assign suser1 *!*
  ^assign suser2 *!*?
  ^assign shost2 ?
  ^assign shost1 {}
  ^echo $srand($time())
  while (scnt3 != 2){
    while (scnt2 != vfield4){
      if (scnt4 == 0){
        ^assign tmp1 $mid($scnt1 1 $($vfield3))
        ^assign tmp2 $mid($scnt2 1 $($vfield3))
      }{
        sba$rand(4)
        ^assign tmp1 $sbc
        ^assign tmp2 $sbc
      }
      @ scnt1 = scnt1+1
      @ scnt2 = scnt2+1
      if (scnt4 == 0) {^assign scnt4 1}{^assign scnt4 0} 
      ^assign $(vfield1) $($vfield1)$tmp1
      ^assign $(vfield2) $($vfield2)$tmp2
    }
    if (scnt4 == 0) {
      ^assign tmp1 $mid($scnt1 1 $($vfield3))
    }{
      ^assign tmp1 $sbc
    }
    ^assign $(vfield1) $($vfield1)$tmp1
    ^assign scnt1 0
    ^assign scnt2 1
    ^assign scnt4 0
    ^assign vfield1 shost1
    ^assign vfield2 shost2
    ^assign vfield3 shost
    ^assign vfield4 $@shost
    @ scnt3 = scnt3+1
  }
  ^alias banit0 mode * +b $suser1$at1$shost1  
  ^alias banit1 mode * +b $suser1$at1$shost2
  ^alias banit2 mode * +b $suser2$at1$shost1 
  ^alias banit3 mode * +b $suser2$at1$shost2
  banit$rand(3)
}
echo *** Loaded screwban code.
