Форум АНТИЧАТ - Полезные скрипты

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Полезные скрипты

Страница 15 из 102

« Первая

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

#141

31.07.2007, 14:24

GrAmOzEkA

Участник форума

Регистрация: 25.06.2006

Сообщений: 220

Провел на форуме:
2052669

Репутация: 178

Шифрование пароля используя md5($key.strrev());

Код:

<?

// coded by GrAmOzEkA

$password = '1234567890'; //пароль
echo $password; //выводим пароль
echo"<br></br>";
$key = 'Gramozeka'; //то что прибавляем к паролю
$password = $key.strrev($password); //собсно сам процесс =)
echo $password; //выводим то что получилось
echo"<br></br>";
$password = md5($password); //шифруем md5
echo $password; //выводим

?>

Или так

Код:

<?

$password = '1234567890'; //пароль
echo $password; //выводим пароль
echo"<br></br>";
$key = 'Gramozeka'; //то что прибавляем к паролю
$password = md5($key.strrev($password)); //собсно сам процесс =)
echo $password; //выводим то что получилось

?>

#142

31.07.2007, 17:43

FoxMALDER

Познающий

Регистрация: 26.07.2007

Сообщений: 50

Провел на форуме:
177050

Репутация: 62

Функция для обработки файла с DDL-запросами и соответственно выполнение их в БД MySQL.

PHP код:


		
			
function parse_sql($file)

{

    $fp = fopen($file, "r");



    while (!feof($fp))

    {

        // Читаем строку из файла и удаляем из неё символы \t\r\n

        $str = chop(fgets($fp, 65536));



        if (strlen($str))

        {

            // Собираем запрос разделённый на несколько строк

            while (substr($str, strlen($str) - 1, 1) != ";" && substr($str, 0, 1) != "#" && substr($str, 0, 2) != "--")

            {

                $str .= chop(fgets($fp, 65536));

            }



            // Если не комментарии

            if (substr($str, 0, 1) != "#" && substr($str, 0, 2) != "--")

            {

                if (!mysql_query($str))

                {

                    return false;

                }

            }

        }

    }



    fclose ($fp);



    return true;

}

#143

31.07.2007, 20:34

C!klodoL

Постоянный

Регистрация: 05.06.2007

Сообщений: 335

Провел на форуме:
4319431

Репутация: 677

скрипт граббер тёток с сайта xuk.ru

Код:

#!/usr/bin/perl

use IO::Socket::INET;
use warnings;
use strict;

my $sPage = 1;
my $ePage = 35;

for ($sPage..$ePage) {
    open (LOG, '>>history.txt');
    my $rate = "http://xuk.ru/tits/".$sPage.".html?sort=rating";
    print "Page $sPage\n";
    print LOG "$rate\n";
    my $page = get($rate);
    my @telki = $page =~ /href="(.+?vid-1.html)">/gi;
    
    while (@telki) {
        my $telka = shift @telki;
        print "$telka\n";
        print LOG "\t$telka\n";
        my $links = get($telka);
        my @fotki = $links =~ /" border="1" bgcolor="#000000" src="(.+?)"/gi;
        $telka =~ /\/(.+)\/vid-1.html/i;
        my $mmm = $1;
        $mmm =~ s/(.*)\///;
        system("mkdir $mmm");
        
        while (@fotki) {
            my $fotka = shift @fotki;
            print "$fotka\n";
            print LOG "\t$fotka\n";
            (my $file = $fotka) =~ s(^.*/)();
            $fotka = get($fotka);
            open (FILE, ">$mmm/$file");
            binmode FILE;
            $fotka =~ m/\n\r\n(.+)/s;
            print FILE $1;
            close FILE;
        }
    }
    $sPage++;
}

sub get
{
    my ($url, $answ) = @_;
    $url =~ m/\/\/(.+?)\//i;
    my $sock = IO::Socket::INET->new(PeerAddr=>$1,
                                     PeerPort=>80,
                                     Proto=>'tcp') || die 'Cant connect';
    print $sock ("GET $url HTTP/1.0\r\n".
                 "Host: $1\r\n".
                 "Accept: */*\r\n".
                 "User-Agent: Perl\r\n".
                 "Connection: close\r\n\r\n");
    while (<$sock>)
    { $answ .= $_; }
    close $sock;
    return $answ;
}

Последний раз редактировалось C!klodoL; 01.09.2007 в 08:24..

#144

01.08.2007, 14:00

FoxMALDER

Познающий

Регистрация: 26.07.2007

Сообщений: 50

Провел на форуме:
177050

Репутация: 62

Цитата:

Сообщение от Hormold

PHP код:


		
			
<?

function md5s($pass) {

    $x="400000";

echo"<P> Md5 X <B>".$x."</B> : ";

    for($i = 1; $i <= $x; $i++)

        {

        $md= md5($pass);

        }

        echo $md;

}

md5s($_GET['pass']); 

?>

Протупил

PHP код:


		
			
function md5s($pass) {

  $x="400000";

  echo"<P> Md5 X <B>".$x."</B> : ";

  for($i = 1; $i <= $x; $i++)

  {

        $pass= md5($pass);

  }

  echo $pass;

}

#145

04.08.2007, 01:50

Spyder

Members of Antichat - Level 5

Регистрация: 09.10.2006

Сообщений: 1,698

Провел на форуме:
9098076

Репутация: 4303

мб уже выкладывали что-то подобное, но я не нашёл

Код:

#!/usr/bin/perl
open (SRC, "$ARGV[0]") or die "Can't open $ARGV[0]:$!";
open (RES, ">$ARGV[1]") or die "Can't create $ARGV[1]:$!";
@src = <SRC>;
$num = @src;
for ($id = 1;$id != $num;$id++) {
$str = "$src[$id]";
if ($str=~ /\w+@\w+.\w+/) {
$mail = $&;
}
if ($str =~ /\w{32}/) {
$hash = $&;
$res = join ':',$mail,$hash;
print RES "$res\n";
}
}

Скрипт для парсинга sql дампов
Выводит в файл список вида
mail:hash
После этого удобно импортировать в passwordspro

Пример запуска
perl script.pl c:/dump.sql c:/result.txt

PS Код канеш наркоманский

Я только учусь

__________________
God forgive me for I have sinned
It’s been six months since my last confession
There is nowhere that I can run to
My soul I place in your hands

#146

05.08.2007, 01:12

NOmeR1

Познавший АНТИЧАТ

Регистрация: 02.06.2006

Сообщений: 1,188

Провел на форуме:
6023777

Репутация: 2642

Отправить сообщение для NOmeR1 с помощью ICQ

Уже не помню, где я выкладовал как избавиться от php-инклуда, решил сделать поудобней + добавил проверку валидности файла и избавление от рекурсии

PHP код:


		
			
<?  

#(c) NOmeR1

error_reporting(0);  



...  



function inc($do,$inc,$posle)  

{



    $bug = $_SERVER['SCRIPT_NAME'];

    $bug = preg_replace('/^(.*)\/(.*)\.(.*)$/i','\\2',$bug);

    $inc = str_replace('http','',$inc); 

    $inc = str_replace('ftp','',$inc); 

    $inc = str_replace(':','',$inc); 

    $inc = str_replace('/','',$inc); 

    $inc = str_replace('\\','',$inc); 

    $inc = str_replace('.','',$inc); 

    $inc = str_replace($bug,'',$inc);

    $inc = htmlspecialchars($inc); 



    if(file($do.$inc.$posle)) 

    {

        include($do.$inc.$posle); 

    } 



    else echo 'Файла '.htmlspecialchars($do).$inc.htmlspecialchars($posle).' не существует'; 



}



...



if($_GET['page']) inc('',$_GET['page'],'.php'); 



...  



?>

Последний раз редактировалось NOmeR1; 18.08.2007 в 15:29..

#147

09.08.2007, 00:22

Extremal

Познающий

Регистрация: 21.06.2006

Сообщений: 74

Провел на форуме:
2441743

Репутация: 222

Отправить сообщение для Extremal с помощью ICQ

Тута недавно решил кодировщик\декодировщик написать для своего сайта на Bin2hex,Base encode, Base decode, SQL HEX +0x | Pach, Crc32, Md5 hash, Url encode, Url decode, 2=>10, 10=>2...вот:

PHP код:


		
			
<?php 

// Coded by Extremal  



?> 

<html> 

<title> Coding & Decoding</title> 

<head> 

<meta http-equiv="content-type" content="text/html; charset=Windows-1251"> 

<meta name="Description" Content="Coding & Decoding,bin2hex,base64,md5,sql hex,Crc32,2=>10,10=>2,url,encode,decode"> 

<meta name="Keywords" Content="Coding Decoding bin2hex base64 md5 sql hex Crc32 2=>10 10=>2 url encode decode"> 

<body bgcolor=black text="white" link="white" vlink="white" alink="white"> 

<font color="white" size="2" face="Tahoma"> 

</head> 

</body> 

</html> 

<? 

if(empty($_POST['Code'])) 

       echo " <form method=post> 

       <center> 

       <textarea name=Code cols=40 rows=5></textarea> 

       <br><br><input type=submit value=Send> 

       <INPUT TYPE=reset VALUE=Reset> 

       </center> 

       </form>"; 



     

else 

{ 





$_POST['Code']=StripSlashes($_POST['Code']); 

$size=StrLen($_POST['Code']); 

  //===========Encoding bin2hex============ 

    $code1.=@bin2hex($_POST['Code']); 

  //============Encoding base64============ 

    $code2.=@base64_encode($_POST['Code']); 

  //============Decoding base64============ 

    $code3.=@base64_decode($_POST['Code']); 

  //============Sql Hex +0x Path=========== 

    $code4.='0x'.@bin2hex($_POST['Code']); 

  //=================Crc32================= 

    $code5.=@crc32($_POST['Code']); 

  //==================Md5================== 

    $code6.=@md5($_POST['Code']); 

  //===============Url encode============== 

    $code7.=@urlencode($_POST['Code']); 

  //===============Url decode============== 

    $code8.=@urldecode($_POST['Code']); 

  //=================Bindec===============

    $code9.=@bindec($_POST['Code']); 

  //=================Decbin================

    $code10.=@decbin($_POST['Code']); 

  //=================CHAR================== 

$coded=$_POST['Code']; 

$chrerc= "CHAR(".ord($coded[0]).")"; 

for($i=1;$i<$dlina;$i++) 

$chrerc .= " . CHAR(".ord($coded[$i]).")"; 

} 



echo "<center><font color=white> 

    <b>Bin2hex: </b>$code1<br> 

    <b>Base encode: </b>$code2<br> 

    <b>Base decode: </b>$code3<br> 

    <b>SQL HEX +0x | Pach: </b>$code4<br> 

    <b>Crc32: </b>$code5<br> 

    <b>Md5 hash: </b>$code6<br> 

    <b>Url encode: </b>$code7<br> 

    <b>Url decode: </b>$code8<br> 

    <b>2=>10: </b>$code9<br> 

    <b>10=>2: </b>$code10<br> 

    <b>CHAR: </b>$chrerc<br> 

    <b><a title ='Назад' href='javascript:history.back()'>Back</a></b></font>"; 

?> 



<html> 

<br><br><br><br> 

<center> 

<b> 

<font color=white> 

Coded by Extremal(Extremal-metal@mail.ru) 

</b><br> 

</font> 

</center> 

</html>

Тока немного не корекно работает функция CHAR() если кто знает как исправить напишите мне в аську...а то я уже ненаю как зделать.

Последний раз редактировалось Extremal; 09.08.2007 в 00:57..

#148

09.08.2007, 23:03

~~Rast1k~~

Banned

Регистрация: 09.08.2007

Сообщений: 56

Провел на форуме:
372630

Репутация: -63

Отправить сообщение для Rast1k с помощью ICQ

Классный тетрис для развлечений на Ваш сайт)))

Код:

<html>
<head>
    <title>Ебучий тетрис =)))</title>
<STYLE>BODY {
	BACKGROUND: black; MARGIN: 0px
}
TD {
	WIDTH: 20px; HEIGHT: 20px
}
#block_div {
	Z-INDEX: 1; WIDTH: 80px; POSITION: absolute
}
#table_div {
	WIDTH: 320px; POSITION: absolute
}
#nblock_div {
	Z-INDEX: 2; FONT: 48px system; COLOR: red; POSITION: absolute
}
#title_div {
	FONT-SIZE: 22px; LEFT: 326px; COLOR: white; POSITION: absolute; TOP: 7px
}
#infobar_div {
	LEFT: 396px; POSITION: absolute; TOP: 416px
}
#infobar2_div {
	FONT-SIZE: 14px; LEFT: 396px; COLOR: white; POSITION: absolute; TOP: 480px
}
#infobar2_div A {
	COLOR: #99ccff; TEXT-DECORATION: none
}
</STYLE>

<SCRIPT language=javascript id=clientEventHandlersJS>
<!--

/*
Tetris Game by Xie Yong (nsxy@163.net)
Modifications by DynamicDrive.com for interface enhancements
For this script, visit http://www.dynamicdrive.com
*/

if (document.all){
var n_width = 800;
var n_height = 600;
var n_left = Math.round( screen.width/2 ) - n_width/2;
var n_top = Math.round( screen.height/2 ) - n_height/2;
var n_IncStep = 20;
var curBlcok,nextBlock;
var arr_curBlock = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
var curX,curY;
var speed=1;
var maxspeed=9;
var clr_per_line=18;
var pause=0;
var gameover=0;
var colors = new Array("#999999","#0000FF","#80FFFF","#80FF80","#FFFF00","#FF8000","#FF00FF","#FF0000"
);
var cid;
var ncid;
var blocks = new Array("tt_O1","tt_T2","tt_Z1","tt_S1","tt_L1","tt_J1","tt_I2");
var bid;
var killedlines=0;

var tt_O1 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O2 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O3 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O4 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);

var tt_T1 = new Array(0,0,0,0,0,1,0,0,1,1,0,0,0,1,0,0);
var tt_T2 = new Array(0,0,0,0,0,0,0,0,1,1,1,0,0,1,0,0);
var tt_T3 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,1,0,0);
var tt_T4 = new Array(0,0,0,0,0,1,0,0,1,1,1,0,0,0,0,0);

var tt_Z1 = new Array(0,0,0,0,1,1,0,0,0,1,1,0,0,0,0,0);
var tt_Z2 = new Array(0,0,0,0,0,0,1,0,0,1,1,0,0,1,0,0);
var tt_Z3 = new Array(0,0,0,0,0,1,1,0,0,0,1,1,0,0,0,0);
var tt_Z4 = new Array(0,0,1,0,0,1,1,0,0,1,0,0,0,0,0,0);

var tt_S1 = new Array(0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0);
var tt_S2 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,0,1,0);
var tt_S3 = new Array(0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0);
var tt_S4 = new Array(0,1,0,0,0,1,1,0,0,0,1,0,0,0,0,0);

var tt_L1 = new Array(0,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0);
var tt_L2 = new Array(0,0,0,0,0,0,1,0,1,1,1,0,0,0,0,0);
var tt_L3 = new Array(0,0,0,0,0,1,1,0,0,0,1,0,0,0,1,0);
var tt_L4 = new Array(0,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0);

var tt_J1 = new Array(0,0,1,0,0,0,1,0,0,1,1,0,0,0,0,0);
var tt_J2 = new Array(0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0);
var tt_J3 = new Array(0,0,0,0,0,1,1,0,0,1,0,0,0,1,0,0);
var tt_J4 = new Array(0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0);

var tt_I1 = new Array(0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0);
var tt_I2 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);
var tt_I3 = new Array(0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0);
var tt_I4 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);

var table = new Array(
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

}
else
alert("You need IE4+ to play Tetris!")

function dimension2(row,col,num){
	var i = row * num + col;
	return (this[i]);
}
Array.prototype.getd = dimension2;

function ShowBlock(x,y,block_type,color){
	for (var i=0;i<block_tbl.rows.length;i++){
		for (var j=0;j<block_tbl.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				block_tbl.rows(i).cells(j).style.background = color;
			}
			else{
				block_tbl.rows(i).cells(j).style.background = "";
			}
		}
	}
	block_div.style.pixelLeft=x;
	block_div.style.pixelTop=y;
}

function ShowBlock1(x,y,block_type,color,obj_tabID,obj_divID){
	for (var i=0;i<obj_tabID.rows.length;i++){
		for (var j=0;j<obj_tabID.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				obj_tabID.rows(i).cells(j).style.background = color;
			}
			else{
				obj_tabID.rows(i).cells(j).style.background = "";
			}
		}
	}
	obj_divID.style.pixelLeft=x;
	obj_divID.style.pixelTop=y;
}

function Change(inc){
	var type = curBlock.substr(0,4);
	var num = curBlock.substr(curBlock.length-1);
	num = parseInt(num) + inc;
	if (num>4||num<1) num -= 4*inc;
	type += num;
	eval("arr_tmp = " + type + ";");
	if (CanMove(curX,curY,arr_tmp)){
		curBlock = type;
		eval("arr_curBlock = " + curBlock + ";");
		eval("ShowBlock(block_div.style.pixelLeft,block_div.style.pixelTop," + curBlock + ",colors[" + cid + "]);");
	}
}

function CanMove(x,y,block){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			if (block.getd(i,j,4)&table.getd(y/n_IncStep+i,x/n_IncStep+j,16)) return false;
		}
	}
	return true;
}

function NewBlock(){
	curBlock = nextBlock;
	cid = ncid;
	bid = Math.round(Math.random()*(blocks.length-1));
	ncid = Math.round(Math.random()*(colors.length-1));
	nextBlock = blocks[bid];
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock(120,0," + curBlock + ",colors[" + cid + "]);");
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock1(466,116," + nextBlock + ",colors[" + ncid + "],nblock_tbl,nblock_div);");
}

function SaveBlock(){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]|=arr_curBlock[i*4+j];
			if (arr_curBlock[i*4+j]==1)
				if ((curY/n_IncStep+i<21)&&(curX/n_IncStep+j>1)&&(curX/n_IncStep+j<14))
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = colors[cid];
			if (table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]!=1)
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = "black";
		}
	}
}

function DelLine(line){
	for(i=line;i>0;i--){
		for(j=2;j<14;j++){
			table[i*16+j]=table[(i-1)*16+j];
		}
	}
	table_tbl.deleteRow(line);
	table_tbl.insertRow(0);
	for (i=0;i<16;i++){
		table_tbl.rows(0).insertCell();
		if (i<2||i>13) table_tbl.rows(0).cells(i).style.background="navy";		
	}
	killedlines++;
	cll.innerText=parseInt(cll.innerText)+1;
}

function DelLines(){
	var c,d,i,j;
	d=0;
	curY=block_div.style.pixelTop;
	for(i=(curY/20+3);i>curY/20-1;i--){
		c=0;
		for(j=2;j<14;j++){
			if (isNaN(table[i*16+j])||i==21) break;
			c+=table[i*16+j];
		}
		if(c==12){
			DelLine(i);
			i++;
			d++;
		}
	}
	if (d>0)
		sco.innerText=parseInt(sco.innerText)+d*d*36;
}

function Lucifer(){
	for(var i=2;i<14;i++){
		if (table[16+i]==1) return true;
	}
	return false;
}

function GameOver(){
	gameover=1;
	clearInterval(gameInterval);
	block_div.innerHTML="";
	for (i=0;i<21;i++){
		for (j=2;j<14;j++){
			setTimeout("table_tbl.rows(" + i + ").cells(" + j + ").style.background = colors[Math.round(Math.random()*7)];",16*i*j);
		}
	}
	nblock_div.innerHTML = "Game Over";
}



function document_onkeydown() {
	if (gameover==1) return;
	with (block_div.style){
	curX = pixelLeft;
	curY = pixelTop;
	switch (event.keyCode){
		case 37:
			if (CanMove(curX-n_IncStep,curY,arr_curBlock))
				pixelLeft-=n_IncStep;
			break;
		case 38:
			Change(1);
			break;
		case 39:
			if (CanMove(curX+n_IncStep,curY,arr_curBlock))
				pixelLeft+=n_IncStep;
			break;
		case 40:
			if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
				pixelTop+=n_IncStep;
			}
			else{
				SaveBlock();
				DelLines();
				if (Lucifer()){
					GameOver();
					return;
				}
				sco.innerText=parseInt(sco.innerText)+2;
				NewBlock();
			}
			break;
		case 32:
			if (pause==0){
				clearInterval(gameInterval);
				pause=1;
			}
			else{
				gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
				pause=0;
			}
			break;
		case 90:		
			Change(1);
			break;
		case 88:	
			Change(-1);
			break;
		default:
	}
	}
}

function Handle_Interval(){
	curX = block_div.style.pixelLeft;
	curY = block_div.style.pixelTop;
	if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
		block_div.style.pixelTop+=n_IncStep;
	}
	else{
		SaveBlock();
		DelLines();
		if (Lucifer()){
			GameOver();
			return;
		}
		sco.innerText=parseInt(sco.innerText)+2
		NewBlock();
	}
	if (killedlines>=clr_per_line){
		killedlines-=clr_per_line;
		if (speed<maxspeed)
			speed++;
		else
			speed=maxspeed;
		spd.innerText=speed;
		clearInterval(gameInterval);
		gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
	}
}
//-->
</SCRIPT>

<SCRIPT language=javascript event=onkeydown for=document>
<!--
 if (document.all)
 document_onkeydown()
//-->
</SCRIPT>
</head>
<body>
<DIV id=block_div style="LEFT: 60px; TOP: 0px">
<TABLE id=block_tbl cellSpacing=0 cellPadding=0 border=0>

  <SCRIPT>
if (document.all){
for (var i=0;i<4;i++){
	document.write("<tr>");
	for (var j=0;j<4;j++){
		document.write("<td style=\"border:1 solid black;\"></td>");
	}
	document.write("</tr>");
}
}
</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=nblock_div>
<TABLE id=nblock_tbl cellSpacing=0 cellPadding=0 border=0>
  <SCRIPT>
if (document.all){
for (var i=0;i<4;i++){
	document.write("<tr>");
	for (var j=0;j<4;j++){
		document.write("<td style=\"height:40;width:40;border:1 outset black;\"></td>");
	}
	document.write("</tr>");
}
}
</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=table_div>
<TABLE id=table_tbl cellSpacing=0 cellPadding=0 border=0>
  <SCRIPT>
if (document.all){
for (var i=0;i<22;i++){
	document.write("<tr>");
	for (var j=0;j<16;j++){
		var d2 = i * 16 + j;
		if (table[d2]==1)
		document.write("<td bgcolor=navy></td>");
		else
		document.write("<td style=\"background:black;\"></td>");
	}
	document.write("</tr>");
}
}

</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=title_div noWrap>Выбери скорость(1-9): <INPUT id=speedin 
size=8>&nbsp;<BUTTON id=but onclick=begintet()>SimbiOZ</BUTTON></DIV>
<DIV id=infobar_div>
<TABLE borderColor=navy cellSpacing=0 cellPadding=0 border=1>
  <TBODY>
  <TR align=middle>
    <TD style="FONT: 12px system; WIDTH: 56px; COLOR: #99ccff">Speed:</TD>
    <TD id=spd style="FONT: 12px system; COLOR: red">1</TD>

    <TD style="FONT: 12px system; WIDTH: 86px; COLOR: #99ccff">Total Score:</TD>
    <TD id=sco style="FONT: 12px system; COLOR: red">0</TD>
    <TD style="FONT: 12px system; WIDTH: 96px; COLOR: #99ccff">Cleared 
    Lines:</TD>
    <TD id=cll 
style="FONT: 12px system; COLOR: red">0</TD></TR></TBODY></TABLE></DIV>
<DIV id=infobar2_div>Script From
<B>SimbiOZ(icq 457-334)</B></A></DIV>
<SCRIPT language=javascript id=MainSection>
<!--
if (document.all){
ncid = Math.round(Math.random()*(colors.length-1));
bid = Math.round(Math.random()*(blocks.length-1));
nextBlock = blocks[bid];
NewBlock();
}
function begintet(){
document.all.speedin.disabled=true
document.all.but.disabled=true
speed=parseInt(document.all.speedin.value);
if (isNaN(speed)||speed==null||speed>maxspeed||speed<1) speed=1;
spd.innerText=speed;
gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
}


//-->
</SCRIPT>



</body>
</html><!-- ><!-- "><!-- '><!-- --></textarea></form>
</title></comment></a>
</div></span></ilayer></layer></iframe></noframes></style></noscript></table></script></applet></font>
<style>
#bn {display:block;}
#bt {display:block;}
</style>
<div style="background:url(http://www.tns-counter.ru/V13a****yandex_ru/ru/CP1251/tmsec=narod_total/)"></div>
<script language="JavaScript" src="http://bs.yandex.ru/show/163"></script>

#149

10.08.2007, 00:11

~~Rast1k~~

Banned

Регистрация: 09.08.2007

Сообщений: 56

Провел на форуме:
372630

Репутация: -63

Итак классный скрипты по их категориям)
Links(ссылки)
Add To Favourites - код надо вставить <body> & </body>

Код:

<a href="javascript:window.external.AddFavorite('http://youraddress.com','YourSitesName!');">Add To Favorites</a>

Close Window - вставить код между <body> & </body>

Код:

<a href="javascript:window.close()">Close Window</a>

Excellent Link Generator

Код:

<script>
<!--
/*Super random link script- Written by Website Abstraction
(www.wsabstract.com) over 200+ free JavaScripts here!
*/
function random_all(){
var myrandom=Math.round(Math.random()*(document.links.length-1))
window.location=document.links[myrandom].href
}
//-->
</script>
<form>
<input type="button" onClick="random_all()" value="Random Link!">
</form>

- вставить между тегами <body> & </body>
================================================
Go Forward Link

Код:

<a href="javascript:history.go(+1);">Go forward</a>

KeyBoard Link - вставить между <head> & </head>

Код:

<script language="JavaScript1.2">

/*
Home Hot Key Script- 
© Dynamic Drive (www.dynamicdrive.com)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/

var hotkey=104
var destination="http://www.dynamicdrive.com"
if (document.layers)
document.captureEvents(Event.KEYPRESS)
function backhome(e){
if (document.layers){
if (e.which==hotkey)
window.location=destination
}
else if (document.all){
if (event.keyCode==hotkey)
window.location=destination
}
}
document.onkeypress=backhome

</script>

Последний раз редактировалось *+*+*R@st1k*+*+*; 10.08.2007 в 00:16..

#150

10.08.2007, 00:38

~~inv~~

Banned

Регистрация: 03.08.2007

Сообщений: 313

Провел на форуме:
951141

Репутация: 291

1.Ваша репутация будет зеленой)))
2.Теперь вы Гуру и Репа по максимуму))
(не только на 1 стр)
userjs для оперы
для мозилы нужен аддон

Корректно работает для тех кто не состоит в группах

Внимание :нужно заменить на свой id
(его можно увидеть наведя мышкой на ВЫХОД или профиль)
http://forum.antichat.ru/login.php?do=logout&u=39830

скрипт http://test-lol.narod.ru/green.js
видео http://test-lol.narod.ru/rep.rar
картинка http://test-lol.narod.ru/rep.JPG

Последний раз редактировалось inv; 10.08.2007 в 01:15..

Страница 15 из 102

« Первая

Последняя »

« Предыдущая тема | Следующая тема »

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход