call worldReplace('massice', 'massive');
$ mv help.are help.are.bkup & sed -e 's/massice/massive/' <help.are/bkup >help.are
$ perl -pi~ -e 's/massice/massive/g' *.are
call worldReplace('massice', 'massive');
public method .nerf_players_cmd() {
var l , x;
for x in ($player.children()) { # select * from players
if (x.strength() > 20) { # where strength > 20
l = l.add(x);
}
}
l = l.sort.mmap('name); # order by players.name;
for x in (l)
.tell(x.name); # cursor over result set
for x in ($player.children()) { # update players
# set strength = 20
if (x.strength() > 20) { # where strength > 20;
x.strength = 20;
}
}
for x in ($player.children()) { # delete from players
if (x.strength() < 5) { # where strength < 5;
x.destroy;
}
}
}
sprintf(buf, "INSERT INTO PlayerBonds SET ID='%ld.%ld', Strength=1 ON DUPLICATE KEY UPDATE Strength=if(Strength > 99, 100, Strength+1)", GET_IDNUM(ch), GET_IDNUM(ch));
query(buf);
void save_char_stat (struct char_data *ch, int stat) {
switch (stat) {
case PLAYER_LEVEL:
sprintf(buf, "UPDATE PlayerData SET Level='%d' WHERE PID=%ld", GET_LEVEL(ch), GET_IDNUM(ch));
break;
case PLAYER_EXP:
sprintf(buf, "UPDATE PlayerPoints SET Exp='%d' WHERE PID=%ld", GET_EXP(ch), GET_IDNUM(ch));
break;
case PLAYER_GOLD:
sprintf(buf, "UPDATE PlayerPoints SET Gold='%d' WHERE PID=%ld", GET_GOLD(ch), GET_IDNUM(ch));
break;
case PLAYER_BANK_GOLD:
sprintf(buf, "UPDATE PlayerPoints SET BankGold='%d' WHERE PID=%ld", GET_BANK_GOLD(ch), GET_IDNUM(ch));
break;
}
query(buf);
}
delete from PlayerAliases where PID = 37673;
insert into PlayerAliases SELECT Alias, Replacement, Type, '37673' as PID, NUM, replace(inum, '37187', '37673') as INUM FROM PlayerAliases where pid = 37187;
$result = mysql_query("SELECT pd.Class, pd.Name, round(pp.Exp/psd.Kills,0) from PlayerData pd
join PlayerPoints pp on pp.PID = pd.PID
join PlayerSpecialData psd on psd.PID = pd.PID
where pd.Level < 61 and LastLogon > 1295805460
and pd.name != 'Kikaha' and pd.name != 'Drevram'
and pd.Level > 10 and class = " . $i . " order by round(pp.Exp/psd.Kills,0) desc limit 1;");
call getQuestsFor('Kikaha');
– ——————————————————————————–
– Routine DDL
– ——————————————————————————–
DELIMITER $$
CREATE DEFINER=`root`@`%` PROCEDURE `getQuestsFor`(id INT, lvl INT)
BEGIN
SELECT ql.* FROM QuestLib ql WHERE ql.Published = 1 AND ql.QuestNPC != -1 AND ql.QuestScrollCount != 0 AND ql.LevelMin <= lvl
AND (
ql.QuestCount = -1 or (select count(*) from PlayerQuestHistory qh1 where qh1.PID = id and qh1.QID = ql.QID) = 0
OR ql.QuestCount < (select `Count` from PlayerQuestHistory qh2 where qh2.PID = id and qh2.QID = ql.QID)
)
ORDER BY ql.Title;
END
for plr in ($player.children()) {
for obj in plr.inv() {
.tell(obj.name());
}
}
class GameObject < Root
property :location, :contents, :triggers, :msgfail, :msgsucc
end
var o;
o = create($root); # create table $foo
o.set_objname('foo);
o.add_var(a); # (a int,
o.add_var(b); # b int);
sprintf(buf, "INSERT INTO PlayerBonds SET ID='%ld.%ld', Strength=1 ON DUPLICATE KEY UPDATE Strength=if(Strength > 99, 100, Strength+1)", GET_IDNUM(ch), GET_IDNUM(ch));
query(buf);
@program $sys.update_strength() +flags=['forked]
var x, s;
for x in ($players.descendants()) {
catch any {
s = x.get_var('strength);
if (s > 99)
x.set_var(100);
else
x.set_var(s + 1);
} with {
x.add_var('strength);
x.set_var('strength,1);
}
}
$scheduler.add_task(30,'update_str);
.
@eval $scheduler.add_task(30,'update_str); # start it going
.heavy_hitters() {
args class;
dict = #{};
for pl in ($players.descendants()) {
if (pl.pd().Level() < 61 && pl.LastLogon() > 1295805460) {
if (pl.pd().Name() != "Kikaha" && pl.pd().Name() != "Drevan") {
if (pl.pd.Level() > 10 && pl.Class() == class) {
dict = dict.add($math.round(pl.pp().Exp() / pl.psd().Kills()), pl.pd().Name());
}
}
}
}
.tell(dict.explode_in_english());
}