Форум: "Прочее";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Вниз

Функции   Найти похожие ветки 

← →
Pacific   (2007-11-09 01:02) [0]

Здравствуйте! Помогите пожалуйста первести функции из PHP в Delphi
class CacheD {
var $cachedport = 2012;
var $cachedip = "77.91.226.40";
var $webadmin = "WebAdmin";

//To have explicit output, use CacheD_chatterbox, better than editing this array
var $fsockerror = false;
var $socketerrors = array(
 "1" => True, "01" => False, "02" => False, "03" => False, "04" => False,
 "05" => False, "06" => False, "07" => False, "08" => False, "09" => False,
 "010" => False, "011" => False, "012" => False, "013" => False, "014" => False,
 "015" => False, "016" => False, "017" => False, "018" => False, "019" => False,
 "020" => False, "021" => False, "022" => False, "023" => False, "024" => False,
 "025" => False, "026" => False);

function SetBuilderCharacterPacket($char_id, $builder_level) {
 $buf = pack("c", 3);
 $buf .= pack("V", $char_id);
 $buf .= pack("V", $builder_level);
 $buf .= $this -> tounicode($this -> webadmin);
 return $this -> CacheDInteractive($buf);
}

function ChangeCharacterNamePacket($char_id,$new_char_name){
 $buf=pack("cV",4,$char_id);
 $buf .= $this -> tounicode($new_char_name);
 $buf .= $this -> tounicode($this -> webadmin);
 return $this -> CacheDInteractive($buf);
}

function KickCharacterPacket($char_id){
 $buf = pack("cV",5,$char_id);
 $buf .= $this -> tounicode($this -> webadmin);
 return $this -> CacheDInteractive($buf);
}

function AddSkillPacket($char_id, $skill_id, $skill_level) {
 $buf=pack("cVVV",6,$char_id,$skill_id,$skill_level);
 $buf .= $this -> tounicode($this -> webadmin);
 return $this -> CacheDInteractive($buf);
}
}


---

← →
Pacific   (2007-11-09 01:03) [1]


function tounicode ($string){
 $rs="";
 for($i=0; $i < strlen($string); $i++) { $rs .= $string[$i].chr(0); }
 $rs .= chr(0).chr(0);
 return($rs);
}

function CacheDInteractive($buf) {
 $fp = fsockopen($this->cachedip, $this->cachedport , $errno, $errstr, 5);
 $rs = "";
 if (!$fp) return $this -> fsockerror;

 $packet = pack("s", (strlen($buf)+2)).$buf;
 fwrite($fp, $packet);
 $len = unpack("v", fread($fp, 2));
 $rid = unpack("c", fread($fp, 1));
 for ($i = 0;$i < (($len[1]-4) / 4);$i++) {
  $read = unpack("i", fread($fp, 4));
  $rs .= $read[1];
 }
 fclose($fp);
 $result = $this -> socketerrors[$rs];
return($result);
}

---

← →
Dimaxx ©   (2007-11-09 01:07) [2]

Эмуль серва линейки на Дельфе пишешь?? :)

---

← →
Pacific   (2007-11-09 01:11) [3]

нет))), надоело с базой работать, хочу l2Admin написать)

---

← →
Dimaxx ©   (2007-11-09 01:19) [4]

Написано все до тебя. Тебе прямая дорога на PostPacific.com - там этого добра навалом.

---

← →
P   (2007-11-09 01:33) [5]

Project L2Scriptmaker закрыт, а что остаеться делать??

---

← →
Dimaxx ©   (2007-11-09 13:00) [6]

На постпасифике кучу админок выкладывали. Поройся там... Зачем изобретать велосипед?

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.046 c