FoRuM KaNaLa #chanel
Would you like to react to this message? Create an account in a few clicks or log in to continue.
FoRuM KaNaLa #chanel

FoRuM KaNaLa #chanel
 
PrijemPrijem  PortalliPortalli  TražiTraži  Latest imagesLatest images  Registruj seRegistruj se  Pristupi  

 

 Shit List

Ići dole 
AutorPoruka
^^^^Car^^^^
Member
Member



Broj poruka : 92
Location : Sombor
Datum upisa : 16.08.2007

Shit List Empty
PočaljiNaslov: Shit List   Shit List Icon_minitimeNed Avg 19, 2007 6:57 pm

Kod:
on *:load:{
  echo -a Dr_Thrax - ov Shitlist . Hvala vam sto koristite addon.Da pokrenete shitlist ukucajte: /shitlist .
}

alias shitlist { dialog -m shitlist shitlist }
dialog shitlist {
  title "Shitlist 1.0 - by Dr_Thrax"
  size -1 -1 348 204
  box "Konfiguracija", 1, 6 5 336 181
  box "Lista", 2, 16 21 151 154
  list 3, 26 39 130 125, size sorted
  box "Opcije", 4, 170 21 162 81
  text "Nadimak:", 5, 179 47 30 13
  edit "", 6, 212 39 109 22, multi return autohs
  button "Dodaj", 7, 183 68 65 23
  button "Brisi", 8, 252 68 65 23
  box "Status", 10, 171 102 81 73
  radio "On", 11, 180 119 60 23, push group
  radio "Off", 12, 180 143 60 23, push
  box "Reason", 13, 254 102 78 56
  radio "Kick", 14, 262 120 51 13, group
  radio "Kick/Ban", 15, 262 136 64 13
  button "Izadji", 19, 262 160 65 23, ok
}
text "S h i t l i s t", 16, 267 160 60 13, disabled
on *:dialog:shitlist:*:*: {
  if $devent = init {
    didtok shitlist 3 32 %st.list
    if (%st.status == on) { did -c shitlist 11 }
    elseif (%st.status == off) { did -c shitlist 12 }
    if (%st.reason == k) { did -c shitlist 14 }
    elseif (%st.reason = kb) { did -c shitlist 15 }
  }
  if $devent = sclick {
    if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.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 %st.list $didtok(shitlist,3,32) } }
    if $did = 11 { .set %st.status on | .enable #shitlist }
    if $did = 12 { .set %st.status off | .disable #shitlist }
    if $did = 14 { .set %st.reason k }
    if $did = 15 { .set %st.reason kb }
  }
}

#shitlist on
on 3:join:#: {
  if ($me isop $chan) {
    if (%st.reason == k) && ($nick != %maker) {  kick $chan $nick 4S14h1i14t1L14i1s14t1e14d12! $kick.counter }
    elseif (%st.reason == kb) && ($nick != %maker) { ban $chan $nick 3 | kick $chan $nick 4S14h1i14t1L14i1s14t1e14d12! $kick.counter }
  }
}
#shitlist end

alias st.about { dialog -m st.about st.about }
dialog st.about {
  title "O addonu...."
  size -1 -1 156 114
  box "Shitlist 2.0", 1, 10 7 140 11
  text "Autor: Dr_Thrax", 2, 11 29 83 13
  text "Napravljen: 04/01/2002", 3, 11 49 116 13
  list 4, -24 71 202 6, size
  button "Exit", 5, 43 84 65 23, ok
}

alias shitlist.unload { echo -a 2*** Addon unloaded! | .unload -rs $scriptdirshitlist20.mrc }
Nazad na vrh Ići dole
 
Shit List
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
FoRuM KaNaLa #chanel :: Scripting :: Snipets-
Skoči na: