fjkfhjfjhfjhfjh

Forum

Explore your forum below to see what you can do, or head to Settings to start managing your Categories.

Annoucements

This section is read-only.
 Views
0Posts

General Discussions

Share stories, ideas, pictures and more!
 Views
10Posts

Apps and games

Share your creations!
 Views
2Posts

Bugs

Report all the bugs and problems you find in the different version.
 Views
10Posts
New Posts
  • Last commit message "Doom."
  • Hi! Found this wonderful AMOS2 a couple of months ago. I finally had little time to try it out and it is great! I guess I'm going to port some old effects from the 90's since I've kept everything intact... There is now a LINK to the effect: http://www.archmonsters.com Set Buffer 100 ' THE KOCH-TRIANGLE ' ------------------- ' ' AmosVersion 3 ' By Greippi ' 29.8.1993 ' F1LL=False CALC=2 'Screen Open 0,320,256,2,Lowres 'Palette $333,$876 'Paper 1 : Cls : Flash Off : Curs Off 'Double Buffer SW=Screen Width/2 SH=Screen Height/2 Degree Dim MX2(3),MY2(3),MX(3),MY(3),X#(2,30720),Y#(2,30720) Gr Writing 2 AGAIN: Cls 1 'Screen Swap Cls 1 'Autoback 1 ACT=2 BUF=1 Home Centre "AMOS-KOCH By Greippi 29.8.1993 [Q]uit" print Centre "Amos2 update (incl Floats) 2.10.2019" print Centre "Click 3 points on screen" For A=1 To 3 UPDT: If F1LL=True Print At(14,5);"[F]ill: On " Else Print At(14,5);"[F]ill: Off" End If Print At(6,6);"Iteration[1-6]:";CALC Do Multi Wait If Mouse Key=1 MX(A)=X Screen(X Mouse)-SW MY(A)=Y Screen(Y Mouse)-SH ink 4 Circle MX(A)+SW,MY(A)+SH,2 ink 5 Circle MX(A)+SW,MY(A)+SH,1 Repeat Until Mouse Key=0 MX(A)=MX(A)*15 MY(A)=MY(A)*15 Exit End If A$=Inkey$ If A$="f" If F1LL=True F1LL=False Else F1LL=True End If Goto UPDT End If If A$="q" Then Edit B=Val(A$) If B>0 and B<7 CALC=B Goto UPDT End If Loop Next A 'Autoback 0 Col0=$000 Col1=$888 colour 0,Col0 colour 1,Col1 Paper 0 ink 1 REPEETTER: For Z=200 To 6 Step -1 Z2#=Z/8 : MR=3 ROT#=ITE/2 For A=1 To 3 VX#=Cos(ROT#)*MX(A)+Sin(ROT#)*MY(A) VY#=Cos(ROT#)*MY(A)-Sin(ROT#)*MX(A) MX(A)=VX# MY(A)=VY# Next A For A=1 To 3 X#(BUF,A)=MX(A)/Z2#+SW Y#(BUF,A)=MY(A)/Z2#+SH Next A Cls If F1LL=True Polygon X#(BUF,1),Y#(BUF,1) To X#(BUF,2),Y#(BUF,2) To X#(BUF,3),Y#(BUF,3) Else Polyline X#(BUF,1),Y#(BUF,1) To X#(BUF,2),Y#(BUF,2) To X#(BUF,3),Y#(BUF,3) To X#(BUF,1),Y#(BUF,1) End If For ITE=1 To CALC Swap ACT,BUF HUR=0 For A=1 To MR If A=MR DEIX#=X#(ACT,A)-X#(ACT,1) DEIY#=Y#(ACT,A)-Y#(ACT,1) Else DEIX#=X#(ACT,A)-X#(ACT,A+1) DEIY#=Y#(ACT,A)-Y#(ACT,A+1) End If X1#=X#(ACT,A) Y1#=Y#(ACT,A) XS=Sgn(DEIX#)*-1 YS=Sgn(DEIY#)*-1 TRX#=DEIX#/3 TRY#=DEIY#/3 DEIX#=Abs(DEIX#) DEIY#=Abs(DEIY#) OGX#=DEIX#/2*XS+X1# OGY#=DEIY#/2*YS+Y1# TX#=TRX#*Cos(90)-TRY#*Sin(90) TY#=TRY#*Cos(90)+TRX#*Sin(90) TX#=TX#+OGX# TY#=TY#+OGY# TRX#=Abs(TRX#)*XS TRY#=Abs(TRY#)*YS PX1#=X1#+TRX# PY1#=Y1#+TRY# PX2#=PX1#+TRX# PY2#=PY1#+TRY# If F1LL=True Polygon PX1#,PY1# To TX#,TY# To PX2#,PY2# Else Polyline PX1#,PY1# To TX#,TY# To PX2#,PY2# End If Inc HUR : X#(BUF,HUR)=X1# : Y#(BUF,HUR)=Y1# Inc HUR : X#(BUF,HUR)=PX1# : Y#(BUF,HUR)=PY1# Inc HUR : X#(BUF,HUR)=TX# : Y#(BUF,HUR)=TY# Inc HUR : X#(BUF,HUR)=PX2# : Y#(BUF,HUR)=PY2# If Mouse Key=1 Goto POIS End If Next A MR=MR*4 Next ITE 'Screen Swap Wait Vbl Next Z Col0 = Col1 Col1 = Rnd(15)*256+Rnd(15)+Rnd(15)*16 Colour 0,Col0 Colour 1,Col1 goto REPEETTER POIS: Repeat A$=Inkey$ Multi Wait Until Mouse Key=1 or A$<>"" Repeat Until Mouse Key=0 Goto AGAIN
  • Good evening, I am trying to download amos2-win-07_07082019.rar but I receive "The archive in either damaged or unknown format" error after the download. Any help would be appreciated