DM SCRIPT
==========================================================================================


alias unsetdm {
  msg %dmchan Nobody has decided to DM %dmp1 within 30 seconds, the DM invitation is now closed.
  unset %dmp1 $nick
  unset %dmstart 1
  unset %dmchan $chan
}
alias stopdm {
  unset %dmstart
  unset %dmrun
  unset %hp*
  unset %food*
  unset %spec*
  unset %dmp*
  unset %dhp*
  unset %whp*
  unset %ghp*
  unset %turn
  unset %dmchan
}
alias switchturn {
  msg %dmchan $1 has not made an action in 30 seconds, it is now $2 $+ 's turn.
  set %turn $2
}
on *:TEXT:!dm:#:{
  if (%dmstart) && (!%dmrun) {
    if ($nick == %dmp1) {
      .notice $nick You may not fight yourself.
      /halt
    }
    /unset %dmstart
    .msg $chan $nick Has joined The dm against %dmp1
    /set %dmp2 $nick
    .msg $chan The fighters in this DM are %dmp1 and %dmp2
    .msg $chan Both fighters will recieve 20 sharks which heal 20 and start with the maximum of 99 HP
    /unset %dmstart
    /set %dmp2 $nick
    /set %dmrun 1
    /set %hp [ $+ [ %dmp1 ] ] 99
    /set %hp [ $+ [ %dmp2 ] ] 99
    /set %food [ $+ [ %dmp1 ] ] 20
    /set %food [ $+ [ %dmp2 ] ] 20
    /set %spec [ $+ [ %dmp1 ] ] 100
    /set %spec [ $+ [ %dmp2 ] ] 100
    /set %firstp $rand(1,2)
    if (%firstp == 1) {
      /set %turn %dmp1
      .msg $chan %dmp1 gets the first attack!
      /unset %firstp
    }
    if (%firstp == 2) {
      /set %turn %dmp2
      .msg $chan %dmp2 gets the first attack!
      /unset %firstp
    }
  }
  elseif (!%dmrun) {
    .msg $chan $nick Has initiated a DM! Type !dm to fight them.
    /set %dmp1 $nick
    /set %dmstart 1
    /set %dmchan $chan
    /.timerDm 1 30 unsetdm
  }
  else {
    .notice $nick Sorry, there is already a Dm running, please wait for that one to end.
  }
  if (%dmrun) {
    /.timerdm off
  }
}
on *:TEXT:!stopdm:#:{
  if ($nick == %dmp1) || ($nick == %dmp2) || ($nick isop %dmchan) || ($nick == Locke) {
    if (%dmstart) {
      msg $chan The Dm invitation has been closed by $nick $+ .
    }
    elseif (%dmrun) {
      msg $chan The Dm between %dmp1 and %dmp2 has been ended by $nick $+ .
    }
    else {
      .notice $nick There is no Dm to stop.
    }
    timerdm off
    stopdm
  }
}
on *:TEXT:!dmcommands:#:{
  .notice $nick !Whip Will attack your opponent with your whip.  It will also decrease your Special Energy by 25%. The max hit is 35.
  .notice $nick !Dds Will attack your opponent twice with a dds. It will also decrease your Special Energy by 25%. The max hit on each of the attacks is 25.
  .notice $nick !Gmaul Will attack your opponent three times with a granite maul. The max hit on each of the attacks is 20.
  .notice $nick !Eat Will eat a shark and increase your health by 100%.
  .notice $nick !Spec Will check your special energy bar.
  .notice $nick !Food Will check the amount of food you have left.
  .notice $nick !Stopdm will stop the Dm if you are a deathmatch player or an op in the channel.
}
on *:TEXT:!spec*:#:{
  if ($nick == %dmp1) {
    .notice $nick You have %spec [ $+ [ %dmp1 ] ] $+ % special energy left.
  }
  elseif ($nick == %dmp2) {
    .notice $nick You have %spec [ $+ [ %dmp2 ] ] $+ % special energy left.
  }
  else {
    .notice $nick You are not fighting in this Dm.
  }
}
on *:TEXT:!food*:#:{
  if ($nick == %dmp1) {
    .notice $nick You have %food [ $+ [ %dmp1 ] ] sharks left.
  }
  elseif ($nick == %dmp2) {
    .notice $nick You have %food [ $+ [ %dmp2 ] ] sharks left.
  }
  else {
    .notice $nick You are not fighting in this Dm.
  }
}
on *:TEXT:!eat*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp2 %dmp1
          if (%food [ $+ [ %dmp1 ] ] > 0) {
            set %hp [ $+ [ %dmp1 ] ] $calc(%hp [ $+ [ %dmp1 ] ] + 20)
            if (%hp [ $+ [ %dmp1 ] ] > 99) {
              set %hp [ $+ [ %dmp1 ] ] 99
            }
            dec %food [ $+ [ %dmp1 ] ] 1
            if (%spec [ $+ [ %dmp1 ] ] < 100) {
              inc %spec [ $+ [ %dmp1 ] ] 5
            }
            msg $chan $nick has eaten a shark. You now have $+ %hp [ $+ [ %dmp1 ] ] hp.
            .notice $nick You have %food [ $+ [ %dmp1 ] ] sharks left.
            msg $chan It is now %dmp2 $+ 's turn.
            set %turn %dmp2
          }
          else {
            .notice $nick Sorry, you have no food left to eat.
            set %turn %dmp2
            msg $chan  It is now %dmp2 $+ 's turn.
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp1 %dmp2
          if (%food [ $+ [ %dmp2 ] ] > 0) {
            inc %hp [ $+ [ %dmp2 ] ] 20
            if (%hp [ $+ [ %dmp2 ] ] > 99) {
              set %hp [ $+ [ %dmp2 ] ] 99
            }
            dec %food [ $+ [ %dmp2 ] ] 1
            if (%spec [ $+ [ %dmp2 ] ] < 100) {
              inc %spec [ $+ [ %dmp2 ] ] 5
            }
            msg $chan $nick has eaten a shark. You now have $+ %hp [ $+ [ %dmp2 ] ] hp.
            .notice $nick You have %food [ $+ [ %dmp2 ] ] sharks left.
            msg $chan It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
          else {
            .notice $nick Sorry, you have no food left to eat.
            set %turn %dmp1
            msg $chan  It is now %dmp1 $+ 's turn.
          }
        }
      }
    }
  }
}
on *:TEXT:!whip*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp2 %dmp1
          set %whp2 $rand(0,35)
          if (%whp2 < %hp [ $+ [ %dmp2 ] ]) {
            dec %hp [ $+ [ %dmp2 ] ] %whp2
            msg $chan %dmp1 has hit %dmp2 with their whip and has done %whp2 damage. %dmp2 has %hp [ $+ [ %dmp2 ] ] hp left.
            if (%spec [ $+ [ %dmp1 ] ] < 100) {
              inc %spec [ $+ [ %dmp1 ] ] 5
            }
            msg $chan It is now %dmp2 $+ 's turn.
            set %turn %dmp2
            unset %whp2
            halt
          }
          if (%whp2 > %hp [ $+ [ %dmp2 ] ]) {
            set %whp2 %hp [ $+ [ %dmp2 ] ]
            dec %hp [ $+ [ %dmp2 ] ] %whp2 
            msg $chan %dmp1 has hit a %whp2 with their whip leaving %dmp2 with %hp [ $+ [ %dmp2 ] ] hp. Congratulations %dmp1 $+ , you won the Dm!
            stopdm
            Halt
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp1 %dmp2
          set %whp1 $rand(0,35)
          if (%whp1 < %hp [ $+ [ %dmp1 ] ]) {
            dec %hp [ $+ [ %dmp1 ] ] %whp1
            msg $chan %dmp2 has hit %dmp1 with their whip and has done $+ %whp1 damage. %dmp1 has $+ %hp [ $+ [ %dmp1 ] ] hp left.
            if (%spec [ $+ [ %dmp2 ] ] < 100) {
              inc %spec [ $+ [ %dmp2 ] ] 5
            }
            msg $chan It is now %dmp1 $+ 's turn.
            set %turn %dmp1
            unset %whp1
            halt
          }
          if (%whp1 > %hp [ $+ [ %dmp1 ] ]) {
            set %whp1 %hp [ $+ [ %dmp1 ] ]
            dec %hp [ $+ [ %dmp1 ] ] %whp1
            msg $chan %dmp2 has hit a %whp1 with their whip leaving %dmp1 with %hp [ $+ [ %dmp1 ] ] hp. Congratulations %dmp2 $+ , you won the Dm!
            stopdm
            Halt
          }
        }
      }
    }
  }
  else {
    .notice $nick A DM is not running and thus you may not attack your opponent.
  }
}
on *:TEXT:!dds*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp2 %dmp1
          if (%spec [ $+ [ %dmp1 ] ] >= 25) {
            set %dhp1p2 $rand(0,25)
            set %dhp2p2 $rand(0,25)
            if ($calc(%dhp1p2 + %dhp2p2) < %hp [ $+ [ %dmp2 ] ]) {
              dec %hp [ $+ [ %dmp2 ] ] %dhp1p2
              dec %hp [ $+ [ %dmp2 ] ] %dhp2p2
              dec %spec [ $+ [ %dmp1 ] ] 25
              .notice $nick You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
              msg $chan %dmp1 has hit %dmp2 with their dds and has done %dhp1p2 and %dhp2p2 damage. %dmp2 has %hp [ $+ [ %dmp2 ] ] hp left.
              if (%spec [ $+ [ %dmp1 ] ] < 100) {
                inc %spec [ $+ [ %dmp1 ] ] 5
              }
              msg $chan It is now %dmp2 $+ 's turn.
              set %turn %dmp2
              unset %dhp1p2
              unset %dhp2p2
              halt
            }
            if ($calc(%dhp1p2 + %dhp2p2) >= %hp [ $+ [ %dmp2 ] ]) {
              set %dhp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
              set %dhp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
              dec %hp [ $+ [ %dmp2 ] ] %dhp1p2
              dec %hp [ $+ [ %dmp2 ] ] %dhp2p2
              msg $chan %dmp1 has hit a %dhp1p2 and %dhp2p2 on %dmp2 leaving %dmp2 with %hp [ $+ [ %dmp2 ] ] hp. Congratulations %dmp1 $+ , you won the Dm!
              stopdm
              Halt
            }
          }
          else {
            .notice $nick You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
            msg $chan It is now %dmp2 $+ 's turn.
            set %turn %dmp2
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp1 %dmp2
          if (%spec [ $+ [ %dmp2 ] ] >= 25) {
            set %dhp1p1 $rand(0,25)
            set %dhp2p1 $rand(0,25)
            if ($calc(%dhp1p1 + %dhp2p1) < %hp [ $+ [ %dmp1 ] ]) {
              dec %hp [ $+ [ %dmp1 ] ] %dhp2p1
              dec %hp [ $+ [ %dmp1 ] ] %dhp1p1
              dec %spec [ $+ [ %dmp2 ] ] 25
              .notice $nick You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
              msg $chan %dmp2 has hit %dmp1 with their dds and has done $+ %dhp1p1 and %dhp2p1 damage. %dmp1 has $+ %hp [ $+ [ %dmp1 ] ] hp left.
              if (%spec [ $+ [ %dmp2 ] ] < 100) {
                inc %spec [ $+ [ %dmp2 ] ] 5
              }
              msg $chan It is now %dmp1 $+ 's turn.
              set %turn %dmp1
              unset %dhp1p1
              unset %dhp2p1
              halt
            }
            if ($calc(%dhp1p1 + %dhp2p1) >= %hp [ $+ [ %dmp1 ] ]) {
              set %dhp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
              set %dhp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
              dec %hp [ $+ [ %dmp1 ] ] %dhp1p1
              dec %hp [ $+ [ %dmp1 ] ] %dhp2p1
              msg $chan %dmp2 has hit a %dhp1p1 and %dhp2p1 on %dmp1 leaving %dmp1 with %hp [ $+ [ %dmp1 ] ] hp. Congratulations %dmp2 $+ , you won the Dm!
              stopdm
              Halt
            }
          }
          else {
            .notice $nick You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
            msg $chan It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
        }
      }
    }
  }
  else {
    .notice $nick A DM is not running and thus you may not attack your opponent.
  }
}
on *:TEXT:!gmaul*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp2 %dmp1
          if (%spec [ $+ [ %dmp1 ] ] >= 100) {
            set %ghp1p2 $rand(0,20)
            set %ghp2p2 $rand(0,20)
            set %ghp3p2 $rand(0,20)
            if ($calc(%ghp1p2 + %ghp2p2 + %ghp3p2) < %hp [ $+ [ %dmp2 ] ]) {
              dec %hp [ $+ [ %dmp2 ] ] %ghp1p2
              dec %hp [ $+ [ %dmp2 ] ] %ghp2p2
              dec %hp [ $+ [ %dmp2 ] ] %ghp3p2
              dec %spec [ $+ [ %dmp1 ] ] 100
              .notice $nick You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
              msg $chan %dmp1 has hit %dmp2 with their granite maul and has done %ghp1p2 $+ , %ghp2p2 and %ghp3p2 damage leaving %dmp2 with %hp [ $+ [ %dmp2 ] ] hp.
              if (%spec [ $+ [ %dmp1 ] ] < 100) {
                inc %spec [ $+ [ %dmp1 ] ] 5
              }
              msg $chan It is now %dmp2 $+ 's turn.
              set %turn %dmp2
              unset %ghp1p2
              unset %ghp2p2
              unset %ghp3p2
              halt
            }
            if ($calc(%ghp1p2 + %ghp2p2 + %ghp3p2) >= %hp [ $+ [ %dmp2 ] ]) {
              set %ghpcv1 $rand(1,3)
              if (%ghpcv1 = 1) {
                set %ghp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp3p2 0
              }
              if (%ghpcv1 = 2) {
                set %ghp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp3p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp2p2 0
              }
              if (%ghpcv1 = 3) {
                set %ghp3p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp1p2 0
              }
              dec %hp [ $+ [ %dmp2 ] ] %ghp3p2
              dec %hp [ $+ [ %dmp2 ] ] %ghp2p2
              dec %hp [ $+ [ %dmp2 ] ] %ghp1p2
              msg $chan %dmp1 has hit %dmp2 with their granite maul and has done %ghp1p2 $+ , %ghp2p2 and %ghp3p2 damage. %dmp2 has %hp [ $+ [ %dmp2 ] ] hp left. Congratulations %dmp1 $+ , you won the Dm!
              stopdm
              Halt
            }
          }
          else {
            .notice $nick You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
            msg $chan It is now %dmp2 $+ 's turn.
            set %turn %dmp2
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 30 switchturn %dmp1 %dmp2
          if (%spec [ $+ [ %dmp2 ] ] = 100) {
            set %ghp1p1 $rand(0,20)
            set %ghp2p1 $rand(0,20)
            set %ghp3p1 $rand(0,20)
            if ($calc(%ghp1p1 + %ghp2p1 + %ghp3p1) < %hp [ $+ [ %dmp1 ] ]) {
              dec %hp [ $+ [ %dmp1 ] ] %ghp1p1
              dec %hp [ $+ [ %dmp1 ] ] %ghp2p1
              dec %hp [ $+ [ %dmp1 ] ] %ghp3p1
              dec %spec [ $+ [ %dmp2 ] ] 100
              .notice $nick You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
              msg $chan %dmp2 has hit %dmp1 with their granite maul and has done %ghp1p1 $+ , %ghp2p1 and %ghp3p1 damage. %dmp1 has %hp [ $+ [ %dmp1 ] ] hp left.
              if (%spec [ $+ [ %dmp2 ] ] < 100) {
                inc %spec [ $+ [ %dmp2 ] ] 5
              }
              msg $chan It is now %dmp1 $+ 's turn.
              set %turn %dmp1
              unset %ghp1p1
              unset %ghp2p1
              unset %ghp3p1
              halt
            }
            if ($calc(%ghp1p1 + %ghp2p1 + %ghp3p1) >= %hp [ $+ [ %dmp1 ] ]) {
              set %ghpcv2 $rand(1,3)
              if (%ghpcv2 = 1) {
                set %ghp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp3p1 0
              }
              if (%ghpcv2 = 2) {
                set %ghp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp3p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp2p1 0
              }
              if (%ghpcv2 = 3) {
                set %ghp3p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp1p1 0
              }
              dec %hp [ $+ [ %dmp1 ] ] %ghp3p1
              dec %hp [ $+ [ %dmp1 ] ] %ghp2p1
              dec %hp [ $+ [ %dmp1 ] ] %ghp1p1
              msg $chan %dmp2 has hit %dmp1 with their granite maul and has done %ghp1p1 $+ , %ghp2p1 and %ghp3p1 damage. %dmp1 has %hp [ $+ [ %dmp1 ] ] hp left. Congratulations %dmp2 $+ , you won the Dm!
              stopdm
              Halt
            }
          }
          else {
            .notice $nick You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
            msg $chan It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
        }
      }
    }
  }
  else {
    .notice $nick A DM is not running and thus you may not attack your opponent.
  }
}


====================================================================================================

!spell

ON $*:TEXT:/^[!@.]spell(check)?/Si:#: {
  inc %q
  set $+(%,return.,%q) $iif($left($1,1) == @, msg $chan, notice $nick)
  set $+(%,spell.word.,%q) $replace($2-,$chr(32),+)
  sockopen $+(spell.,%q) www.o-ss.net 80
}

ON *:SOCKOPEN:spell.*: {
  sockwrite -nt $sockname GET $+(/parsers/spell.php?word=,$($+(%,spell.word.,%q),2) HTTP/1.1)
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:spell.*: {
  if ($sockerr) { halt }
  else {
    var %spell
    sockread %spell
    if (*[SPELL]* iswm %spell) {
      $($+(%,return.,%q),2) Spelling Of: $($+(%,spell.word.,%q),2) Alternatives: $replace(%spell,END,$chr(32),[SPELL],$chr(32))
      sockclose $sockname
    }
  }
}

==================================================================================================

EVENT SCRIPT


on $*:TEXT:/^[!@.]setevent/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    set %event. [ $+ [ $chan ] ] $2-
    msg $chan The Event Has Been Set Type !event to view it.
  }
}
on $*:TEXT:/^[!@.]event/Si:#:{
  if (%event. [ $+ [ $chan ] ] && $nick !isreg $chan) { notice $nick The Current Event For $chan is %event. [ $+ [ $chan ] ] }
}


================================================================================================
LEET TEXT 

on *:TEXT:!leet*:#:{ msg $chan $replacecs($2-,a,4,A,4,e,3,E,3,L,|,l,|,I,1,i,1,f,ph,F,ph,s,5,S,5,you,j00,YOU,j00,o,0,O,0,t,7) }
on *:TEXT:!|337*:#:{ msg $chan $replacecs($2-,4,a,4,A,3,e,3,E,|,L,|,l,1,i,1,I,ph,f,ph,F,5,s,5,S,j00,you,j00,YOU,0,o,0,O,7,t) } 


=====================================================================================================

Say SCRIOT

on *:TEXT:!say*:#:{ if ($2 == !say) { halt }
  elseif ($nick isop $chan) && ($me isop $chan) {
  msg botserv say $chan $2- }
  elseif ($me ishop $chan || $me isvoice $chan || $me isreg $chan) {
  notice $nick I need to have at least 5 access and be OP for that to work }
  elseif ($nick ishop $chan || $nick isvoice $chan || $nick isreg $chan) {
  notice $nick You need to be OP for that to work }
}
==============================================================================================
setgoal script

on *:TEXT:!setgoal*:#: { if ($2 == $null) {
  notice $nick Please submit a goal }
  else { 
    set %goal [ $+ [ $nick ] ] $2-
    notice $nick Goal Updated.  Goal(s): %goal [ $+ [ $nick ] ]
  }
}
on *:TEXT:!viewgoal*:#: {
  if (%goal [ $+ [ $nick ] ] == $null) {
  /notice $nick You havn't set a goal yet!  Type !setgoal goal goal to set one }
  else {
  notice $nick Goal(s) for $nick : %goal [ $+ [ $nick ] ] }
}
on *:TEXT:!goalreached*:#: {
  if (%goal [ $+ [ $nick ] ] == $null) {
  /notice $nick You havn't set a goal yet!  Type !setgoal goal goal to set one }
  else {
    notice $nick Congratulation on acheiving your goal of %goal [ $+ [ $nick ] ]
  unset %goal [ $+ [ $nick ] ] }
}
on *:TEXT:!addgoal*:#:{
  if (%goal [ $+ [ $nick ] ] == $null) {
  /notice $nick You havn't set a goal yet!  Type !setgoal goal goal to set one }
  else {
    set %goal [ $+ [ $nick ] ] %goal [ $+ [ $nick ] ] $2-
  notice $nick Goal Updated. Goal(s): %goal [ $+ [ $nick ] ] }
}
on *:TEXT:!cleargoal*:#:{
  if (%goal [ $+ [ $nick ] ] == $null) {
  /notice $nick You havn't set a goal yet!  Type !setgoal goal goal to set one }
  else {
    unset %goal [ $+ [ $nick ] ]
  notice $nick Goal(s) Cleared }
}
================================================================================================
GOGLE SCRIOT 

on $*:TEXT:/[&!](Google|Goog)/Si:#:{
  set %AnalSex $iif($left($1,1) == &,msg $chan,notice $nick)
  set %Oral $Chan
  set %TBag $replace($2-,$chr(32),+)
  sockopen Boobie www.Google.com 80
}
ON *:SOCKOPEN:Boobie:{
  sockwrite -n $sockname GET /search?hl=en&q= $+ %TBag $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -n $sockname Host: www.Google.com $+ $crlf $+ $crlf
}
on *:sockread:Boobie:{
  var %Jambo
  sockread %Jambo
  tokenize 32 $htmlfree(%Jambo)
  if ($sockerr) {
    %AnalSex $hh1 $+ There was a socket error.
    halt
  }
  if ($1 == Your) {
    %AnalSex $hh2 $+ Google: $hh1 $+ You have $hh2 $+ NO $hh1 $+ Results found
    halt
  }
  if (Location isin %Jambo) {
    set %GaBra $1-
    set %Ello $gettok(%GaBra,2,32)
    if ($left(%gettok,4) == Http) { set %BloodyHell %Ello }
    %AnalSex $hh2 $+ Google: $hh1 $+ %Ello
    sockclose Boobie
    halt
  }
}
on *:SOCKCLOSE:Boobie:{
  unset %AnalSex | unset %BloodyHell | unset %Ello | unset %GaBra | unset %Oral | unset %TBag
}
alias hh1 { return $+($chr(3)12,12) }
alias hh2 { return $+($chr(3)4,4) }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
} 
=======================================================================================





ALL IN NEW REMOTES ! GL ON TAKING MY SCRIPTS SEAN !!!!! HARRY'S SCRIOTS > RAPES SEAN !! MKAY HOR ?=P