View file public_html/games/opbir.php

File size: 6.81Kb
<?php
############################################
### Этот скрипт написан для Wap-Motor 18 ###
###Автор скрипта Dred#######################
###ICQ: 757041##############################
###Сайт: http://nmn.webhop.net##############
###Желающие могут подкинуть деньжат#########
###Z840880492902############################
###R852036927651############################
############################################
require_once"../template/start.php";require_once"../template/regglobals.php";require_once"../template/config.php";require_once"../template/siti_conf.php";require_once"../template/functions.php";require_once"../template/antidos.php";require_once"../template/cookies.php";require_once"../template/gzip.php";require_once"../template/header.php";require_once"../template/referer.php";include_once"../themes/$config_themes/index.php";include_once"../template/isset.php";echo'<img src="../images/img/many.gif" alt=""> Биржа<br><br>';if (!$_SESSION['log']=="" && !md5($_SESSION['par'])=="" && md5($_SESSION['par'])==$provpar && $_SESSION['log']==$provlog ) {if(!isset($action)){ echo'Привет '.check($log).'<br>';echo'У вас в наличии золотых монет: '.(int)$udata[41].'<br>';$text = file("../local/birga/$log.dat");if ($text!=""){$acts=count($text);for ($p=0; $p<$acts; $p++) {$dat_arr1 = explode("|", $text[$p]);if($dat_arr1[0]==$uz){echo 'У вас есть акции '.$dat_arr1[0].' '.$dat_arr1[1].'шт. Цена закупки '.$dat_arr1[2].' монет.<br>';}}}else{echo'У вас пока нет акций<br>';}$text = file("../local/birga.dat");$acts=count($text);for ($p=0; $p<$acts; $p++) {$dat_arr1 = explode("|", $text[$p]);if($dat_arr1[0]==$uz){echo 'На бирже есть акции '.$dat_arr1[0].' '.$dat_arr1[3].'шт. Цена: '.$dat_arr1[1].'монет<br>';}}echo '<br><b>Количество:</b>';if($config_themes!=="wml"){echo '<br><form action="opbir.php?action=operacia&amp;uz='.$uz.'&amp;'.SID.'" method="post"><input name="gold" /><br>';echo '<select name="oper">';echo '<option value="1">Купить</option><option value="2">Продать</option>';echo '</select><br><br>';echo '<input type="submit" value="Продолжить" /></form><hr>';}else{echo '<br><input name="gold"/><br>';echo '<select name="oper">';echo '<option value="1">Купить</option><option value="2">Продать</option>';echo '</select><br><br>';echo '<anchor title="go">Продолжить<go href="opbir.php?action=operacia&amp;'.SID.'" method="post">';echo '<postfield name="gold" value="$(gold)"/>';echo '<postfield name="uz" value="$(uz)"/>';echo '<postfield name="oper" value="$(oper)"/>';echo '</go></anchor><br>'; }}if($action=="operacia"){if(ctype_digit($gold) && $gold>=1 && $oper!=""){ if($oper=="1"){echo'Покупка<br>';$lines=file("../local/birga.dat");$acts=count($lines);for ($p=0; $p<$acts; $p++) {$dt = explode("|", $lines[$p]);if($dt[0]==$uz){ $poz=$p;$naz=$dt[0];$zena=$dt[1];$zenav=$dt[2];$kolvo=$dt[3];}}if($zena!=="" && $zena>"0"){$newzena=$zena*$gold;$ostat=$kolvo-$gold;$ostden=$udata[41]-$newzena;if($ostat<0){header ("Location: birga.php?isset=actns&".SID); exit;}if($ostden<0){header ("Location: birga.php?isset=money&".SID); exit;}$ufile = file(BASEDIR."local/profil/$log.prof");$udata = explode(":||:",$ufile[0]);$udata[41]=round($udata[41]-$newzena);for ($u=0; $u<$config_userprofkey; $u++){$utext.=$udata[$u].':||:';}if($udata[0]!="" && $udata[1]!="" && $udata[4]!="" && $utext!=""){$fp=fopen("../local/profil/$log.prof","a+");flock($fp,LOCK_EX);ftruncate($fp,0);fputs($fp,$utext);fflush($fp);flock($fp,LOCK_UN);fclose($fp);unset($utext);}$text=$naz.'|'.$zena.'|'.$zenav.'|'.$ostat.'|';$text=stripslashes($text);$file=file("../local/birga.dat");$fp=fopen("../local/birga.dat","a+");flock ($fp,LOCK_EX);ftruncate ($fp,0);for ($i=0;$i< sizeof($file);$i++) {if ($poz!=$i) {fputs($fp,$file[$i]);} else {fputs($fp,"$text\r\n");}}fflush ($fp);flock ($fp,LOCK_UN);fclose($fp);$nook="yes";$lines=file("../local/birga/$log.dat");$count=count($lines);for ($b=0; $b<$count; $b++) {$dt=explode("|",$lines[$b]); if ($dt[0]==$naz) {$ok=$b; $mann=$dt[1]; $nook="no";}}$newgold2=round($mann+$gold);$text=$naz.'|'.$newgold2.'|'.$zena.'|';$text=stripslashes($text);if($nook=="no"){$file=file("../local/birga/$log.dat");$fp=fopen("../local/birga/$log.dat","a+");flock ($fp,LOCK_EX);ftruncate ($fp,0);for ($i=0;$i< sizeof($file);$i++){$kot=explode("|",$file[$i]);if($kot[1]!=""){if ($ok!=$i) {fputs($fp,$file[$i]);} else {fputs($fp,"$text\r\n");}}}fflush ($fp);flock ($fp,LOCK_UN);fclose($fp);}if($nook=="yes"){$fp=fopen("../local/birga/$log.dat","a+");flock ($fp,LOCK_EX);fputs($fp,"$text\r\n");fflush ($fp);flock ($fp,LOCK_UN);fclose($fp);}echo'Акции успешно закуплены!<br>';}}if($oper=="2"){echo'Продажа<br>';$text=file("../local/birga.dat");$acts=count($text);for ($p=0; $p<$acts; $p++) {$dt = explode("|", $text[$p]);if($dt[0]==$uz){ $poz=$p;$naz=$dt[0];$zena=$dt[1];$zenav=$dt[2];$kolvo=$dt[3];}}$lines=file("../local/birga/$log.dat");$cc=count($lines);for ($b=0; $b<$cc; $b++) {$dt=explode("|",$lines[$b]); if ($naz==$dt[0]) {$ok=$b;$colact=$dt[1];$zen=$dt[2];}}$newzena=$zena*$gold;$nn=$colact-$gold;if($nn>-1){ $ufile = file(BASEDIR."local/profil/$log.prof");$udata = explode(":||:",$ufile[0]);$udata[41]=round($udata[41]+$newzena);for ($u=0; $u<$config_userprofkey; $u++){$utext.=$udata[$u].':||:';}if($udata[0]!="" && $udata[1]!="" && $udata[4]!="" && $utext!=""){$fp=fopen("../local/profil/$log.prof","a+");flock($fp,LOCK_EX);ftruncate($fp,0);fputs($fp,$utext);fflush($fp);flock($fp,LOCK_UN);fclose($fp);unset($utext);}if($nn=="0"){$text="";}else{$text=$naz.'|'.$nn.'|'.$zen.'|';}$text=stripslashes($text);$file=file("../local/birga/$log.dat");$fp=fopen("../local/birga/$log.dat","a+");flock ($fp,LOCK_EX);ftruncate ($fp,0);for ($i=0;$i< sizeof($file);$i++) {if ($ok!=$i) {fputs($fp,$file[$i]);} else {fputs($fp,"$text\r\n");}}fflush ($fp);flock ($fp,LOCK_UN);fclose($fp);$newgold2=round($kolvo+$gold);$text=$naz.'|'.$zena.'|'.$zenav.'|'.$newgold2.'|';$text=stripslashes($text);$file=file("../local/birga.dat");$fp=fopen("../local/birga.dat","a+");flock ($fp,LOCK_EX);ftruncate ($fp,0);for ($i=0;$i< sizeof($file);$i++) {if ($poz!=$i) {fputs($fp,$file[$i]);} else {fputs($fp,"$text\r\n");}}fflush ($fp);flock ($fp,LOCK_UN);fclose($fp);echo'Акции успешно проданы!<br>';}else{echo'У вас пока нет акций!';}}}}echo'<br><a href="birga.php?'.SID.'">На биржу</a>';}else{echo'<br>Для того чтобы совершать операции вы должны быть авторизованы<br>';}echo'<br><a href="../index.php?'.SID.'">На главную</a>';eval(base64_decode('ZWNobyc8aHI+PGEgaHJlZj0iaHR0cDovL25tbi53ZWJob3AubmV0Ij5OTU4u
V0VCSE9QLk5FVDwvYT48YnI+JzsKaW5jbHVkZV9vbmNlKEJBU0VESVIuInRo
ZW1lcy8kY29uZmlnX3RoZW1lcy9mb290LnBocCIpOw=='));?>