Oturan Online

The Official Forum of the naruto orpg, Oturan Online!

Welcome to Oturan Online
Hungry? Try checking out the Ramen Shop!
Please read the forum rules here!
Embrace the power of the Curse Mark! Check it out Here!

Log in

I forgot my password



Affiliates
Free Domains Forwarding
 
Latest topics
» Hello everyone, again!
Tue Mar 03, 2015 10:17 pm by radori

» Heyo, its a blast from the past
Tue Mar 03, 2015 11:39 am by radori

» Christian Louboutin Flats
Tue Jan 22, 2013 3:07 am by cangliang

» Christian Louboutin Cheap
Tue Jan 22, 2013 3:06 am by cangliang

» Cheap Christian Louboutin Shoes
Tue Jan 22, 2013 3:05 am by cangliang

» Prada Belt
Thu Jan 17, 2013 3:23 am by cangliang

» Armani Belts
Thu Jan 17, 2013 3:22 am by cangliang

» gucci belt for men
Thu Jan 17, 2013 3:21 am by cangliang


You are not connected. Please login or register

whats engine base are you guys using vb6, jave, c#

View previous topic View next topic Go down  Message [Page 1 of 1]

dawnofearth

avatar
Academy Student
Academy Student
i know a lil bit in vb6 if you need some help and i can sad script a lil bit

View user profile

Oturan

avatar
Kage
Kage
Yep. Were using sad script (eclipse), and vb6

Send me a script youve made, so I can see what you can do Smile


_________________
View user profile http://oturanonline.ultimaterpg.org

dawnofearth

avatar
Academy Student
Academy Student
Case 1 'freds Quest
'Quest Nummer 1 Begin
If GetPlayerLevel(Index) > 0 Then
If Getvar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 0 Then
Call PlayerMsg(Index, "fred says: help", BLUE)
Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 1)
ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 1 Then
If CanTake(Index, 5, 1) Then
Call TakeItem(Index, 5, 1)
Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 2)
Call PlayerMsg(Index, "fred says: thx", BLUE)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 999)
Call PlayerMsg(Index, "You receive experience points: 999", YELLOW)
Call SendStats(Index)
Call PlayerLevelUp(Index)
Call GiveCurrency(Index, 0, 0)
Call PlayerMsg(Index, "You receive Money: 0", YELLOW)
Else
Call PlayerMsg(Index, "fred says: help me", BLUE)
End If
ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 2 Then
Call PlayerMsg(Index, "fred says: great job", BLUE)
Call PlayerMsg(Index, "(You already completed this Quest.)", BLACK)
End If
Else
Call PlayerMsg(Index, "The Level requirement for this quest is too high.", BLUE)
End If
Exit Sub

View user profile

dawnofearth

avatar
Academy Student
Academy Student
Case 1
If GetPlayerMap(Index) <> 100 Then
Call PlayerWarp(Index, 1, 15, 5)
Call TakeItem(Index, 42, 1)
Call PlayerMsg(Index, "You have warped back to the Village of Taurus!", BRIGHTGREEN)
Else
Call PlayerMsg(Index, "You can not use this in jail!", BRIGHTRED)
End If
Exit Sub

View user profile

dawnofearth

avatar
Academy Student
Academy Student
Case 1
Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by using the warp item", 1)
Call PutVar("Portal.ini", GetPlayerName(index), "map", GetPlayerMap(index))
Call PutVar("Portal.ini", GetPlayerName(index), "x", GetPlayerX(index))
Call PutVar("Portal.ini", GetPlayerName(index), "y", GetPlayerY(index))
Exit Sub
Case 2
mapnum = GetVar("Portal.ini", GetPlayerName(index), "map")
y = GetVar("Portal.ini", GetPlayerName(index), "y")
x = GetVar("Portal.ini", GetPlayerName(index), "x")
Call SetPlayerMap(index, mapnum)
Call setPlayery(index, y)
call setplayerx(index, x)
Call SendPlayerData(index)
Exit Sub

View user profile

6 those are the best ones i got on Thu Jan 07, 2010 6:01 pm

dawnofearth

avatar
Academy Student
Academy Student
fill free to use them if you want edit do w/e you want with them

View user profile

Sponsored content


View previous topic View next topic Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum