Alright... so for the life of me I still cannot figure out Sockets...
(This was just me practicing and this doesn't work for me >_<")
alias Warframe {
if ($regex($1-, /\Qwarframe.com/news/=\E(\w+)$/)) {
sockclose Warframe
sockopen Warframe www.Warframe.com 443
sockmark Warframe $regml(1)
}
else {
echo $color(info) -aef /Warframe: invalid link
halt
}
}
on *:sockopen:Warframe: {
sockwrite -n Warframe GET /news/ $+ $sock($sockname).mark HTTPS/1.1
sockwrite -n Warframe Host: www.Warframe.com
sockwrite -n Warframe $crlf
}
on *:sockread:Warframe: {
var %x
sockread %x
if ($regex(%x, <meta name="title" content="(.+)">)) {
set %title. $+ $sockName $regml(1)
echo -a Title: $($+(%, title., $sockname), 2) $&
unset %*. $+ $sockname
sockclose $sockname
}
}
What i really want was for my bot to do is
(04:53:45) <@Kevykins> [!@.`]news
(04:53:46) <@War|Hero> The latest news Can be found here: (and itll pull the latest news from either the official website,
[a href="https://warframe.com/news/warframe-prime-time-11"]Official link[/a] or from the forum i made {which is a proboards}
[a href="http://warframe-hero.boards.net/thread/5/warframe-prime-time"]Proboards Link[/a])
So in other words
(04:53:45) <@Kevykins> [!@.`]news
(04:53:46) <@War|Hero> The latest news Can be found here: and also:
(Doesn't necessarily have to display both links, i would much rather use the Proboards link, but if its to difficult i'll jus settle for the official0
Or if its possible make the word "here" and "also" the link. so they jus click those words...
and you know the usual
@ = channel
!.` = Notice
what is the point of this anyways?
ppl really think this is jus a pastebin >_>
lets try out my failed attempt
at making this any less lammme...
[cant test it im in school =[ ]
on $*:text:/^[!.]gift/Si:#:{
if $regex($1,/^[.!]gift$/Si) {
if !%f
inc -u5 %f
.describe # Gives $nick a $Gift
}
}
alias -l Gift {
var %x = $r(1,4)
if %x = 1 { return Tree | halt }
if %x = 2 { return $nick(#,$r(1,$nick(#,0))) | halt }
if %x = 3 { return Cookie! | halt }
if %x = 4 { return coal | halt }
}
ah... makes sense o.O
can you explain
elseif ($regex($1,/(\+[^\-]*b)/)) && ($2 iswm $ial($me)) {
wha dat does o.O