Si te bejme !ban dhe !unban TCL per eggdrop

[MasterMind]

Pershendetje!
Kjo TCL kerkohet shum andaj vendosa qe te publikoj nje tutorial te thjesht ketu sesi ta ndertojme!

Marrim nje kod te thjeshte ne faqen Help te TCL-Eggdrop site.

    bind pub O !ban bannick
proc bannick {nick host handle chan text} {
  putserv "PRIVMSG $chan :Hello $nick"
}

Ky eshte nje kod i thjesht i marr nga faqa zyrtare. Pra me pak mendje te zgjuar dhe modifikime e bejm te bej ato qe duam ne te bejme:
Shpjegimi i fjaleve ne ate pjese te kodit.
$nick = (Nick qe i jep komanden botit)
$text = (Nick qe boti do bej Ban ne kanal)
$chan = (Kanali ku do vendoset ban)
$host = (hosti atij qe i jep komanden botit)

Dhe rezultati eshte ky:

bind pub O !ban bannick
proc bannick {nick host handle chan text} {
  putserv "MODE $chan +b $text"
}

Per Unban e njejta gje vetem se -b

bind pub O !unban unbannick
proc unbannick {nick host handle chan text} {
  putserv "MODE $chan -b $text"
}

per ti vendosur nje sinjalistike botit kur nuk eshte AOP useri qe jep komanden dhe Eggdrop-i

if {[botisop $chan == 0} {
  putserv "PRIVMSG $chan Me ngri @op qe te bej ato qe me kerkon."
} elseif {[isop $nick $chan] == 0} {
  putserv "PRIVMSG $chan ti nuk je @op ne kanal, kshuqe nuk komandohem nga ti"
} else {
putserv "MODE $chan +b $text"
}

E thjeshte ee?
Ta gezoni. Mos harroni te me permendni nese ju kam ndihmuar kur ta ndertoni!

 

[Premium]

Hahahahaaha mos e vrit menjen se do te kujtojn lol