home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / mirchttp.mir < prev    next >
Text File  |  1996-04-23  |  8KB  |  109 lines
  1. ;---------------------------------------------------------------------
  2. ;-----[ mirchttp.mir [4.3.97] addon for mIRC4.72 by amped ]-----------
  3. ;---------------------------------------------------------------------
  4. ;TURN WORDWRAP OFF TO VIEW THIS CORRECTLY!@#!!
  5. ;-----
  6. ;NEW IN VERSION 4.3.97 - now you get info on the web server at the top of the page, and you can choose to 
  7. ;have it echo the page to a query window, removing all the lame <yournick> stuff.
  8. ;make SURE you replace the old #http group with this new one..
  9. ;-----
  10. ;WEBMASTERS: PLEASE don't zip this file up!!@!#!@! its 1 (one) file on PURPOSE!!!
  11. ;-->INFO
  12. ; get this at: http://www.illusions.com/aruca/mirchttp.mir
  13. ; function: this lets you quickly view text files on the web through mIRC with bookmarks and more.
  14. ;-->NEW SHEE-IT
  15. ; more options. i wrote this to add as *little* to the aliases/variables as possible. there's only 1 alias!
  16. ; it reads most of the stuff from this file. all variables start with %http.* for easy deletion
  17. ; bookmarks: as more sites for this pop up, you can add shortcut names for them.
  18. ; use of $CB: you can copy a URL to the clipboard, the type /http cb to connect to it. i suggest a function
  19. ; key binding for extra-fast use. bookmarks use the same thing...
  20. ;-->HELP
  21. ; type /http bm onlinehelp or /http for syntax
  22. ;-->SCRIPTERS
  23. ; let yr users check for script updates by adding a bookmark with this addon.. irc.N and some other
  24. ; scripts have it already.. type  /http bm update  to see how this works..
  25. ;-->NOTES
  26. ; i tried to comply with the addon v.05 standard, but i really dont want to take the time
  27. ; to write it so it auto-adds the events part. it'll take you 2 seconds to cut and paste it. 
  28. ; so basically, get started by /load 'ing it like any other addon, then pasting the events.
  29. ; this can still be improved, by all means, please email me any comments
  30. ;-->ALIASES YOU NEED TO RUN THIS (you *should* have them, they are loose standards..)
  31. ; fix.ver { if (((*1) && (*1 !isin %ver) && (%ver != $null))) { return %ver + *1 } | elseif (%ver == $null) { return *1 } | else { return %ver } }
  32. ; load { if (($right(3,$1) = mir) || ($right(4,$1) = mirc)) { play -c $mircdiraddon\ $+ $1 } | else { load *1 } }
  33. ;-->GREETZ AND BYE
  34. ; webba for !so! and all his addons and ideas. icN for improving this. hawkee for the email accnt.
  35. ; amped email: spun@writeme.com or aruca@hawkee.com
  36. ;------------------------------------------------
  37. ;------[initialization]--------------------------
  38. ;------------------------------------------------
  39. %http.ver = [mirchttp]![4.3.97]
  40. %http.l = 9,14mirc14,9http
  41. ;version checker taken from manG by webba
  42. %ver.check = $dde mIRC VERSION ""
  43. if (($gettok($gettok(%ver.check,2,32),2,$asc(.)) != 72) && ($left(1,$gettok($gettok(%ver.check,2,32),2,$asc(.))) > 7)) { echo -a %http.l mIRC version too old, failed load. | .play stop | unset %http* }
  44. unset %ver.check
  45. if (%http.ver isin %ver) { echo 6 $active %http.ver is already loaded r3t4rd!@!# Aborting load... | beep | .play stop }
  46. if ($fix.ver != $null) { %ver = $fix.ver(%http.ver) }
  47. else { play stop | echo -s --> You need $!fix.ver lamer. read this shit before load'ing it. | quit i suck, i need $!fIX.vER! | /run c:\windows\notepad.exe $mircdiraddon\mirchttp.mir }
  48. query mirc.httpá[4.3.97]ástartup
  49. echo -a %http.l starting load...
  50. echo -a %http.l loading the single alias...
  51. alias http $chr(123) if ( $+ $chr(36) $+ 1 == $chr(36) $+ null) $chr(123) $chr(36) $+ read -shelp= $chr(36) $+ mircdiraddon\mirchttp.mir $chr(124) halt $chr(125) $chr(124) else $chr(123) $chr(36) $+ read -s $chr(36) $+ + $chr(36) $+ 1 $chr(36) $+ + = $chr(36) $+ mircdiraddon\mirchttp.mir $chr(125) $chr(125)
  52. echo -a %http.l whew, that wuz easy.. shizz-nit's loaded.. now follow these instructions..
  53. echo -a %http.l 1.) type /http setup to set options
  54. echo -a %http.l 2.) type /http events to run notepad so you can copy it - then (ALT + R) for events
  55. echo -a %http.l 3.) help available online, type /http bm onlinehelp
  56. echo -a %http.l yr done! for syntax, type /http
  57. .play stop
  58. ;------------------------------------------------------
  59. ;------[space saving aliases]--------------------------
  60. ;------------------------------------------------------
  61. ;you can add to these, but modify at own risk. turn wordwrap off!@#!!
  62. help= query Helpáforámirc.http | echo -a %http.l $+   SYNTAX  | echo -a %http.l /http [switch] <bookmark|name|url> | echo -a %http.l $+  SWiTCH3Z  | echo -a %http.l cb - use URL in clipboard | echo -a %http.l url <url> - type it yrself... | /echo -a %http.l bm <bookmark> - use bookmark | echo -a %http.l add <name for bookmark> - makes bookmark from URL in clipboard | echo -a %http.l setup - setup logging, etc | echo -a %http.l unload - unloads this | echo -a %http.l EZview - toggle ez-view window (echo'ed)
  63. cb= { set %http.cb $cb | $read -sDOIT= $mircdiraddon\mirchttp.mir
  64. events= { /run c:\windows\notepad.exe $mircdiraddon\mirchttp.mir }
  65. DOIT= enable #http | set %http.addy $remove(%http.cb,http://) | set %http.host $token(1,47,%http.addy) | .dns %http.host | set %http.path $remove(%http.addy,%http.host) | set %http.file $token($count(%http.path,/),47,%http.path) }
  66. url= set %http.cb $$2 | $read -sDOIT= $mircdiraddon\mirchttp.mir }
  67. add= write $mircdiraddon\mirchttp.mir bm: $+ $$2 $cb | echo -a %http.l set  $$2  bookmark to $cb
  68. bm= { set %http.cb $read -sbm $+ : $+ $2 $mircdiraddon\mirchttp.mir | $read -sDOIT= $mircdiraddon\mirchttp.mir }
  69. setup= { set %i $$?="do you want to log to file? (yes) or (no)" | if (n isin %i) { echo -a %http.l ok, yr done fo' now.. logging is off | goto end } | else { set %i $dir="i need a log directory - pick *any* file" $mircdir\*.* | set %http.logdir $nofile(%i) | set %http.autorun $?="run notepad after retrieving? (y) or (n)" | set %http.echo $?="EZ-View window? [on|off]" | echo -a %http.l logdir:  %http.logdir  autorun: %http.autorun  EZ-View: %http.echo  | :end | }
  70. unload= { query mirc.httpáunload | echo -a %http.l unloading mirc.http... | set %ver $remove(%ver,%http.ver) | alias http | echo -a %http.l ok, done... you'll be back.... | echo -a %http.l be SURE to remove the #http section in yr events! (ALT + R) | echo -a %http.l yr current version: %ver | unset %http* }
  71. ;---------------------------
  72. .play stop
  73. ;½╗<>½╗<>½╗<>½╗<>½╗<>½╗<>
  74. ;      [PASTE IN EVENTS]
  75. ;½╗<>½╗<>½╗<>½╗<>½╗<>½╗<>
  76. ;NOTE: best placed at the top of yr events.ini
  77. ;--------------------> BEGIN CUTTING HERE <-----------------
  78. #http off
  79. on 1:DNS { set %http.ip $longip( [ $iaddress ] ) } | raw -q privmsg $me :DCC CHAT CHAT %http.ip 80
  80. on 1:CHATOPEN { .timer 1 20 disable #http | if (%http.logdir == $null) { goto end }
  81.   else { %http.tmp = %http.logdir $+ %http.file
  82.     write -c %http.tmp
  83.     write -l1 %http.tmp --->mIRC.http::URL: [ %http.addy ]
  84.     write -l2 %http.tmp --->last accessed: $fulldate
  85.   }
  86.   :end
  87.   msg =$nick GET %http.path HTTP/1.0
  88.   msg =$nick $lf
  89.   if (%http.echo == ON) { query mIRC.HTTPáEZ-ViewáWindow  }
  90. }
  91. on 1:CHAT:*: { 
  92.   if (%http.logdir != $null) { write %http.tmp $parms }
  93.   if (%http.echo == ON) && ($parms != $null) { echo 1 mIRC.HTTPáEZ-ViewáWindow $parms }
  94. }
  95. on 1:CHATCLOSE { disable #http | if (%http.autorun == Y) { run notepad [ %http.tmp ] } 
  96.   unset %http.tmp %http.ip
  97.   if (%http.echo == ON) { close -c $me }
  98. }
  99. #http end
  100. ;-------------------------> END CUTTING <----------------
  101. ;½╗<>½╗<>½╗<>½╗<>½╗<>½╗<>
  102. ;         [BOOKMARKS]
  103. ;½╗<>½╗<>½╗<>½╗<>½╗<>½╗<>
  104. bm:update www.illusions.com/aruca/mirchttp_update.txt
  105. bm:onlinehelp www.illusions.com/aruca/mirchttp_help.txt
  106. bm:index www.illusions.com/aruca/mirchttp_index.txt
  107.  
  108.  
  109.