ÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÀ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌÀ¬ÀÀÀ¬ÀÀÀ¬ÀÀÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÌ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌ̬ÀÀÀ¬ÀÀÀ¬ÀÀ¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî >¥?ÀÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌ UUUUUUÿÿPÿÿPÿÿPÿÿPÿÿUUUUUUs-- title: sffsf -- author: sfsf -- desc: short description -- site: website link -- license: MIT License (change this to your license of choice) -- version: 0.1 -- script: lua rand=math.random abs=math.abs sqrt=math.sqrt t=0 x=120 y=68 vx=0 vy=0 Jump_Height=200 P_health=100 P_effect={} a=120 b=68 va=0 vb=0 E_health=100 E_effect={} JumpBoost=1 JBoostx=180 JBoosty=135 JBoostw=6 JBoosth=5 Slash={} SlashA=0 Slashx=0 Slashy=0 SlashDir=1 Slash_Damage=10 Slash_Hit=0 BlastA=0 Blast=0 Blastx=0 Blasty=0 BlastT=0 Blastr=0 BlastHit=0 Blast_Strength=100 Firewall={} FirewallA=0 Firewallx=0 Firewally=136 FirewallT=0 Firewall_Direction=0 Firewall_Hit=0 --[[ Jumpboost - Principle: Area recognition, effect dispense Area Detection Jump Increase Slash - Principle: Dynamic Areas Blast - Principle: Enitity-Dependent Effect Move Explode Push Firewall - Principle: Peristant Effects Set Area Apply Domain Expansion - Principle: Ability Recreations Area --]] function TIC() t=t+1 if btnp(0) and y>132.9 then vy=-Jump_Height*JumpBoost end JumpBoost=1 if btn(1) then vy=vy+10 end if btn(2) then vx=vx-10 end if btn(3) then vx=vx+10 end if abs(vx)>1 then vx=vx-(vx/abs(vx))*2-1 else vx=0 end if abs(vy)>1 then vy=vy-(vy/abs(vy))*2-1 else vy=0 end if abs(va)>1 then va=va-(va/abs(va))*2-1 else va=0 end if abs(vb)>1 then vb=vb-(vb/abs(vb))*2-1 else vb=0 end if y+vy/100>133 then y=133 vy=0 end if b+vb/100>134 then b=134 vb=vb*-.1 end x=x+vx/100 y=y+vy/100 a=a+va/100 b=b+vb/100 vy=vy+6 vb=vb+5 cls(0) circ(x,y,2,3) rect(a-2,b-2,5,5,15) local scale=.5 rect(a-100*scale/2,b-6,E_health*scale,1,12) local directionx=(a-x)/abs(a-x) -->>JumpBoost rectb(JBoostx-JBoostw,JBoosty-JBoosth,JBoostw*2,JBoosth+1,5) if abs(x-JBoostx)>Slash Slash={{x=7,y=10,r=7},{x=10,y=0,r=10},{x=7,y=-10,r=7}} if btnp(4) and SlashA==0 and x-a~=0 then SlashA=1 Slashx=x Slashy=y SlashDir=directionx Slashvx=300*SlashDir vx=Slashvx*1 end if SlashA~=0 then Slashx=Slashx+Slashvx/100 if abs(Slashvx)>0 then Slashvx=Slashvx-(Slashvx/abs(Slashvx))*6-1 end for i=1,#Slash do local X,Y = Slashx+Slash[i].x*SlashDir,Slashy+Slash[i].y*SlashDir circb(X,Y,Slash[i].r,6) if dist(a,b,X,Y)>Blast Position Set Push --]] --vel = vel + dif_axis/Distance * Intensity if btnp(5) and BlastA==0 then BlastA=1 Blastx=x Blasty=y Blastr=5 BlastT=0 end Blast_Strength=400 if BlastA~=0 then local D=dist(Blastx,Blasty,a,b) local Strength=Blast_Strength BlastT=BlastT+1 circb(Blastx,Blasty,Blastr,13) if BlastT>10 then Blastr=Blastr*1.5 else BlastHit=0 Strength=10 end if Blastr>30 then Blastr=30 end if D18 then BlastA=0 end end --[[>>Firewall effects={} {{effect_name,damage,time_limit,tick_rate}} Segmented Pieces vs Low floor into High Burst --]] --{{h Firewall_Damage=15 Firewall_Space=5 Firewall_Height=15 if btnp(6) and y>132.9 and FirewallA==0 then FirewallA=1 Firewallx=x Firewally=136 FirewallT=0 Firewall_Direction=directionx Firewall_Hit=0 for j=1,6 do Firewall[j]={} Firewall[j][1]=0 end end if FirewallA~=0 then local dir = Firewall_Direction FirewallT=FirewallT+1 for i=1,#Firewall do if FirewallT>10+((i-1)*4-i) then local height=Firewall[i][1]+3 local MaxH=Firewall_Height-(i-1)*2 if i==1 then MaxH=MaxH*1.3 end local X=Firewallx+(5*dir)+Firewall_Space*dir+(i-1)*Firewall_Space*2*dir rectb(X-Firewall_Space,Firewally-height,Firewall_Space*2,height,3+i-1) if FirewallA==1 then if Firewall[i][1]MaxH then Firewall[i][1]=MaxH end if FirewallA==2 then if FirewallT-Firewall[1][2]>0+((i)*8-i*4) then Firewall[i][1]=Firewall[i][1]*.92//1 end end --Rec for j=1,1 do if abs(a-X)150 then FirewallA=0 end end end end --if btnp(7) then effect('fire',60,10,4) end if btnp(7) then effect('fire',5,1,12*3) end apply() -->>Domain Expansion end function dist(x,y,a,b) return sqrt((x-a)^2+(y-b)^2) end function effect(id,tick,strength,limit) j=E_effect[id] if j~=nil then j[1]=(j[1]+tick)/2 j[2]=(j[2]+strength)/2 if j[3]