Извините, ничего не найдено.
Не расстраивайся! Лучше выпей чайку!
|
|
|
|
13.04.2007, 21:38
|
#1 |
|
Нуждающийся
Регистрация: 12.11.2006
Сообщений: 64
Написано одно полезное сообщение |
Re: Растягивающаяся рамка с проверкой на выбор объекта
 Global maxmapx=141
Global maxmapy=81
unitpmax=10
unitpcmax=3
Global zomx=800
Global zomy=600
Global eunits
;Const zpx1= Int (zomx/maxmap)
;Const zpy1 = Int ((zomy-150)/maxmap)
Global zpx= 16
Global zpy = 10
Global my
Global curx=MouseX()
Global cury=MouseY()
Global teamunitp=0
Global teamunitp2=0
Global ha
Global ppx=px
Global ppy=py
Global radarpoint=0
Global pointx
Global pointy
Global teamp=0
Global pointp=0
anim=0
animt=0
px=0
py=0
px2=0
py2=0
pointx=0
pointy=0
;
Dim scarp(9),icounit(15), map (maxmapx,maxmapy),land(50),movunitpscan(9),movunitpcscan(9)
Dim mapmov (maxmapx,maxmapy),mapmov2 (maxmapx,maxmapy),unitscanp(50,50)
Dim unitp(100,24),bulettp(100,6)
Dim magp(100,3),unitpc(100,24),bulettpc(100,6),magpc(100,3),nomovepc(2)
Dim livemov(5), unitrams(5),cur(3),panel(20),radar(5),spicunit(10),pteam(10)
For i=1 To maxmapx
For t=1 To maxmapy
If j<10 Then j=j+Int(Rnd(1,5)):map(i,t)=Int(Rnd(1,2)) Else map(i,t)=Int(Rnd(1,5)):j=0
.nov
Next
Next
map(10,9)=31
map(11,10)=31
map(11,11)=31
map(11,12)=31
map(10,12)=31
map(10,10)=31
map(11,9)=31
map(12,9)=31
map(12,10)=31
map(12,11)=31
map(12,12)=31
map(10,11)=31
createdemo()
Graphics zomx,zomy,32,1
SetBuffer BackBuffer()
Cls
;
scarp(9)=LoadImage("unit\scorpionA-9.bmp")
scarp(6)=LoadImage("unit\scorpionA-6.bmp")
scarp(3)=LoadImage("unit\scorpionA-3.bmp")
scarp(7)=LoadImage("unit\scorpionA-7.bmp")
scarp(4)=LoadImage("unit\scorpionA-4.bmp")
scarp(1)=LoadImage("unit\scorpionA-1.bmp")
scarp(2)=LoadImage("unit\scorpionA-2.bmp")
scarp(8)=LoadImage("unit\scorpionA-8.bmp")
;
cur(1)=LoadAnimImage( "texture\cur1.bmp",30,30,0,4)
cur(2)=LoadAnimImage( "texture\cur3.bmp",30,30,0,4)
cur(3)=LoadAnimImage( "texture\cur2.bmp",30,30,0,5)
;
livemov(1)=LoadAnimImage("unit\livemov.bmp",30,5,0,5)
;
unitrams(1)=LoadAnimImage("unit\scorpionArams.bmp",30,50,0,4)
;
panel(1) = LoadImage ("texture\panelA.bmp" )
;
radar(1)= LoadImage ("texture\plot.bmp" )
radar(2)= LoadImage ("texture\plot2.bmp" )
;
land(1) = LoadImage ("texture\land1.bmp" )
land(2) = LoadImage ("texture\land2.bmp" )
land(3) = LoadImage ("texture\land3.bmp" )
land(4) = LoadImage ("texture\land4.bmp" )
land(5) = LoadImage ("texture\land5.bmp" )
land(31)= LoadImage ("texture\land7.bmp" )
;
icounit(1)= LoadAnimImage ("texture\spicScorpionB.bmp",100,100,0,4 )
icounit(2)= LoadImage ("texture\fototeamA-2.bmp")
icounit(3)= LoadImage ("texture\fototeamA.bmp")
;
MaskImage scarp(6),255,0,255
MaskImage scarp(4),255,0,255
MaskImage scarp(2),255,0,255
MaskImage scarp(8),255,0,255
MaskImage scarp(9),255,0,255
MaskImage scarp(7),255,0,255
MaskImage scarp(1),255,0,255
MaskImage scarp(3),255,0,255
MaskImage cur(1),255,0,255
MaskImage cur(2),255,0,255
MaskImage cur(3),255,0,255
MaskImage icounit(1),255,0,255
MaskImage icounit(2),255,0,255
MaskImage icounit(3),255,0,255
MaskImage unitrams(1),255,0,255
;
spicunit(1)=LoadSound("sounds/sc-1-0.mp3")
spicunit(2)=LoadSound("sounds/sc-2-0.mp3")
;spicunit(10)=PlayMusic("music\track2.mp3")
;
While Not KeyDown(1)
Locate 5,8: Print " unitmovex="+unitp(1,23)
Locate 5,15: Print " unitmovey="+unitp(1,24)
Locate 15,15: Print "comandunitp="+unitp(1,10)
Locate 5,25: Print " unitpx="+unitp(1,11)
Locate 5,35: Print "unitpy="+unitp(1,12)
Locate 5,55: Print "unitx="+unitp(1,19)
Locate 5,65: Print "unity="+unitp(1,20)
Locate 5,75: Print " nav="+unitp(1,22)
If radarpoint=1 Then px=ppx:py=ppy:radarpoint=0
If MouseY()=>500 And MouseY()<=600 Then panel(2)=1:Goto panel Else panel(2)=0
x5=((unitp(teamunitp2,11)-px)*50-50)
y5=((unitp(teamunitp2,12)-py)*50-50)
If pointp=2 Then
If curx<x5+30 And curx<x5 Then teamunitp=0:pointp=0
If curx>x5 And curx>x5+30 Then teamunitp=0:pointp=0
If cury<y5+50 And cury<y5 Then teamunitp=0:pointp=0
If cury>y5 And cury>y5+50 Then teamunitp=0:pointp=0
End If
If MouseDown(1) And pointp=2 Then PlaySound spicunit(panel(3))
If MouseDown(1) And pointp=2 Then unitgetrams(unitpmax,1):pointp=3:panel(3)=1:panel(4)=0:pteam(1)=teamunitp
point=point+1:If point=20 Then point=0
If MouseDown(1) And pointp=3 And point=19 Then unitgetrams(unitpmax,2):pointp=0:teamunits(unitpmax,2)
If pointp=0 Then teamunitp=0
If MouseX()=>zomx-50 And px<maxmapx-zpx-1Then px2=px2+1
If MouseX()=<50 And px>0 Then px2=px2-1
If px2=-5 And pointp<>1 Then px=px-1: px2=0 Else If px2=5 And pointp<>1 Then px=px+1:px2=0
If py2=-5 And pointp<>1 Then py=py-1: py2=0 Else If py2=5 And pointp<>1 Then py=py+1:py2=0
If MouseY()=<50 And py>0 Then py2=py2-1
If MouseDown(2) And pointp=3 Then moveunitp(unitpmax,px,py)
.panel
If Not MouseDown(2) Then
If pointp<>1 Then
If MouseY()=>(zomy-150) And MouseY()<=zomy-100 And py<maxmapy-zpy Then py2=py2+1
End If
End If
If pointp=0 Then If MouseDown(2) Then pointp=1:pointx=MouseX():pointy=MouseY()
If Not MouseDown(2) Then If pointp=1 Then
point2=point2+1
If point2=5 Then pointp=0:pointx=0:pointy=0:point2=0
If teamp<>0 Then teamunits(unitpmax,1):teamp=0:pointp=3:panel(3)=1:panel(4)=0 Else teamunits(unitpmax,2)
End If
If animt<60 Then animt=animt+1 Else If anim<3 Then anim=anim+1:animt=0 Else anim=0:animt=0
rendermap(px,py)
unitsAL(px,py,unitpmax,unitpcmax)
panelplay(unitpmax,unitpcmax,px,py,anim)
opplay (cur2,cur1,pointx,pointy,anim)
Flip
Wend
End
Function rendermap(mapx,mapy);
Cls
x=Int(mapx)
y=Int(mapy)
For i=1 To zpx
For t=1 To zpy
If map(i+x,t+y)=1Then DrawImage land(1), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
If map(i+x,t+y)=2Then DrawImage land(2), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
If map(i+x,t+y)=3Then DrawImage land(3), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
If map(i+x,t+y)=4Then DrawImage land(4), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
If map(i+x,t+y)=5Then DrawImage land(5), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
If map(i+x,t+y)=31Then DrawImage land(31), i*50-50,t*50-50,0;:Text i*50-50,t*50-50,mapmov(i+x,t+y)
Next
Next
End Function
Function opplay (cur2,cur1,pointx,pointy,anim);
Color 30,254,0
;
my=MouseY()
mx=MouseX()
;
If panel(2)=1 Then DrawImage cur(1),mx,my,anim:Goto pan Else
;
If pointp=3 Then DrawImage cur(3),mx,my,anim
If MouseDown(2)And pointp=3 Then DrawImage cur(3),mx,my,4
If pointp=0 Then DrawImage cur(1),mx,my,anim
If pointp=2 Then DrawImage cur(2),mx,my,anim
;
.pan
If pointp=1 Then
DrawImage cur(1),mx,my,anim
Line pointx,pointy,MouseX(),pointy
Line MouseX(),pointy,MouseX(),MouseY()
Line MouseX(),MouseY(),pointx,MouseY()
Line pointx,MouseY(),pointx,pointy
End If
;
Color 255,255,255
End Function
Function unitsAL(px,py,unitpmax,unitpcmax)
life=0
class=0
curx=MouseX()
cury=MouseY()
For i=1 To unitpmax
;
unitx=(unitp(i,11)-px)*50-50
unity=(unitp(i,12)-py)*50-50
unitx2=unitp(i,11)
unity2=unitp(i,12)
unitx3=unitp(i,17)
unity3=unitp(i,18)
;
If unitp(i,3)<1 Then Goto dia
If unitx2-px<zpx And unity2-py<zpy Then
DrawImage scarp(unitp(i,9)),unitx+unitx3,unity+unity3,0
End If
If unitp(i,16)=1 Then
If unitp(i,3)=100 Then life=0
If unitp(i,3)<89 Then life=1
If unitp(i,3)<69 Then life=2
If unitp(i,3)<39 Then life=3
If unitp(i,3)<19 Then life=4
If unitx2-px<zpx And unity2-py<zpy Then
DrawImage livemov(1),unitx+unitx3,unity+unity3-5,life
DrawImage unitrams(1),unitx+unitx3,unity+unity3,unitp(i,2)
End If
End If
If pointp<>0 Then team=0
If pointp=0 Then
If curx>unitx And curx<unitx+30 And cury>unity And cury<unity+50 Then
teamunitp=unitp(i,14):teamunitp2=i:pointp=2
End If
End If
nteam=0
If pointp=1 And MouseDown(2) Then
If unitx>pointx And unitx<curx And unity>pointy And unity<cury Then
For tk=1 To 10
If pteam(tk)=unitp(i,14) Then nteam=nteam+1
Next
If teamp<10 Then If pteam(teamp)<>unitp(i,14) And nteam=0 Then teamp=teamp+1:pteam(teamp)=unitp(i,14)
End If
End If
scanunitp(i,unitp(i,11),unitp(i,12))
;
unitplaerAL(i,unitp(i,11),unitp(i,12))
;
unitcomand(i,unitp(i,11),unitp(i,12))
;
.dia
Next
End Function
Function unitcomand(unit,x,y)
vx=unitp(unit,17)
vy=unitp(unit,18)
x2=unitp(unit,19)
y2=unitp(unit,20)
If vx=50 Or vx=-50 Then mapmov(x,y)=0
If vy=50 Or vy=-50 Then mapmov(x,y)=0
If unitp(unit,17)>0 Then
If unitp(unit,17)=50 Then
unitp(unit,17)=0
unitp(unit,23)=6
If unitp(unit,11)<maxmapx Then unitp(unit,11)=unitp(unit,11)+1
If unitp(unit,11)>maxmapx Then unitp(unit,11)=maxmapx-1
End If
End If
;
If unitp(unit,18)>0 Then
If unitp(unit,18)=50 Then
unitp(unit,24)=2
unitp(unit,18)=0
If unitp(unit,12)<maxmapy Then unitp(unit,12)=unitp(unit,12)+1
If unitp(unit,12)>maxmapy Then unitp(unit,12)=maxmapy-1
End If
End If
;
If unitp(unit,17)<0 Then
If unitp(unit,17)=-50 Then
unitp(unit,23)=4
unitp(unit,17)=0
If unitp(unit,11)>1 Then unitp(unit,11)=unitp(unit,11)-1
If unitp(unit,11)<1 Then unitp(unit,11)=1
End If
End If
;
If unitp(unit,18)<0 Then
If unitp(unit,18)=-50 Then
unitp(unit,24)=8
unitp(unit,18)=0
If unitp(unit,12)>1 Then unitp(unit,12)=unitp(unit,12)-1
If unitp(unit,12)<1 Then unitp(unit,12)=1
End If
End If
;
mapmov(unitp(unit,11),unitp(unit,12))=unit
If unitp(unit,11)=unitp(unit,19) And unitp(unit,12)=unitp(unit,20) Then
unitp(unit,10)=0:unitp(unit,17)=0:unitp(unit,18)=0:unitp(unit,22)=0:unitp(unit,23)=0:unitp(unit,24)=0
End If
If unitp(unit,22)=>100 Then unitp(unit,22)=0
;
If unitp(unit,10)=1 Then Goto com1
Goto zero
.com1
;
If unitp(unit,22)=0 And x=x2 Then Goto movey
If x+1<=x2 And map(x+1,y)<=30 And mapmov(x+1,y)=0 Then Goto movex
If map(x-1,y)<=30 And mapmov(x-1,y)=0 And x-1>=x2 Then
unitp(unit,17)=unitp(unit,17)-1
End If
;
.movex
If map(x+1,y)<=30 And mapmov(x+1,y)=0 And x+1<=x2 Then
unitp(unit,17)=unitp(unit,17)+1
End If
;
.movey
If map(x,y-1)<=30 And mapmov(x,y-1)=0 And y-1>=y2 Then
unitp(unit,18)=unitp(unit,18)-1
End If
;
.movey2
If map(x,y+1)<=30 And mapmov(x,y+1)=0 And y+1<=y2 Then
unitp(unit,18)=unitp(unit,18)+1
End If
.rz
Goto zero
.zero
End Function
Function scanunitp(unit,x,y)
class=unitp(unit,1)
class2=unitp(unit,2)
clearunitscan(unit,class,class2)
If class=1 Then zx=0:zy=0
If class=2 Then zx=5:zy=5
If class=3 Then zx=10:zy=10
i2=0
t2=0
x2=x-5-zx
x3=x+5+zx
y2=y-5-zy
y3=y+5+zy
If x-5-zx<0 Then x2=1
If x+5+zx>maxmapx Then x3=maxmapx
If y-5-zy<0 Then y2=1
If y+5+zy>maxmapy Then y3=maxmapy
For i=x2 To x3
i2=i2+1
For t=y2 To y3
t2=t2+1
If mapmov(i,t)<>0 Then
unitscanp(i2,t2)=mapmov(i,t)
If mapmov(i,t)>100 Then unitp(unit,21)=unitp(unit,21)+1
End If
If t2=50 Then t2=0
Next
If i2=50 Then i2=0
Next
End Function
Function unitpshoot()
End Function
Function unitplaerAL(unit,x,y)
End Function
Function attakunit(unit,x,y)
End Function
Function clearunitscan(unit,x,y)
unitp(unit,21)=0
For i=1 To 50
For t=1 To 50
unitscanp(i,t)=0
Next
Next
End Function
Function unitgetrams(unitpmax,k)
For i=1 To unitpmax
If k=2 Then unitp(i,16)=0
If k=1 Then If unitp(i,3)>1 And unitp(i,14)=teamunitp Then unitp(i,16)=1
Next
End Function
Function panelplay(unitpmax,unitpcmax,px,py,anim)
Color 30,254,0
;
x1=10+px
y1=510+py
rad=0
x3=MouseX()-8
y3=MouseY()-5
;
Line 10,y1+5,x1,y1+5
Line x1+16,y1+5,151,y1+5
Line x1+8,y1,x1+8,510
Line x1+8,591,x1+8,y1+10
;
DrawImage panel(1),0,500,0
;
If pteam(1)<>0 Then
For i=1 To 10
If pteam(i)<>0 Then ic=ic+1
Next
If ic>1 Then
tk=0
tk2=10
For i=1 To 10
If pteam(i)<>0 Then DrawImage icounit(3), 285+(tk*40),500+tk2:tk=tk+1
If tk=5 Then tk=0:tk2=52
Next
End If
If ic=1 Then
tk=0
tk2=10
For i=1 To unitpmax
If unitp(i,3)>1 And unitp(i,14)=pteam(1) Then DrawImage icounit(2), 285+(tk*40),500+tk2:tk=tk+1
If tk=5 Then tk=0:tk2=52
Next
End If
End If
;
For i=1 To unitpmax
If unitp(i,3)>1 Then x=unitp(i,11)+10:y=unitp(i,12)+510:DrawImage radar(1), x,y,0
Next
For i=1 To unitpcmax
If unitpc(i,3)>1 Then x=unitpc(i,11)+10:y=unitpc(i,12)+510:DrawImage radar(2), x,y,0
Next
If MouseDown(1) Then
If panel(2)=1 Then rad=1 Else rad=0
If rad=1 Then If x3>10 And x3<maxmapx-6 And y3>510 And y3<500+maxmapy Then ppx=x3-10:ppy=y3-510:radarpoint=1
End If
If panel(3)=1 And panel(4)<240 Then panel(4)=panel(4)+1:DrawImage icounit(1),700,0,anim:
If panel(4)=240 Then panel(3)=0
Color 255,255,255
;If MouseDown(1) And pointp=2 Then PlaySound spicunit(panel(3))
If MouseDown(2) And pointp=3 Then If Int(Rnd(50))=6 Then PlaySound spicunit(2)
End Function
Function teamunits(unitpmax,k)
;
If k=2 Then
For i=1 To 10
pteam(i)=0
Next
End If
;
If k=1 Then
For i=1 To teamp
For t=1 To unitpmax
If unitp(t,14)=pteam(i) And unitp(t,3)>1 Then unitp(t,16)=1
Next
Next
End If
End Function
Function moveunitp(unitpmax,px,py)
x1=(Int(MouseX()+50)/50+px)
y1=(Int(MouseY()+50)/50+py)
For k=1 To 10
If pteam(k)<>0 Then nteam=nteam+1
Next
For t=1 To nteam
For i=1 To unitpmax
If unitp(i,3)>1 And unitp(i,14)=pteam(t) Then
unitp(i,10)=1:unitp(i,19)=x1:unitp(i,20)=y1
unitp(i,22)=0:unitp(i,23)=0:unitp(i,24)=0
End If
Next
Next
End Function
Function createdemo()
;1-1 unit
unitp(1,1)=1
unitp(1,2)=0
unitp(1,3)=30
unitp(1,4)=1
unitp(1,5)=1
unitp(1,6)=0
unitp(1,7)=1
unitp(1,8)=4
unitp(1,9)=6
unitp(1,10)=0
unitp(1,11)=9
unitp(1,12)=11
unitp(1,13)=0
unitp(1,14)=1
unitp(1,15)=1
unitp(1,16)=0
unitp(1,17)=0
unitp(1,18)=0
bulettp(1,4)=4
bulettp(1,5)=3
magp(1,1)=30
magp(1,2)=12
mapmov (9,11)=1
mapmov2 (9,11)=1
;unit-1-2
unitp(2,1)=1
unitp(2,2)=0
unitp(2,3)=100
unitp(2,4)=1
unitp(2,5)=1
unitp(2,6)=0
unitp(2,7)=1
unitp(2,8)=4
unitp(2,9)=6
unitp(2,10)=0
unitp(2,11)=7
unitp(2,12)=11
unitp(2,13)=0
unitp(2,14)=1
unitp(2,15)=2
unitp(2,16)=0
unitp(2,17)=0
unitp(2,18)=0
bulettp(2,4)=4
bulettp(2,5)=3
magp(2,1)=30
magp(2,2)=12
mapmov (7,11)=1
mapmov2 (7,11)=1
End Function
вот шоты тово чего достиг: [IMG]  [/IMG][IMG]  [/IMG]может чемто код поможет! |
|
(Offline)
|
|
|
14.04.2007, 00:22
|
#2 |
|
Дэвелопер
Регистрация: 17.01.2006
Сообщений: 1,512
Написано 78 полезных сообщений (для 110 пользователей) |
Re: Растягивающаяся рамка с проверкой на выбор объекта
Ты проверял свой код? Вылетит ошибка еще в самом начале компиляции.
|
|
(Offline)
|
|
|
14.04.2007, 00:41
|
#3 |
|
Нуждающийся
Регистрация: 12.11.2006
Сообщений: 64
Написано одно полезное сообщение |
Re: Растягивающаяся рамка с проверкой на выбор объекта
alcoSHoLiK, я извеняюсь но тут нет все спрайтов и иконок.... очень много весят... гдето 9 мегов.. все в бмп! тогда я еще плохо знал блиц.. а до этого на qbasic, кодил... там впервые зараждалась идея моей рпг... даже движек сделалл.. 2 года крови и пота... а потом армия... и все похерилось... сейчас пытаюсь сделать все на блице.. но слажнее конечно!
|
|
(Offline)
|
|
|
14.04.2007, 01:15
|
#4 |
|
Нуждающийся
Регистрация: 12.11.2006
Сообщений: 64
Написано одно полезное сообщение |
Re: Растягивающаяся рамка с проверкой на выбор объекта
alcoSHoLiK, фуууу . полтора часа мучался но в 2 мега сжал! там даже музыку с голосом оставил! все в свободном коде! только багов... ойойо! пожже я переделал.. что бы запускалось из под 3Д! скорасть сразу увеличелась! и всем советую, 2Д проэкты делать из под 3Д рендира скорость зашкаливает!
  там кстати глюк с движением карты... в низ и вверх нет движения... не стал копаться, почему он иногда появляется! Но зато есть движение по мине_карте левым кликом!  , в папке обьекты.. есть пару 2д зданий может колму надо для проэкта стратегий!Последний раз редактировалось Bazalt, 24.02.2009 в 04:47. |
|
(Offline)
|
|
|
14.04.2007, 01:32
|
#5 |
|
Дэвелопер
Регистрация: 17.01.2006
Сообщений: 1,512
Написано 78 полезных сообщений (для 110 пользователей) |
Re: Растягивающаяся рамка с проверкой на выбор объекта
Это не совсем подходит к теме.
|
|
(Offline)
|
|
|
14.04.2007, 14:38
|
#6 |
|
Танчики Developer
Регистрация: 29.01.2007
Сообщений: 539
Написано 16 полезных сообщений (для 23 пользователей) |
Re: 2Д стратегия
скачал бы посмотреть, но трафик острый.
|
|
(Offline)
|
|
|
14.04.2007, 18:32
|
#7 |
|
Нуждающийся
Регистрация: 12.11.2006
Сообщений: 64
Написано одно полезное сообщение |
Re: 2Д стратегия
|
|
(Offline)
|
|
|
26.04.2007, 14:48
|
#8 |
|
AnyKey`щик
Регистрация: 26.04.2007
Сообщений: 1
Написано 0 полезных сообщений (для 0 пользователей) |
Re: 2Д стратегия
не компилиться =(
|
|
(Offline)
|
|
 |
| Опции темы | |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Пошаговая стратегия | demon112 | Алгоритмика | 43 | 16.06.2009 12:27 |
| Стратегия, как делать? | Nex | Blitz3D | 15 | 12.01.2009 21:26 |
| Стратегия | ArtemkA | 3D-программирование | 4 | 13.10.2008 15:10 |
| Стратегия(снова хэлп) | Антихрист | 2D-программирование | 13 | 13.11.2007 15:54 |
| RTS(стратегия) | Zver | Blitz3D | 24 | 10.07.2007 23:53 |
Часовой пояс GMT +4, время: 20:54.