bind pub - !kiss mykiss
bind pub - !screw myscrew
bind pub - !hug myhug 
bind pub - !schwoam myschwoam 
bind pub - !ostschland myostschland 
bind pub - !mz mymz 
bind pub - !pix mypix 
bind pub - PROST myprost 
bind pub - !pause mypause
bind pub - !hth myhth
bind pub - !stfu mystfu
bind pub - !umlauz myumlauz
bind pub - !mitleid mymitleid
bind pub - !pic mypic
bind pub - !thx mythx
bind pub - !thanks mythx
bind pub - !meow mymeow

proc myprost {nick uhost hand chan rest} {
    if { ($nick == "Ro-Bot") } {
        putchan $chan "POST-SAECKE!"
        return
    }
}

proc mythx {nick uhost hand chan rest} {
    if { ($chan == "#idling-for-world-peace") } {
        return
    }
    if { [llength [string trimright $rest]] < 1 } {
        putchan $chan "[string trimright $nick] wants to thank the channel via http://nostromo.joeh.org/hgb/thx.html"
    } else {
        putchan $chan "[string trimright $rest] receives a biiiiiig thanks from [string trimright $nick] via http://nostromo.joeh.org/hgb/thx.html"
    }
}

proc myostschland {nick uhost hand chan rest} {
	putchan $chan "\"Niemand hat die Absicht, eine Mauer zu errichten.\" -- Walter Ulbricht"
}

proc myschwoam {nick uhost hand chan rest} {
	putchan $chan "!prost"
}

proc mymz {nick uhost hand chan rest} {
	putchan $chan "*t, $nick"
}

proc myumlauz {nick uhost hand chan rest} {
	putchan $chan "-> http://xover.mud.at/~nostromo/umlauz.html"
}

proc mystfu {nick uhost hand chan rest} {
	putchan $chan "STFU! http://xover.mud.at/~nostromo/stfu.jpg"
}

proc mypause {nick uhost hand chan rest} {
	putchan $chan "http://nostromo.joeh.org/gerul0rt.jpg"
}

proc myhth {nick uhost hand chan rest} {
	putchan $chan "hth, $nick - http://nostromo.joeh.org/hth.jpg"
}

proc mymeow {nick uhost hand chan rest} {
    if { ($chan == "#hgb") } {
        if { ($nick == "_Anti_") } {
            putchan $chan "nice to meet you, Meow!"
        } else {
            putchan $chan "meow, http://nostromo.joeh.org/meow.jpg"
        }
    }
}

proc mypix {nick uhost hand chan rest} {
    if { ($chan != "#hgb") } {
        putchan $chan "surfto://images.google.com"
    } else {
         if { ($nick == "lexx_") } {
            putchan $chan "http://xover.mud.at/~nostromo/071103/1/67.html"
            return
        }
	putchan $chan "surfto://xover.mud.at/~nostromo/071103"
    }
}

proc mypic {nick uhost hand chan rest} {
    if { ($nick == "nostromo") } {
        regexp {.*} $rest url
        putchan $chan "http://nostromo.joeh.org/[string trimright $url]"
    }
}

proc mymitleid {nick uhost hand chan rest} {
    if { [llength [string trimright $rest]] < 1 } {
        putchan $chan "du bist soooooooooo arm, [string trimright $nick] :("
    } else {
        if {[onchan [string trimright $rest] $chan]} {
                putchan $chan "du bist soooooooooo arm, [string trimright $rest] :("
            } else {
            putchan $chan "$nick, there is noone called $rest..."
        }
    }
}

proc myhug {nick uhost hand chan rest} {
    if { ($chan == "#idling-for-world-peace") } {
        return
    }
    if { [string match -nocase "nik*" $rest] == 1 &&
         ([string match "*nostromo@*.risc.uni-linz.ac.at" $uhost] == 0 &&
          [string match "*nik@193.170.124.123" $uhost] == 0 &&
          [string match "*phil@193.170.124.123" $uhost] == 0 &&
          [string match "*phil@*levels.unisa.edu.au" $uhost] == 0 &&
          [string match "*phil@*.ADSL.ycn.com" $uhost] == 0) } {
                putchan $chan "$nick, [string trimright $rest] doesn't want to be hugged by you!";
            return 0
    }
    if { [llength [string trimright $rest]] < 1 } {
        putchan $chan "[string trimright $nick] is hugged by S3B0t4Ge!!"
    } else {
        putchan $chan "[string trimright $rest] receives a biiiiiig hug from [string trimright $nick] "
    }
}

proc mykiss {nick uhost hand chan rest} {
    if { ($chan == "#idling-for-world-peace") } {
        return
    }
    if { [string match -nocase "nik*" $rest] == 1 &&
         ([string match "*nostromo@*.risc.uni-linz.ac.at" $uhost] == 0 &&
          [string match "*nik@193.170.124.123" $uhost] == 0 &&
          [string match "*phil@193.170.124.123" $uhost] == 0 &&
          [string match "*phil@*levels.unisa.edu.au" $uhost] == 0 &&
          [string match "*phil@*.ADSL.ycn.com" $uhost] == 0) } {
                putchan $chan "$nick, [string trimright $rest] doesn't want to be kissed by you!";
            return 0
    } elseif { [string match -nocase "*sina*" $rest] == 1 } {
       if { [string match "*gangman@193.170.124.123" $uhost] } {
           putchan $chan "$nick, you are gently kissed by [string trimright $rest]";
       } else {
           putchan $chan "$nick, GangMan doesn't want you to kiss [string trimright $rest], du Penner!";
       }
       return 0
    }
        
    if {[llength [string trimright $rest]] < 1} {
        putchan $chan "[string trimright $nick] is kissed by S3B0t4Ge!"
    } else {
        putchan $chan "[string trimright $rest]: You are kissed by [string trimright $nick] *sssssssssssmack*"
    }
}

proc myscrew {nick uhost hand chan rest} {
    if { ($chan == "#idling-for-world-peace") } {
        return
    }
    if {[llength [string trimright $rest]] < 1} {
        putchan $chan "[string trimright $nick] gets screwed by S3B0t4Ge!"
    } else {
        putchan $chan "[string trimright $rest] is screwed by [string trimright $nick]!"
    }
}

putlog "GeekUs misc scripts (nos-adapted) loaded...."