1. Mudkip
2. PHP
+
1. Mudkip
2. PHP
@name 1.Flart Da VK Player
@persist [Music Data MData FS FE LK]:string FSF FEF
@persist [ARTIST FFT Name Search SEC MIN]:array New Sec Min CurList
@persist [NS NE AS1 AS2 AES SMTH]:string NSF NEF AE ASF AEF
@persist DANG A EE:entity MOVE MOVEH BEATS SerCount ABLE VISON CHECK NewName:string
@persist [TIS1 TIS2 TIE TIME MINS SECS]:string TSF SearHelp TEF TI
@persist [COL1 COL2 COL3 SCOL1 SCOL2 SCOL3] [HO1 HO2]:entity NUM [COLOR COLOR2]:array [PLAYERPOS]:vector [PLAYERANG]:angle
@persist FLOW I
@model models/holograms/cube.mdl
# Model part
runOnTick(1)
if (A >= 180) {A=0} else {A=A+1}
if(first()|duped()){
runOnSignal("ConnectTankPlayer",2,1)
EE=entity()
CHECK=2
Sec=-1
Min=0
CurList=10
I=0
DANG=0
NewName="Player De Flart \n >Sleeping Now<"
VISON=0
ABLE=0
COLORABLE=1
MOVEH=90
COL1=teamColor(owner():team()):x()
COL2=teamColor(owner():team()):y()
COL3=teamColor(owner():team()):z()
SCOL1=0
SCOL2=0
SCOL3=0
MOVE=12
holoCreate(1,EE:toWorld(vec(-MOVE,0,0)),vec(1.1),EE:angles(),vec(100),"hq_rcube")
holoParent(1,EE)
holoMaterial(1,"phoenix_storms/mat/mat_phx_carbonfiber")
HO1=holoEntity(1)
holoCreate(2,EE:toWorld(vec(MOVE,0,0)),vec(1.105),EE:angles(),vec(100),"hq_rcube")
holoParent(2,EE)
holoMaterial(2,"phoenix_storms/mat/mat_phx_carbonfiber")
HO2=holoEntity(2)
holoCreate(3,EE:toWorld(vec(-12,5.86,0)),vec(0.8,0.8,0.3),EE:toWorld(ang(0,0,-90)),vec(100))
holoParent(3,HO1)
holoModel(3,"hq_sphere")
holoMaterial(3,"phoenix_storms/mat/mat_phx_carbonfiber")
holoCreate(4,EE:toWorld(vec(12,5.86,0)),vec(0.805,0.805,0.305),EE:toWorld(ang(0,0,-90)),vec(100))
holoParent(4,HO2)
holoModel(4,"hq_sphere")
holoMaterial(4,"phoenix_storms/mat/mat_phx_carbonfiber")
holoCreate(5,EE:toWorld(vec(-12,0,0)),vec(1.09,1.09,1.2),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_stube_thin")
holoMaterial(5,"lights/white")
holoParent(5,HO1)
holoCreate(6,EE:toWorld(vec(12,0,0)),vec(1.095,1.095,1.205),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_stube_thin")
holoMaterial(6,"lights/white")
holoParent(6,HO2)
holoCreate(7,EE:toWorld(vec(-12,7.5,0)),vec(0.9,0.9,1.2),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_torus")
holoMaterial(7,"lights/white")
holoParent(7,HO1)
holoCreate(8,EE:toWorld(vec(12,7.5,0)),vec(0.905,0.905,1.205),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_torus")
holoMaterial(8,"lights/white")
holoParent(8,HO2)
holoCreate(9)
holoModel(9,"hq_stube")
holoMaterial(9,"phoenix_storms/mat/mat_phx_carbonfiber")
holoScale(9,vec(0.7,0.4,0.1))
holoColor(9,vec(100))
holoAng(9,EE:toWorld(ang(0,0,90)))
holoPos(9,EE:toWorld(vec(0,0,6)))
holoParent(9,EE)
holoCreate(10)
holoModel(10,"cplane")
holoScale(10,vec(0.72,0.72,0))
holoAng(10,HO1:toWorld(ang(0,0,-90)))
holoColor(10,teamColor(owner():team()))
holoPos(10,HO1:toWorld(vec(0,7.1,0)))
holoMaterial(10,"expression 2/cog_prop")
holoParent(10,HO1)
holoCreate(11)
holoModel(11,"cplane")
holoScale(11,vec(0.72,0.72,0))
holoAng(11,HO2:toWorld(ang(0,0,-90)))
holoColor(11,teamColor(owner():team()))
holoPos(11,HO2:toWorld(vec(0,7.1,0)))
holoMaterial(11,"expression 2/cog_prop")
holoParent(11,HO2)
#ifdef entity:soundFFT(number)
for (I=12,35) {holoCreate(I)}
holoMaterial(12,"phoenix_storms/mat/mat_phx_carbonfiber")
holoColor(12,vec(100))
holoPos(12,EE:toWorld(vec(0,-0.7,-9)))
holoScale(12,vec(1,0.1,0.5))
holoModel(12,"hq_rcube")
holoParent(12,EE)
holoMaterial(13,"lights/white")
holoColor(13,teamColor(owner():team()))
holoPos(13,EE:toWorld(vec(0,-0.7,-9)))
holoAng(13,EE:toWorld(ang(0,0,90)))
holoScale(13,vec(1.05,0.52,0.2))
holoModel(13,"hq_stube_thin")
holoParent(13,12)
for (I=14,35) {
holoPos(I,EE:toWorld(vec(0.3*(I-24.5),0,-9)))
holoParent(I,12)
holoMaterial(I,"lights/white")
holoColor(I,hsv2rgb((360/22)*(I-2),1,1))
holoScale(I,vec(0.025,0.05,0.1))
}
#endif
noCollideAll(EE,0)
EE:propGravity(1)
EE:propFreeze(1)
EE:setMaterial("lights/white")
}
#Command part
runOnChat(1)
if (first()){
entity():propNotSolid(0)
noCollideAll(EE,1)
FS=toChar(34)+"url"+toChar(34)+":"+toChar(34)
FE=toChar(34)+","+toChar(34)
NS=toChar(34)+"title"+toChar(34)+":"+toChar(34)
NE=toChar(34)+","+toChar(34)
AS1=toChar(34)+"artist"+toChar(34)+":"+toChar(34)
AS2=toChar(34)+"artist"+toChar(34)+":"+toChar(34)
AES=toChar(34)+","+toChar(34)
TIS1=toChar(34)+"duration"+toChar(34)+":"
TIE=","+toChar(34)
}
if (chatClk(owner())) {switch(lastSaid()) {
case "fdpplay "+lastSaid():explode("fdpplay "):string(2),
hideChat(1)
NewName="Player De Flart \n >Sleeping Now<"
ARTIST:clear()
Name:clear()
Search:clear()
DANG=0
MIN:clear()
SEC:clear()
Min=0
Sec=-1
CurList=10
SearHelp=0
SerCount=0
FEF=0
for (I=1,CHECK) {
soundURLdelete(I)
}
stopAllTimers()
setName(NewName)
Music=lastSaid():explode("fdpplay "):string(2):replace(" ","+"):replace("'","%27")
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Searching "+lastSaid():explode("fdpplay "):string(2)+"...")
I=0
for(I=1,4) {soundURLdelete(I)}
NUM=0
BEATS=0
stopAllTimers()
httpRequest("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e")
#print("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e\n")
break
case "fdpid "+lastSaid():sub(7),
NewName="Player De Flart \n >Sleeping Now<"
ARTIST:clear()
Name:clear()
DANG=0
Search:clear()
MIN:clear()
SEC:clear()
Min=0
Sec=-1
CurList=10
SearHelp=0
SerCount=0
FEF=0
for (I=1,CHECK) {
soundURLdelete(I)
}
stopAllTimers()
setName(NewName)
Music=lastSaid():sub(7)#:replace(" ","+"):replace("'","%27")
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Searching "+lastSaid():sub(7)+"'s music...")
I=0
for(I=1,4) {soundURLdelete(I)}
NUM=0
BEATS=0
stopAllTimers()
httpRequest("https://api.vk.com/method/audio.get?owner_id="+Music+"&count=200&offset=0&need_user=0&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e")
#print("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e\n")
hideChat(1)
break
case "fdpreturn",
hideChat(1)
entity():setPos(owner():pos()+vec(0,0,100))
break
case "fdppause",
for(I=1,4) {soundURLpause(I)}
hideChat(1)
setName("Player De Flart \n >Paused<")
BEATS=0
stoptimer("Sec")
break
case "fdpresume",
for(I=1,4) {soundURLplay(I)}
hideChat(1)
timer("Sec",1000)
BEATS=1
break
case "fdpcolorf "+lastSaid():explode("fdpcolorf "):string(2),
if (COLORABLE) {
COLOR=lastSaid():explode("fdpcolorf "):string(2):explode(" ")
COL1=COLOR:string(1):toNumber()
COL2=COLOR:string(2):toNumber()
COL3=COLOR:string(3):toNumber()
holoColor(10,vec(COL1,COL2,COL3))
holoColor(11,vec(COL1,COL2,COL3))
hideChat(1)
}
break
case "fdpcolors "+lastSaid():explode("fdpcolors "):string(2),
if (COLORABLE) {
COLOR2=lastSaid():explode("fdpcolors "):string(2):explode(" ")
SCOL1=COLOR2:string(1):toNumber()
SCOL2=COLOR2:string(2):toNumber()
SCOL3=COLOR2:string(3):toNumber()
hideChat(1)
}
break
case "connectHover",
if (!ABLE) {
signalSend("ConnectPlayerHover",1)
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Sending...")
for (I=12,25) {holoDelete(I)}
hideChat(1)
ABLE=1
}
break
case "fdpvison",
VISON=1
hideChat(1)
break
case "fdpvisoff",
VISON=0
hideChat(1)
break
case "next",
CurList=CurList+10
NewName="Player De Flart \n"
for (I=CurList-9,CurList) {
NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n"
}
setName(NewName)
hideChat(1)
break
case "prev",
if (CurList>10) {
CurList=CurList-10
NewName="Player De Flart \n"
for (I=CurList-9,CurList) {
NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n"
}
setName(NewName)
} else {
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!")
}
hideChat(1)
break
case "choose "+owner():lastSaid():sub(8),
New=owner():lastSaid():sub(8):toNumber()
SMTH=Name[New,string]
Min=MIN[New,number]
Sec=SEC[New,number]
timer("Sound",1000)
if (Sec<10) {
setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+"0"+toString(Sec)+"<")
} else {
setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<")
}
hideChat(1)
break
case "clearlist",
NewName="Player De Flart \n >Sleeping Now<"
ARTIST:clear()
Name:clear()
DANG=0
Search:clear()
MIN:clear()
SEC:clear()
Min=0
Sec=-1
CurList=10
SearHelp=0
FEF=0
for (I=1,CHECK) {
soundURLdelete(I)
}
stopAllTimers()
setName(NewName)
hideChat(1)
break
case owner():lastSaid(),
break
}
}
runOnHTTP(1)
if (httpClk()&NUM==0) {
MData=httpData()
DANG=1
#print(MData)
while (I<100&perf()) {
I++
SearHelp=MData:find(toChar(123),FEF)
ASF=MData:find(AS1,SearHelp)
ASE=MData:find(AES,ASF)
NSF=MData:find(NS,ASF)
NEF=MData:find(NE,NSF)
FSF=MData:find(FS,NEF)
FEF=MData:find(FE,FSF)
#ASF=MData:find(AS2,ASF)
TSF=MData:find(TIS1,NSF)
#TSF=MData:find(TIS1,TSF)
TEF=MData:find(TIE,TSF)
TIME=MData:sub(TSF,TEF):replace(toChar(34),""):replace(",",""):replace("duration:","")
SEC[I,number]=TIME:toNumber()%60
MIN[I,number]=floor(TIME:toNumber()/60,0.1)
ARTIST[I,string]=MData:sub(ASF,ASE):replace(toChar(34)+"artist"+toChar(34)+":",""):upper()
Name[I,string]=MData:sub(NSF,NEF):replace(toChar(34)+"title"+toChar(34)+":",""):upper()
Search[I,string]=MData:sub(FSF,FEF):replace(toChar(34)+"url"+toChar(34)+":"+toChar(34),""):replace(toChar(34),""):replace(toChar(92),""):replace(".vk-cdn.net",".vk.me")
if (ASF!=0&NSF!=0&FSF!=0&I==1) {
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Found!")
}
elseif (I==1&(ASF==0)) {
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!")
}
}
NewName="Player De Flart \n"
for (I=CurList-9,CurList) {
NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n"
}
setName(NewName)
}
elseif (httpClk()&NUM==1) {
Data=httpData()
#print(Data)
for(I=1,CHECK) {soundURLload(I,Data,1,1,entity())}
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Shorted! Loading...")
timer("Music",10000)
}
runOnTick(1)
while (I<100&perf()&DANG==1) {
I++
SearHelp=MData:find(toChar(123),FEF)
ASF=MData:find(AS1,SearHelp)
ASE=MData:find(AES,ASF)
NSF=MData:find(NS,ASF)
NEF=MData:find(NE,NSF)
FSF=MData:find(FS,NEF)
FEF=MData:find(FE,FSF)
#ASF=MData:find(AS2,ASF)
TSF=MData:find(TIS1,NSF)
#TSF=MData:find(TIS1,TSF)
TEF=MData:find(TIE,TSF)
TIME=MData:sub(TSF,TEF):replace(toChar(34),""):replace(",",""):replace("duration:","")
SEC[I,number]=TIME:toNumber()%60
MIN[I,number]=floor(TIME:toNumber()/60,0.1)
ARTIST[I,string]=MData:sub(ASF,ASE):replace(toChar(34)+"artist"+toChar(34)+":",""):upper()
Name[I,string]=MData:sub(NSF,NEF):replace(toChar(34)+"title"+toChar(34)+":",""):upper()
Search[I,string]=MData:sub(FSF,FEF):replace(toChar(34)+"url"+toChar(34)+":"+toChar(34),""):replace(toChar(34),""):replace(toChar(92),""):replace(".vk-cdn.net",".vk.me")
if (ASF!=0&NSF!=0&FSF!=0&I==1) {
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Found!")
}
elseif (I==1&(ASF==0)) {
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!")
}
}
#holoPos(12,EE:pos()+vec(0,0,10))
FLOW=(FLOW+1)%360
if (clk("Music")) {
for(I=1,4) {soundURLplay(I)}
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Playing now!")
BEATS=1
timer("Sec",1000)
}
if (clk("Sound")) {
NUM=1
httpRequest("http://su0.ru/api.php?url="+Search[New,string])
#print(Search[New,string])
printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Shortening...")
}
if (clk("Sec")) {
Sec=Sec-1
if (Sec<10) {
setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+"0"+toString(Sec)+"<")
} else {
setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<")
}
timer("Sec",1000)
}
if (Sec==-1&Min!=0) {
Min=Min-1
Sec=59
setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<")
}
if (Sec==-1&Min==0) {
if (first()) {
setName("Player De Flart \n >Sleeping Now<")
} else {
setName(NewName)
}
stopAllTimers()
if(MOVE!=0) {
MOVE=MOVE-1
holoPos(1,EE:toWorld(vec(-sin(MOVE)*12,0,0)))
holoPos(2,EE:toWorld(vec(sin(MOVE)*12,0,0)))
holoPos(3,HO1:toWorld(vec(0,5.86*sin(MOVE)+0.5,0)))
holoPos(4,HO2:toWorld(vec(0,5.86*sin(MOVE)+0.5,0)))
holoPos(12,EE:toWorld(vec(0,-0.7,-9*sin(MOVE))))
holoAng(10,HO1:toWorld(ang(180*sin(MOVE),0,-90)))
holoAng(11,HO2:toWorld(ang(180*sin(MOVE),0,-90)))
MOVEH=MOVEH+1
holoPos(10,HO1:toWorld(vec(0,8*sin(MOVEH),0)))
holoPos(11,HO2:toWorld(vec(0,8*sin(MOVEH),0)))
holoPos(9,EE:toWorld(vec(0,0,sin(MOVEH)*6)))
}
holoColor(13,vec(0))
for (I=5,8) {
holoColor(I,vec(0))
EE:setColor(vec(0))
}
}
else {
if(MOVE!=90) {
MOVE=MOVE+1
holoPos(1,EE:toWorld(vec(-sin(MOVE)*12,0,0)))
holoPos(2,EE:toWorld(vec(sin(MOVE)*12,0,0)))
holoPos(3,HO1:toWorld(vec(0,5.86*sin(MOVE)+0.5,0)))
holoPos(4,HO2:toWorld(vec(0,5.86*sin(MOVE)+0.5,0)))
holoAng(10,HO1:toWorld(ang(180*sin(MOVE),0,-90)))
holoAng(11,HO2:toWorld(ang(180*sin(MOVE),0,-90)))
holoPos(12,EE:toWorld(vec(0,-0.7,-9*sin(MOVE))))
MOVEH=MOVEH-1
holoPos(10,HO1:toWorld(vec(0,8*sin(MOVEH),0)))
holoPos(11,HO2:toWorld(vec(0,8*sin(MOVEH),0)))
holoPos(9,EE:toWorld(vec(0,0,sin(MOVEH)*6)))
}
holoColor(13,vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3))
for (I=5,8) {
holoColor(I,vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3))
}
EE:setColor(vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3))
if (BEATS) {
holoPos(3,HO1:toWorld(vec(0,5.86+sin(A*20)*2/5+0.5,0)))
holoPos(4,HO2:toWorld(vec(0,5.86+sin(A*20)*2/5+0.5,0)))
#ifdef entity:soundFFT(number)
if (!ABLE&VISON) {
for (I=14,35) {
FFT=EE:soundFFT(1)
holoPos(I,EE:toWorld(vec(0.3*(I-24.5),0,-9+FFT[(I-14)*3,number]/25)))
#holoColor(I,hsv2rgb(vec((FLOW+(I*(180/22)))%360,1,1)))
}
}
#endif
}
}
+
- TrueRobin
- Скриншоты ниже. Сделал надписи, которые высвечиваются при активации: ссылку на свой профиль на TRIGON.IM, при включении "MEDALKY DAITE(on)", при выключении "MEDALKY DAITE(off)". Скрины делал на протяжении написания.
- Старенький, известный скрипт для игры GTA:SA, который я переписал под свой лад. Можно спокойно использовать на серверах SAMP. Официально разрешен на многих проектах. Суть скрипта - возможность изменять положение камеры в пространстве. Управление предельно простое: чтобы активировать/деактивировать скрипт надо нажать комбинацию клавиш "MEDALKA", после чего появится надпись о включении/выключении, WASD - вперёд, назад, влево, вправо, SHIFT - вниз, SPACE - вверх. P.S. Писал в блокноте, т.к. лень было качать SannyBuilder, уже давно не занимаюсь скриптингом SAMP. А этот помню лучше всех.
+1. Alberto Ricci
2. Я непомню какой это язык, этой мой первый бот.
3.@Echo off
:main menu
title text
echo Yo ti ghetto tasher?)0)
echo 1 .) Aga
echo 2 .) Net
echo 3 .) Ti chto durak chtole?0))
set /p var=Set Command
if %var%==1 LOX
if %var%==2 LOX
if %var%==3 Pidr
: Bil kogda-to a teper ya bitch
cls
echo Bye)00)
pause
exit
+1. Шапка
2. Lua (Со слов мудкипа быдлокодер =()
3.http://steamcommunity.com/sharedfiles/filedetails/?id=604890275
+1. Flarty
2. E2 ( Скрипты в Garry's Mod )
3. Примечания нет.Код:@name 1.Flart Da VK Player @persist [Music Data MData FS FE LK]:string FSF FEF @persist [ARTIST FFT Name Search SEC MIN]:array New Sec Min CurList @persist [NS NE AS1 AS2 AES SMTH]:string NSF NEF AE ASF AEF @persist DANG A EE:entity MOVE MOVEH BEATS SerCount ABLE VISON CHECK NewName:string @persist [TIS1 TIS2 TIE TIME MINS SECS]:string TSF SearHelp TEF TI @persist [COL1 COL2 COL3 SCOL1 SCOL2 SCOL3] [HO1 HO2]:entity NUM [COLOR COLOR2]:array [PLAYERPOS]:vector [PLAYERANG]:angle @persist FLOW I @model models/holograms/cube.mdl # Model part runOnTick(1) if (A >= 180) {A=0} else {A=A+1} if(first()|duped()){ runOnSignal("ConnectTankPlayer",2,1) EE=entity() CHECK=2 Sec=-1 Min=0 CurList=10 I=0 DANG=0 NewName="Player De Flart \n >Sleeping Now<" VISON=0 ABLE=0 COLORABLE=1 MOVEH=90 COL1=teamColor(owner():team()):x() COL2=teamColor(owner():team()):y() COL3=teamColor(owner():team()):z() SCOL1=0 SCOL2=0 SCOL3=0 MOVE=12 holoCreate(1,EE:toWorld(vec(-MOVE,0,0)),vec(1.1),EE:angles(),vec(100),"hq_rcube") holoParent(1,EE) holoMaterial(1,"phoenix_storms/mat/mat_phx_carbonfiber") HO1=holoEntity(1) holoCreate(2,EE:toWorld(vec(MOVE,0,0)),vec(1.105),EE:angles(),vec(100),"hq_rcube") holoParent(2,EE) holoMaterial(2,"phoenix_storms/mat/mat_phx_carbonfiber") HO2=holoEntity(2) holoCreate(3,EE:toWorld(vec(-12,5.86,0)),vec(0.8,0.8,0.3),EE:toWorld(ang(0,0,-90)),vec(100)) holoParent(3,HO1) holoModel(3,"hq_sphere") holoMaterial(3,"phoenix_storms/mat/mat_phx_carbonfiber") holoCreate(4,EE:toWorld(vec(12,5.86,0)),vec(0.805,0.805,0.305),EE:toWorld(ang(0,0,-90)),vec(100)) holoParent(4,HO2) holoModel(4,"hq_sphere") holoMaterial(4,"phoenix_storms/mat/mat_phx_carbonfiber") holoCreate(5,EE:toWorld(vec(-12,0,0)),vec(1.09,1.09,1.2),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_stube_thin") holoMaterial(5,"lights/white") holoParent(5,HO1) holoCreate(6,EE:toWorld(vec(12,0,0)),vec(1.095,1.095,1.205),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_stube_thin") holoMaterial(6,"lights/white") holoParent(6,HO2) holoCreate(7,EE:toWorld(vec(-12,7.5,0)),vec(0.9,0.9,1.2),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_torus") holoMaterial(7,"lights/white") holoParent(7,HO1) holoCreate(8,EE:toWorld(vec(12,7.5,0)),vec(0.905,0.905,1.205),EE:toWorld(ang(0,0,-90)),vec(0,255,255),"hq_torus") holoMaterial(8,"lights/white") holoParent(8,HO2) holoCreate(9) holoModel(9,"hq_stube") holoMaterial(9,"phoenix_storms/mat/mat_phx_carbonfiber") holoScale(9,vec(0.7,0.4,0.1)) holoColor(9,vec(100)) holoAng(9,EE:toWorld(ang(0,0,90))) holoPos(9,EE:toWorld(vec(0,0,6))) holoParent(9,EE) holoCreate(10) holoModel(10,"cplane") holoScale(10,vec(0.72,0.72,0)) holoAng(10,HO1:toWorld(ang(0,0,-90))) holoColor(10,teamColor(owner():team())) holoPos(10,HO1:toWorld(vec(0,7.1,0))) holoMaterial(10,"expression 2/cog_prop") holoParent(10,HO1) holoCreate(11) holoModel(11,"cplane") holoScale(11,vec(0.72,0.72,0)) holoAng(11,HO2:toWorld(ang(0,0,-90))) holoColor(11,teamColor(owner():team())) holoPos(11,HO2:toWorld(vec(0,7.1,0))) holoMaterial(11,"expression 2/cog_prop") holoParent(11,HO2) #ifdef entity:soundFFT(number) for (I=12,35) {holoCreate(I)} holoMaterial(12,"phoenix_storms/mat/mat_phx_carbonfiber") holoColor(12,vec(100)) holoPos(12,EE:toWorld(vec(0,-0.7,-9))) holoScale(12,vec(1,0.1,0.5)) holoModel(12,"hq_rcube") holoParent(12,EE) holoMaterial(13,"lights/white") holoColor(13,teamColor(owner():team())) holoPos(13,EE:toWorld(vec(0,-0.7,-9))) holoAng(13,EE:toWorld(ang(0,0,90))) holoScale(13,vec(1.05,0.52,0.2)) holoModel(13,"hq_stube_thin") holoParent(13,12) for (I=14,35) { holoPos(I,EE:toWorld(vec(0.3*(I-24.5),0,-9))) holoParent(I,12) holoMaterial(I,"lights/white") holoColor(I,hsv2rgb((360/22)*(I-2),1,1)) holoScale(I,vec(0.025,0.05,0.1)) } #endif noCollideAll(EE,0) EE:propGravity(1) EE:propFreeze(1) EE:setMaterial("lights/white") } #Command part runOnChat(1) if (first()){ entity():propNotSolid(0) noCollideAll(EE,1) FS=toChar(34)+"url"+toChar(34)+":"+toChar(34) FE=toChar(34)+","+toChar(34) NS=toChar(34)+"title"+toChar(34)+":"+toChar(34) NE=toChar(34)+","+toChar(34) AS1=toChar(34)+"artist"+toChar(34)+":"+toChar(34) AS2=toChar(34)+"artist"+toChar(34)+":"+toChar(34) AES=toChar(34)+","+toChar(34) TIS1=toChar(34)+"duration"+toChar(34)+":" TIE=","+toChar(34) } if (chatClk(owner())) {switch(lastSaid()) { case "fdpplay "+lastSaid():explode("fdpplay "):string(2), hideChat(1) NewName="Player De Flart \n >Sleeping Now<" ARTIST:clear() Name:clear() Search:clear() DANG=0 MIN:clear() SEC:clear() Min=0 Sec=-1 CurList=10 SearHelp=0 SerCount=0 FEF=0 for (I=1,CHECK) { soundURLdelete(I) } stopAllTimers() setName(NewName) Music=lastSaid():explode("fdpplay "):string(2):replace(" ","+"):replace("'","%27") printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Searching "+lastSaid():explode("fdpplay "):string(2)+"...") I=0 for(I=1,4) {soundURLdelete(I)} NUM=0 BEATS=0 stopAllTimers() httpRequest("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e") #print("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e\n") break case "fdpid "+lastSaid():sub(7), NewName="Player De Flart \n >Sleeping Now<" ARTIST:clear() Name:clear() DANG=0 Search:clear() MIN:clear() SEC:clear() Min=0 Sec=-1 CurList=10 SearHelp=0 SerCount=0 FEF=0 for (I=1,CHECK) { soundURLdelete(I) } stopAllTimers() setName(NewName) Music=lastSaid():sub(7)#:replace(" ","+"):replace("'","%27") printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Searching "+lastSaid():sub(7)+"'s music...") I=0 for(I=1,4) {soundURLdelete(I)} NUM=0 BEATS=0 stopAllTimers() httpRequest("https://api.vk.com/method/audio.get?owner_id="+Music+"&count=200&offset=0&need_user=0&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e") #print("https://api.vk.com/method/audio.search?q="+Music+"&access_token=dfe8bf7bd3e86ab3d9d114bbd88f6adbad61e69adf27c47a5783045b2332403bbc0261e6776808b2f623e\n") hideChat(1) break case "fdpreturn", hideChat(1) entity():setPos(owner():pos()+vec(0,0,100)) break case "fdppause", for(I=1,4) {soundURLpause(I)} hideChat(1) setName("Player De Flart \n >Paused<") BEATS=0 stoptimer("Sec") break case "fdpresume", for(I=1,4) {soundURLplay(I)} hideChat(1) timer("Sec",1000) BEATS=1 break case "fdpcolorf "+lastSaid():explode("fdpcolorf "):string(2), if (COLORABLE) { COLOR=lastSaid():explode("fdpcolorf "):string(2):explode(" ") COL1=COLOR:string(1):toNumber() COL2=COLOR:string(2):toNumber() COL3=COLOR:string(3):toNumber() holoColor(10,vec(COL1,COL2,COL3)) holoColor(11,vec(COL1,COL2,COL3)) hideChat(1) } break case "fdpcolors "+lastSaid():explode("fdpcolors "):string(2), if (COLORABLE) { COLOR2=lastSaid():explode("fdpcolors "):string(2):explode(" ") SCOL1=COLOR2:string(1):toNumber() SCOL2=COLOR2:string(2):toNumber() SCOL3=COLOR2:string(3):toNumber() hideChat(1) } break case "connectHover", if (!ABLE) { signalSend("ConnectPlayerHover",1) printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Sending...") for (I=12,25) {holoDelete(I)} hideChat(1) ABLE=1 } break case "fdpvison", VISON=1 hideChat(1) break case "fdpvisoff", VISON=0 hideChat(1) break case "next", CurList=CurList+10 NewName="Player De Flart \n" for (I=CurList-9,CurList) { NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n" } setName(NewName) hideChat(1) break case "prev", if (CurList>10) { CurList=CurList-10 NewName="Player De Flart \n" for (I=CurList-9,CurList) { NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n" } setName(NewName) } else { printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!") } hideChat(1) break case "choose "+owner():lastSaid():sub(8), New=owner():lastSaid():sub(8):toNumber() SMTH=Name[New,string] Min=MIN[New,number] Sec=SEC[New,number] timer("Sound",1000) if (Sec<10) { setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+"0"+toString(Sec)+"<") } else { setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<") } hideChat(1) break case "clearlist", NewName="Player De Flart \n >Sleeping Now<" ARTIST:clear() Name:clear() DANG=0 Search:clear() MIN:clear() SEC:clear() Min=0 Sec=-1 CurList=10 SearHelp=0 FEF=0 for (I=1,CHECK) { soundURLdelete(I) } stopAllTimers() setName(NewName) hideChat(1) break case owner():lastSaid(), break } } runOnHTTP(1) if (httpClk()&NUM==0) { MData=httpData() DANG=1 #print(MData) while (I<100&perf()) { I++ SearHelp=MData:find(toChar(123),FEF) ASF=MData:find(AS1,SearHelp) ASE=MData:find(AES,ASF) NSF=MData:find(NS,ASF) NEF=MData:find(NE,NSF) FSF=MData:find(FS,NEF) FEF=MData:find(FE,FSF) #ASF=MData:find(AS2,ASF) TSF=MData:find(TIS1,NSF) #TSF=MData:find(TIS1,TSF) TEF=MData:find(TIE,TSF) TIME=MData:sub(TSF,TEF):replace(toChar(34),""):replace(",",""):replace("duration:","") SEC[I,number]=TIME:toNumber()%60 MIN[I,number]=floor(TIME:toNumber()/60,0.1) ARTIST[I,string]=MData:sub(ASF,ASE):replace(toChar(34)+"artist"+toChar(34)+":",""):upper() Name[I,string]=MData:sub(NSF,NEF):replace(toChar(34)+"title"+toChar(34)+":",""):upper() Search[I,string]=MData:sub(FSF,FEF):replace(toChar(34)+"url"+toChar(34)+":"+toChar(34),""):replace(toChar(34),""):replace(toChar(92),""):replace(".vk-cdn.net",".vk.me") if (ASF!=0&NSF!=0&FSF!=0&I==1) { printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Found!") } elseif (I==1&(ASF==0)) { printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!") } } NewName="Player De Flart \n" for (I=CurList-9,CurList) { NewName=NewName+I:toString()+") "+ARTIST[I,string]+" —- "+Name[I,string]+" "+MIN[I,number]:toString()+":"+SEC[I,number]:toString()+"\n" } setName(NewName) } elseif (httpClk()&NUM==1) { Data=httpData() #print(Data) for(I=1,CHECK) {soundURLload(I,Data,1,1,entity())} printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Shorted! Loading...") timer("Music",10000) } runOnTick(1) while (I<100&perf()&DANG==1) { I++ SearHelp=MData:find(toChar(123),FEF) ASF=MData:find(AS1,SearHelp) ASE=MData:find(AES,ASF) NSF=MData:find(NS,ASF) NEF=MData:find(NE,NSF) FSF=MData:find(FS,NEF) FEF=MData:find(FE,FSF) #ASF=MData:find(AS2,ASF) TSF=MData:find(TIS1,NSF) #TSF=MData:find(TIS1,TSF) TEF=MData:find(TIE,TSF) TIME=MData:sub(TSF,TEF):replace(toChar(34),""):replace(",",""):replace("duration:","") SEC[I,number]=TIME:toNumber()%60 MIN[I,number]=floor(TIME:toNumber()/60,0.1) ARTIST[I,string]=MData:sub(ASF,ASE):replace(toChar(34)+"artist"+toChar(34)+":",""):upper() Name[I,string]=MData:sub(NSF,NEF):replace(toChar(34)+"title"+toChar(34)+":",""):upper() Search[I,string]=MData:sub(FSF,FEF):replace(toChar(34)+"url"+toChar(34)+":"+toChar(34),""):replace(toChar(34),""):replace(toChar(92),""):replace(".vk-cdn.net",".vk.me") if (ASF!=0&NSF!=0&FSF!=0&I==1) { printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Found!") } elseif (I==1&(ASF==0)) { printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255,0,0)," Error!") } } #holoPos(12,EE:pos()+vec(0,0,10)) FLOW=(FLOW+1)%360 if (clk("Music")) { for(I=1,4) {soundURLplay(I)} printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Playing now!") BEATS=1 timer("Sec",1000) } if (clk("Sound")) { NUM=1 httpRequest("http://su0.ru/api.php?url="+Search[New,string]) #print(Search[New,string]) printColor(vec(COL1,COL2,COL3),"[FDP]",vec(255)," Shortening...") } if (clk("Sec")) { Sec=Sec-1 if (Sec<10) { setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+"0"+toString(Sec)+"<") } else { setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<") } timer("Sec",1000) } if (Sec==-1&Min!=0) { Min=Min-1 Sec=59 setName("Player De Flart \n"+"Song: "+SMTH+"\n"+"Artist: "+ARTIST[New,string]+"\n"+"Time: "+">"+toString(Min)+":"+toString(Sec)+"<") } if (Sec==-1&Min==0) { if (first()) { setName("Player De Flart \n >Sleeping Now<") } else { setName(NewName) } stopAllTimers() if(MOVE!=0) { MOVE=MOVE-1 holoPos(1,EE:toWorld(vec(-sin(MOVE)*12,0,0))) holoPos(2,EE:toWorld(vec(sin(MOVE)*12,0,0))) holoPos(3,HO1:toWorld(vec(0,5.86*sin(MOVE)+0.5,0))) holoPos(4,HO2:toWorld(vec(0,5.86*sin(MOVE)+0.5,0))) holoPos(12,EE:toWorld(vec(0,-0.7,-9*sin(MOVE)))) holoAng(10,HO1:toWorld(ang(180*sin(MOVE),0,-90))) holoAng(11,HO2:toWorld(ang(180*sin(MOVE),0,-90))) MOVEH=MOVEH+1 holoPos(10,HO1:toWorld(vec(0,8*sin(MOVEH),0))) holoPos(11,HO2:toWorld(vec(0,8*sin(MOVEH),0))) holoPos(9,EE:toWorld(vec(0,0,sin(MOVEH)*6))) } holoColor(13,vec(0)) for (I=5,8) { holoColor(I,vec(0)) EE:setColor(vec(0)) } } else { if(MOVE!=90) { MOVE=MOVE+1 holoPos(1,EE:toWorld(vec(-sin(MOVE)*12,0,0))) holoPos(2,EE:toWorld(vec(sin(MOVE)*12,0,0))) holoPos(3,HO1:toWorld(vec(0,5.86*sin(MOVE)+0.5,0))) holoPos(4,HO2:toWorld(vec(0,5.86*sin(MOVE)+0.5,0))) holoAng(10,HO1:toWorld(ang(180*sin(MOVE),0,-90))) holoAng(11,HO2:toWorld(ang(180*sin(MOVE),0,-90))) holoPos(12,EE:toWorld(vec(0,-0.7,-9*sin(MOVE)))) MOVEH=MOVEH-1 holoPos(10,HO1:toWorld(vec(0,8*sin(MOVEH),0))) holoPos(11,HO2:toWorld(vec(0,8*sin(MOVEH),0))) holoPos(9,EE:toWorld(vec(0,0,sin(MOVEH)*6))) } holoColor(13,vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3)) for (I=5,8) { holoColor(I,vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3)) } EE:setColor(vec(sin(A)*(SCOL1-COL1)+COL1,sin(A)*(SCOL2-COL2)+COL2,sin(A)*(SCOL3-COL3)+COL3)) if (BEATS) { holoPos(3,HO1:toWorld(vec(0,5.86+sin(A*20)*2/5+0.5,0))) holoPos(4,HO2:toWorld(vec(0,5.86+sin(A*20)*2/5+0.5,0))) #ifdef entity:soundFFT(number) if (!ABLE&VISON) { for (I=14,35) { FFT=EE:soundFFT(1) holoPos(I,EE:toWorld(vec(0.3*(I-24.5),0,-9+FFT[(I-14)*3,number]/25))) #holoColor(I,hsv2rgb(vec((FLOW+(I*(180/22)))%360,1,1))) } } #endif } }
+var A,B,i,n,m:integer; z:real;
begin
Write('Введите stepeny: ');
read (m);
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
For i:=A to B do
begin
z:=z+exp(ln(i)*m);
end;
Write('z=',z);
end.
1. Программа для подсчета сумм степеней.
2. Вывожу степень на экран, прописываю значения и начинаю расчитывать по фунцкии exp(ln
3. Единственная проблема это размер мне говорили что ее можно сделать еще меньше.
+1.TRH
2.C++
3.
+1. IfChan
2. C#
3. Пилил Noclip для одной игры.
+
Чет лень медальку выдавать1.IronAbatu
2.Delphi(скрины лень делать)
У меня когда-то ник был Delphi1.IronAbatu
2.Delphi(скрины уже не лень делать)
Типо пруф:
+1. ADSie
2. C#, GLua, Lua
Написал маленькую программку, которая собирает информацию о бане и записывает в "bans.txt".
Так себе скриптик, аналог варки кокса на Тригоне(поднеси к энтити другое энтити и появится другое энтити, а второе удалиться.)
Пока это всё сыренькое, буду шлифовать.