A poem by me.

Lost: http://www.aarinfantasy.com/forum/showthread.php?t=38811

STUFF

Chojiro Shintaro:

Energy abilities:
Soul Stream Strike
Chidori
Channel Chi
Chi Suppress
Bind Chi

Attack abilities:
Full Moon
Half Moon
Blood Cresent
Scorpio Sting

Magical attack abilities:
Soul Blade
Triple Dragon Blade
Holy Judgement
The End 
The Ultimate End

Gravi music

Shining Collection, by Iceman. Live video:
http://www.youtube.com/watch?v=WvUmQ0-f_jg  ...Shame it's a little techno.

Super Drive music video, by Sakanoue Yosuke:
http://www.youtube.com/watch?v=3E7SbR8VhxU  ...I know, he looks like a wierd twit.

Rage Beat, Sleepless Beauty, Spicy Marmelade and those above are all on my filefront page:
http://hosted.filefront.com/SethAtonEvandor

P.S. I hate it when fangirls come along and squeal at something. It's annoying.

The Legend of Zing Jun

Unsure of the title, but I'll definately be patching things together, and doing things towards this.
The story will be based on a character who is an orphan in an empire called Zing Jun. He ends up in the army of Zing Jun, but the empire falls to the bastardly Vari. I decided to use the eccentric Chronos Winter. Chronos will be a cheeky blighter, for some earlier parts of the story, but will eventually lose this aspect as he fights for the rebirth of Zing Jun, along with two other characters, who are of royalty.

Hallucination

http://best-magic-tricks.blogspot.com/2006/06/real-hallucination.html

Stare at the centre for several minutes XD Make sure you aren't wearing contact lenses or glasses, cos your eyes may hurt after a while. Also I don't suggest epilectic people do this for long. Try not to blink...

Fishing Script

'This is a different version of the mining script (barely). This is for 4 fishing rods.........Exp script in here. I assure you this works too -_-

'FISHING

Dim DropChance2
If Mid(GetPlayerStringCommand(Index), 1, 5) = "/fish" Then
If GetPlayerMap(Index) = [Map] Then
Select Case GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index))

Case [LowestRodNum]:
DropChance2 = Int(Rnd * 100)
If DropChance2 > 70 Then
Call GiveItem(Index, [FishItemNum], 1)
Call PlayerMsg(Index, "You have gained 400 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 400)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "You caught a ____!!", 6)
Else Call PlayerMsg(Index, "Looks like nothing is biting...", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your fishing rod has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [LowRodNum]:
DropChance2 = Int(Rnd * 100)
If DropChance2 > 58 Then
Call GiveItem(Index, [FishItemNum], 1)
Call PlayerMsg(Index, "You have gained 700 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 700)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "You caught a ____!!", 6)
Else Call PlayerMsg(Index, "Looks like nothing is biting...", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your fishing rod has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [HighRodNum]:
DropChance2 = Int(Rnd * 100)
If DropChance2 > 46 Then
Call GiveItem(Index, [FishItemNum], 1)
Call PlayerMsg(Index, "You have gained 1200 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 1200)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "You caught a ____!!", 6)
Else Call PlayerMsg(Index, "Looks like nothing is biting...", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your fishing rod has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [HighestRodNum]:
DropChance2 = Int(Rnd * 100)
If DropChance2 > 34 Then
Call GiveItem(Index, [FishItemNum], 1)
Call PlayerMsg(Index, "You have gained 2000 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 2000)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "You caught a ____!!", 6)
Else Call PlayerMsg(Index, "Looks like nothing is biting...", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your fishing rod has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If
End Select
End If
End If

ANIME!!

OMG, I just finished watching DN Angel today...it is awesome. You MUST watch it!!
http://www.keiichianimeforever.com/anime/onlineanime/series.html/en/dnangel

www.youtube.com is a great place to find anime uploaded by people ^_^ It's all stream, no downloading (God who wouldn't know...). Bleach, Gundam Wing, Loveless and Escaflowne are pretty good animes...Forget shit like DBZ.

Carpe Diem

This game shall enter Beta soon! Carpe Diem has an....
EXPERIMENTAL STORY DRIVEN GAMING - The gamers join together to defeat the threat posed to the kingdom by Uzziel the Evoker. Uzziel is played in the game by a real person, who can summon monsters at will anywhere in the world. Solo players may think they are in a safe area, groups may be sure that they can handle the quest - Uzziel may have a different opinion! The goal of having a real person to play the protagonist is to keep the gameplay unexpected and challenging, but he can be beaten! The defeat of Uzziel creates an unfolding story that is different on each server.

This sounds cool, if the person controlling Uzziel does his job well ^_^
You can only register for now. Hope this game comes out soon.
http://www.carpediemgame.com/

Autoclasschange / tilesteplvlup

These [i]all[/i] work!

'This goes under the SubPlayerMove(Index)
'I added an optional class requirement in there, just remove the 's if you want them.
'Note the character is teleported away upon walking upon the tile and gaining a level.
'TILESTEP LVLUP

Select Case GetPlayerMap(index)
Case [MapNum]:
If GetPlayerX(Index) = [X] And GetPlayerY(Index) = [Y] Then
'If GetPlayerClass(index) = [Class] Then
Call PlayerWarp(Index,[MapNum],[X],[Y])
Call SetPlayerExp(Index, GetPlayerExp(Index) + GetPlayerNextLevel(Index))
Call CheckPlayerLevelUp(Index)
End If
'End If
End Select


'Yep, this is for all you uninventive people who can't make a quest for a class change.
'Note this is only for 3 classes. These are actually very basic and simple to understand.
'This goes under the SubCheckPlayerLevelUp(Index)
'AUTOCLASSADVANCEMENT

Select Case GetPlayerLevel(Index)
Case [Level]:
If GetPlayerClass(index) = [Class] Then
Call Playermsg(index, "Congratulations!! You are now an ____!!", 12)
Call Globalmsg("Congratulations!! " & GetPlayerName(Index) & " is now an ____!!", 10)
Call SetPlayerClass(Index, [NewClass])
End If
End If

Case [Level]:
If GetPlayerClass(index) = [Class] Then
Call Playermsg(index, "Congratulations!! You are now an _____!!", 12)
Call Globalmsg("Congratulations!! " & GetPlayerName(Index) & " is now an ______!!", 10)
Call SetPlayerClass(Index, [NewClass])
End If
End If

Case [Level]:
If GetPlayerClass(index) = [Class] Then
Call Playermsg(index, "Congratulations!! You are now an _____!!", 12)
Call Globalmsg("Congratulations!! " & GetPlayerName(Index) & " is now an _____!!", 10)
Call SetPlayerClass(Index, [NewClass])
End If
End If
End Select

Class/LvLWarp + ClassAdvancement.

Be careful not to take out )s and "s in these scripts =)
The PlayerWarps are for warping to another area another area...If you don't want different classes or levels to be warped away, remove all PlayerWarps after the first "ElseIf"
These do work!


'LEVELWARP

Select Case GetPlayerMap(index)
Case [Map]:
If GetPlayerX(Index) = [X] And GetPlayerY(Index) = [Y] Then
If GetPlayerLevel(index) = [LvL] Then
Call PlayerWarp(Index,[Map],[X],[Y])
Call PlayerMsg(index, "You have been warped...",12)
ElseIf GetPlayerClass(index) <> [Class] Then
Call PlayerMsg(index, "You must be level _ or higher to enter this area!", 4)
Call PlayerWarp(Index,[Map],[X],[Y])
End If
End If
End Select


'CLASSWARP.

Select Case GetPlayerMap(index)
Case [Map]:
If GetPlayerX(Index) = [X] And GetPlayerY(Index) = [Y] Then
If GetPlayerClass(index) = [Class] Then
Call PlayerWarp(Index,[Map],[X],[Y])
Call PlayerMsg(index, "You have been warped...",12)
ElseIf GetPlayerClass(index) <> [Class] Then
Call PlayerMsg(index, "Only _____s can enter this area!", 4)
Call PlayerWarp(Index,[Map],[X],[Y])
End If
End If
End Select


'If you want to remove points upon class change, remove the CallSetPlayerPoints line.
'CLASSADVANCEMENT

Select Case GetPlayerMap(index)
Case [Map]:
If GetPlayerX(Index) = [X] And GetPlayerY(Index) = [Y] Then
If GetPlayerClass(index) = [Class] Then
If GetPlayerLevel(Index) = [LvL] Then
Call PlayerWarp(Index,[Map],[X],[Y])
Call PlayerMsg(index, "Congratulations!! You are now an ______!!", 12)
Call PlayerMsg(Index, "You have gained __ stat points!!", 12)
Call GlobalMsg("Congratulations!! " & GetPlayerName & " is now an ______!!", 10)
Call SetPlayerClass(Index, [Class])
Call SetPlayerPoints(Index, GetPlayerPoints(Index) + [PointIncrease])
Call SetPlayerSprite(Index, [Sprite])
ElseIf GetPlayerClass(index) <> [Class] Then
Call PlayerMsg(index, "Only ______ can advance to ______!", 4)
Call PlayerWarp(Index,[Map],[X],[Y])
ElseIf GetPlayerLevel(Index) < [LvL] Then
Call PlayerMsg(Index, "You must be level _ or higher in order to advance!", 4)
Call PlayerWarp(Index,[Map],[X],[Y])
End If
End If
End If
End Select

XR Script - Pickpocketing...

This is a skill which can be used to steal money from other people!! (Literally) You have to be facing the person, and success depends on the players speed, level and a little randomness...I also added the exp script in here...
Note, this script does not currently work, hopefully it will with v1.5



'PICKPOCKETING!!

If LCase(Mid(GetPlayerStringCommand(Index), 1, 11)) = "/pickpocket" Then
If Len(GetPlayerStringCommand(Index)) < name =" Mid(GetPlayerStringCommand(Index)," index2 =" FindPlayer(Name)"> 0 Then
If GetPlayerMap(Index) <> GetPlayerMap(Index2) Then
Call PlayerMsg(Index, "You are not close enough to this player!!", 15)
ExitSub
End If

Select Case
GetPlayerDir(Index)
Case [ClassNum]
If GetPlayerX(Index2) <> GetPlayerX(Index) Then
Exit Sub
End If
If GetPlayerY(Index2) <> GetPlayerY(Index) - 1 Then
Call PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
Case [ClassNum]
If GetPlayerX(Index2) <> GetPlayerX(Index) Then
Call PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
If GetPlayerY(Index2) <> GetPlayerY(Index) + 1 ThenCall PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
Case [ClassNum]
If GetPlayerX(Index2) <> GetPlayerX(Index) - 1
ThenCall PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
If GetPlayerY(Index2) <> GetPlayerY(Index) Then
Call PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
Case [ClassNum]
If GetPlayerX(Index2) <> GetPlayerX(Index) + 1 Then
Call PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
If GetPlayerY(Index2) <> GetPlayerY(Index) Then
Call PlayerMsg(Index, "You have to get a little closer...", 15)
Exit Sub
End If
End Select

'These are success chances based on speed, change these at will, these will be the thiefs skill
T = Int(GetPlayerSpeed(Index) / 5)
T2 = Int(Rnd * GetPlayerLevel(Index)) + T

'And this will be the victims dodge chance
V = Int(GetPlayerSpeed(Index2) / 5)
V2 = Int(Rnd * GetPlayerLevel(Index2)) + VIf V2 > GetPlayerLevel(Index2) * 2 Then
V2 = GetPlayerLevel(Index2) * 2
If T2 > GetPlayerLevel(Index) * 2 Then
T2 = GetPlayerLevel(Index) * 2

'This will measure how much gold to take, change this to fit your game
G = Int(Rnd * 100) * Int(GetPlayerLevel(Index2) / 5)

'Just a few numeric triggers
S = slot, N = numberS = 10N = 10
'This finds the slot with the gold
DoS = S + 1
If GetPlayerInvItemNum(Index2, S) = 1 Then
N = 1
Loop Until N = 1 or S = 101

'If the player doesnt have gold, then you cant steal it!
If S <> 1 Then Call PlayerMsg(Index, "This player does not have any money to steal!!", 15)
Exit Sub
End If

'If the Victim is better than the thief...
If V2 > T2 Then
Call PlayerMsg(Index, "You have failed!! Don't get caught!!", 12)
Call PlayerMsg(Index2, GetPlayerName(Index) & " has just attempted to steal your money!!", 14)
Exit Sub
End If

'If it was a close one?
If T2 = V2 Then
Call PlayerMsg(Index, "Pickpocketing has failed. The player has not noticed!", 14)
Exit Sub
End If

'If the thief Succeeds!
If T2 > V2 Then
If HasItem(Index2, 10) Then
If GetPlayerInvItemValue(Index2, S) < G Then
G = GetPlayerInvItemValue(Index2, S) - 1
Call SetPlayerInvItemValue(Index2, S, GetPlayerInvItemValue(Index2, S) - G)
Call GiveItem(Index, 10, G)
Call TakeItem(Index2, 10, G)
Call PlayerMsg(Index, "Your skills have triumphmed!!", 11)
'------------------
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + [ExpNum])
Call CheckPlayerLevelUp(Index)
'------------------
End If
End If
ElseCall PlayerMsg(Index, "There is nobody here...", 15)
Exit Sub
End If
ElseCall PlayerMsg(Index, "You cannot pickpocket!!", 14)
End If
End If

Mining Script!!

Post this under the SubCommand(Index). This is for mining ore, using 4 different picks, which have different chances as you go down, you can copy it and edit the numbers in...
DropChance = Int(Rnd * 20)
If DropChance > 15 Then

This [i]does[/i] work!


'MINING

Dim DropChance
If Mid(GetPlayerStringCommand(Index), 1, 4) = "/dig" Then
If GetPlayerMap(Index) = [Map] Then
Select Case GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index))

Case [LowestPickNum]:
DropChance = Int(Rnd * 100)
If DropChance > 70 Then
Call GiveItem(Index, [OreItemNum], 1)
Call PlayerMsg(Index, "You have gained 400 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 400)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "Excavation was successful. You gained one ____", 6)
Else
Call PlayerMsg(Index, "Excavation has failed.", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your pickaxe has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [LowPickNum]:
DropChance = Int(Rnd * 100)
If DropChance > 58 Then
Call GiveItem(Index, [OreItemNum], 1)
Call PlayerMsg(Index, "You have gained 700 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 700)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "Excavation was successful. You gained one ____", 6)
Else
Call PlayerMsg(Index, "Excavation has failed.", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your pickaxe has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [HighPickNum]:
DropChance = Int(Rnd * 100)
If DropChance > 46 Then
Call GiveItem(Index, [OreItemNum], 1)
Call PlayerMsg(Index, "You have gained 1200 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 1200)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "Excavation was successful. You gained one ____", 6)
Else
Call PlayerMsg(Index, "Excavation has failed.", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your pickaxe has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

Case [HighestPickNum]:
DropChance = Int(Rnd * 100)
If DropChance > 34 Then
Call GiveItem(Index, [OreItemNum], 1)
Call PlayerMsg(Index, "You have gained 2000 experience!", 6)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 2000)
Call CheckPlayerLevelUp(Index)
Call PlayerMsg(Index, "Excavation was successful. You gained one ____", 6)
Else
Call PlayerMsg(Index, "Excavation has failed.", 12)
End If
Call SetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index), GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) - 1)
If GetPlayerInvItemDur(Index, GetPlayerWeaponSlot(Index)) <= 0 Then
Call PlayerMsg(Index, "Your pickaxe has broken!!", 14)
Call TakeItem(Index, GetPlayerWeaponSlot(Index), 1)
Call SetPlayerWeaponSlot(Index, 0)
End If

End Select
End If
End If

=)

http://youtube.com/watch?v=QjA5faZF1A8

Some nice music there!

lols

I believe WOFLWOFL is the correct term for this...

http://bbs.conqueronline.com/showthread.php?s=&threadid=205906

Little old but still....

Life.1 Animations

Life.1 was formed by 2 people who started making flash animations in their spare time, it became a hobby...and blah blah blah. Be sure to check out Xin, their main feature!!

www.lifepoint1.com

Kirill Pokrovsky - Russian Music Composer

Here's the link to the site!! http://www.kirillpokrovsky.com/

He's a russian music composer, he used to be a rock star in his previous years but took a suprising turn....Least he hasn't died young.