mircscripting.info Forum Index mircscripting.info
#mIRCscripting Forum
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Shitlist

 
Post new topic   Reply to topic    mircscripting.info Forum Index -> Addons
View previous topic :: View next topic  
Author Message
lallouSs
Quite Active


Joined: 09 Apr 2007
Posts: 15
Location: Lebanon - Beirut

PostPosted: Tue Apr 10, 2007 5:15 pm    Post subject: Shitlist Reply with quote

Quote:

Shitlist addon to kick lamers ass's, try it!


Code:

dialog shitlist {
  title "mIRC ShitList - lallouSs"
  size -1 -1 356 377
  box "Configuration", 1, 6 5 346 364
  box "List", 2, 105 21 151 154
  list 3, 115 40 130 125, size sorted
  box "Options", 4, 80 183 192 86
  text "Nick/Mask:", 5, 90 198 50 13
  edit "", 6, 95 213 162 22, multi return autohs
  button "Add", 7, 109 240 65 23
  button "Del", 8, 178 240 65 23
  box "Status", 10, 16 21 81 73
  radio "On", 11, 26 37 60 23, push group
  radio "Off", 12, 26 63 60 23, push
  box "Action", 13, 264 62 80 75
  radio "Kick", 14, 275 80 51 13, group
  radio "Kick+Ban", 15, 275 97 64 13
  radio "By X", 20, 275 115 64 13
  box "Message", 17, 35 275 275 50
  edit "", 18, 47 292 253 22, multi return autohs
  button "Done", 19, 138 335 76 23, ok
  text "lallouSs Edition", 21, 250 340 80 20
  box "Duration", 22, 16 100 81 41
  edit "", 23, 26 115 60 18, multi return autohs
  box "Level", 24, 16 143 81 41
  edit "", 25, 26 158 60 18, multi return autohs
}
on *:dialog:shitlist:*:*: {
  if $devent = init {
    didtok shitlist 3 32 %lallouSs.list
    did -a shitlist 18 %lallouSs.msg
    did -a shitlist 23 %lallouSs.duration
    did -a shitlist 25 %lallouSs.level
    if (%lallouSs.status == on) { did -c shitlist 11 }
    elseif (%lallouSs.status == off) { did -c shitlist 12 }
    if (%lallouSs.reason == k) { did -c shitlist 14 }
    if (%lallouSs.reason = kb) { did -c shitlist 15 }
    if (%lallouSs.reason = byx) { did -c shitlist 20 }
  }
  if $devent = sclick {
    if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %lallouSs.list $didtok(shitlist,3,32) | .auser 3 $did(6).text | did -r shitlist 6 } }
    if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist 3 $did(3).sel | set %lallouSs.list $didtok(shitlist,3,32) } }
    if $did = 11 { .set %lallouSs.status on | .enable #shitlist | echo -a Shitlisted is now "ON" [lallouSs Edition] }
    if $did = 12 { .set %lallouSs.status off | .disable #shitlist | echo -a Shitlisted is now "OFF" [lallouSs Edition] }
    if $did = 14 { .set %lallouSs.reason k | echo -a Action turned to Kick [lallouSs Edition] }
    if $did = 15 { .set %lallouSs.reason kb | echo -a Action turned to Kick-Ban [lallouSs Edition]  }
    if $did = 20 { .set %lallouSs.reason byx | echo -a Action turned to Ban-By-X [lallouSs Edition]  }
  }
  if $devent = edit {
    if $did = 18 { .set %lallouSs.msg $did(18) }
    if $did = 23 { .set %lallouSs.duration $did(23) }
    if $did = 25 { .set %lallouSs.level $did(25) }
  }
}
#shitlist on
on 3:join:#: { if ($me isop $chan) { if (%lallouSs.reason == k) { kick $chan $nick %lallouSs.msg } | if (%lallouSs.reason == kb) { ban $chan $nick 2 | kick $chan $nick %lallouSs.msg } | if (%lallouSs.reason == byx) { .msg x ban $chan $address($nick,2) %lallouSs.duration %lallouSs.level %lallouSs.msg } } }
#shitlist end
menu menubar {
  -
  mIRC Shitlist:/dialog -m shitlist shitlist
  -
}

_________________
Learn to be.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    mircscripting.info Forum Index -> Addons All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group