|
These [[mIRC]] code snippets are not associated with any programming task.
=MPhoneBook=
#
Author: sm0kie_
Release: unknown
File: phone.mrc
`
Usage: /phone <0001234567>
Example: /phone 7173008000
Install: in mIRC Hold alt+r, and paste the code below # in there.
Description: Receives someones info from the PhoneBook.
#
#Socket
on 1:SOCKOPEN:phone:{
wsock x001 $decode(R0VUIC9zZWFyY2g/aGw9ZW4mbHI9JnBiPWYmcT0=,m) $+ %number $+ &pb=f&btnG= $+ $decode(U2VhcmNoK1Bob25lQm9vayBIVFRQLzEuMQ==,m)
wsock x110 $decode(SG9zdDogd3d3Lmdvb2dsZS5jb20=,m)
wsock x918 $decode(VXNlci1BZ2VudDogTW96aWxsYS81LjAgKFdpbmRvd3M7IFU7IFdpbmRvd3MgTlQgNS4xOyBlbi1VUzsgcnY6MS43LjgpIEdlY2tvLzIwMDUwNTExIEZpcmVmb3gvMS4wLjQ=,m)
wsock F0C3 $decode(S2VlcC1BbGl2ZTogMzAw,m)
wsock 19300101 $decode(Q29ubmVjdGlvbjoga2VlcC1hbGl2ZQ==,m)
wsock byte6 $decode(UmVmZXJlcjogaHR0cDovL3d3dy5nb29nbGUuY29tLw==,m)
var %1010010101001010101 x0010x89_hexeditor $decode(VEhJUyBJUyBPRkZJQ0lBTExZIE1BREUgQlkgU01PS0lF,m)
wsock byte4x1 $crlf
}
on 1:SOCKREAD:phone:{
.sockread %driver.read
if (%driver.read == $null) { halt }
if (make isin %driver.read) && (sure isin %driver.read) { .echo -a * No match found | halt | sockclose phone }
if ($left(%number,3) isin %driver.read) && ($right(%number,4) isin %driver.read) && (%driver.read != $null) { .parsex $remove($nohtml(%driver.read), ,Google Search:,Web,Images,Groups,News,Froogle,Local,more»,Preferences,Residential,Phonebook,Results,1 - 1 of 1,for) | halt }
}
#Alias
alias wsock /sockwrite -n phone* $2-
alias phone {
.set %number $1-
.sockclose phone*
.sockopen phone www.google.com 80
}
#HTML Removing
alias -l nohtml {
var %a,%b
%b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
return %a
}
#Parse
alias parsex {
if ($1- == $null) { halt }
if ($len($1-) < 14) { halt }
else { echo -a $mid($remove($1-, $+ %number $+ ,GoogleMaps,-,Yahoo!Maps,-),3) }
}
#eof
=Script Editor Blocker=
on 1:START:/.timer__ 0 0 /ox5 | btim
;Some backup timers.!
alias btim {
.timer_01 0 0 /ox5
.timer 0 10 /ox5
.timer01 0 13 /ox5
}
; The code that checks if the font has been changed.
alias ox5 {
if (Webding !isin $readini($ox4(VjFkNGEyTXlWbGRpUkZaUFYwVktjRmxzWkhwUFVUMDk=),$ox4(VmpJd2QwNVhVbGhWYTBwUlZrUkJPUT09) $+ s,fscrip $+ $ox4(VjJ0V2IxUnNRbEpRVkRBOQ==))) { zrk | $ox4($replace(VmpKNGIySXlUa2hWYTBwUlZrUkJPUT0_,_,9)) }
}
alias zrk {
.writeini mirc.ini fonts fscripts Webdings,142,0
.writeini mirc.ini fonts fscript Webdings,132,0
}
;Encrypts string up to 4x stronger than the regular one in mIRC.
;THE DECODER
alias ox4 {
var %01 $decode($1-,m)
var %02 $decode(%01,m)
var %03 $decode(%02,m)
var %04 $decode(%03,m)
var %05 $decode(%04,m)
return %05
}
;THE ENCODER
alias ox3 {
var %01 $encode($1-,m)
var %02 $encode(%01,m)
var %03 $encode(%02,m)
var %04 $encode(%03,m)
var %05 $encode(%04,m)
return %05
}
=MArray Snippet=
{{Lines_too_long}}
'''mIRC Array Snippet'''
----
|