Name: Brannon Gomes (0m3GA ARS3NAL
E-Mail:
[email protected] (You have this already...)
MSN/AIM/YIM/ICQ: Same as above
Time Zone: -8:00 PST
Skills: Scripting, Mapping
Proof of Work:
I'm only going for scripter... (Do you really need proof, I've known you forever now...)
The Beginning of the script explains what it does in comments, don't skip them.
This script is for FIRE RED, but can easily be adapted to R/S/E with a few flag and movement changes.
I can not provide Screenshots, as my PSP is not with me at the moment, I forgot it at my friend Mike's place... I can get some tomorrow around 8 PM (-8:00 PST mind you)
Code:
// This is a lock that requires a lock-picking ability
// above LV 0x46 (70)
// In order to pick a lock, your Picking level must be
// the same or greater than the level of the lock.
// If the level is lower, there is a chance the lock pick will break
// In this event the user must buy a new one.
// The chance of picking a lock while a lower level is the
// player's picking level out of 100 (The maximum pick level)
// If you pick a lock correctly, you level up one level. (With a maximum level of 100
// Though breaking a pick isn't BAD, since they are relatively easy
// to get a hold of. (Cheaply)
//More can be added to this script, like an event happening if you pick the lock, like a door
//opening, or an item given, simple changes, no need to include ever scenario at this time.)
//Variables
#define Picking_Level 0x8000
#define Lock_Level 0x8003
#define Break_Chance 0x8004
//Flags
#define Pick# 0x1000
#dynamic 0x800000
#org @start
lock
checkflag Pick#
if b_== goto @AlreadyPicked
checkitem 0x178 1 // I've replaced the Old Sea Map with my lockpick
if b_>> goto @No_Pick
setvar Lock_level 0x46
comparevars Lock_Level Picking_Level
if b_>> call @Warning
setflag Pick#
message @Pick_Attempt 0x6
pause 0x10
sound 0x1D
pause 0x5
sound 0x1D
pause 0x20
sound 0x1E
applymovement 0xFF @YAY
waitmovement 0x0
message @Lock_Picked 0x6
call @Level_Up
release
end
#org @AlreadyPicked //This #org statement can be pre-compiled and branched to to save space...
message @Already_Picked_Message 0x6
release
end
#org @No_Pick //As well as this branch...
message @Need_Pick 0x6
release
end
#org @warning
message @Warning_Message 0x5
compare LASTRESULT 0x0
if b_true goto @quit
random 99
copyvar Break_Chance LASTRESULT
comparevars Break_Chance Picking_Level
if b_<< goto @Break_Pick
return
#org @Break_Pick
removeitem 0x178 1
message @Pick_Attempt 0x6
pause 0x10
sound 0x1D
pause 0x5
sound 0x1D
pause 0x20
sound 0xCB
applymovement 0xFF @Sad
waitmovement 0x0
message @Pick_Has_Broken 0x6
release
end
#org @Level_Up //Can ALSO be compiled before-hand
compare Picking_Level 99
if b_== goto @quit
addvar Picking_Level 1
return
#org @quit
release
end
#org @Already_Picked_Message
= You've already picked this lock.
#org @Need_Pick
= This lock looks pretty simple...
#org @Warning_Message
= Your lockpick level isn't high\nenough to pick this lock without a\lchance of breakage. Continue?
#org @Pick_Attempt
= [player] attempts to pick the lock.
#org @Lock_Picked
= The lock has been picked! Your\ngetting better at this!
#org @Pick_Has_Broken
= Too bad, your lockpick has broken.
#org @YAY
#raw 0x66 0xFE
#org @Sad
#raw 0x64 0xFE
Past Experience: Well, not much to say here, I've never really seriously worked on a hack before... I've helped Linkandzelda out with a few script problems he was having in Liquid Crystal, Hmm, I guess you'll just have to base this on your past experiences with me, and such... I've got a lot of experience scripting though, I guess it isn't much just saying so without sufficient proof, but just because I've never (seriously) worked on a hack doesn't mean I'm not bad... look at most hacks nowadays, most suck, I don't wanna contribute to something that will die...
Ending Comments: Yeah, I added this section on my own, lol.
Well, I guess all I can say is, I know you probably don't need another scripter, but I'm talented to the best of my knowledge, and I've Memorized Silver version to every detail... I think I could be of some help on Oro Sole, I mean, I've already helped Liquid Crystal... I've pointed out bugs in Liquid Crystal that Linkandzelda never even found. I'll script for you with enthusiasm, and will never give up,no matter the task. *Cheesy, yet loyal*
