Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

Changeset 7284 for code/trunk/data/tcl


Ignore:
Timestamp:
Aug 31, 2010, 3:37:40 AM (14 years ago)
Author:
landauf
Message:

merged consolecommands3 branch back to trunk.

note: the console command interface has changed completely, but the documentation is not yet up to date. just copy an existing command and change it to your needs, it's pretty self-explanatory. also the include files related to console commands are now located in core/command/. in the game it should work exactly like before, except for some changes in the auto-completion.

Location:
code/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • code/trunk

  • code/trunk/data/tcl/irk/lib/irkreceive.tcl

    r5781 r7284  
    3737        append state($token,ERRORS) "$nick $dest $rest\n"
    3838#       puts "Got ERROR: $token $nick ---> $dest: $rest"
    39         orxonox::execute error "Got ERROR: $token $nick ---> $dest: $rest"
     39        ::orxonox::execute error "Got ERROR: $token $nick ---> $dest: $rest"
    4040
    4141        return ""
     
    5353        return ""
    5454    }
    55    
     55
    5656    # This procedure deals with the WHOIS USER message:
    5757
     
    116116
    117117        set state($token,ident,$unick,ident) 1
    118     }   
     118    }
    119119
    120120    # This procedure deals with the WHOIS CONNECTTIME message:
     
    249249        if {[isus $token $nick]} {
    250250#           puts "You joined $dest"
    251           orxonox::irc::info $token "You joined $dest"
     251          ::orxonox::irc::info $token "You joined $dest"
    252252
    253253            addChannel $token $dest
    254254        } else {
    255255#           puts "$nick joined $dest"
    256           orxonox::irc::info $token "$nick joined $dest"
     256          ::orxonox::irc::info $token "$nick joined $dest"
    257257
    258258            addToChannel $token $nick $dest
     
    271271        if {[isus $token $nick]} {
    272272#           puts "You left channel $chan"
    273           orxonox::irc::info $token "You left channel $chan"
     273          ::orxonox::irc::info $token "You left channel $chan"
    274274        } else {
    275275#           puts "$nick left [string tolower $dest]"
    276           orxonox::irc::info $token "$nick left [string tolower $dest]"
    277         }           
     276          ::orxonox::irc::info $token "$nick left [string tolower $dest]"
     277        }
    278278        removeFromChannel $token $nick $chan
    279279        removeFromChannel $token @$nick $chan
     
    287287        set rest [eval concat $rest]
    288288#       puts "$nick sets mode $dest $rest"
    289       orxonox::irc::info "$nick $token sets mode $dest $rest"
     289      ::orxonox::irc::info "$nick $token sets mode $dest $rest"
    290290
    291291        return ""
     
    313313
    314314#       puts "$nick ${user} ($token) changes his/her nickname to $newnick"
    315       orxonox::irc::info $token "$nick changes his/her nickname to $newnick"
     315      ::orxonox::irc::info $token "$nick changes his/her nickname to $newnick"
    316316
    317317        return ""
     
    325325        set rest [eval concat $rest]
    326326#       puts "Received QUIT $token $nick $rest"
    327       orxonox::irc::info $token "Received QUIT $token $nick $rest"
     327      ::orxonox::irc::info $token "Received QUIT $token $nick $rest"
    328328
    329329        if {[string match ":*" $dest]} {
     
    332332        if {[isus $token $nick]} {
    333333#           puts "You left the server $state($token,host) ($dest $rest)"
    334           orxonox::irc::info $token "You left the server $state($token,host) ($dest $rest)"
     334          ::orxonox::irc::info $token "You left the server $state($token,host) ($dest $rest)"
    335335            forgetConnection $token
    336336        } else {
     
    352352        } else {
    353353#           puts "$nick$dest: [eval concat $rest]"
    354           orxonox::irc::say $token $nick [eval concat $rest]
     354          ::orxonox::irc::say $token $nick [eval concat $rest]
    355355        }
    356356
     
    426426        } else {
    427427#           puts "$nick: [eval concat $rest]"
    428           orxonox::irc::privmsg $nick $nick [eval concat $rest]
     428          ::orxonox::irc::privmsg $nick $nick [eval concat $rest]
    429429        }
    430430
     
    464464        if {[isus $token $kicked]} {
    465465#           puts "$nick kicked you from $dest because $reason"
    466           orxonox::irc::info $token "$nick kicked you from $dest because $reason"
     466          ::orxonox::irc::info $token "$nick kicked you from $dest because $reason"
    467467
    468468            removeChannel $token $dest
    469469        } else {
    470470#           puts "$nick kicks $kicked from $dest because $reason"
    471           orxonox::irc::info $token "$nick kicks $kicked from $dest because $reason"
     471          ::orxonox::irc::info $token "$nick kicks $kicked from $dest because $reason"
    472472
    473473            removeFromChannel $token $kicked $dest
     
    584584    proc RECV,CTCP,ACTION {token nick user comm dest action rest} {
    585585#       puts "$nick $rest"
    586       orxonox::irc::action $token $nick $rest
     586      ::orxonox::irc::action $token $nick $rest
    587587
    588588        return ""
     
    612612    proc defaultAction {token nick user comm dest rest} {
    613613#       puts "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
    614       orxonox::execute log "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
     614      ::orxonox::execute log "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
    615615
    616616        return ""
Note: See TracChangeset for help on using the changeset viewer.