;─────────────────────────────────────────────────────────────────────────────── ; - [CRUEl CODED STUFF] by MASTER DEATH & MAD HATTER/ BPC productions '95 - ; ; >> ... String defines all variables ... << ; string inv1,inv2,getchr,str,char1,char2,al1(999):integer x,y,del,col1,col2,col3,col4,varlen,count,inst,psx,col,count1,count2,psx1,psx2,al2(999) ; ;──────────────────────────────────────────────────────────────────────────────── ; >> Strings that declraes all the procedures ... << ; declare procedure print_slow(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) declare procedure print_type(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del,string char1,string char2) declare procedure print_word1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) declare procedure print_centerpos(string str,integer x,integer y,integer col,integer del) declare procedure print_firstpos1(string str,integer x,integer y,integer col,integer del) declare procedure print_movecolor1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) declare procedure print_upper(string str,integer x,integer y,integer col1,integer del) declare procedure print_runstring1(string str,integer x,integer y,integer col1,integer del) declare procedure print_runstring2(string str,integer x,integer y,integer col1,integer del) declare procedure print_fadein(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) declare procedure print_fadeout1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) declare procedure print_fadeout2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del,string char1,string char2) declare procedure print_firstpos2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) declare procedure print_word2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) declare procedure print_movecolor2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) ; ;─────────────────────────────────────────────────────────────────────────────── ; goto start ; >> It's only for [C_C_S.EG] file ... U may kill this line!! <<< ; ;───────────────────────────────── ALL PROCEDURES =) ─────────────────────────── ;··············································································· procedure print_slow(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) for count=1 to 80:if (count=len(str)+1) then goto enp1:endif:varlen=len(str):getchr=left(str,count):getchr=right(getchr,1):color col1:ansipos x,y:print getchr:delay del:color col2:ansipos x,y:print getchr:delay del:color col3:ansipos x,y:print getchr:delay del:x=x+1:next count::enp1:endproc: ;··············································································· procedure print_type(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del,string char1,string char2) for count=1 to 80:if (count=len(str)+1) then goto enp2:endif:varlen=len(str):getchr=left(str,count):getchr=right(getchr,1):color col1:ansipos x,y:print char1:delay del:color col2:ansipos x,y:print char2:delay del:color col3:ansipos x,y:print getchr:delay del:x=x+1:next count::enp2:endproc ;··············································································· procedure print_word1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) color col1:ansipos x,y:print str:psx=1:for count=1 to 90:inst=instr(str," "):getchr=left(str,inst-1):str=right(str,len(str)-inst):if ((inst<1)&(psx=1)) then ansipos x,y:color col2:print str:delay del:ansipos x,y:color col3:print str:delay del:ansipos x,y:color col4:print str:delay del:goto enp3:endif:if (inst<1) then ansipos psx+1,y:color col2:print str:delay del:ansipos psx+1,y:color col3:print str:delay del:ansipos psx+1,y:color col4:print str:delay del:goto enp3:endif:if (psx=1) then ansipos x,y:color col2:print getchr:delay del:ansipos x,y:color col3:print getchr:delay del:ansipos x,y:color col4:print getchr:delay del:psx=getx():goto nxt:endif:ansipos psx+1,y:color col2:print getchr:delay del:ansipos psx+1,y:color col3:print getchr:delay del:ansipos psx+1,y:color col4:print getchr:delay del:psx=getx()::nxt:next count::enp3:endproc ;··············································································· procedure print_centerpos(string str,integer x,integer y,integer col,integer del) varlen=len(str):varlen=varlen/2:count1=varlen:count2=varlen+1:psx1=x+varlen:psx2=psx1+1:color col::label_again:if (psx1=0) then goto enp4:endif:getchr=left(str,count1+1):getchr=right(getchr,1):ansipos psx1,y:print getchr:getchr=right(str,len(str)-count2):getchr=left(getchr,1):ansipos psx2,y:print getchr:psx1=psx1-1:psx2=psx2+1:count1=count1-1:count2=count2+1:delay del:goto label_again::enp4:endproc ;··············································································· procedure print_firstpos1(string str,integer x,integer y,integer col,integer del) color col:psx1=x:psx2=len(str):count1=1:count2=psx2:psx2=psx2+(x-1)::label_again1:if (count2=len(str)/2) then goto enp5:endif:getchr=left(str,count1):getchr=right(getchr,1):ansipos psx1,y:print getchr:getchr=left(str,count2):getchr=right(getchr,1):ansipos psx2,y:print getchr:psx2=psx2-1:psx1=psx1+1:count1=count1+1:count2=count2-1:delay del:goto label_again1::enp5:endproc ;··············································································· procedure print_movecolor1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) count1=1::label_again2:getchr=right(str,1):if (count1=len(str)) then color col1:ansipos x,y:print getchr:getchr=left(str,len(str)-1):getchr=right(getchr,1):color col2:ansipos x-1,y:print getchr:getchr=left(str,len(str)-2):getchr=right(getchr,1):color col3:ansipos x-2,y:print getchr:ansipos x-3,y:color 0:print " ":count1=count1+1:delay del:goto label_again2:endif:getchr=right(str,1):if (count1=len(str)+1) then color col2:ansipos x,y:print getchr:getchr=left(str,len(str)-1):getchr=right(getchr,1):color col3:ansipos x-1,y:print getchr:color 0:ansipos x-2,y:print " ":count1=count1+1:delay del:goto label_again2:endif:getchr=right(str,1):if (count1=len(str)+2) then color col3:ansipos x,y:print getchr:color 0:ansipos x-1,y:print " ":count1=count1+1:delay del:goto nd:endif:getchr=left(str,1):if (count1=1) then color col3:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again2:endif:getchr=left(str,2):getchr=right(getchr,1):if (count1=2) then color col2:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again2:endif:getchr=left(str,3):getchr=right(getchr,1):if (count1=3) then color col1:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again2:endif:ansipos x-3,y:color 0:print " ":getchr=left(str,count1-2):getchr=right(getchr,1):ansipos x-2,y:color col3:print getchr:getchr=left(str,count1-1):getchr=right(getchr,1):ansipos x-1,y:color col2:print getchr:getchr=left(str,count1):getchr=right(getchr,1):ansipos x,y:color col1:print getchr:getchr=left(str,count1+1):getchr=right(getchr,1):ansipos x+1,y:color col2:print getchr:getchr=left(str,count1+2):getchr=right(getchr,1):ansipos x+2,y:color col3:print getchr:count1=count1+1:x=x+1:delay del:goto label_again2::nd:ansipos x,y:color 0:print " ":endproc ;··············································································· procedure print_upper(string str,integer x,integer y,integer col1,integer del) ansipos x,y:for count=1 to 80:if (len(str)>80) goto enp10:if (count=len(str)+1) goto enp10:let getchr=left(str,count):let getchr=right(getchr,1):color col1:delay del:print "_":backup 1:delay 1:print lower(getchr):backup 1:delay 1:print upper(getchr):next count::enp10:endproc: ;··············································································· procedure print_runstring1(string str,integer x,integer y,integer col1,integer del) color col1:for count=1 to 80:backup 1:print getchr:backup 1:if (len(str)>80) goto enp11:if (count=len(str)+1) goto enp11:let getchr=left(str,count):let getchr=right(getchr,1):let col3=1:for col2=1 to len(str)-count+1:ansipos x+len(str)-col3,y:print getchr:backup 1:delay del:print " ":let col3=col3+1:next col2:next count::enp11:endproc ;··············································································· procedure print_runstring2(string str,integer x,integer y,integer col1,integer del) color col1:for count=1 to 80:backup 1:print getchr:backup 1:if (len(str)>80) goto enp12:if (count=len(str)+1) goto enp12:let getchr=left(str,count):let getchr=right(getchr,1):let col3=1:for col2=1 to len(str)-count+1:ansipos x+len(str)-col3,y:print getchr:delay del:let col3=col3+1:next col2:next count::enp12:endproc ;··············································································· procedure print_fadein(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) ansipos x,y:color col2:print str:ansipos x,y:delay del:color col1:print str:ansipos x,y:delay del*2:color col2:print str:ansipos x,y:delay del*2:color col3:print str:ansipos x,y:delay del*2:color 0:print str:endproc ;··············································································· procedure print_fadeout1(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) ansipos x,y:color col1:print str:ansipos x,y:delay del:color col2:print str:ansipos x,y:delay del:color col3:print str:endproc: ;··············································································· procedure print_fadeout2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del,string char1,string char2) ansipos x,y:for count=1 to len(str):color col1:print char1:next count:ansipos x,y:delay del:for count=1 to len(str):color col1:print char2:next count:ansipos x,y:delay del:color col1:print str:ansipos x,y:delay del:color col2:print str:ansipos x,y:delay del:color col3:print str:endproc ;··············································································· procedure print_firstpos2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer del) psx1=x:psx2=len(str):count1=1:count2=psx2:psx2=psx2+(x-1)::label_again1:if (count2=len(str)/2) then goto enp5:endif:getchr=left(str,count1):getchr=right(getchr,1):inv1=getchr:getchr=left(str,count2):getchr=right(getchr,1):inv2=getchr:ansipos psx1,y:color col1:print inv1:ansipos psx2,y:color col1:print inv2:delay del:ansipos psx1,y:color col2:print inv1:ansipos psx2,y:color col2:print inv2:delay del:ansipos psx1,y:color col3:print inv1:ansipos psx2,y:color col3:print inv2:delay del:psx2=psx2-1:psx1=psx1+1:count1=count1+1:count2=count2-1:delay del:goto label_again1::enp5:endproc ;··············································································· procedure print_word2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) color col1:ansipos x,y:print str:psx=1:for count=1 to 90:inst=instr(str," "):getchr=left(str,inst-1):str=right(str,len(str)-inst):if ((inst<1)&(psx=1)) then ansipos x,y:color col2:print str:delay del:ansipos x,y:color col3:print str:delay del:ansipos x,y:color col4:print str:delay del:al1(count)=str:al2(count)=x:goto enp6:endif:if (inst<1) then ansipos psx+1,y:color col2:print str:delay del:ansipos psx+1,y:color col3:print str:delay del:ansipos psx+1,y:color col4:print str:delay del:al1(count)=str:al2(count)=psx+1:goto enp6:endif:if (psx=1) then ansipos x,y:color col2:print getchr:delay del:ansipos x,y:color col3:print getchr:delay del:ansipos x,y:color col4:print getchr:delay del:psx=getx():al1(count)=getchr:al2(count)=x:goto nxt1:endif:ansipos psx+1,y:color col2:print getchr:delay del:ansipos psx+1,y:color col3:print getchr:delay del:ansipos psx+1,y:color col4:print getchr:delay del:al1(count)=getchr:al2(count)=psx+1:psx=getx()::nxt1:next count::enp6:for x=1 to count:color col4:ansipos al2(x),y:print al1(x):delay del:color col3:ansipos al2(x),y:print al1(x):delay del:color col2:ansipos al2(x),y:print al1(x):delay del:color col1:ansipos al2(x),y:print al1(x):delay del:next x:endproc ;··············································································· procedure print_movecolor2(string str,integer x,integer y,integer col1,integer col2,integer col3,integer col4,integer del) ansipos x,y:color col1:print str:count1=1::label_again5:getchr=right(str,1):if (count1=len(str)) then color col2:ansipos x,y:print getchr:getchr=left(str,len(str)-1):getchr=right(getchr,1):color col3:ansipos x-1,y:print getchr:getchr=left(str,len(str)-2):getchr=right(getchr,1):color col4:ansipos x-2,y:print getchr:getchr=left(str,len(str)-3):getchr=right(getchr,1):ansipos x-3,y:color col1:print getchr:count1=count1+1:delay del:goto label_again5:endif:getchr=right(str,1):if (count1=len(str)+1) then color col3:ansipos x,y:print getchr:getchr=left(str,len(str)-1):getchr=right(getchr,1):color col4:ansipos x-1,y:print getchr:getchr=left(str,len(str)-2):getchr=right(getchr,1):color col1:ansipos x-2,y:print getchr:count1=count1+1:delay del:goto label_again5:endif:getchr=right(str,1):if (count1=len(str)+2) then color col4:ansipos x,y:print getchr:getchr=left(str,len(str)-1):getchr=right(getchr,1):color col1:ansipos x-1,y:print getchr:count1=count1+1:delay del:goto nd2:endif:getchr=left(str,1):if (count1=1) then color col4:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again5:endif:getchr=left(str,2):getchr=right(getchr,1):if (count1=2) then color col3:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again5:endif:getchr=left(str,3):getchr=right(getchr,1):if (count1=3) then color col2:ansipos x,y:print getchr:count1=count1+1:x=x+1:delay del:goto label_again5:endif:ansipos x-3,y:color col1:getchr=left(str,count1-3):getchr=right(getchr,1):print getchr:getchr=left(str,count1-2):getchr=right(getchr,1):ansipos x-2,y:color col4:print getchr:getchr=left(str,count1-1):getchr=right(getchr,1):ansipos x-1,y:color col3:print getchr:getchr=left(str,count1):getchr=right(getchr,1):ansipos x,y:color col2:print getchr:getchr=left(str,count1+1):getchr=right(getchr,1):ansipos x+1,y:color col3:print getchr:getchr=left(str,count1+2):getchr=right(getchr,1):ansipos x+2,y:color col4:print getchr:count1=count1+1:x=x+1:delay del:goto label_again5::nd2:ansipos x,y:getchr=right(str,1):color col1:print getchr endproc ; ; - Well ... that's all for now ... Stay tuned for another BPC releases ... - ;───────────────────────────────────────────────────────────────────────────────