API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 29th, 2017
611
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 17.66 KB | None | 0 0
raw download clone embed print report
  1. ; Deathlist v1.0
  2. ; by ch1zra
  3. ; ch1zra@gmail.com
  4. ; http://uptheirons.co.sr/
  5. ; #Scripters @ irc.krstarica.com
  6. ; Copyright ©  2007 Up The Irons ! inc.
  7. ;
  8. ; #Comment on
  9. ; if you are planning to use this in your script,
  10. ; I'd appreciate credits, and maybe a link to script :]
  11. ; #Comment end
  12.  
  13. ; -------------------------> on $Load and $UnLoad <-------------------------
  14.  
  15. on 1:load: {
  16.   if ($version > 6.17) {
  17.     echo -a [Deathlist] :: succesfully loaded !!!
  18.     echo -a [Deathlist] :: Please, take a few minutes to read the 4Deathlist's help file, so you could use this addon properly.
  19.     echo -a [Deathlist] :: ch1zra@gmail.com
  20.     echo -a [Deathlist] :: http://uptheirons.co.sr/
  21.     if (!$rdli(deathlist)) {
  22.       wdli deathlist off
  23.       wdli soulsearch off
  24.       wdli soulmask 7
  25.       wdli soulscan 8 1800
  26.       wdli ban off
  27.       wdli ignore off
  28.       wdli kick off
  29.       wdli banmask 3
  30.       wdli banduration 9 2700
  31.       wdli kickmsg Deathlisted!! [Abandon hope, all ye who enter here!]
  32.       wdli bcount 1
  33.     }
  34.     deathlist
  35.   }
  36.   else {
  37.     echo  Version 6.17 or higher required, get a newer version of mirc at http://www.mirc.com 
  38.     unload -rs $script
  39.   }
  40. }
  41.  
  42. on 1:unload: {
  43.   if ($dialog(deathlist)) {
  44.     dialog -c deathlist
  45.   }
  46.   echo -a [Deathlist] :: succesfully UNloaded !!!
  47.   echo -a [Deathlist] :: settings are saved in4 $scriptdir
  48. }
  49.  
  50.  
  51. ; -------------------------> mIRC $Events <-------------------------
  52.  
  53. on *:start: {
  54.   hmake deathlist 100
  55.   if ($isfile($qt($scriptdirdeathlist.dat))) hload deathlist $qt($scriptdirdeathlist.dat)
  56. }
  57.  
  58. on *:close: {
  59.   hsave deathlist $qt($scriptdirdeathlist.dat)
  60. }
  61.  
  62. ; -------------------------> $Aliases <-------------------------
  63.  
  64. alias -l wdli { writeini $qt($scriptdirdeathlist.ini) Settings $1 $2- }
  65. alias -l rdli { return $readini($qt($scriptdirdeathlist.ini),Settings,$1) }
  66. alias -l dl.bdur { return $gettok($rdli(banduration),2,32) }
  67. alias -l dl.ssr { return $gettok($rdli(soulscan),2,32) }
  68.  
  69. alias deathlist {
  70.   if ($1 == $null) {
  71.     if ($dialog(deathlist)) {
  72.       dialog -ve deathlist deathlist
  73.     }
  74.     else dialog -mdo deathlist deathlist
  75.   }
  76.   if ($1 == on) {
  77.     .enable #deathlist
  78.     wdli deathlist on
  79.     if ($dialog(deathlist)) { dialog -c deathlist | dialog -mdo deathlist deathlist }
  80.     if ($rdli(soulsearch) == on) && ($server) { .timersoulsearch 0 $dl.ssr dl.check }
  81.   }
  82.   if ($1 == off) {
  83.     .disable #deathlist
  84.     wdli deathlist off
  85.     if ($dialog(deathlist)) { dialog -c deathlist | dialog -mdo deathlist deathlist }
  86.     if ($timer(soulsearch)) { .timersoulsearch off }
  87.   }
  88.   elseif ($1) && ( $1 != on) && ($1 != off) { echo -a [Deathlist] :: Bad input. }
  89. }
  90.  
  91. alias soul.add {
  92.   if (!$1) { return }
  93.   hadd -m deathlist $1 $iif($2,$2-,added on $fulldate)
  94.   if ($dialog(deathlist)) {
  95.     did -r deathlist 2
  96.     dlist.list
  97.   }
  98.   if ($input(You just added $crlf $1 $crlf to Soul Pit $+ $chr(46) do you want to perform a Soulscan now?,y,New soul added to Soul Pit) == $true) {
  99.     dl.check
  100.   }
  101. }
  102.  
  103. alias -l just.punish {
  104.   if ($rdli(ignore) == on) { .ignore $address($2,$calc($rdli(soulmask) - 1)) }
  105.   if ($rdli(ban) == on) {
  106.     ban  $iif($rdli(kick) == on,-k) $+ $iif($dl.bdur, $iif($rdli(kick) == on, u $+ $dl.bdur,-u $+ $dl.bdur)) $1 $2 $rdli(banmask) $rdli(kickmsg)  $+ $3- $+  [ $rdli(bcount) ]
  107.     wdli bcount $calc($rdli(bcount) + 1)
  108.   }
  109.   if ($rdli(kick) == on) && ($rdli(ban) == off ) {
  110.     kick $1 $2 $rdli(kickmsg)  $+ $3- $+  [[ $rdli(bcount) ]]
  111.     wdli bcount $calc($rdli(bcount) + 1)
  112.   }
  113. }
  114.  
  115. alias -l dl.check {
  116.   if ($dialog(deathlist)) {
  117.     did -r deathlist 2
  118.     dlist.list
  119.   }
  120.   var %dl.chk $chan(0)
  121.   while (%dl.chk) {
  122.     if ($me isop $chan(%dl.chk)) { soulscan $chan(%dl.chk) $calc($rdli(soulmask) - 1) }
  123.     dec %dl.chk
  124.   }
  125. }
  126.  
  127. alias -l dlist.list {
  128.   var %s $hget(deathlist,0).data
  129.   while (%s) {
  130.     did -a deathlist 2 $hget(deathlist,%s).item
  131.     dec %s
  132.   }
  133.   did -b deathlist 4,5
  134. }
  135.  
  136. alias -l dlist.about {
  137.   if ($dialog(deathlist)) { dialog -i deathlist }
  138.   if ($dialog(dlist.about)) {
  139.     dialog -ve dlist.about dlist.about
  140.   }
  141.   else dialog -mdo dlist.about dlist.about
  142. }
  143.  
  144. alias soulscan {
  145.   if (!$server) { halt }
  146.   if ($0 == 2) && ($left($1,1) == $chr(35)) && ($2 isnum) { tokenize 32 $1- }
  147.   elseif ($0 == 1) {
  148.     if ($1 isnum) && ($chr(35) == $left($active,1)) { tokenize 32 $active $2 }
  149.     elseif ($chr(35) == $left($active,1)) { tokenize 32 $1 $calc($rdli(soulmask) - 1) }
  150.   }
  151.   elseif ($0 == 0) && ($chr(35) == $left($active,1)) { tokenize 32 $active $calc($rdli(soulmask) - 1) }
  152.   else { echo -a [Deathlist] :: Bad input, halting. | halt }
  153.   if ($me !ison $1)  { echo -a [Deathlist] :: Bad input, halting. | halt }
  154.   if ($me isop $1) {
  155.     var %dl.cn $nick($1,0)
  156.     while (%dl.cn) {
  157.       var %dl.sn $hget(deathlist,0).data
  158.       if (%dl.sn != $null) {
  159.         while (%dl.sn) {
  160.           if ($hget(deathlist,%dl.sn).item iswm $address($nick($1,%dl.cn),$2)) && ($nick($1,%dl.cn) != $me)  {
  161.             echo $1 [Deathlist] :: Match4 $hget(deathlist,%dl.sn).item in4 $nick($1,%dl.cn) ::4 $address($nick($1,%dl.cn),$2) 
  162.             just.punish $1 $nick($1,%dl.cn) $hget(deathlist,%dl.sn).data
  163.             inc %dlist.found
  164.           }
  165.           dec %dl.sn
  166.         }
  167.         dec %dl.cn
  168.       }
  169.     }
  170.   }
  171.   echo $1 [Deathlist] :: Finnished soulscanning on  $+ $1 $+ .
  172.   $iif(%dlist.found,   echo $1 [Deathlist] ::4 %dlist.found  $iif(%dlist.found ==  1,match,matches).)
  173.   unset %dlist.found
  174. }
  175.  
  176. ; -------------------------> $Group <-------------------------
  177.  
  178. #deathlist on
  179. on @*:join:*: {
  180.   var %dl.sn $hget(deathlist,0).data
  181.   if (%dl.sn != $null) {
  182.     while (%dl.sn) {
  183.       if ($hget(deathlist,%dl.sn).item iswm $address($nick($1,%dl.cn),$calc($rdli(soulmask) - 1))) {
  184.         echo $1 [Deathlist] :: Match4 $hget(deathlist,%dl.sn).item in4 $nick ::4 $address($nick,$calc($rdli(soulmask) - 1)) 
  185.         just.punish $chan $nick $hget(deathlist,%dl.sn).data
  186.       }
  187.       dec %dl.sn
  188.     }
  189.   }
  190. }
  191.  
  192. #deathlist end
  193.  
  194. ; -------------------------> $Dialogs <-------------------------
  195.  
  196. dialog deathlist {
  197.   title "Deathlist † Abandon hope, all ye who enter here! †"
  198.   size -1 -1 275 130
  199.   option dbu
  200.   icon $qt($scriptdirdeathlist.ico), 0
  201.   box "Soul Pit", 1, 0 0 80 125
  202.   list 2, 5 10 70 80, size
  203.   edit "", 3, 5 95 70 10, autohs
  204.   button "Possess", 4, 5 110 30 10, flat
  205.   button "&Release", 5, 45 110 30 10, flat
  206.   text "Soul burns for :", 6, 85 5 50 8
  207.   edit "", 7, 125 4 145 10, read
  208.   box "Soul Searcher", 8, 85 15 90 60
  209.   check "Enable &Soulscanner", 9, 90 25 60 10
  210.   text "Soul $mask used :", 10, 100 35 45 8
  211.   combo 11, 100 45 70 20, drop
  212.   text "Scan every :", 12, 90 61 33 8
  213.   combo 13, 125 60 45 20, drop
  214.   box "Justfull Punishment", 14, 180 15 90 60
  215.   check "kick", 15, 185 25 20 10
  216.   check "ignore", 16, 210 25 30 10
  217.   check "ban using this $mask :", 17, 185 35 70 10
  218.   combo 18, 195 45 70 20, drop
  219.   text "Ban duration :", 19, 185 61 35 8
  220.   combo 20, 220 60 45 20, drop
  221.   box "Other Hell Spawned Settings", 21, 85 75 185 35
  222.   text "Kick message", 22, 90 86 35 8
  223.   edit "Deathlisted!! [Abandon hope, all ye who enter here!]", 23, 125 85 105 10, autohs
  224.   button "Reset", 24, 235 85 30 10, flat
  225.   check "&Deathlist disabled. No soul harvesting until enabled...", 25, 90 97 175 10, flat push
  226.   text "http://www.uptheirons.co.sr/", 26, 85 115 80 8, disable center
  227.   button "About", 27, 170 115 30 10, flat
  228.   button "Help", 28, 205 115 30 10, flat
  229.   button "Close", 29, 240 115 30 10, flat ok
  230. }
  231.  
  232. dialog dlist.about {
  233.   title "About † Deathlist †"
  234.   size -1 -1 160 125
  235.   option dbu
  236.   icon $qt($scriptdirdeathlist.ico), 0
  237.   text "1st of all : IRC WAR IS SHIT / CRAP / DEAD / FOR MORONS.", 1, 5 5 150 8
  238.   text "I'm not in IRC war at all, but when someone messes with me, my friends or channels I'm on, they're bound to end up burning in depths of Hell for all eternity.", 2, 5 15 150 20, center
  239.   text "OK, now when we clarified that one, we can go and see some info about this wicked, hell spawned, but quite usefull and functional addon.", 3, 5 40 150 20, center
  240.   text "Author :", 4, 5 60 23 8, right
  241.   text "Version : ", 5, 5 70 23 8, right
  242.   text "Web :", 6, 5 80 23 8, right
  243.   text "Mail : ", 7, 5 90 23 8, right
  244.   text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 8, 5 35 150 3, center
  245.   text "IRC : ", 9, 5 100 23 8, right
  246.   text "1.07", 10, 30 70 15 8
  247.   text "ch1zra", 11, 30 60 25 8
  248.   text "http://uptheirons.co.sr/", 12, 30 80 60 8
  249.   text "ch1zra@gmail.com", 13, 30 90 50 8
  250.   text "#Scripters @ irc.krstarica.com", 14, 30 100 75 8
  251.   icon 15, 115 60 40 45, $qt($scriptdirdb.JPG), 0
  252.   button "OK / Close", 16, 5 110 35 10, flat ok
  253.   text "Abandon hope, all ye who enter here!", 17, 45 110 110 8, disable center
  254. }
  255.  
  256. ; -------------------------> Dialog $Events <-------------------------
  257.  
  258. on *:dialog:deathlist:init:*: {
  259.   if ($group(#deathlist).status == on) { wdli deathlist on }
  260.   else { wdli deathlist off }
  261.   if ($rdli(deathlist) == off) { did -b $dname 1-24 }
  262.   else {
  263.     did -ra $dname 25 &Deathlist enabled. Let the harvesting of souls begin !!!
  264.     did -c $dname 25
  265.   }
  266.   dlist.list
  267.   if ($rdli(soulsearch) == on) { did -c $dname 9 }
  268.   else { did -b $dname 10-13 }
  269.   if ($rdli(kick) == on) { did -c $dname 15 }
  270.   if ($rdli(ignore) == on) { did -c $dname 16 }
  271.   if ($rdli(ban) == on) { did -c $dname 17 }
  272.   else { did -b $dname 18-20 }
  273.   did -a $dname 11,18 0: *!user@host
  274.   did -a $dname 11,18 1: *!*user@host
  275.   did -a $dname 11,18 2: *!*@host
  276.   did -a $dname 11,18 3: *!*user@*.host
  277.   did -a $dname 11,18 4: *!*@*.host
  278.   did -a $dname 11,18 5: nick!user@host
  279.   did -a $dname 11,18 6: nick!*user@host
  280.   did -a $dname 11,18 7: nick!*@host
  281.   did -a $dname 11,18 8: nick!*user@*.host
  282.   did -a $dname 11,18 9: nick!*@*.host
  283.   did -a $dname 13,20 1 minute
  284.   did -a $dname 13,20 2 minutes
  285.   did -a $dname 13,20 3 minutes
  286.   did -a $dname 13,20 5 minutes
  287.   did -a $dname 13,20 10 minutes
  288.   did -a $dname 13,20 15 minutes
  289.   did -a $dname 13,20 20 minutes
  290.   did -a $dname 13,20 30 minutes
  291.   did -a $dname 13,20 45 minutes
  292.   did -a $dname 13,20 60 minutes
  293.   did -a $dname 20 Permanent
  294.   did -c $dname 11  $rdli(soulmask)
  295.   did -c $dname 13 $rdli(soulscan)
  296.   did -c $dname 18 $rdli(banmask)
  297.   did -c $dname 20 $rdli(banduration)
  298. }
  299.  
  300. on *:dialog:deathlist:close:*: {
  301.   hsave deathlist $qt($scriptdirdeathlist.dat)
  302.   wdli kickmsg $did(23)
  303. }
  304.  
  305. on *:dialog:dlist.about:close:*: {
  306.   if ($dialog(deathlist)) { dialog -e deathlist }
  307. }
  308.  
  309. on *:dialog:deathlist:edit:3: {
  310.   if ($remove($did(3),$chr(32)) != $null) { did -e $dname 4 }
  311.   else { did -b $dname 4 }
  312. }
  313.  
  314. on *:dialog:deathlist:dclick:2: {
  315.   if ($did(2).seltext != $null) {
  316.     dialog -i $dname
  317.     var %dlist.csoul $$input(Change this soul [nick/mask reason],e, Change soul $did(2).seltext,$did(2).seltext)
  318.     if (%dlist.csoul != $null) {
  319.       hdel deathlist $did(2).seltext
  320.       hadd -m deathlist %dlist.csoul
  321.       did -r $dname 2
  322.       dlist.list
  323.     }
  324.     dialog -e $dname
  325.   }
  326. }
  327.  
  328. on *:dialog:deathlist:sclick:*: {
  329.   if ($did == 2) && ($did(2).seltext != $null) {
  330.     did -ra $dname 7 $hget(deathlist,$did(2).seltext)
  331.     did -e $dname 5
  332.   }
  333.   if ($did == 4) {
  334.     if ($did(3).text != $null) && (!$hget(deathlist,$gettok($did(3).text,1,32))) {
  335.       tokenize $did(3)
  336.       if (!$2) {
  337.         hadd -m deathlist $did(3) added on $fulldate
  338.       }
  339.       else { hadd -m deathlist $did(3) }
  340.     }
  341.     did -r $dname 2,3,7
  342.     dlist.list
  343.     did -f $dname 3
  344.   }
  345.   if ($did == 5) {
  346.     if ($hget(deathlist,$did(2).seltext)) {
  347.       dialog -i $dname
  348.       if ($input(Are you sure that you want to release a soul called  $crlf $did(2).seltext $crlf $&
  349.         from eternal torment ?,yw,Soul $did(2).seltext Release) == $true) {
  350.         hdel deathlist $did(2).seltext
  351.       }
  352.       did -r $dname 2,3,7
  353.       dlist.list
  354.       dialog -e $dname
  355.     }
  356.   }
  357.   if ($did == 9) {
  358.     if ($did(9).state == 1) {
  359.       wdli soulsearch on
  360.       did -e $dname 10-13
  361.       if ($server) { .timersoulsearch 0 $dl.ssr dl.check }
  362.     }
  363.     else {
  364.       wdli soulsearch off
  365.       did -b $dname 10-13
  366.       if ($timer(soulsearch)) { .timersoulsearch off }
  367.     }
  368.   }
  369.   if ($did == 11) { wdli soulmask $did(11).sel }
  370.   if ($did == 13) {
  371.     wdli soulscan $did(13).sel $calc($gettok($did(13),1,32) * 60)
  372.     if ($timer(soulsearch)) { .timersoulsearch off }
  373.     if ($server) { .timersoulsearch 0 $dl.ssr dl.check }
  374.   }
  375.   if ($did == 15) {
  376.     if ($did(15).state == 1) { wdli kick on }
  377.     else { wdli kick off }
  378.   }
  379.   if ($did == 16) {
  380.     if ($did(16).state == 1) { wdli ignore on }
  381.     else { wdli ignore off }
  382.   }
  383.   if ($did == 17) {
  384.     if ($did(17).state == 1) {
  385.       wdli ban on
  386.       did -e $dname 18-20
  387.     }
  388.     else {
  389.       wdli ban off
  390.       did -b $dname 18-20
  391.     }
  392.   }
  393.   if ($did == 18) { wdli banmask $did(18).sel }
  394.   if ($did == 20) { wdli banduration $did(20).sel $iif($did(20).sel != 11,$calc($gettok($did(20),1,32) * 60)) }
  395.   if ($did == 24) { did -ra $dname 23 Deathlisted!! [Abandon hope, all ye who enter here!] }
  396.   if ($did == 25) {
  397.     if ($did(25).state == 1) {
  398.       did -ra $dname 25 &Deathlist enabled. Let the harvesting of souls begin !!!
  399.       wdli deathlist on
  400.       did -e $dname 1-3,6-9,14-17,22-24
  401.       if ($did(2).seltext != $null) { did -e $dname 5 }
  402.       if ($did(3) != $null) { did -e $dname 4 }
  403.       if ($rdli(soulsearch) == on) { did -e $dname 10-13 }
  404.       if ($rdli(ban) == on) { did -e $dname 18-20  }
  405.       if ($rdli(soulsearch) == on) {
  406.         if ($timer(soulsearch)) { .timersoulsearch off }
  407.         if ($server) { .timersoulsearch 0 $dl.ssr dl.check }
  408.       }
  409.     }
  410.     else {
  411.       did -ra $dname 25 &Deathlist disabled. No soul harvesting until enabled...
  412.       wdli deathlist off
  413.       did -b $dname 1-20,22-24
  414.       if ($timer(soulsearch)) { .timersoulsearch off }
  415.     }
  416.   }
  417.   if ($did == 27) { dlist.about }
  418.   if ($did == 28) { dialog -i $dname | .run $qt($scriptdirdeathlist_help.chm) }
  419. }
  420.  
  421. ; -------------------------> $IRC Events and $IAL updating <-------------------------
  422.  
  423. on *:connect: {
  424.   if ($rdli(soulsearch) == on) { .timersoulsearch 0 $dl.ssr dl.check }
  425. }
  426.  
  427. on *:OP:#: {
  428.   if ($me == $opnick) {
  429.     set %dlist.chans  %dlist.chans $chan
  430.     .who $chan
  431.   }
  432. }
  433.  
  434. raw 352:*: {
  435.   if ($2 isin %dlist.chans) {  haltdef }
  436. }
  437.  
  438. raw 315:*: {
  439.   if ($2 isin %dlist.chans) {  
  440.     haltdef
  441.     set %dlist.chans $remove(%dlist.chans,$2)
  442.     if ($me isop $2) { soulscan $2 }
  443.   }
  444. }
  445.  
  446. ; -------------------------> $Menus <-------------------------
  447.  
  448. menu nicklist {
  449.   $iif($me isop $active,Deathlist)
  450.   .Burn $$1
  451.   ..Nick
  452.   ...* $+ $$1 $+ *:var %dlist.souladd $?="Enter reason :" | soul.add * $+ $$1 $+ * $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  453.   ...* $+ $$1:var %dlist.souladd $?="Enter reason :" | soul.add * $+ $$1 $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  454.   ...$$1 $+ *:var %dlist.souladd $?="Enter reason :" | soul.add $$1 $+ * $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  455.   ...-
  456.   ...Other:var %dlist.souladd $?="Enter reason :" | soul.add $$input(Specify nick,e, Other mask for * $+ $$1 $+ *,* $+ $$1 $+ *) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  457.   ..Address
  458.   ...$address($$1,0):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,0) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  459.   ...$address($$1,1):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,1) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  460.   ...$address($$1,2):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,2) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  461.   ...$address($$1,3):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,3) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  462.   ...$address($$1,4):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,4) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  463.   ...$address($$1,5):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,5) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  464.   ...$address($$1,6):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,6) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  465.   ...$address($$1,7):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,7) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  466.   ...$address($$1,8):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,8) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  467.   ...$address($$1,9):var %dlist.souladd $?="Enter reason :" | soul.add $address($$1,9) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  468.   ...-
  469.   ...Other:var %dlist.souladd $?="Enter reason :" | soul.add $$input(Add specific mask,e, Other mask for $$1,$address($$1,5)) $iif(%dlist.souladd,%dlist.souladd, added on $fulldate)
  470. }
  471.  
  472. menu channel {
  473.   Deathlist
  474.   .Settings:deathlist
  475.   .Soulscan $active:soulscan
  476.   .-
  477.   .$iif($group(#deathlist).status == on,$style(1),$style(0)) $+ Use Deathlist: $iif($group(#deathlist).status == on, .disable, .enable) #deathlist | if ($dialog(deathlist)) { dialog -c deathlist | deathlist }
  478. }
  479.  
  480. menu status {
  481.   Deathlist
  482.   .Settings:deathlist
  483.   .$iif($group(#deathlist).status == on,$style(1),$style(0)) $+ Use Deathlist: $iif($group(#deathlist).status == on, .disable, .enable) #deathlist | if ($dialog(deathlist)) { dialog -c deathlist | deathlist }
  484. }
  485.  
  486. menu menubar {
  487.   Deathlist
  488.   .Unload Deathlist!:unload -rs $script
  489. }
  490.  
  491. ; Deathlist v1.0
  492. ; by ch1zra
  493. ; ch1zra@gmail.com
  494. ; http://uptheirons.co.sr/
  495. ; #Scripters @ irc.krstarica.com
  496. ; Copyright ©  2007 Up The Irons ! inc.
  497. ; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
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!