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, )
return %x
}
=======================================================================================
ALL IN NEW REMOTES ! GL ON TAKING MY SCRIPTS SEAN !!!!! HARRY'S SCRIOTS > RAPES SEAN !! MKAY HOR ?=P