Tråd: Fittkramp direkt till mIRC.
Eftersom jag inte kunde ändra trådens topic, så fick jag göra ny helt enkelt. :)
Här kommer ett litet script som visar dom senaste 10 orden, senaste ordet och slumpat ord från fittkramp. Rakt ned i mIRC.
Har man tråkigt en dag på IRC, varför inte dra en snabb högerklick i en kanal eller query eller var man nu känner för.
Uppdateringar:
[2008/04/10 - 21:52:55]
- Lade till "slumpat ord".
- Lade till Exempel och vem som skapat ordet.
- Lade till ASB "Använd som bot".
- Fixade så alla variablar tas bort.
- Fixade så istället för "echo" så kommer allt upp i ett fönster.
- Fixade lite små buggar.
[2008/03/28 - 11:25:13]
- Lade till "kopiera" i fönstret där förklaringen kommer.
- Lade till "Stäng" i både förklarings-fönstret och där alla länkar kommer.
- Fixade om hela "dagens ord" koden, pågrund av småbuggar. Så nu finns även det med.
Här är lite bilder på hur det ser ut:
[Instruktioner]
Få igång koden
1) Kopiera koden som finns inom kodtaggarna.
2) Gå in i mIRC och klicka på ALT + R, remote.
3) Tryck på: File > New.
4) Klistra in koden i den nya remote:n. Och tryck sedan på ok.
Användning
1) Högerklicka i en kanal/query eller i status/menybaren.
2) Ta sedan Fittkramp > Senaste 10 orden.
//Förklaring
Då ska det bli en anslutning mot: www.fittkramp.se (Kan komma upp en ruta om du har brandvägg/Anti-virus)
När anslutningen tagit ned all data, så öppnas ett fönster som heter "fittkramp"
3) Dubbelklicka på ordet du vill ha info ifrån.
//Förklaring
När du dubbelklickas kommer det bli ännu en anslutning mot www.fittkramp.se. (Kan komma upp en ruta om du har brandvägg/Anti-virus)
När anslutningen tagit ned all data, så öppnas ett fönster som heter: @krampensord.
Och i den så finns förklaringen.
Och här är koden:
;Fittkramp addon
#fasb off
on *:text:*:#:{
if ($left($1,2) == !f) && (!%fdspam) {
if ($1 == !fdord) { fdord # }
elseif ($1 == !fslump) { fslump # }
elseif ($1 == !fcmds) {
.notice $nick $+($chr(2),!fdord,$chr(2)) - Skriver ut $+($chr(31),senaste,$chr(31)) ordet från fittkramp.
.notice $nick $+($chr(2),!fslump,$chr(2)) - Skriver ut ett $+($chr(31),slumpat,$chr(31)) ord från fittkramp.
}
set -u5 %fdspam 1
}
}
#fasb end
menu menubar,status,channel {
Fittkramp
.$iif($group(#fasb) != off,$style(1)) Använd som bot:$iif($group(#fasb) == off,.enable #fasb,.disable #fasb) | echo -a [Fittkramp] Använd som bot: $iif($group(#fasb) == off,Av,På)
.-
.Dagens ord
..Fönster:fdord
..Kanal:$iif($menu == channel,fdord #)
.Slumpat ord:
..Fönster:fslump
..Kanal:$iif($menu == channel,fslump #)
.Senaste 10 orden:f10ord
}
//Fittkramp dagens ord.
alias fdord { $iif($left($1,1) == $chr(35),set %fkanal $1) | sockopen fdord www.fittkramp.se 80 }
on *:sockopen:fdord:{
sockwrite -nt $sockname GET /svordom/sv/ HTTP/1.0
sockwrite -nt $sockname Host: www.fittkramp.se
sockwrite -nt $sockname User-Agent: $+(Fkramp,/,mIRC $version)
sockwrite -nt $sockname
}
on *:sockread:fdord:{
var %fdord
sockread -f %fdord
while ($sockbr) {
var %fk2 = $remove(%fdord,$chr(9))
if (<h4>Dagens ord</h4> == %fk2) { inc %fdord3 }
if (/svordom/sv/visa-ord/..html<h1></h1> isin %fk2) && (%fdord3) { $iif(%fkanal,msg %fkanal,echo -a) Dagens ord finns ej. | unset %fdord3 | unset %fkanal | sockclose fdord }
elseif (<a href="/svordom/sv/visa-ord/ isin %fk2) && (%fdord3) {
var %korme = $replace($remove(%fk2,<a href=",">,</a>,</h1>),<h1>,$chr(9))
if (!%fkanal) { fgets $+($gettok(%korme,2,9),$chr(9),Http://www.fittkramp.se,$gettok(%korme,1,9)) }
else { msg %fkanal Dagens ord: $+($chr(2),$gettok(%korme,2,9),$chr(2)) $+($chr(31),Http://www.fittkramp.se,$gettok(%korme,1,9),$chr(31))) }
unset %fk3 | unset %fkanal | sockclose fdord | break
}
sockread -f %fdord
}
}
//Fittkramp 10 senaste
alias f10ord {
clear @fittkramp
window -adCk0l +L @fittkramp -1 -1 540 218 tahoma 11
aline @fittkramp Ord $chr(9) Länk | aline @fittkramp $chr(160) | titlebar @fittkramp - Senaste 10 orden.
sockopen f10ord www.fittkramp.se 80
}
menu @fittkramp {
dclick:fgets $sline(@fittkramp,1)
Stäng:window -c @fittkramp | window -c @krampensord
}
on *:sockopen:f10ord:{
sockwrite -nt $sockname GET /svordom/sv/ HTTP/1.0
sockwrite -nt $sockname Host: www.fittkramp.se
sockwrite -nt $sockname User-Agent: $+(Fkramp,/,mIRC $version)
sockwrite -nt $sockname
}
on *:sockread:f10ord:{
var %f10ord
sockread -f %f10ord
while ($sockbr) {
if (<h3>Senaste 10 orden</h3> isin %f10ord) { inc %f10ord3 }
if (%f10ord3) && (/svordom/sv/visa-ord/ isin %f10ord) {
inc %f10ord4
tokenize 62 $remove(%f10ord,<a href=,</a><br>,$chr(9),")
aline @fittkramp $2 $chr(9) $+($chr(31),Http://www.fittkramp.se,$1,$chr(31))
}
sockread %f10ord
}
}
on *:sockclose:f10ord:{ unset %f10ord* }
//Fittkramp - Tar fram orden
menu @krampensord {
Kopiera:clipboard $line(@krampensord,3)
-
Stäng:window -c @fittkramp | window -c @krampensord
}
alias fgets {
clear @krampensord | window -adk0 $+ $iif($window(@fittkramp,0) == 0,C) +L @krampensord $iif($window(@fittkramp,0) != 0,$window(@fittkramp).x $calc($window(@fittkramp).y + $window(@fittkramp).h),-1 -1) 539 226 tahoma 11
aline @krampensord $+($chr(2),Förklaring:,$chr(2)) | aline @krampensord $chr(160) | titlebar @krampensord - $gettok($1-,1,9)
set %fgets2 $strip($gettok($1-,2,9)) | sockopen fgets www.fittkramp.se 80
}
on *:sockopen:fgets:{
sockwrite -nt $sockname GET / $+ $remove(%fgets2,Http://www.fittkramp.se/) HTTP/1.0
sockwrite -nt $sockname Host: www.fittkramp.se
sockwrite -nt $sockname User-Agent: $+(Fkramp,/,mIRC $version)
sockwrite -nt $sockname
}
on *:sockread:fgets:{
var %fgets
sockread -f %fgets
while ($sockbr) {
if (<b>Förklaring:</b> isin %fgets) { aline -p @krampensord $+($chr(2),$gettok($window(@krampensord).title,2-,32),$chr(2),:) $remove(%fgets,$chr(9),<em>,</em>,<br>,<b>Förklaring:</b>) | aline -p @krampensord $chr(160) }
elseif (<b>Exempel:</b> isin %fgets) {
aline -p @krampensord $+($chr(2),Exempel:,$chr(2)) | aline -p @krampensord $chr(160)
aline -p @krampensord $remove(%fgets,$chr(9),<em>,</em>,<br>,<b>exempel:</b>) | aline -p @krampensord $chr(160)
}
elseif (<b>Inskickat av:</b> isin %fgets) { aline -p @krampensord $+($chr(2),Inskickat utav:,$chr(2)) $remove(%fgets,$chr(9),<em>,</em>,<br>,<b>inskickat av:</b>) }
sockread %fgets
}
}
//Fittkramp slumpat ord
alias fslump {
if ($left($1,1) == $chr(35)) { set %fslkan $1 }
sockopen fslump www.fittkramp.se 80
}
on *:sockopen:fslump:{
sockwrite -nt $sockname GET /svordom/sv/slumpat-ord/ HTTP/1.0
sockwrite -nt $sockname Host: www.fittkramp.se
sockwrite -nt $sockname User-Agent: $+(Fkramp,/,mIRC $version)
sockwrite -nt $sockname
}
on *:sockread:fslump:{
var %fslump
sockread %fslump
while ($sockbr) {
tokenize 32 %fslump
if (location: isin $1-) {
if (!%fslkan) { fgets $+($gettok($gettok($2,4,47),1,46),$chr(9),$+(http://www.fittkramp.se,$2-)) }
else { msg %fslkan Slumpat ord: $+($chr(2),$gettok($gettok($2,4,47),1,46),$chr(2)) $+($chr(31),http://www.fittkramp.se,$2-,$chr(31)) | unset %fslkan }
}
sockread %fslump
}
}
