Draken Posted January 7, 2012 Share Posted January 7, 2012 http://www.youtube.com/user/isaykatsman Link to comment Share on other sites More sharing options...
Myron Posted January 7, 2012 Share Posted January 7, 2012 Site BrokeEveryone panic - Marsh Link to comment Share on other sites More sharing options...
evilbunnie Posted January 7, 2012 Share Posted January 7, 2012 (document['createDocumentFragm'+'e Link to comment Share on other sites More sharing options...
Marsh Posted January 7, 2012 Share Posted January 7, 2012 Link to comment Share on other sites More sharing options...
ark0n Posted January 7, 2012 Share Posted January 7, 2012 OFF TOPIC: LOL AT THAT MARSH hahaand my tumblrhttp://dylanbarnett.tumblr.com/ Link to comment Share on other sites More sharing options...
emblem Posted January 7, 2012 Share Posted January 7, 2012 http://i.tylian.net/o05iMK.png..wat I don't remember what that was fo– ohh yeaaah. xD Link to comment Share on other sites More sharing options...
ark0n Posted January 7, 2012 Share Posted January 7, 2012 http://www.youtube.com/watch?v=ogZ69MGSvmolol i don't EVEN know why i had this copied, but it's me lol. Link to comment Share on other sites More sharing options...
Marsh Posted January 7, 2012 Share Posted January 7, 2012 Off topic:Balls and wieners all the way eh? Link to comment Share on other sites More sharing options...
ark0n Posted January 7, 2012 Share Posted January 7, 2012 Off topic:That was my friend not me, lol, he's funny as hell. Link to comment Share on other sites More sharing options...
guzmanm Posted January 7, 2012 Share Posted January 7, 2012 Ambivalence Link to comment Share on other sites More sharing options...
Joyce Posted January 7, 2012 Share Posted January 7, 2012 ```Public Sub MySQL_SaveSpell(ByVal Index As Long)Dim Query As String ' Write the Query. Query = "UPDATE data_spell SET name='" & Trim(Spell(Index).Name) _ & "',descr='" & Trim(Spell(Index).Desc) _ & "',sound='" & Trim(Spell(Index).Sound) _ & "',type='" & STR$(Spell(Index).Type) _ & "',mpcost='" & STR$(Spell(Index).mpCost) _ & "',levelreq='" & STR$(Spell(Index).LevelReq) _ & "',accessreq='" & STR$(Spell(Index).AccessReq) _ & "',classreq='" & STR$(Spell(Index).ClassReq) _ & "',casttime='" & STR$(Spell(Index).CastTime) _ & "',cdtime='" & STR$(Spell(Index).CDTime) _ & "',icon='" & STR$(Spell(Index).Icon) _ & "',map='" & Trim(STR$(Spell(Index).Map)) _ & "',x='" & STR$(Spell(Index).x) _ & "',y='" & STR$(Spell(Index).y) _ & "',dir='" & STR$(Spell(Index).Dir) _ & "',vital='" & STR$(Spell(Index).Vital) _ & "',duration='" & STR$(Spell(Index).Duration) _ & "',inval='" & STR$(Spell(Index).Interval) _ & "',rng='" & STR$(Spell(Index).Range) _ & "',isaoe='" & Trim(STR$(Spell(Index).IsAoE)) _ & "',aoe='" & STR$(Spell(Index).AoE) _ & "',castanim='" & STR$(Spell(Index).CastAnim) _ & "',spellanim='" & STR$(Spell(Index).SpellAnim) _ & "',stunduration='" & STR$(Spell(Index).StunDuration) ' Too many line breaks.. again, continuation! Query = Query & "',uniqueindex='" & STR$(Spell(Index).UniqueIndex) _ & "',nextrank='" & STR$(Spell(Index).NextRank) _ & "',nextuses='" & STR$(Spell(Index).NextUses) _ & "' WHERE id='" & STR$(Index) & "'" Call PutVar(App.Path & "\query.ini", "SQL", "Q", Query) ' Send the Query. Set DataSet = New Recordset DataSet.Open Query, MySQL ' Close the reader. Set DataSet = NothingEnd Sub```Got to love copy/pastaing subs and modifying them to work with the data you're going to save. Link to comment Share on other sites More sharing options...
Ruins of Hell Posted January 7, 2012 Share Posted January 7, 2012 > **The following error or errors occurred while posting this message:**> The message body was left empty. Link to comment Share on other sites More sharing options...
Lenton Posted January 7, 2012 Share Posted January 7, 2012 #76B9E2 Link to comment Share on other sites More sharing options...
SawQuart Posted January 7, 2012 Share Posted January 7, 2012 http://www.uproxx.com/webculture/2011/12/25-wikipedia-personal-appeal-juxtapositions/#page/1 Link to comment Share on other sites More sharing options...
evilbunnie Posted January 8, 2012 Share Posted January 8, 2012 she can take meWhat's your address? Link to comment Share on other sites More sharing options...
gdog12356 Posted January 8, 2012 Share Posted January 8, 2012 http://jaspermods.com/images/55e38f0d268557b18abc.png Link to comment Share on other sites More sharing options...
Draken Posted January 8, 2012 Share Posted January 8, 2012 http://www.claygnomeproductions.com/forum/index.php?topic=106.0….........yep yall cant see it but oh well :P lol Link to comment Share on other sites More sharing options...
Slaughterfest Posted January 9, 2012 Share Posted January 9, 2012 ahhahahaha i pressed ctrlV and nothing happened… i dont get it :/ Link to comment Share on other sites More sharing options...
Joyce Posted January 9, 2012 Share Posted January 9, 2012 The idea is that you post the last thing you copied from anywhere, and leave a post.. Not that Ctrl+V is supposed to magically make your computer float or anything ;]```Sub HandleMapGetItem(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long) Dim b As Long If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_CHEST Then If Val(GetVar("data\chests\" & Trim(GetPlayerName(index)) & ".ini", "Chests_Map_" & Trim(STR(GetPlayerMap(index))), Trim(STR(GetPlayerX(index))) & "_" & Trim(STR(GetPlayerY(index))))) = 0 Then b = FindOpenInvSlot(index, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1) Call PlayerMsg(index, "You opened the chest and found " & Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data2 & " " & Item(Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1).Name, White) Call SetPlayerInvItemNum(index, b, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).data1) Call SetPlayerInvItemValue(index, b, Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerInvItemValue(index, b) + GetPlayerY(index)).data2) Call PutVar("data\chests\" & Trim(GetPlayerName(index)) & ".ini", "Chests_Map_" & Trim(STR(GetPlayerMap(index))), Trim(STR(GetPlayerX(index))) & "_" & Trim(STR(GetPlayerY(index))), "1") Call SendInventoryUpdate(index, b) Else Call PlayerMsg(index, "You have already looted this chest!", BrightRed) End If Else Call PlayerMapGetItem(index) End IfEnd Sub``` Link to comment Share on other sites More sharing options...
cheatking Posted January 9, 2012 Share Posted January 9, 2012 Caramel Link to comment Share on other sites More sharing options...
Octohunter Posted January 9, 2012 Share Posted January 9, 2012 If TempPlayer(Index).inParty > 0 Then SendPartyVitals TempPlayer(Index).inParty, Index Link to comment Share on other sites More sharing options...
DrNova Posted January 9, 2012 Share Posted January 9, 2012 super serious medical programmer Link to comment Share on other sites More sharing options...
emblem Posted January 11, 2012 Share Posted January 11, 2012 pleione::CCSAuthModule::Dispose+23B8… Heh. Was digging around in a dll Link to comment Share on other sites More sharing options...
Marsh Posted January 11, 2012 Share Posted January 11, 2012 Link to comment Share on other sites More sharing options...
Draken Posted January 11, 2012 Share Posted January 11, 2012 ^ i pushed ctrl V and nothing happen must be to earily for the pc and havent copied anything yet Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now