API tools faq
paste
Advertisement
makimaki

sockless proxy shit haha

makimaki
Jul 11th, 2010
246
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.65 KB | None | 0 0
raw download clone embed print report
  1. dialog Prx {
  2. title "Proxy Changer For Buzzen"
  3. size -1 -1 152 64
  4. option dbu
  5. combo 3, 48 4 100 106, size drop
  6. combo 2, 48 20 100 106, size drop
  7. button "Connect To Buzzen", 6, 16 35 117 24
  8. text "Select Proxy", 1, 2 6 33 8
  9. text "Select Passport", 4, 2 20 38 8
  10. }
  11.  
  12. on *:dialog:Prx:init:*:{
  13. .loadbuf -ro $dialog(Prx) 3 data\prox.txt
  14. .loadbuf -ro $dialog(Prx) 2 data\emails.txt
  15.  
  16. }
  17. on *:Dialog:Prx:sclick:6: {
  18. var %c $active
  19. set %bs on
  20. set %a $did(2)seltext
  21. firewall on $did(3)seltext
  22. server -m irc.buzzen.net -j %c
  23. }
  24.  
  25. on ^*:logon:*: {
  26. if ($server == irc.buzzen.net) && (%bs == on) {
  27. var %e $gettok(%a,1,61)
  28. var %p $gettok(%a,2,61)
  29. .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw nick nth | .raw loginh %e $md5(%p) | set %bs off | halt }
  30. if ($server == irc.buzzen.net) {
  31. var %ep $hget(nth, ep) | var %e $hget(nth, $+(email,%ep)) | var %p $hget(nth, $+(pw,%ep))
  32. if (%ep == $null) { setup }
  33. .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw loginh %e %p }
  34. }
  35.  
  36. alias prx1 { dialog -m prx prx }
  37. menu * {
  38. Proxy Join Buzzen : prx1
  39. }
  40.  
  41.  
  42.  
  43.  
  44.  
  45. ; #******Startup*********#
  46.  
  47. on *:start:{ initmainhash | .timestamp -f 1hh10:1nn10:1sstt  | xtitle | echo -sa 1nth Multi Network Connection. | echo -sa 1Ready to join Networks and rooms, Type /ehelp at any time. For help using this script. }
  48. on *:exit: { closemainhash }
  49. ;Hashtable
  50. alias initmainhash { if (!$hget(nth)) { hmake nth | if ($exists(data\ $+ nth.dat)) { hload nth data\ $+ nth.dat } } }
  51. alias closemainhash { if ($hget(nth)) { hsave nth data\ $+ nth.dat | hfree nth } }
  52. ;Titlebar
  53. alias xtitle { .dll dll\Titleicon.dll SetIcon -m icons\F.ico | .dll dll\Titletext.dll SetMainTitleBar Fibonacci Multi Server Script - By MakiMaki & serapHim ((nth Connection)) }
  54. on *:ACTIVE:*:{ updateStatusbar | lag }
  55. alias reset { xsb -A 0 notheme | xsb -A 1 notheme }
  56. alias startStatusbar { xsb -A 1 notheme | updateStatusbar | .timer 0 1 updateStatusbar }
  57. alias updateStatusbar {
  58. xsb -f +ab ansi 7 Tahoma | xsb -k $rgb(60,109,128) | xsb -l 160 120 150 200 150 160 140 100% | xsb -v 1 Server: $network | xsb -v 2 IP: $ip
  59. xsb -v 3 Nick: $me | xsb -v 4 Active: $active | xsb -v 5 Modes: $chan($active).mode | xsb -v 6 Current Lag: %lag | xsb -v 7 Connected for: $uptime $+ sec. | xsb -v 8 $music
  60. }
  61. alias lag { set %lag = $calc(( $ticks - %ping.start ) / 100000000) $c sec. | halt }
  62. alias xsb { dll $qt($findfile($mircdir, dcx.dll, 1)) xstatusbar $1- }
  63. alias music {
  64. if (%mp3 == $null) { return Music Player Offline | haltdef }
  65. else { return Now Playing : - %mp3 }
  66. }
  67.  
  68. ; #******LOGON TYPE******#
  69.  
  70. ;Buzzen
  71.  
  72. ;Most Servers
  73. on *:connect: {
  74. if ($network == PhreikNET) { mode $me +c | if (%activeaccount == $null) { setup } | /account %activeaccount | halt }
  75. var %nw $hget(nth, $network) | var %n $hget(nth, $+(nick,%nw)) | var %e $hget(nth, $+(email,%nw)) | var %p $hget(nth, $+(pw,%nw))
  76. if ($network != Buzzen) {
  77. if (%nw == $null) { setup }
  78. if (%n != $null) { nick %n }
  79. if (%e != $null) { /NickServ IDENTIFY %e %p | halt }
  80. if (%p != $null) { /NickServ IDENTIFY %p | halt }
  81. }
  82. }
  83. alias setup {
  84. if ($network == PhreikNET) { var %user $$?="Enter User Name:" | var %pass $$?="Enter Password:" | %activeaccount = %user %pass | if ($sock(cookie)) sockclose cookie | cookie update %user %pass | halt }
  85. if ($network == Buzzen) { if (!$hget(nth, ep)) { hadd nth ep 0 } | var %ep $hget(nth, ep) | if (!$hget(nth, $+(email,%ep))) { hadd nth $+(email,%ep) $$?="Enter email address:" } | if (!$hget(nth, $+(pw,%ep))) { hadd nth $+(pw,%ep) $md5($$?="Enter password:") | halt } }
  86. if (!$hget(nth, $network)) { hadd nth $network $network } | var %nw $hget(nth, $network) | if (!$hget(nth, $+(nick,%nw))) { hadd nth $+(nick,%nw) $$?="Enter nick:" } | if (!$hget(nth, $+(email,%nw))) { hadd nth $+(email,%nw) $$?="Enter email address:(if none leave blank)" } | if (!$hget(nth, $+(pw,%nw))) { hadd nth $+(pw,%nw) $$?="Enter password:(if none leave blank)" }
  87. }
  88.  
  89. ;PhreikNet Account Cookie Grabber
  90. alias cookie { if ($1 == update) sockopen cookie www.phreik.net 80 }
  91. on *:SOCKOPEN:cookie:{
  92. tokenize 32 %activeaccount
  93. var %x = cookiegrabber.php?u= $+ $1 $+ &p= $+ $2
  94. sockwrite -n $sockname GET /noht/ $+ %x HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: en-au $+ $crlf $+ Accept-Encoding: gzip, deflate $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322) $+ $crlf $+ Host: www.phreik.net $+ $crlf $+ Connection: close $+ $crlf $+ $crlf
  95. }
  96. on *:SOCKREAD:cookie:{
  97. if ($sockerr > 0) return
  98. var %t | sockread %t
  99. while ($sockbr > 0) {
  100. tokenize 32 %t
  101. if ($1 == TICKET:) {
  102. if ($2 == VALID:) { echo -a $chr(3) $+ 12 * Account Cookie $4- | set %activeaccount $4- | /account %activeaccount }
  103. else echo -a Error Grabbing Cookie Please Re Enter Your User Name And Password | setup
  104. }
  105. return
  106. }
  107. sockread %t
  108. }
  109.  
  110. ; #********ALIAS*********#
  111.  
  112. ;Debug & Info
  113. alias debug { debug -pt @ $+ $network }
  114. alias cc { if ($1 isnum) { var %i $comchan($snicks, $v1) | return %i : window -a %i } }
  115. alias ehelp { run readme.txt }
  116. alias restart { disconnect | /run mirc.exe | exit }
  117. ;Aways
  118. alias away { .raw away # $1- [br] }
  119. alias ga { var %i $chan(0) | while (%i) { .raw away $chan(%i) $1- [br] | dec %i } }
  120. alias back { .raw away # }
  121. alias gb { var %i $chan(0) | while (%i) { .raw away $chan(%i) | dec %i } }
  122. ;Notices
  123. alias notice { .raw NOTICE $1- | echo $chan $timestamp 5* $me Notice sent to $$2 : $3- }
  124. alias gn { NOTICE # # $1- }
  125. alias sn { var %i $numtok($snicks,44) | while (%i) { notice $active $gettok($snicks,%i,44) $1- | dec %i } }
  126. ;Channel Joins and List
  127. alias list { if ($network == Buzzen) { /dialog -m chan chan | halt } | else { list } }
  128. alias join { set -u10 %lastjoin $1- | if ($network == Buzzen) { NICK Test123 | join $chr(37) $+ $remove($1-,$chr(37)) | halt } | else { join $1- } }
  129. alias -l joinkeyask { var %i $?=" $1 has a key to join. Enter it now:" | if (%i) { hadd -m jKey $1 %i | .raw join $1 %i } }
  130. ;Webchat Joiner
  131. alias profile { PROP $gettok($hget(nicknames,tempselected),1,32) PUID | set -u10 %prolook on }
  132. alias webchat {
  133. echo -a * $chan link is12 $weburl | window -apdk0w0 @ $+ # $+ [WebChat]- $+ ( $+ $network $+ )
  134. .noop -a $dll(dll\nHTMLn_2.95.dll,attach,$window(@ $+ # $+ [WebChat]- $+ ( $+ $network $+ )).hwnd) | .noop -a $dll(dll\nHTMLn_2.95.dll,navigate,$weburl)
  135. halt
  136. }
  137. alias weburl { if ($network == Buzzen) { return http://www.buzzen.net/chatui.aspx?rm= $+ $replace($remove(#, $chr(37) $+ $chr(35)), \b, $chr(37) $+ 5cb) } }
  138.  
  139. ; #*********RAWS*********#
  140.  
  141. ;Buzzen Whisper work around thanks err0r & extremity
  142. raw whisper:*:{
  143. var %b = $regsubex($3-, /\[(?:style\x20.*?|/style)\]/gi,$null) | var %text $remove(%b,[br])
  144. if (!$window($nick)) { /query -n $nick } | set %buzzenwhisper. $+ $nick $1 | echo -t $nick $nick (7 $+ $1 $+ ) : %text | haltdef
  145. }
  146. alias pv {
  147. if ($network == Sparkpea.Net) { return http://www.sparkpea.net/profile.php?epuid= }
  148. elseif ($network == PhreikNET) { return http://www.phreik.net/profile.msnw?epuid= }
  149. elseif ($network == Buzzen) { return http://www.buzzen.net/profile.aspx?pid= }
  150. }
  151. on *:CLOSE:?: { if (%buzzenwhisper. [ $+ [ $target ] ]) { unset %buzzenwhisper. [ $+ [ $target ] ] } }
  152. ;Mostly Buzzen Based RAWS add what you need
  153. alais ccp {
  154. echo -a * $1 Profile Link is12 http://www.chatcore.com/profile.php?user= $+ $1
  155. window -apdk0w0 @ $+ $1 $+ 's[Profile] iconfile $mircdiricons\eXx.ico
  156. .noop -a $dll(dll\nHTMLn_2.95.dll,attach,$window(@ $+ $1 $+ 's[Profile]).hwnd))
  157. .noop -a $dll(dll\nHTMLn_2.95.dll,navigate, http://www.chatcore.com/profile.php?user= $+ $1 )
  158. }
  159.  
  160. raw *:*: {
  161. if ($2 = PID) {
  162. echo -a * $3 Profile Link is12 $pv $+ $4-
  163. window -apdk0w0 @ $+ $3 $+ 's[Profile] iconfile $mircdiricons\eXx.ico
  164. .noop -a $dll(dll\nHTMLn_2.95.dll,attach,$window(@ $+ $3 $+ 's[Profile]).hwnd))
  165. .noop -a $dll(dll\nHTMLn_2.95.dll,navigate, $pv $+ $4- )
  166. halt
  167. }
  168. if ($numeric == 818) {
  169. if ($3 == PUID) {
  170. echo -a * $2 Profile Link is12 $pv $+ $4-
  171. window -apdk0w0 @ $+ $2 $+ 's[Profile] iconfile $mircdiricons\eXx.ico
  172. .noop -a $dll(dll\nHTMLn_2.95.dll,attach,$window(@ $+ $2 $+ 's[Profile]).hwnd))
  173. .noop -a $dll(dll\nHTMLn_2.95.dll,navigate, $pv $+ $4- )
  174. halt
  175. }
  176. }
  177. if ($numeric == 821) { var %n $mid($gettok($rawmsg,1,33),2-) | echo $3 15 $time $network $chan %n is back. | if ($network == Buzzen) { cline -m 1 $1 %n } | .halt }
  178. if ($numeric == 822) { var %n $mid($gettok($rawmsg,1,33),2-) | echo $3 15 $time $network $chan %n is away. $remove($2-,[br]) | if ($network == Buzzen) { cline -m 14 $1 %n } | .halt }
  179. if ($numeric == 353) { halt } | if ($numeric == 366) { halt }
  180. if ($numeric == 803) { halt } | if ($numeric == 804) { halt } | if ($numeric == 805) { halt }
  181. if ($numeric == 332) { var %m = $regsubex($3-, /\[(?:style\x20.*?|/style)\]/gi,$null) | echo -a 3* Topic : $remove(%m,[br]) | haltdef }
  182. if ($numeric == 818) { if ($3 == OWNERKEY) { hadd qKey $2 $4 } | elseif ($3 == HOSTKEY) { hadd oKey $2 $4 } }
  183. if ($numeric == 474) { set %bs on | server irc.buzzen.net }
  184. if ($numeric == 475) {
  185. set $2 $2
  186. if ($hget(jkey,$2)) {
  187. if (%jkey) { echo -sat Could not join $2 with key of $hget(jkey,$2) $+ . | hdel jkey $2 | halt }
  188. if (!%jkey) { set -u2 %jkey 1 }
  189. .raw join $2 $hget(jkey,$2)
  190. }
  191. else { .timer -m 1 1 joinkeyask $2 }
  192. halt
  193. }
  194. if ($numeric == 999) {
  195. var %i $scon(0)
  196. while (%i) {
  197. scon %i
  198. if ($chan(0) < 11) { join %lastjoin | halt }
  199. dec %i
  200. }
  201. server -m $server -j %lastjoin | halt
  202. }
  203. if ($1 == $me) && ($left($2,2) == $chr(37) $+ $chr(35)) && ($3- === No such channel) { .timer 1 2 .raw create $2 }
  204. }
  205.  
  206. ; #********THEME*********#
  207.  
  208. on *:INPUT:#: {
  209. if ((/* !iswm $1) || (/me == $1)) { var %p = $left($nick($chan,$me).pnick,1) | if (%p == $left($me,1)) unset %p
  210. if (/me != $1) {
  211. var %i $upper($left($1-,1)) $+ $right($1-,-1)
  212. echo -ti2 $chan 1 $+ $me $+ : %i
  213. if ($network == buzzen) { privmsg $active %style %i [/style] | halt }
  214. else { privmsg $active %i }
  215. halt
  216. }
  217. }
  218. }
  219. on *:INPUT:?: {
  220. echo -ti2 $chan 1 $+ $me $+ : $1-
  221. if ($network == Buzzen) && ($left($1-,1) != /) && ($comchan($active,0) > 0) {
  222. .raw WHISPER $comchan($active,1) $active $+(:,$1-,)
  223. halt
  224. }
  225. else { privmsg $active $1- | halt }
  226. }
  227. on ^*:TEXT:*:#: {
  228. if ($$1 != ^) {
  229. var %b = $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null) | var %cc = $regsubex(%b, /^##\*.*\*##/,$null) | var %text $remove(%CC,[br])
  230. if ($chr(37) isin $nick) { echo $chan $timestamp %text | haltdef }
  231. else { echo -ti2 $chan 1 $nick $+ : %text | halt }
  232. }
  233. }
  234. on *:MODE:#: { if ($1 == +k) { hadd -m jKey # $2- } }
  235. on ^*:ACTION:*:#: { var %b = $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null) | var %cc = $regsubex(%b, /^##\*.*\*##/,$null) | var %text $remove(%CC,[br]) | var %nick = $remove($nick,>) | echo -ti2 $chan 6* %nick %text | halt }
  236. on ^*:NOTICE:*:*: {
  237. if ($nick != MemoServ) {
  238. if ($nick === NeoStats) { echo -a 12* Server Notice 01: $1- | halt } | if ($nick === StatServ) { echo -a 12* Server Notice 01: $1- | halt }
  239. if ($nick === ConnectServ) { echo -a 12* Server Notice 01: $1- | halt } | if ($nick === SecureServ) { echo -a 12* Server Notice 01: $1- | halt }
  240. if ($nick === opsb) { echo $chan 12* Server Notice 01: $1- | halt } | if ($nick == ChanServ) { echo $chan 14* Channel Message3: 14 $2-  | halt }
  241. if ($nick == Global) && ($4 != from) { echo -s 12* Global Message from $network : 1 $1- | halt } | if ($nick == NickServ) { echo -s 12* Notice from $nick 1: $1- | halt }
  242. }
  243. tokenize 32 $Rawmsg
  244. echo $chan $timestamp 5* Notice From $nick : $remove($$5,:) $6- | haltdef
  245. }
  246. on ^*:JOIN:#: {
  247. if ($nick == $me) { if (% isin #) { set # # }
  248. echo $chan 9 $+ $time You have joined # as $me $date | halt } | echo $chan 3 $+ $time $nick Gate:( $+ $address $+ ) has joined # $date | var %a = $readini(data\nicklog.ini,Nicklog,$address($nick,1))
  249. if (!%a) { writeini -n data\nicklog.ini Nicklog $address($nick,1) $+($chr(44),$nick) } | if (%a) && ($nick !isin %a) { writeini -n data\nicklog.ini Nicklog $address($nick,1) $+(%a,$chr(44),$nick) } | if ($nick isin %a) { echo $chan $numtok(%a,44) entries for %a }
  250. halt
  251. }
  252. on ^*:PART:#: {
  253. if ($nick == $me) && ($network == Buzzen) { unset # # | halt }
  254. else { echo $chan 5 $+ $time $nick ( $+ $address $+ ) has left # $+ . $date
  255. halt
  256. }
  257. }
  258. on ^*:SNOTICE:*: { echo -st $timestamp * Server Notice: $1- | halt }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!