API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 6th, 2018
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.46 KB | None | 0 0
raw download clone embed print report
  1.  
  2. ;------------------------------------------------------------------------------
  3. ; Designed And Written By TehJibba 2013
  4. ; Thanks to OMGUFAIL & Godfatherdon for testing
  5. ; tbs 2015
  6. ;------------------------------------------------------
  7. on *:load: { echo -gta 13,1» 8Loaded 13Torrentleech On Join User Check
  8. set %tlis.class 1 | set %tlis.title 1 | set %tlis.stats 1 | set %tlis.profile 1 | set %tlis.join 1 | set %tlis.ojiec 1 | set %tlis.areec 1 | set %tlis.venw 1 | set %tlis.clkcon 1
  9.  
  10. ;browser path
  11. set %tlis.browser $null
  12.  
  13. ;Xplosive bold :)_
  14. ;set %tlis.gbold $null
  15. set %tlis.gbold $+()
  16. }
  17. on *:unload: { echo -gta 13,1» 8Unloaded 13Torrentleech On Join User Che ck | unset %tlis.* }
  18. on *:join:#torrentleech,#tlhelp: {
  19. var %n = 1, %m = 1, %nick = $nick, %host = $address(%nick,2), %totnicks = $iif($ini($scriptdirnickex.ini,nicks,0),$ini($scriptdirnickex.ini,nicks,0),1), %tothosts = $iif($ini($scriptdirnickex.ini,hosts,0),$ini($scriptdirnickex.ini,hosts,0),1)
  20. while (%n <= %totnicks) { if ($readini($scriptdirnickex.ini,n,nicks,%n) iswm %nick) { halt } | inc %n }
  21. while (%m <= %tothosts) { if (%host == $readini($scriptdirnickex.ini,n,hosts,%m)) { halt } | inc %m }
  22. _tlms $cid $chan $+(/profile/,%nick)
  23. }
  24. on *:nick: {
  25. var %n = 1, %m = 1, %nick = $newnick, %host = $address(%nick,2), %totnicks = $iif($ini($scriptdirnickex.ini,nicks,0),$ini($scriptdirnickex.ini,nicks,0),1), %tothosts = $iif($ini($scriptdirnickex.ini,hosts,0),$ini($scriptdirnickex.ini,hosts,0),1)
  26. while (%n <= %totnicks) { if ($readini($scriptdirnickex.ini,n,nicks,%n) iswm %nick) { halt } | inc %n }
  27. while (%m <= %tothosts) { if (%host == $readini($scriptdirnickex.ini,n,hosts,%m)) { halt } | inc %m }
  28. _tlms $cid $chan $+(/profile/,%nick)
  29. }
  30. menu channel,status {
  31. TL User Check
  32. .Manual Check: { var %manick = $?="Enter Nick To Check:" | if (%manick != $null) { _tlms $cid $chan $+(/profile/,%manick) } }
  33. .View User
  34. ..Profile: { var %vpnick = $?="Enter Nick To Check:" | if (%vpnick != $null) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%vpnick) } }
  35. ..Logs: { var %vulnick = $?="Enter Nick To Check:" | if (%vulnick != $null) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%vulnick,#User_Log) } }
  36. .Exclusion Management
  37. ..List All Exclusions: { _tlucexlst }
  38. ..Add New Exclusion: { _tlucadd }
  39. ..Remove Exclusion
  40. ...Remove Nick: { _tlucremnick }
  41. ...Remove Host: { _tlucremhost }
  42. ..Clear
  43. ...Clear Nick Exclusion List:$_clrlist(nicks)
  44. ...Clear Host Exclusion List:$_clrlist(hosts)
  45. ...Clear Both Exclusion Lists:$_clrlist(both)
  46. }
  47. menu nicklist,query {
  48. TL User Check
  49. .Quick Check: { _tlms $cid $chan $+(/profile/,$1) }
  50. .Manual Check: { var %manick = $?="Enter Nick To Check:" | if (%manick != $null) { _tlms $cid $chan $+(/profile/,%manick) } }
  51. .View User
  52. ..Profile: { run %tlis.browser $+(https://v4.torrentleech.org/profile/,$1) }
  53. ..Logs: { run %tlis.browser $+(https://v4.torrentleech.org/profile/,$1,#User_Log) }
  54. .Exclusion Management
  55. ..List All Exclusions: { _tlucexlst }
  56. ..Add Exclusion: { _tlucadd $1 }
  57. ..Remove Exclusion
  58. ...Nick: { _tlucremnick $1 }
  59. ...Host: { _tlucremhost $address($1,2) }
  60. ..Clear
  61. ...Nick Exclusion List:$_clrlist(nicks)
  62. ...Host Exclusion List:$_clrlist(hosts)
  63. ...Both Exclusion Lists:$_clrlist(both)
  64. }
  65. menu nicklist,query,channel,status {
  66. TL User Check
  67. .Output Options
  68. ..On Join Info
  69. ...Echo Channel: { if (!%tlis.ojiec) { unset %tlis.ojinw | set %tlis.ojiec 1 } | echo -gt $chan 13,1»8 Join Info Echo13 turned on }
  70. ...New Window: { if (!%tlis.ojinw) { unset %tlis.ojiec | set %tlis.ojinw 1 } | echo -gt $chan 13,1»8 Join Info New Window13 turned on }
  71. ..Add/Rem Exclusions
  72. ...Echo Channel: { if (!%tlis.areec) { unset %tlis.arenw | set %tlis.areec 1 } | echo -gt $chan 13,1»8 Add/Rem Exclusions Echo13 turned on }
  73. ...New Window: { if (!%tlis.arenw) { unset %tlis.areec | set %tlis.arenw 1 } | echo -gt $chan 13,1»8 Add/Rem Exclusions New Window13 turned on }
  74. ..View Exclusions
  75. ...Echo Channel: { if (!%tlis.veec) { unset %tlis.venw | set %tlis.veec 1 } | echo -gt $chan 13,1»8 View Exclusions Echo13 turned on }
  76. ...New Window: { if (!%tlis.venw) { unset %tlis.veec | set %tlis.venw 1 } | echo -gt $chan 13,1»8 View Exclusions New Window13 turned on }
  77. ;-----------------------------------
  78. .Info Options
  79. ..User Class
  80. ...Turn On: { if (!%tlis.class) { set %tlis.class 1 } | echo -gt $chan 13,1»8 User Class13 will now be displayed }
  81. ...Turn Off: { if (%tlis.class) { unset %tlis.class } | echo -gt $chan 13,1»8 User Class13 turned off }
  82. ..User Title
  83. ...Turn On: { if (%!tlis.title) { set %tlis.title 1 } | echo -gt $chan 13,1»8 User Title13 will now be displayed }
  84. ...Turn Off: { if (%tlis.title) { unset %tlis.title } | echo -gt $chan 13,1»8 User Title13 turned off }
  85. ..User Stats
  86. ...Turn On: { if (!%tlis.stats) { set %tlis.stats 1 } | echo -gt $chan 13,1»8 User Stats13 will now be displayed }
  87. ...Turn Off: { if (%tlis.stats) { unset %tlis.stats } | echo -gt $chan 13,1»8 User Stats13 turned off }
  88. ..Join Date
  89. ...Turn On: { if (!%tlis.join) { set %tlis.join 1 } | echo -gt $chan 13,1»8 Join Date13 will now be displayed }
  90. ...Turn Off: { if (%tlis.join) { unset %tlis.join } | echo -gt $chan 13,1»8 Join Date13 turned off }
  91. ;-----------------------------------
  92. .Link Options
  93. ..Click Confirm
  94. ...Turn On: { if (!%tlis.clkcon) { set %tlis.clkcon 1 } | echo -gt $chan 13,1»8 Confirm Click13 turned on15 You will now need to click 7Yes15 when clicking14 @link }
  95. ...Turn Off: { if (%tlis.clkcon) { unset %tlis.clkcon } | echo -gt $chan 13,1»8 Confirm Click13 turned off }
  96. ..Profile link
  97. ...Turn On: { if (!%tlis.profile) { set %tlis.profile 1 } | echo -gt $chan 13,1»8 Profile Link13 will now be displayed }
  98. ...Turn Off: { if (%tlis.profile) { unset %tlis.profile } | echo -gt $chan 13,1»8 Profile Link13 turned off }
  99. ..Edit link
  100. ...Turn On: { if (!%tlis.edit) { set %tlis.edit 1 } | echo -gt $chan 13,1»8 Edit Link13 will now be displayed }
  101. ...Turn Off: { if (%tlis.edit) { unset %tlis.edit } | echo -gt $chan 13,1»8 Edit Link13 turned off }
  102. ..Logs link
  103. ...Turn On: { if (!%tlis.logs) { set %tlis.logs 1 } | echo -gt $chan 13,1»8 Logs Link13 will now be displayed }
  104. ...Turn Off: { if (%tlis.logs) { unset %tlis.logs } | echo -gt $chan 13,1»8 Logs Link13 turned off }
  105. ..IP History link
  106. ...Turn On: { if (!%tlis.iphist) { set %tlis.iphist 1 } | echo -gt $chan 13,1»8 IP History Link13 will now be displayed }
  107. ...Turn Off: { if (%tlis.iphist) { unset %tlis.iphist } | echo -gt $chan 13,1»8 IP History Link13 turned off }
  108. ..Snatchlist link
  109. ...Turn On: { if (!%tlis.snatch) { set %tlis.snatch 1 } | echo -gt $chan 13,1»8 Snatchlist Link13 will now be displayed }
  110. ...Turn Off: { if (%tlis.snatch) { unset %tlis.snatch } | echo -gt $chan 13,1»8 Snatchlist Link13 turned off }
  111. }
  112.  
  113. alias -l _clrlist {
  114. if ($1 == nicks) { if ($input(Are you sure you want to completely clear the nick exclusion list?,y,TL User check)) { remini $scriptdirnickex.ini nicks | echo -gt $chan 13,1»8 Nick Exclusion List13 is now empty } }
  115. if ($1 == hosts) { if ($input(Are you sure you want to completely clear the host exclusion list?,y,TL User check)) { remini $scriptdirnickex.ini hosts | echo -gt $chan 13,1»8 Host Exclusion List13 is now empty } }
  116. if ($1 == Both) { if ($input(Are you sure you want to completely clear the both exclusion lists?,y,TL User check)) { .remove -b $scriptdirnickex.ini | echo -gt $chan 13,1»8 Exclusion List13 is now empty } }
  117. }
  118. alias -l _exrenumber1 {
  119. var %r = 1, %exnick = $ini($scriptdirnickex.ini,nicks,0)
  120. if (%exnick) {
  121. while (%r <= %exnick) { set $+(%,exrenum.,%r) $readini($scriptdirnickex.ini,n,nicks,$ini($scriptdirnickex.ini,nicks,%r)) | inc %r }
  122. _exrenumber2
  123. }
  124. }
  125. alias -l _exrenumber2 {
  126. var %n = 1, %totexvars = $var(%exrenum.*,0)
  127. if (%totexvars) { remini $scriptdirnickex.ini nicks }
  128. while (%n <= %totexvars) { writeini $scriptdirnickex.ini nicks %n $eval($+(%,exrenum.,%n),2) | inc %n }
  129. unset %exrenum.*
  130. }
  131. alias -l _exrenumber3 {
  132. var %r = 1, %exhost = $ini($scriptdirnickex.ini,hosts,0)
  133. if (%exhost) {
  134. while (%r <= %exhost) { set $+(%,exrenum.,%r) $readini($scriptdirnickex.ini,n,hosts,$ini($scriptdirnickex.ini,hosts,%r)) | inc %r }
  135. _exrenumber4
  136. }
  137. }
  138. alias -l _exrenumber4 {
  139. var %n = 1, %totexvars = $var(%exrenum.*,0)
  140. if (%totexvars) { remini $scriptdirnickex.ini hosts }
  141. while (%n <= %totexvars) { writeini $scriptdirnickex.ini hosts %n $eval($+(%,exrenum.,%n),2) | inc %n }
  142. unset %exrenum.*
  143. }
  144. alias -l _tlucadd {
  145. var %x = 1, %v = 1, %newexnick = $iif($1,$1,$?="Enter Nick To Exclude:"), %exnick = $ini($scriptdirnickex.ini,nicks,0)
  146. if (($input(Add $+(%newexnick,'s) Host As Well,y,Excludes)) && (%newexnick)) { var %newexhost = $address(%newexnick,2), %exhost = $ini($scriptdirnickex.ini,hosts,0) }
  147. if (%newexhost) {
  148. if ((%exnick) && (%exhost)) {
  149. while (%x <= %exnick) { if (%newexnick == $readini($scriptdirnickex.ini,n,nicks,%x)) { set %_exnickadd 1 } | inc %x }
  150. while (%v <= %exhost) { if (%newexhost == $readini($scriptdirnickex.ini,n,hosts,%v)) { set %_exhostadd 1 } | inc %v }
  151. if (%_exnickadd) {
  152. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) is already in the user check exclusion list }
  153. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) is already in the user check exclusion list }
  154. unset %_exnickadd
  155. }
  156. if (%_exhostadd) {
  157. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexhost,13) is already in the user check exclusion list }
  158. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexhost,13) is already in the user check exclusion list }
  159. unset %_exhostadd
  160. }
  161. else {
  162. writeini $scriptdirnickex.ini nicks $calc(%exnick + 1) %newexnick | writeini $scriptdirnickex.ini hosts $calc(%exhost + 1) %newexhost
  163. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) and Host: $+(8,%newexhost,13) added to the user check exclusion list }
  164. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) and Host: $+(8,%newexhost,13) added to the user check exclusion list }
  165. }
  166. }
  167. else {
  168. writeini $scriptdirnickex.ini nicks 1 %newexnick | writeini $scriptdirnickex.ini hosts 1 %newexhost
  169. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) and Host: $+(8,%newexhost,13) added to the user check exclusion list }
  170. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) and Host: $+(8,%newexhost,13) added to the user check exclusion list }
  171. }
  172. }
  173. else {
  174. if (%exnick) {
  175. while (%x <= %exnick) {
  176. if (%newexnick == $readini($scriptdirnickex.ini,n,nicks,%x)) { set %_exnickadd 1 }
  177. inc %x
  178. }
  179. if (%_exnickadd) {
  180. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) is already in the user check exclusion list }
  181. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) is already in the user check exclusion list }
  182. unset %_exnickadd
  183. }
  184. else {
  185. writeini $scriptdirnickex.ini nicks $calc(%exnick + 1) %newexnick
  186. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) added to the user check exclusion list }
  187. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) added to the user check exclusion list }
  188. }
  189. }
  190. else {
  191. writeini $scriptdirnickex.ini nicks 1 %newexnick
  192. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%newexnick,13) added to the user check exclusion list }
  193. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%newexnick,13) added to the user check exclusion list }
  194. }
  195. }
  196. }
  197. alias -l _tlucremnick {
  198. var %x = 1, %delexnick = $iif($1,$1,$?="Enter Nick To Remove:"), %exnick = $ini($scriptdirnickex.ini,nicks,0)
  199. if (%delexnick) {
  200. if (%exnick) {
  201. while (%x <= %exnick) { if (%delexnick == $readini($scriptdirnickex.ini,n,nicks,%x)) { set %_exnickdel %x } | inc %x }
  202. if (%_exnickdel) {
  203. remini $scriptdirnickex.ini nicks %_exnickdel
  204. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%delexnick,13) removed from the exclusion list }
  205. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%delexnick,13) removed from the exclusion list }
  206. unset %_exnickdel | _exrenumber1
  207. }
  208. else {
  209. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%delexnick,13) was not found in the user check exclusion list }
  210. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%delexnick,13) was not found in the user check exclusion list }
  211. }
  212. }
  213. else {
  214. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» The nick exclusion list is currently empty }
  215. if (%tlis.areec) { echo -gt $chan 13,1» The nick exclusion list is currently empty }
  216. }
  217. }
  218. }
  219. alias -l _tlucremhost {
  220. var %x = 1, %delexhost = $iif($1,$1,$?="Enter Host To Remove:"), %exhost = $ini($scriptdirnickex.ini,hosts,0)
  221. if (%delexhost) {
  222. if (%exhost) {
  223. while (%x <= %exhost) { if (%delexhost == $readini($scriptdirnickex.ini,n,hosts,%x)) { set %_exhostdel %x } | inc %x }
  224. if (%_exhostdel) {
  225. remini $scriptdirnickex.ini hosts %_exhostdel
  226. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%delexhost,13) removed from the exclusion list }
  227. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%delexhost,13) removed from the exclusion list }
  228. unset %_exhostdel | _exrenumber3
  229. }
  230. else {
  231. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» User: $+(8,%delexhost,13) was not found in the user check exclusion list }
  232. if (%tlis.areec) { echo -gt $chan 13,1» User: $+(8,%delexhost,13) was not found in the user check exclusion list }
  233. }
  234. }
  235. else {
  236. if (%tlis.arenw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1» The host exclusion list is currently empty }
  237. if (%tlis.areec) { echo -gt $chan 13,1» The host exclusion list is currently empty }
  238. }
  239. }
  240. }
  241. alias -l _tlucexlst {
  242. var %l = 1, %z = 1, %exnick = $ini($scriptdirnickex.ini,nicks,0), %exhost = $ini($scriptdirnickex.ini,hosts,0)
  243. if (%tlis.venw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1»7 Nick13 Exclusion List: }
  244. if (%tlis.veec) { echo -gt $chan 13,1»7 Nick13 Exclusion List: }
  245. if (%exnick) {
  246. while (%l <= %exnick) {
  247. if (%tlis.venw) { aline -p @UserCheck $timestamp 13,1»8  $readini($scriptdirnickex.ini,n,nicks,%l) }
  248. if (%tlis.veec) { | echo -gt $chan 13,1»8  $readini($scriptdirnickex.ini,n,nicks,%l) }
  249. inc %l
  250. }
  251. }
  252. else {
  253. if (%tlis.venw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1»4 - NULL - }
  254. if (%tlis.veec) { echo -gt $chan 13,1»4 - NULL - }
  255. }
  256. ;------------------
  257. if (%tlis.venw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1»7 Host13 Exclusion List: }
  258. if (%tlis.veec) { echo -gt $chan 13,1»7 Host13 Exclusion List: }
  259. if (%exhost) {
  260. while (%z <= %exhost) {
  261. if (%tlis.venw) { aline -p @UserCheck $timestamp 13,1»8  $readini($scriptdirnickex.ini,n,hosts,%z) }
  262. if (%tlis.veec) { echo -gt $chan 13,1»8  $readini($scriptdirnickex.ini,n,hosts,%z) }
  263. inc %z
  264. }
  265. }
  266. else {
  267. if (%tlis.venw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13,1»4 - NULL - }
  268. if (%tlis.veec) { echo -gt $chan 13,1»4 - NULL - }
  269. }
  270. }
  271. alias _tlms { var %sockname = tlmsock. $+ $rand(10000,99999) | sockopen -e %sockname www.torrentleech.org 443 | sockmark %sockname $1- }
  272. on *:sockopen:tlmsock.*: {
  273. if ($sockerr) { /echo -g $gettok($sock($sockname).mark, 2, 32) Error. | halt }
  274. else {
  275. sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.1
  276. sockwrite -nt $sockname Host: www.torrentleech.org
  277. sockwrite -nt $sockname Content-type: text/html
  278. sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0
  279. sockwrite -nt $sockname Connection: close
  280. sockwrite -nt $sockname Cookie: tluid=xxx; tlpass=xxxxx; pass_hash=xxxxxx;
  281. sockwrite -nt $sockname $crlf
  282. }
  283. }
  284. on *:sockread:tlmsock.*: {
  285. var %info | sockread %info
  286. if (<h1>An error occurred</h1> isin %info) {
  287. if (%tlis.ojinw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp 13» User: $+(8,$remove($gettok($sock($sockname).mark,3,32),/profile/),13) is 4not13 a member }
  288. if (%tlis.ojiec) { echo -t $gettok($sock($sockname).mark, 2, 32) 13» User: $+(8,$remove($gettok($sock($sockname).mark,3,32),/profile/),13) is 4not13 a member }
  289. }
  290. else {
  291. if ($regex(%info,/<title>Profile for (.*?) \:/)) { sockmark $sockname $sock($sockname).mark uname: $+ $encode($regml(1),m) }
  292. if ($regex(%info,/Down:</b></span>(.*?)</)) { sockmark $sockname $sock($sockname).mark down: $+ $encode($regml(1),m) }
  293. if ($regex(%info,/Up:</b></span>(.*?)</)) { sockmark $sockname $sock($sockname).mark up: $+ $encode($regml(1),m) }
  294. if ($regex(%info,/<b>Ratio:</b>(.*?)</)) { sockmark $sockname $sock($sockname).mark ratio: $+ $encode($regml(1),m) }
  295. if ($regex(%info,/<center>\.\:\: (.*?) \:\:\./)) { sockmark $sockname $sock($sockname).mark title: $+ $encode($regml(1),m) }
  296. if ($regex(%info,/<span\sclass="user_disabled">/)) { sockmark $sockname $sock($sockname).mark ban: $+ $encode(Disabled,m) }
  297. ;if ($regex(%info,/<img alt="(.*?)" src="/images/disabled.png"/)) { if ($regml(1) == Disabled) { sockmark $sockname $sock($sockname).mark ban: $+ $encode($regml(1),m) } }
  298. if ($regex(%info,/<img alt="(.*?)" src="/images/pending.png"/)) { if ($regml(1) == Pending) { sockmark $sockname $sock($sockname).mark pend: $+ $encode($regml(1),m) } }
  299. if ($regex(%info,/<img alt="(.*?)" src="/images/warned.png"/)) { if ($regml(1) == Warned) { sockmark $sockname $sock($sockname).mark warn: $+ $encode($regml(1),m) } }
  300. if ($regex(%info,/<td>Join Date</td><td>(.*?)</)) { sockmark $sockname $sock($sockname).mark joined: $+ $encode($regml(1),m) }
  301. if ($regex(%info,/<td>Class</td><td>(.*?)</)) { sockmark $sockname $sock($sockname).mark class: $+ $encode($regml(1),m) }
  302. if ($regex(%info,/<tr class="even"><td>Torrent Comments</td><td>(.*?)</)) {
  303. var %uname = $decode($gettok($wildtok($sock($sockname).mark, uname:*, 1, 32), 2, 58),m)
  304. var %down = $decode($gettok($wildtok($sock($sockname).mark, down:*, 1, 32), 2, 58),m) | %down = $remove(%down, $chr(32))
  305. var %up = $decode($gettok($wildtok($sock($sockname).mark, up:*, 1, 32), 2, 58),m) | %up = $remove(%up, $chr(32))
  306. var %ratio = $decode($gettok($wildtok($sock($sockname).mark, ratio:*, 1, 32), 2, 58),m) | %ratio = $remove(%ratio, $chr(32))
  307. var %title = $decode($gettok($wildtok($sock($sockname).mark, title:*, 1, 32), 2, 58),m)
  308. ;var %ban = $decode($gettok($wildtok($sock($sockname).mark, ban:*, 1, 32), 2, 58),m)
  309. var %ban = $decode($gettok($wildtok($sock($sockname).mark, ban:*, 1, 32), 2, 58),m)
  310. var %pend = $decode($gettok($wildtok($sock($sockname).mark, pend:*, 1, 32), 2, 58),m)
  311. var %warn = $decode($gettok($wildtok($sock($sockname).mark, warn:*, 1, 32), 2, 58),m)
  312. var %joined.pre = $decode($gettok($wildtok($sock($sockname).mark, joined:*, 1, 32), 2, 58),m)
  313. var %class = $decode($gettok($wildtok($sock($sockname).mark, class:*, 1, 32), 2, 58),m)
  314. var %join.p1 = $gettok(%joined.pre,3,32) | var %join.p2 = $gettok(%joined.pre,2,32) | var %join.p3 = $gettok(%joined.pre,4,32) | var %joined = %join.p1 %join.p2 %join.p3
  315.  
  316. var %noob = $null
  317. if (%ban != $null) { %noob = $+(15,$chr(60),4,%ban,15,$chr(62)) }
  318. if ((%warn != $null) && (%pend == $null)) { %noob = $+(15,$chr(60),4,%warn,15,$chr(62)) }
  319. if ((%warn == $null) && (%pend != $null)) { %noob = $+(15,$chr(60),4,%pend,15,$chr(62)) }
  320. var %output = 13,1» $+(%tlis.gbold) $+ User: $+(8,%uname) $+(%noob) $iif(%tlis.class,$+(15,$chr(60),7,%class,15,$chr(62))) $iif(%tlis.title,$iif(%title,$+(15,title,$chr(60),7,%title,15,$chr(62)))) $iif(%tlis.stats,$+(15,stats,$chr(60),4,D:,%down,9,$chr(32),U:,%up,11,$chr(32),R:,%ratio,15,$chr(62))) $iif(%tlis.join,$+(15,joined,$chr(60),7,%joined,15,$chr(62))) $+(14) $+ $iif(%tlis.profile,@profile) $iif(%tlis.edit,@edit) $iif(%tlis.logs,@logs) $iif(%tlis.iphist,@ipHist) $iif(%tlis.snatch,@snatch) $iif(%tlis.invite,@inv)
  321.  
  322. if (%tlis.ojinw) { if (!$window(@UserCheck)) { window -Cag2 @UserCheck 1 1 } | window -g2 @UserCheck | aline -p @UserCheck $timestamp %output }
  323. if (%tlis.ojiec) { scid $gettok($sock($sockname).mark, 1, 32) echo -t $gettok($sock($sockname).mark, 2, 32) %output }
  324. sockclose $sockname
  325. }
  326. }
  327. }
  328. on *:hotlink:*:*: {
  329. if ($regex($strip($hotline),/User: (.+?) .+?/igs)) {
  330. var %user = $regml(1)
  331. if (!$istok(@profile @logs @ipHist @edit @snatch @inv,$strip($1),32)) { halt }
  332. if (($strip($1) == @profile) && ($mouse.key & 1)) {
  333. if (%tlis.clkcon) { if ($input(View $+(%user,'s) Profile?,y,View Profile)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user) } }
  334. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user) }
  335. }
  336. if (($strip($1) == @logs) && ($mouse.key & 1)) {
  337. if (%tlis.clkcon) { if ($input(View $+(%user,'s) Logs?,y,View Logs)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),User_Log) } }
  338. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),User_Log) }
  339. }
  340. if (($strip($1) == @ipHist) && ($mouse.key & 1)) {
  341. if (%tlis.clkcon) { if ($input(View $+(%user,'s) IP History?,y,View IP History)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),IP_History) } }
  342. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),IP_History) }
  343. }
  344. if (($strip($1) == @edit) && ($mouse.key & 1)) {
  345. if (%tlis.clkcon) { if ($input(Edit $+(%user,?),y,Edit User)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),Edit_Profile) } }
  346. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),Edit_Profile) }
  347. }
  348. if (($strip($1) == @snatch) && ($mouse.key & 1)) {
  349. if (%tlis.clkcon) { if ($input(View $+(%user,'s) Snatchist,y,View Snatchlist)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),User_Snatchlist) } }
  350. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),User_Snatchlist) }
  351. }
  352. if (($strip($1) == @inv) && ($mouse.key & 1)) {
  353. if (%tlis.clkcon) { if ($input(View $+(%user,'s) Invites,y,View Invites)) { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),Invitations) } }
  354. else { run %tlis.browser $+(https://v4.torrentleech.org/profile/,%user,$chr(35),Invitations) }
  355. }
  356. }
  357. else { halt }
  358. }
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!