View Single Post
Old 14-01-2007, 05:39   #6 (permalink)
AdrianK
Member
 
Join Date: Jun 2004
Location: Canada
Age: 18
Posts: 145
Rep Power: 0
AdrianK is on a distinguished road
Default Lending Script

Statement:
Lending Script = a&a light script.

Sample:
http://script.ircproject.info/downlo....1_Beta.tar.gz
http://script.ircproject.info/downlo...t_0.1_Beta.zip

Evidence:
Daca ne uitam attent in file bot1.conf, e fix aceiash ce in a&a light numa ca e taiat patratul in care scrie copyright/author aqwzsx. As a matter of fact din fiecare file existent in scriptul lu aqwzsx a fost taiat patratul ala in care scrie cine a facut si unde sa contacteze pentru support. Fileurile care erau a&a_a*.tcl au fost renumite in lending_a*.tcl Nimic special schimbat.
Sa luam de exemplu lending_01_a_core.tcl. Se incepe fix cum aici:

Code:
############ Parser ##################################

proc a:parser {nick uhost hand chan dir comm arg} {

	if { [check:b:gl $hand]} {return}

	set option  [lindex $arg 0]
	set chan1st $chan

	if { [string match "#*" $option]} {set args [lrange $arg 1 end]; set chan $option} { set args $arg}
	if {![a:command -exists $comm]} {return} elseif { [a:command -inactive $comm $chan]} {return}

	global settings 
	if {$settings(flood) && ([a:flood -user $chan $hand $uhost] || [a:flood -chan $chan $dir])} {return}

	set x "[split $nick] [split $hand] [split $chan1st] $dir"

	if { [validchan $chan] } {
		if {![botonchan $chan] && ![string match {|[suU]} [a:command -level $comm]] && ![regexp -nocase -- {^(purge|comeback|templeave|xremuser|xban|xkick|stats|chaninfo|chanset|suspend|admins|list)$} $comm]} {
		      a:tell $x 21 "$chan"; putcmdlog "<<$hand>> $nick!$uhost $chan INACTIVE CHAN ($chan)"; return 
		}
	} elseif {![string equal $comm join] && ![string equal $comm stats]} {
			if { [check:v:gl $hand]} {a:tell $x 20 "$chan"} 
			return
	}

	if { [check:S:ch $hand $chan] && ![check:N:gl $hand]} { a:tell $x 149; return}

	set mix	"[split $uhost]"

	switch -glob -- [a:command -level $comm] {
		{|[us]}  {set report [catch {[a:command -proc $comm] $hand $chan $args $x $mix} execute]}
		|*       {if { [check:[string index [a:command -level $comm] 1]:ch $hand $chan] && [a:authorised $nick $uhost $hand]} { set report [catch {[a:command -proc $comm] $hand $chan $args $x $mix} execute]} {return}}
		default  {if { [check:[a:command -level $comm]:gl $hand] && [a:authorised $nick $uhost $hand]}                        { set report [catch {[a:command -proc $comm] $hand $chan $args $x $mix} execute]} {return}}
	}

	putcmdlog "<<$hand>> $nick!$uhost $chan [string toupper $comm] $execute"

	if {$report && $settings(tcl_error_warn)} {a:announce -permowner ERROR "<<$hand>> $nick!$uhost $chan $dir >>> [a:command -proc $comm] >>> $comm $args >>> $::errorInfo"}
}
Fix, Fix acelash shit ca a&a. Sa nu mai mentionezi ca README section ei au uitat sa modifice tot si acolo inca scrie copyright universalia lol. real ure an *********(si asta nui insulta gratis, u really are)
Sa luam un alt exmplu. lending_11_a_global.tcl:

Code:
############ Command Binds ###########################

a:command -add save     pub:save     1094 576 N
a:command -add backup   pub:backup   1062 577 N
a:command -add addbot   pub:addbot   1096 590 N
a:command -add botattr  pub:botattr  1099 593 N
a:command -add member   pub:member   1012 618 N
a:command -add away     pub:away     1033 513 N
Acest a:Command e un alt proof ca asta e total a&a script. Plus la asta in file name lending_a_whatever.tcl.

lsn deja a mentionat ca forumul lor DEASEMENEA e copy paste 95% al forumului asta.

Quote:
Originally Posted by lsn View Post
Chiar asta am auzit niste zvonuri privind anumite canale din #lending, si intrand pe pagina lor am ramas surprins sa vad ca ei folosesc scriptul a&a light cu mici modificari dar acest script nu se mai numeste a&a light ci Lending Script. Acest lucru poate fi verificat pe:

http://script.ircproject.info

Citind paginile sitului am descoperit si un forum. Si surpriza cea mare a venit in momentu in care am observat ca este o copie identica a forumului #botlending

Uitati-va si va minunati:

http://forum.ircproject.info/

Mare e nesimtirea unora ....
Ei au aceleasht compartimente, aceleash posturi in compartimente, acelash tot. Real nu ejti capabil sa creezi ceva singur? trebuie tot sa copii? ce se va intimpla cind vei fi la lucru, tot vei copia de la altii, dar ce se intimpla daca tie ti se da un proect care nimini pina atunci no sa fac? de la cine o sa copii? tu stii ca pe tine acum in judecata poate sa te dea si sa sa coata din un reasonable ammount de bani incepind de la 100 de mii (nu lei romaneshti ce dolari).

Have a nice ******* day catching ******* makes me high lol uhuuuuuuuu

P.S. sa nu mentionam http://commands.ircproject.info/comenzi.html . Sau sa mentionam

Last edited by AdrianK; 14-01-2007 at 21:29. Reason: aqwzsx thinks im rude
AdrianK is offline