Public feed #603501

SCC Announce

public text v1 · immutable
Raw Edit
·published 2007-07-04 20:53 UTC
rendered paste body
alias -l -+ var %x = 2, %z = $iif($1,$1,0) | while (%x <= $0) { %z = $calc(%z +$($+($,%x),2)) | inc %x } | return %z
alias -l -- var %x = 2, %z = $iif($1,$1,0) | while (%x <= $0) { %z = $calc(%z -$($+($,%x),2)) | inc %x } | return %z
alias -l drawdots var %@ = $1, %x = $2, %y = $3, %s = $4, %i = 5, %z = 0, %c | while (%i <= $0) { %c = $($+($,%i),2) | !drawdot -nr %@ %c %s $-+(%x,%z) %y | inc %z | inc %i }
alias -l drawlogo {
  var %dd = drawdots $1 $2 $(%y,0), %y = $3, %i = inc $(%y,0)
  $(%dd,2) 1 2500134 2368548 2368547 2434333 2302775 1776526 1513401 1513399 1644972 2105433 2368545 2434336 2368548 2368548 2500134 | $(%i,2)
  $(%dd,2) 1 2368548 2236961 2236957 1908058 1447588 1579159 1710716 1776502 1579139 1250201 1710720 2171180 2236957 2236962 2368548 | $(%i,2)
  $(%dd,2) 1 2434340 2236955 1908063 1513376 2039623 2302747 2302743 2039566 1447465 2565987 1710720 1644942 2171176 2236959 2368548 | $(%i,2)
  $(%dd,2) 1 2434335 2039613 1579163 2105398 2236948 2236959 2039578 1644868 7303119 9803259 2039614 1513337 1776499 2302748 2302748 | $(%i,2)
  $(%dd,2) 1 2368543 1710721 1447528 1315875 1250095 1710615 1315875 7039949 14803455 11119100 1842244 1973804 1513372 2171190 2434337 | $(%i,2)
  $(%dd,2) 1 2302774 1118621 3355527 8750555 8553184 3487115 921187 10526967 14474495 9605879 1250111 2171154 1644936 1908065 2434332 | $(%i,2)
  $(%dd,2) 1 2171209 1184411 026550 11382271 15000831 12040191 6645224 12040191 13684991 9803259 3223934 1842191 1842284 1842284 2434331 | $(%i,2)
  $(%dd,2) 1 2171213 1579166 1513243 2500208 9408504 11777023 12171775 11513855 11645439 12303359 7105753 1315870 1842274 1842284 2434331 | $(%i,2)
  $(%dd,2) 1 2236996 1447600 2236973 1710609 1381734 6776823 9934847 8619007 8224255 10198015 7237370 1710661 1710701 1842283 2434331 | $(%i,2)
  $(%dd,2) 1 2302763 1513377 1973839 2302742 1381655 4868795 10395391 8487423 2763452 5395149 4605634 3421318 1513360 1973841 2434334 | $(%i,2)
  $(%dd,2) 1 2434332 1842280 1644935 2302747 2105367 1644871 6908394 8290047 1644872 1381662 1710620 1973847 1644949 2236967 2368546 | $(%i,2)
  $(%dd,2) 1 2434338 2171176 1579154 1842278 2302744 1776397 2763396 3684518 1842204 2302737 2105392 1513369 1973842 2236955 2368548 | $(%i,2)
  $(%dd,2) 1 2368548 2236956 2105402 1579164 1710718 2039601 2631752 2500164 2039585 1908059 1579168 1842280 2236957 2236961 2368548 | $(%i,2)
  $(%dd,2) 1 2368548 2236962 2236956 2171184 1644931 1381819 1250231 1316015 1381826 1513379 1973841 2302748 2236960 2236962 2368548 | $(%i,2)
  $(%dd,2) 1 2500134 2368548 2368548 2368543 2368544 2105423 1908085 1908086 2039654 2302767 2434333 2368547 2368548 2368548 2500134 | $(%i,2)
}
alias -l trim {
  var %c = 0, %x = $1, %z, %i = $len(%x), %trim
  if ($width(%x,$2,$3,0,1) > $$4) { while (%i) { %z = $left(%x,%i) | if ($width(%z,$2,$3,0,1) < $4) { %trim = $+(%z,...) | break } | dec %i } }
  if (!%trim) { %trim = %x }
  return %trim
}
alias -l xcat {
  var %x
  %x = $iif($1 == Apps/0DAY,1, $iif($1 == Apps/PC ISO,2, $iif($1 == DOX,3, $iif($1 == Games/PC Clone,4,$iif($1 == Games/PC ISO,5,$iif($1 == Games/PS2,6))))))
  if (!%x) { %x = $iif($1 == Games/PS3,7,$iif($1 == Games/PSP,8,$iif($1 == Games/XBOX,9,$iif($1 == Games/XBOX360,10,$iif($1 == MiSC,11,$iif($1 == Movies/BOXSET,12)))))) }
  if (!%x) { %x = $iif($1 == Movies/DVDR,13,$iif($1 == Movies/SVCD,14,$iif($1 == Movies/VCD,15,$iif($1 == Movies/XviD,16,$iif($1 == MP3,17,$iif($1 == Music Videos,18)))))) }
  if (!%x) { %x = $iif($1 == TV/BOXSET,19,$iif($1 == TV/DVDRiP,20,$iif($1 == TV/HR,21,$iif($1 == TV/XviD,22,$iif($1 == XXX,23))))) }
  if (%x) { return %x }
}
alias scc {
  if ($isid) {
    var %~ = $strip($1), %1 = /(?:NEW in (.+): -> (.+) \(Uploaded (.+) after pre\) - \((.+)\) - \((.+)\))/i, %2 = /(?:NEW in (.+): -> (.+) \((.+)\) - \((.+)\))/i, %: = $regex(r1,%~,%1), %; = $regex(r2,%~,%2), %_, %-
    if (%: == 1) { %_ = cat rls pre size url | %- = $findtok(%_,$prop,1,32) | return $iif(%- isnum 1-5,$regml(r1,%-),$true) }
    if (%; == 1) { %_ = cat rls size url | %- = $findtok(%_,$prop,1,32) | return $iif(%- isnum 1-4,$regml(r2,%-),$true) }
    return $false
  }
  if (!$isid) { dialog -m sccann sccann }
}
alias fadewin {
  var %@ = $$2, %a = $iif($1 == -i,0,255)
  if ($1 == -i) { setlayer 0 %@ | window -o %@ }
  while (($1 == -i) && (%a < 256)) || (($1 == -o) && (%a)) { setlayer $int(%a) %@ | $iif($1 == -i,inc,dec) %a 17 }
  if ($1 == -o) { setlayer 0 %@ | window -c %@ }
  if ($appactive) { showmirc -r }
}
alias _scctip {
  tokenize 1 $1- | .hadd -mu5 _SCC lastURL $3
  var %@ = @SCC Announce, %: = $time(HH:nn:ss), %h = 100, %w = 0, %x, %y, %i, %t = _scctip.close
  var %~1 = Tahoma, %:1 = 14, %~2 = Arial, %:2 = 12
  var %@1 = 2236962, %@2 = 1710718, %@3 = 16777215, %@4 = 6120033
  var %_c = $1, %_r = $trim($2,%~1,%:1,500), %_l
  if ($width(%_r,%~1,%:1,0,1) < 220) { %w = 250 }
  if (!%w) { %w = $-+(30,$width(%_r,%~1,%:1,0,1)) }
  %_l = $trim($3,%~2,%:2,$--(%w,20))
  %x = $--($-+($window(-2).x,$window(-2).w),%w,10)
  %y = $--($-+($window(-2).y,$window(-2).h),%h,10)
  if ($window(%@)) { if (!$hget(%@)) { .hmake %@ } | %i = $-+($hget(%@,0).item,1) | .hadd %@ %i $+(%_c,,%_r,,%_s,,%_l,,%_p) | return }
  window -pBhdo +dL %@ %x %y %w %h
  !drawrect -nrf %@ %@1 1 0 0 %w %h
  !drawrect -nr %@ 0 0.5 0 0 %w %h
  !drawline -nr %@ %@2 1 0 20 %w 20
  !drawtext -npr %@ %@3 %~1 %:2 25 3 SCC Announce
  !drawtext -npr %@ %@3 %~1 $--(%:2,2) $--(%w,$width(%:,%~2,%:2,0,1),10) 4 %:
  drawlogo %@ 5 2
  !drawtext -npr %@ %@4 %~2 %:2 10 25 %_c
  !drawtext -npr %@ %@3 %~1 %:1 15 45 %_r
  if ($hget(_SCC,lastURL)) { !drawtext -npr %@ %@3 %~2 9 5 70 [CP] [DL] }
  !drawtext -npr %@ %@3 %~2 %:2 5 82 %_l
  fadewin -i %@
  $+(.timer,%t) 1 5 %t
}
alias _scctip.close {
  var %h = @SCC Announce, %i = 1, %m, %r, %v, %x | fadewin -o %h
  if ($hget(%h,%i)) { _scctip $hget(%h,%i) | while ($hget(%h,$-+(%i,1))) { .hadd %h %i $hget(%h,$-+(%i,1)) | inc %i } | .hdel %h %i }
  if ($hget(%h)) && ($hget(%h,0).item == 0) { .hfree %h }
}

on *:TEXT:*:#SCC-Announce {
  var %x = $strip($1-), %@ = @SCC Uploads
  if ($network == SceneAccess) && ($nick == SCC) && ($scc(%x)) {
    if ($xcat($scc(%x).cat) isnum 1-23) && ($gettok($hget(_SCC,settings),$xcat($scc(%x).cat),32) == 1) {
      if ($appactive) { _scctip $+(,$scc(%x).cat,,$scc(%x).rls,,$scc(%x).url) }
      if (!$window(%@)) { window -k0n %@ }
      aline -h %@ 
      aline -h %@ $+(,$scc(%x).cat,)     $scc(%x).rls
      aline -h %@ $scc(%x).url
      titlebar %@ - $fline(%@,http://*,0,2) $+(upload,$iif($fline(%@,http://*,0,2) != 1,s))
    }
  }
}

MENU @SCC Announce {
  dclick {
    var %mx = $mouse.x, %my = $mouse.y, %t = _scctip.close, %u = $hget(_SCC,lastURL)
    if (%u) {
      if ($inrect(%mx,%my,5,70,19,11)) { clipboard %u }
      if ($inrect(%mx,%my,27,70,17,11)) { run $replace(%u,details.php,download.php) }
      if (!$inrect(%mx,%my,5,70,39,11)) { if ($timer(%t)) { $+(.timer,%t) -e } | else { %t } }
    }
    if (!%u) { if ($timer(%t)) { $+(.timer,%t) -e } | else { %t } }
  }
}

dialog -l sccann {
  title "SCC Announce Setup"
  size -1 -1 468 240
  option pixels notheme
  box "Categories", 1, 10 10 450 200
  check "Apps/0DAY", 2, 20 30 75 17, flat
  check "Apps/PC ISO", 3, 130 30 85 17, flat
  check "DOX", 4, 240 30 45 17, flat
  check "Games/PC Clone", 5, 350 30 100 17, flat
  check "Games/PC ISO", 6, 20 60 90 17, flat
  check "Games/PS2", 7, 130 60 75 17, flat
  check "Games/PS3", 8, 240 60 75 17, flat
  check "Games/PSP", 9, 350 60 75 17, flat
  check "Games/XBOX", 10, 20 90 85 17, flat
  check "Games/XBOX360", 11, 130 90 100 17, flat
  check "MiSC", 12, 240 90 45 17, flat
  check "Movies/BOXSET", 13, 350 90 95 17, flat
  check "Movies/DVDR", 14, 20 120 85 17, flat
  check "Movies/SVCD", 15, 130 120 85 17, flat
  check "Movies/VCD", 16, 240 120 80 17, flat
  check "Movies/XviD", 17, 350 120 80 17, flat
  check "MP3", 18, 20 150 45 17, flat
  check "Music Videos", 19, 130 150 80 17, flat
  check "TV/BOXSET", 20, 240 150 75 17, flat
  check "TV/DVDRiP", 21, 350 150 75 17, flat
  check "TV/HR", 22, 20 180 50 17, flat
  check "TV/XviD", 23, 130 180 60 17, flat
  check "XXX", 24, 240 180 40 17, flat
  button "&OK", 25, 410 215 50 20, ok flat
}
on *:dialog:sccann:init:* {
  var %h = _SCC, %i = 1
  if (!$hget(%h)) { .hmake %h | if ($isfile(scc.mht)) { .hload %h scc.mht } }
  if ($hget(%h)) {
    if (!$hget(%h,settings)) || ($numtok($hget(%h,settings),32) != 23) { .hadd %h settings 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 | .hsave %h scc.mht }
    if ($numtok($hget(%h,settings),32) == 23) { tokenize 32 $hget(%h,settings) | while (%i <= $0) { if ($($+($,%i),2) == 1) { did -c $dname $-+(%i,1) } | inc %i } }
  }
}
on *:dialog:sccann:sclick:*:var %d = $did, %x = $hget(_SCC,settings) | if (%d isnum 2-24) { %x = $puttok(%x,$did($dname,%d).state,$--(%d,1),32) | .hadd _SCC settings %x | .hsave _SCC scc.mht } | if (%d == 25) { .hsave _SCC scc.mht }