ANSI BASIC

10 ON ERROR GOSUB 130
20 LET I = 0
30 WHILE I >= 0
40 LET TEMP$ = ALL_YOUR_BASE$( I )
40 LET X = INSTR$( TEMP$, BELONG_TO_YOU$ )
50 IF X > 0 THEN
60 LET NEW$ = LEFT$( TEMP$, (X - 1) ) & BELONG_TO_US$
70 LET NEW$ = TEMP$ & RIGHT$( TEMP$, X + LEN( BELONG_TO_YOU$ ) )
80 LET ALL_YOUR_BASE$( I ) = NEW$
90 END IF
100 LET I = I + 1
110 WEND
120 END
130 REM Error handler to indicate we've reached the end of the array.
140 LET I = -2
150 RESUME NEXT


bash

for base in * do
if [! -O $base] then
chown us:us $base;
fi;
done;


C / C++

for (i = 0; i < (sizeof base / sizeof base_t); i++) {
if (base[ i ]->owner == you)
base[ i ]->belong_to( us );
}


Common Lisp

(defun gimme (all_your_base)
(if (car all_your_base)
((setf (base-belong_to (car all_your_base)) us)
(cons (car all_your_base)
(gimme (cdr all_your_base))))
all_your_base))

(gimme all_your_base)


CounterStrike (Half-Life) [By: Roland Shine <kubla_kahn99 :AT: hotmail.com>]

r_allyoubase 1
mp_arebelongto 1
cl_you 0
admin_us 1
ex_youhavenochance 0.04
name "make your time"


Haskell

map (\(B owner content) -> (B "us" content)) (allyour base) where
allyour bases = [(B owner content) | (B owner content) <- bases, owner == "you"]


Java / JavaScript

for( var i = 0; i < base.length; i++ ) {
if (base[ i ].belong_to == you) {
base[ i ].belong_to = us;
}
}


KEA! Macro

For base In all_base
If base[ "belong_to" ] = you
base[ "belong_to" ] = us
End
End


LOGO

TO GIMME :ALL_BASE
IF :ALL_BASE = [] STOP
LOCAL "BASE FIRST :ALL_BASE
IF GPROP "BASE "BELONG_TO = :YOU PPROP "BASE "BELONG_TO :US
GIMME BUTFIRST :ALL_BASE
END

GIMME :ALL_BASE


Pascal

for base := firstof( all_base ) to lastof( all_base ) do
begin
if all_base[ base ].belong_to = you then
all_base[ base ].belong_to := us;
end;


Perl

for my $base (%all_your_base) {
$base{ belong_to } = $us;
}


PHP

<?php
define( "US" (! YOU) );
foreach ($allbase as $base) {
if ($base[ "belong_to" ] == YOU) {
$base[ "belong_to" ] = US;
}
}
?>


PL/I

ON ENDFILE DONE = 1;
DONE = 0;
LOOP1: DO WHILE(DONE = 0);
GET DATA (ALLYBASE);
IF BELONGTO = YOU THEN BELONGTO = US;
END LOOP1;


Prolog

belongto(Base,us) :- belongto(Base,you).


Python

for base in all_your_base:
setattr( base, "belong_to", us )


REXX

i = 0
do until i = base.length
if base.i.belong_to = you then base.i.belong_to = us
i = i + 1
end


Scheme [By: EatTheRich]

(define all-your-base
(lambda are-belong to-us
(all-your-base (are-belong to-us ))))

(all-your-base are-belong to-us)


SQL

UPDATE all_base
SET belong_to='us'
WHERE belong_to='you';


Visual Basic

For base = LBound( all_base() ) To UBound( all_base() )
With all_base( base )
.belong_to = IIf( .belong_to = you, me, .belong_to )
End With
Next base


i win pls

fail.

~Alway

while we're spamming..

Win.
~Vic

Nobody's spamming. Instead of writing an entire paragraph about the failings of the original post, I summed it all up in one word: fail.

And plus, you've done more than your share of spamming around here. Stop complaining.

~Alway

Copy-paste.
http://www.trichotomy.ca/ayplabtu.html

Yeah I know... three quarters of Vic's posts are copy-pasted from somewhere.

~Alway

fake statistics are fake

Annoying posts are annoying

~Alway