BlitzCoder Essentials
•
Home Page
•
About BlitzCoder
•
Contributors
•
Terms of Use
•
Email Us
Main Areas
•
BlitzCoder Chat
•
Discussions
•
Articles/Tutorials
•
Code Database
•
Link Database
•
Showcase Area
•
Worklogs
•
Competitions
Special Areas
•
Undocumented
Other Blitz Sites
•
Blitz Basic Home
•
Blitz Showcase
•
BlitzPlay Library
Forum Login
Username:
Password:
•
Register Now!
BlitzCoder Code Archives Page
Main Codes Page
"Join and Split Banks"
, by poedboy
Two functions for merging two banks into a single Bank, or splitting a single bank into two seperate banks.
Code
;**************************************** ;Name: Join/Split Banks ;Author: A Pissed Off Boy ;Date: 7:32am , 4/22/04 ;Updated: n/a ;**************************************** ;Purpose: Lets you Merge 2 Banks into a single bank, or split a bank into 2 seperate banks. Function JoinBanks(Bank1%,Bank2%,FreeSourceBanks%=True) Local Size1%=BankSize(Bank1%),Size2%=BankSize(Bank2%),OutBank%=CreateBank(Size1%+Size2%) CopyBank Bank1%,0,OutBank%,0,Size1% CopyBank Bank2%,0,OutBank%,Size1%,Size2% If FreeSourceBanks%=True FreeBank Bank1% FreeBank Bank2% EndIf Return OutBank% End Function Function SplitBank(Bank%,Offset%) Local InSize%=BankSize(Bank%),OutSize%=InSize%-Offset%,OutBank%=CreateBank(OutSize%) CopyBank Bank%,Offset%,OutBank%,0,OutSize% ResizeBank Bank%,InSize%-OutSize% Return OutBank% End Function
Copyright(c) 2000-2004, BlitzCoder. All Rights Reserved.
Code software created by Krylar's Kreations
