2009年8月20日木曜日

中間詐欺かy

#c163015の高額アイテム販売いたします。ってやつに中間詐欺されましたorz
固定電話もあるし104でちゃんとやったんですけどね;;;;;;;;;

2009年8月9日日曜日

EncodeBase64

var アイオン RMT
x1, x2, x3, x4: Char; RMT
begin RMT アイオン
Result := '';
LenSrc := Length(Source);

if (LenSrc mod 3 = 0) then Times := LenSrc div 3 else Times := LenSrc div 3 + 1;

for j := 0 to Times - 1 do
begin
if LenSrc >= (3 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2)+1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
xt := xt or (ord(Source[3 + j * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (Ord(Source[3 + j * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;

~武器の強化に挑戦編~

強化用の石が倉庫を圧迫し始めたので、その対策というわけだ。 CABAL ONLINE RMT
この光の色は強化を重ねるごとに、変化して行くようだ。 google
強化も失敗する場合があるようなので、今回はこの黄色い光のエフェクトが追加された所まで強化してみた。 RMT アイオン
%単位で攻撃力が上昇するので、武器の攻撃力が上がってくると、強化の恩恵も大きくなってくる。もう少し先の装備を入手したら、本格的に強化にチャレンジして行きたい。


また今回は、モンスター狩りのワンシーンをムービーに収めておいた。


普段は目が疲れないようにあえて全てのオプションをLOWに設定している筆者だが、今回は全てHIGHに設定してムービーの撮影を行なった。

やはり今回もWEBにUPするにあたり、画質や画面サイズなどはコンパクトなものとしてある

CopyF

NewFileName:string; var Mode:Integer):Boolean; リアル
var RMT アイオン
EFile,NFile:PChar;
CpFlag,FailIfExists:Boolean;
msg:string;
ErrID,mbType:integer;
begin
EFile:=StrToPch(ExistingFileName);
NFile:=StrToPch(NewFileName);
if (Mode=1) or (Mode=3) then FailIfExists:=True
else FailIfExists:=False;
CpFlag:=CopyFile(EFile,NFile,FailIfExists);
if not CpFlag then
begin
ErrID:=GetLastError();
ExistingFileName:=SysErrorMessage(ErrID);
if Mode<2 then
begin
msg:='CopyFile Error!';
mbType:=OKOnly+Excalamation;
MsgBox(msg,mbType,ExistingFileName);
end;
Mode:=ErrID;
end;
CopyF:=CpFlag;
end;

ChDir

procedure ChDir(P: PChar); overload; aion rmt
begin RMT アイオン
{$I-}
{ Change to directory specified in Edit1 }
ChDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot find directory', mtWarning, [mbOk], 0);
end;

ExecuteData

procedure TRDMCardServer.ExecuteData(const sSQL: WideString; out pResult: WideString; out pMsg: WideString); safecall; 通貨
safecall; リアル
var
ADOComm: TADOCommand;
begin
Inc(i_CMDOrder);
if i_CMDOrder = 20 then
i_CMDOrder := 1;

ADOComm := TADOCommand(FindComponent('ADOComm' + IntToStr(i_CMDOrder)));
with frmServer do
begin
if GetDBConnectionState <> 0 then Exit;
end;

try
ADOComm.CommandText := sSQL;
ADOComm.Execute;
pResult := '1';
pMsg := '';
except
pResult := '0';
pMsg := '';
end;
end;

クエストの件だよ

全部に手を出す意味はなさそうです。てか無理。 RMT AION
逆に言えば、好きなクエを選べるんです! AION 紹介
たぶん全体の三分の一のクエを消化していたら、 トレード
すごくマジメな人なんじゃないでしょうか。

街が三つあって、一つ一つの街から違う場所へ
それぞれ冒険ができるのですがレベル帯がかぶっているため
他の街で冒険する意味はあんまり???。

つまり、街一つ分のクエストを全部消化すれば
コンプリートしたと考えてもいいぐらいです。だから三分の一^-^

もちろん、クエストを無視して先に進んでも構いません。

しかし
実は、これが書きたかっただけなのですが

旅行商人や羽ペン会社の人が売っている『羽ペンクエ』
というのが要注意で、指定されたレベルを大きく超えてしまうと、
クエストを受けた意味がなくなってしまうんです。

これだけは期間限定のクエストなんです。

それだけでなく、『羽ペンクエ』の場合は、
初期のクエストを沢山達成して評判が上がらないと、
中盤以降の羽ペンのクエストが受けられないんです。

つまり、詰みの状態です。

なので、『羽ペンクエ』だけは、逃さないことが大事です。
他のクエは受けたければ、後で受けられますので。

しかも厄介なことに『羽ペンクエ』は三つの街で
それぞれ内容が違うので、同じレベル帯のものを
三つやらないとコンプリートできないんです。

まぁ。そこまでする必要はないのですが。